最新delphi課程設(shè)計(jì)(編輯修改稿)
2024-08-28 19:25 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 Label1: TLabel。 i_id: TEdit。 GroupBox1: TGroupBox。 Label2: TLabel。 Label3: TLabel。 Label4: TLabel。 i_change: TRadioGroup。 Button1: TButton。 Label5: TLabel。 i_department: TDBLookupComboBox。 i_name: TDBEdit。 i_job: TDBLookupComboBox。 Label6: TLabel。 i_description: TMemo。 i_time: TMaskEdit。 procedure i_idChange(Sender: TObject)。 procedure FormCreate(Sender: TObject)。 procedure FormClose(Sender: TObject。 var Action: TCloseAction)。 procedure Button1Click(Sender: TObject)。 private { Private declarations } procedure ChangeInit。 public { Public declarations } end。var F_change: TF_change。implementationuses DataModule, mainwin。{$R *.DFM}procedure 。 begin :=39。39。 //清空員工號(hào)輸入框 。 //關(guān)閉員工查詢(xún)數(shù)據(jù)表 :=0。 //默認(rèn)員工變動(dòng)為職務(wù)變更 :=DateToStr(Now)。 //加入當(dāng)前時(shí)間 。 //清空描述end。procedure (Sender: TObject)。begin With DataModule1 do begin :=39。ID=39。39。39。++39。39。39。39。 :=True。 。 end。end。procedure (Sender: TObject)。begin :=False。 :=False。 Width:=282。 Height:=429。 With DataModule1 do begin if not then 。 if not then 。 end。 ChangeInit。 end。procedure (Sender: TObject。 var Action: TCloseAction)。begin inherited。 //繼承父類(lèi)的關(guān)閉事件 :=True。 // 恢復(fù)菜單的使用 :=True。 //恢復(fù)按鈕的使用end。procedure (Sender: TObject)。var counter:integer。 //保存計(jì)數(shù)器begin With DataModule1 do //設(shè)置默認(rèn)前綴為DataModule1 begin if =1 then //判斷是否存在該員工 begin //獲取人事變動(dòng)記錄號(hào) :=39。ID=39。39。C39。39。39。 :=True。 。 counter:=T_counter[39。COUNTER_VALUE39。]。 counter:=counter+1。 。 T_counter[39。COUNTER_VALUE39。]:=counter。 //把新的計(jì)數(shù)器的值寫(xiě)入表中 。 //保存表的記錄 。 //關(guān)閉表 //追加人事變動(dòng)記錄 。 if =1 then T_user[39。STATE39。]:=39。F39。 //取消員工帳號(hào) 。 //保存 。 //修改人事變動(dòng)記錄 。 T_change[39。ID39。]:=counter。 T_change[39。PERSON39。]:=。 T_change[39。CHANGE39。]:=IntToStr()。 T_change[39。RECORD_TIME39。]:=StrToDate()。 T_change[39。DESCRIPTION39。]:=。 。 //保存 。 //關(guān)閉 ChangeInit。 //在初始化表單 end else (39。請(qǐng)確認(rèn)員工號(hào)！39。,39。輸入錯(cuò)誤39。,MB_OK)。 end。end。End.5：MDICHild代碼：unit Childwin。interfaceuses Windows, Classes, Graphics, Forms, Controls, StdCtrls。type TMDIChild = class(TForm) procedure FormClose(Sender: TObject。 var Action: TCloseAction)。 private { Private declarations } public { Public declarations } end。implementation{$R *.DFM}procedure (Sender: TObject。 var Action: TCloseAction)。begin Action := caFree。end。End.6：數(shù)據(jù)連接代碼：unit DataModule。interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Db, DBTables。type TDataModule1 = class(TDataModule) Database: TDatabase。 T_user: TTable。 T_add_user: TTable。 DS_add_user: TDataSource。
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1