最新delphi課程設(shè)計(jì)-文庫吧資料
2024-08-14 19:25本頁面
【正文】 le。 T_add_user: TTable。type TDataModule1 = class(TDataModule) Database: TDatabase。End.6：數(shù)據(jù)連接代碼：unit DataModule。begin Action := caFree。implementation{$R *.DFM}procedure (Sender: TObject。 var Action: TCloseAction)。interfaceuses Windows, Classes, Graphics, Forms, Controls, StdCtrls。end。,MB_OK)。,39。 //在初始化表單 end else (39。 //保存 。]:=。 T_change[39。RECORD_TIME39。]:=IntToStr()。 T_change[39。PERSON39。]:=counter。 T_change[39。 //保存 。F39。STATE39。 //關(guān)閉表 //追加人事變動記錄 。 //把新的計(jì)數(shù)器的值寫入表中 。COUNTER_VALUE39。 。]。 counter:=T_counter[39。 :=True。39。39。 //保存計(jì)數(shù)器begin With DataModule1 do //設(shè)置默認(rèn)前綴為DataModule1 begin if =1 then //判斷是否存在該員工 begin //獲取人事變動記錄號 :=39。procedure (Sender: TObject)。 // 恢復(fù)菜單的使用 :=True。begin inherited。procedure (Sender: TObject。 ChangeInit。 if not then 。 Height:=429。 :=False。procedure (Sender: TObject)。 end。 :=True。39。++39。39。begin With DataModule1 do begin :=39。 //清空描述end。 //默認(rèn)員工變動為職務(wù)變更 :=DateToStr(Now)。 //清空員工號輸入框 。 begin :=39。implementationuses DataModule, mainwin。 public { Public declarations } end。 procedure Button1Click(Sender: TObject)。 procedure FormClose(Sender: TObject。 procedure i_idChange(Sender: TObject)。 i_description: TMemo。 i_job: TDBLookupComboBox。 i_department: TDBLookupComboBox。 Button1: TButton。 Label4: TLabel。 Label2: TLabel。 i_id: TEdit。interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, childwin, StdCtrls, ExtCtrls, DBCtrls, Mask。 end。 。 :=True。begin inherited。procedure (Sender: TObject。 end。 end。 。加入公司。DESCRIPTION39。]:=Now。 T_change[39。]:=39。 T_change[39。PERSON39。]:=counter。 T_change[39。 //追加人事變動記錄 。 。COUNTER_VALUE39。 。]。 counter:=T_counter[39。 :=True。39。39。 //獲取人事變動記錄號 :=39。]:=passwd。 T_add_user[39。 。]+1。]:=T_counter[39。 T_counter[39。 。39。P39。ID=39。 passwd:=Encrypt(passwd,123)。begin if length()0 then begin passwd:=。var passwd:String。end。 end。 if not then 。 。 Width:=272。begin :=False。end。 :=id。]:=39。 T_add_user[39。]:=39。 T_add_user[39。ID39。 。+Copy(id,length(id)4,5)。 id:=39。0000039。 。COUNTER_VALUE39。 。39。P39。ID=39。 id:String。{$R *.DFM}procedure 。var F_add: TF_add。 private { Private declarations } procedure AddInit。 procedure FormClose(Sender: TObject。 procedure FormCreate(Sender: TObject)。 i_sex: TDBRadioGroup。 i_remark: TDBMemo。 i_tel: TDBEdit。 i_specialty: TDBEdit。 i_name: TDBEdit。 Button1: TButton。 i_job: TDBLookupComboBox。 Label14: TLabel。 Label12: TLabel。 Label10: TLabel。 Label7: TLabel。 Label5: TLabel。 Label2: TLabel。interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, childwin, StdCtrls, DBCtrls, Mask, ExtCtrls。end。,)。,39。 (39。SERVER
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1