【delphi开源代码栏目提醒】:网学会员--在 delphi开源代码编辑为广大网友搜集整理了:bdxxunit.pas绩等信息,祝愿广大网友取得需要的信息,参考学习。
unit bdxxunit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls,datadomule, Mask, StdCtrls;
type
Tbdxx = class(TForm)
Panel1: TPanel;
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Edit3: TEdit;
Label4: TLabel;
Edit4: TEdit;
Label5: TLabel;
Edit5: TEdit;
Label6: TLabel;
Edit6: TEdit;
Label7: TLabel;
MaskEdit1: TMaskEdit;
Button1: TButton;
procedure Edit1Exit(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
bdxx: Tbdxx;
implementation
{$R *.dfm}
procedure Tbdxx.Edit1Exit(Sender: TObject);
begin
with datamodule1.qry_xsbd 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[1].AsString;
edit4.text:=fields[2].AsString;
edit5.text:=fields[3].AsString;
end;
end;
procedure Tbdxx.Button1Click(Sender: TObject);
begin
if (edit1.text='') or (edit6.text='') then
begin
application.MessageBox('请输入完整信息!','提示',mb_ok+mb_iconinformation);
exit;
end;
with datamodule1.qry_xsbd do
begin
close; //在变动表里添加信息
sql.clear;
sql.add('select * from xsbd');
open;
edit;
append;
fields[0].asstring:=edit1.text;
fields[1].asstring:=edit2.text;
fields[2].asstring:=edit3.text;
fields[3].asstring:=edit4.text;
fields[4].asstring:=edit5.text;
fields[8].asstring:=maskedit1.text;
fields[9].asstring:=edit6.text;
post;
close; //在学生名册里删除该学生
sql.Clear ;
sql.Add('delete from xsmc where xsxh_id=:id');
parambyname('id').asstring:=edit1.text;
execsql;
close;
sql.Clear ;
sql.Add('select * from zyb0 where zyh0=:id');
parambyname('id').asstring:=edit4.text;
execsql;
open;
edit;
fields[11].AsInteger:=fields[11].AsInteger+1; //休学人数+1
fields[10].AsInteger:=fields[10].AsInteger-1;; //专业人数-1
post;
close;
sql.Clear ;
sql.Add('select * from bjb0 where bjh0=:id');
parambyname('id').asstring:=edit5.text;
execsql;
open;
edit;
fields[3].AsInteger:=fields[3].AsInteger-1;
post;
end;
end;
procedure Tbdxx.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
selectnext (activecontrol,true,true);
end;
end.
上一篇:
frmARDetail.frm
下一篇:
春天的兰花草