最新delphi課程設(shè)計-在線瀏覽
2024-09-11 19:25本頁面
【正文】 9。39。 :=(39。,39。,39。)。end。 var Action: TCloseAction)。39。39。 (39。,39。,)。SERVER39。USER NAME39。 。End.3：代碼：unit add。type TF_add = class(TMDIChild) Label1: TLabel。 Label3: TLabel。 Label6: TLabel。 Label9: TLabel。 Label11: TLabel。 Label13: TLabel。 i_department: TDBLookupComboBox。 i_edu_level: TDBLookupComboBox。 i_user: TDBEdit。 i_birthday: TDBEdit。 i_address: TDBEdit。 i_ TDBEdit。 i_passwd: TEdit。 DBLookupComboBox1: TDBLookupComboBox。 procedure Button1Click(Sender: TObject)。 var Action: TCloseAction)。 public { Public declarations } end。implementationuses DataModule, mainwin, crypt。var counter:integer。begin With DataModule1 do begin //生成員工號 :=39。39。39。 :=True。 counter:=T_counter[39。]。 id:=39。+IntToStr(counter)。P39。 //增加新記錄 。 T_add_user[39。]:=id。SEX39。M39。STATE39。T39。 end。procedure (Sender: TObject)。 :=False。 Height:=469。 With DataModule1 do begin if not then 。 if not then 。 AddInit。procedure (Sender: TObject)。 counter:Integer。 passwd:=Copy(passwd+passwd,1,10)。 With DataModule1 do begin //累加員工編號計數(shù)器 :=39。39。39。 :=True。 。COUNTER_VALUE39。COUNTER_VALUE39。 。 //增加員工個人信息記錄 。PASSWD39。 。ID=39。C39。39。 。COUNTER_VALUE39。 Inc(counter)。 T_counter[39。]:=counter。 。 。ID39。 T_change[39。]:=。CHANGE39。239。RECORD_TIME39。 T_change[39。]:=39。39。 。 AddInit。end。 var Action: TCloseAction)。 :=True。 With DataModule1 do begin 。 end。End.4：更改界面代碼：unit change。type TF_change = class(TMDIChild) Label1: TLabel。 GroupBox1: TGroupBox。 Label3: TLabel。 i_change: TRadioGroup。 Label5: TLabel。 i_name: TDBEdit。 Label6: TLabel。 i_time: TMaskEdit。 procedure FormCreate(Sender: TObject)。 var Action: TCloseAction)。 private { Private declarations } procedure ChangeInit。var F_change: TF_change。{$R *.DFM}procedure 。39。 //關(guān)閉員工查詢數(shù)據(jù)表 :=0。 //加入當(dāng)前時間 。procedure (Sender: TObject)。ID=39。39。39。39。 。end。begin :=False。 Width:=282。 With DataModule1 do begin if not then 。 end。 end。 var Action: TCloseAction)。 //繼承父類的關(guān)閉事件 :=True。 //恢復(fù)按鈕的使用end。var counter:integer。ID=39。C39。39。 。COUNTER_VALUE39。 counter:=counter+1。 T_counter[39。]:=counter。 //保存表的記錄 。 if =1 then T_user[39。]:=39。 //取消員工帳號 。 //修改人事變動記錄 。ID39。 T_change[39。]:=。CHANGE39。 T_change[39。]:=StrToDate()。DESCRIPTION39。 。 //關(guān)閉 ChangeInit。請確認(rèn)員工號！39。輸入錯誤39。 end。End.5：MDICHild代碼：unit Childwin。type TMDIChild = class(TForm) procedure FormClose(Sender: TObject。 private { Private declarations } public { Public declarations } end。 var Action: TCloseAction)。end。interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Db, DBTables。 T_user: TTable。 DS_add_user: TDataSource。 T_
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1