最新delphi課程設(shè)計(jì)-文庫(kù)吧
2025-07-17 19:25 本頁(yè)面
【正文】 )+39。39。) then Inifile:=(extractfilepath(paramstr(0))+39。39。) 。 (39。SERVER39。,39。SERVER NAME39。,)。 (39。SERVER39。,39。USER NAME39。,)。 。end。End.3：代碼：unit add。interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, childwin, StdCtrls, DBCtrls, Mask, ExtCtrls。type TF_add = class(TMDIChild) Label1: TLabel。 Label2: TLabel。 Label3: TLabel。 Label5: TLabel。 Label6: TLabel。 Label7: TLabel。 Label9: TLabel。 Label10: TLabel。 Label11: TLabel。 Label12: TLabel。 Label13: TLabel。 Label14: TLabel。 i_department: TDBLookupComboBox。 i_job: TDBLookupComboBox。 i_edu_level: TDBLookupComboBox。 Button1: TButton。 i_user: TDBEdit。 i_name: TDBEdit。 i_birthday: TDBEdit。 i_specialty: TDBEdit。 i_address: TDBEdit。 i_tel: TDBEdit。 i_ TDBEdit。 i_remark: TDBMemo。 i_passwd: TEdit。 i_sex: TDBRadioGroup。 DBLookupComboBox1: TDBLookupComboBox。 procedure FormCreate(Sender: TObject)。 procedure Button1Click(Sender: TObject)。 procedure FormClose(Sender: TObject。 var Action: TCloseAction)。 private { Private declarations } procedure AddInit。 public { Public declarations } end。var F_add: TF_add。implementationuses DataModule, mainwin, crypt。{$R *.DFM}procedure 。var counter:integer。 id:String。begin With DataModule1 do begin //生成員工號(hào) :=39。ID=39。39。P39。39。39。 :=True。 。 counter:=T_counter[39。COUNTER_VALUE39。]。 。 id:=39。0000039。+IntToStr(counter)。 id:=39。P39。+Copy(id,length(id)4,5)。 //增加新記錄 。 。 T_add_user[39。ID39。]:=id。 T_add_user[39。SEX39。]:=39。M39。 T_add_user[39。STATE39。]:=39。T39。 :=id。 end。end。procedure (Sender: TObject)。begin :=False。 :=False。 Width:=272。 Height:=469。 。 With DataModule1 do begin if not then 。 if not then 。 if not then 。 end。 AddInit。end。procedure (Sender: TObject)。var passwd:String。 counter:Integer。begin if length()0 then begin passwd:=。 passwd:=Copy(passwd+passwd,1,10)。 passwd:=Encrypt(passwd,123)。 With DataModule1 do begin //累加員工編號(hào)計(jì)數(shù)器 :=39。ID=39。39。P39。39。39。 :=True。 。 。 T_counter[39。COUNTER_VALUE39。]:=T_counter[39。COUNTER_VALUE39。]+1。 。 。 //增加員工個(gè)人信息記錄 。 T_add_user[39。PASSWD39。]:=passwd。 。 //獲取人事變動(dòng)記錄號(hào) :=39。ID=39。39。C39。39。39。 :=True。 。 counter:=T_counter[39。COUNTER_VALUE39。]。 Inc(counter)。 。 T_counter[39。COUNTER_VALUE39。]:=counter。 。 。 //追加人事變動(dòng)記錄 。 。 T_change[39。ID39。]:=counter。 T_change[39。PERSON39。]:=。 T_change[39。CHANGE39。]:=39。239。 T_change[39。RECORD_TIME39。]:=Now。 T_change[39。DESCRIPTION39。]:=39。加入公司。39。 。 。 end。 AddInit。 end。end。procedure (Sender: TObject。 var Action: TCloseAction)。begin inherited。 :=True。 :=True。 With DataModule1 do begin 。 。 end。 end。End.4：更改界面代碼：unit change。interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, childwin, StdCtrls, ExtCtrls, DBCtrls, Mask。type TF_change = class(TMDIChild)
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1