最新delphi課程設(shè)計(jì)-免費(fèi)閱讀
【正文】 在整個(gè)程序的編寫(xiě)過(guò)程中，對(duì)我來(lái)說(shuō)，最難的就是文件與數(shù)據(jù)庫(kù)的連接，很糾結(jié)，去向網(wǎng)上的一些視頻尋求幫助，并且在同學(xué)的幫助和老師的講課提示中，我不斷地改進(jìn)著。 //寫(xiě)員工號(hào)到表里 。end。 //設(shè)置為修改狀態(tài) T_user_2[39。 //關(guān)閉用戶信息表 。 //打開(kāi)人事變更記錄表 end。39。++39。 //打開(kāi)人事變動(dòng)代碼表 。begin :=False。 procedure FormClose(Sender: TObject。 DBEdit1: TDBEdit。 i_ TDBEdit。 Label13: TLabel。 Label5: TLabel。end。procedure (Sender: TObject)。begin for i:=MDIChildCount1 downto 0 do [i].Close。 :=False。 :=True。 :=True。 :=False。implementation{$R *.DFM}End.7：主窗口設(shè)計(jì)代碼： About, login, DataModule, add, change, search。 T_user_2: TTable。 T_department: TTable。end。End.5：MDICHild代碼：unit Childwin。 //關(guān)閉 ChangeInit。 T_change[39。ID39。 if =1 then T_user[39。 counter:=counter+1。C39。 //繼承父類的關(guān)閉事件 :=True。 With DataModule1 do begin if not then 。 。ID=39。39。 var Action: TCloseAction)。 i_name: TDBEdit。 GroupBox1: TGroupBox。 With DataModule1 do begin 。 AddInit。 T_change[39。]:=。 。COUNTER_VALUE39。ID=39。 。 :=True。 passwd:=Copy(passwd+passwd,1,10)。 if not then 。procedure (Sender: TObject)。M39。 //增加新記錄 。]。39。 public { Public declarations } end。 i_passwd: TEdit。 i_user: TDBEdit。 Label11: TLabel。type TF_add = class(TMDIChild) Label1: TLabel。SERVER39。39。)。39。) 。 if then else 。,MB_OK)。) then begin :=True。//加密 end。39。 With DataModule1 do begin :=False。 var Action: TCloseAction)。 i_user: TEdit。end。 if windowid0 then begin MessageBox(handle,39。，包括崗位和部門的調(diào)整。 撰寫(xiě)“課程設(shè)計(jì)報(bào)告”，撰寫(xiě)要求見(jiàn)附件實(shí)習(xí)報(bào)告撰寫(xiě)排版要求。begin windowid:=findwindow(nil,39。 // showwindow(foundwin,9)。 Label3: TLabel。 procedure FormShow(Sender: TObject)。{$R *.DFM}procedure (Sender: TObject)。39。 if =1 then begin passwd:=。AUTHORITY39。注意大小寫(xiě)！39。,MB_OK)。procedure (Sender: TObject)。,39。USER NAME39。begin if not fileexists(extractfilepath(paramstr(0))+39。SERVER NAME39。end。 Label7: TLabel。 i_job: TDBLookupComboBox。 i_tel: TDBEdit。 procedure FormClose(Sender: TObject。 id:String。 。 id:=39。 T_add_user[39。 :=id。 。var passwd:String。P39。]:=T_counter[39。]:=passwd。 :=True。COUNTER_VALUE39。]:=counter。 T_change[39。 。begin inherited。interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, childwin, StdCtrls, ExtCtrls, DBCtrls, Mask。 Button1: TButton。 procedure i_idChange(Sender: TObject)。implementationuses DataModule, mainwin。 //清空描述end。39。 :=False。procedure (Sender: TObject。 //保存計(jì)數(shù)器begin With DataModule1 do //設(shè)置默認(rèn)前綴為DataModule1 begin if =1 then //判斷是否存在該員工 begin //獲取人事變動(dòng)記錄號(hào) :=39。 counter:=T_counter[39。 //把新的計(jì)數(shù)器的值寫(xiě)入表中 。 //保存 。 T_change[39。]:=。,MB_OK)。implementation{$R *.DFM}procedure (Sender: TObject。 T_add_user: TTable。 DS_edu_level: TDataSource。 DS_changed: TDataSource。begin (TF_login,F_login)。 :=True。end。 :=False。end。procedure (S
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1