【delphi开源代码栏目提醒】:以下是网学会员为您推荐的delphi开源代码-bkcjunit.pas,希望本篇文章对您学习有所帮助。
unit bkcjunit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, DB, DBTables, Mask;
type
Tbkcjfrm = class(TForm)
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit9: TEdit;
Edit10: TEdit;
Edit11: TEdit;
Button1: TButton;
DataSource1: TDataSource;
qry: TQuery;
MaskEdit1: TMaskEdit;
Edit4: TEdit;
procedure Edit1Exit(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Edit4Exit(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
bkcjfrm: Tbkcjfrm;
implementation
uses datadomule;
{$R *.dfm}
procedure Tbkcjfrm.Edit1Exit(Sender: TObject);
begin
{combobox1.Items.clear;
with qry do
begin
close;
sql.Clear ;
sql.add('select * from cjb0 where xsxh_id=:id and cj00<60') ;
parambyname('id').asstring:=edit1.text;
open;
first;
end;
if qry.recordcount>0 then
begin
// combobox1.text:=qry.fields[4].asstring;
repeat
combobox1.Items.Add(qry.fields[4].asstring);
until qry.findnext=false;
end
else
begin
application.MessageBox('该同学没有需要补考的课程,请核对!','提示',mb_ok+mb_iconinformation);
exit;
end; }
with qry do
begin
close;
sql.Clear ;
sql.Add('select * from xsmc where xsxh_id=:id') ;
parambyname('id').asstring:=edit1.text;
open;
edit2.text:=fields[5].asstring;
edit3.text:=fields[3].asstring;
if not findfirst then
begin
application.MessageBox('该学生不存在!','提示',mb_ok+mb_iconinformation);
edit1.SetFocus ;
edit1.Clear ;
exit;
end;
end;
end;
procedure Tbkcjfrm.Button1Click(Sender: TObject);
begin
if (edit1.Text='') or (edit4.text='') or (edit11.text='') then
begin
application.MessageBox('请输入完整信息!','提示',mb_ok+mb_iconinformation);
exit;
end;
with qry do
begin
close;
sql.Clear;
sql.add('select * from bkcj where xsxh_id=:id and kcbh=:bh');
parambyname('id').asstring:=edit1.text;
parambyname('bh').asstring:=edit4.text;
open;
if recordcount>0 then
begin
application.MessageBox('该学生的成绩已经存在!','提示',mb_ok+mb_iconinformation);
bkcjfrm.Close;
exit;
end;
end;
with datamodule1.qry_bkcj do
begin
close;
sql.Clear;
sql.add('select * from bkcj');
open;
edit;
append;
fields[1].asstring:=edit1.text;
fields[2].asstring:=edit2.text;
fields[3].asstring:=edit3.text;
fields[4].asstring:=edit4.text;
fields[5].asstring:=edit5.text;
fields[6].asstring:=edit6.text;
fields[7].asstring:=edit7.text;
fields[8].asstring:=edit9.text;
fields[9].asstring:=edit11.text;
fields[10].asstring:=maskedit1.text;
fields[11].asstring:=edit10.text;
post;
end;
edit1.Clear;
edit10.Clear;
edit11.Clear;
edit1.SetFocus ;
end;
procedure Tbkcjfrm.Edit4Exit(Sender: TObject);
begin
with datamodule1.qry_bkcj do
begin
close;
sql.Clear ;
sql.add('select * from kcb0 where kcbh=:id');
parambyname('id').asstring:=edit4.Text;
open;
edit5.text:=fields[1].asstring;
edit6.text:=fields[2].asstring;
edit7.text:=fields[3].asstring;
edit9.text:=fields[4].asstring;
if not findfirst then
begin
application.MessageBox('没有找到该课程信息,请在课程维护中添加这门课!','提示',mb_ok+mb_iconinformation);
edit4.SetFocus ;
edit4.Clear ;
exit;
end;
end;
end;
procedure Tbkcjfrm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
selectnext (activecontrol,true,true);
end;
end.