人事管理系統(tǒng)delphi課程設(shè)計報告(編輯修改稿)
2025-05-11 02:57 本頁面
【文章內(nèi)容簡介】 提示showhintTrue顯示提示 Toolbutton2Hint密碼修改提示showhintTrue顯示提示 Toolbutton3Hint系統(tǒng)初始化提示showhintTrue顯示提示 Toolbutton4Hint人事管理提示showhintTrue顯示提示 Toolbutton5Hint信息查詢提示showhintTrue顯示提示Toolbutton6Hint關(guān)閉提示showhintTrue顯示提示MainmenuItems見窗體菜單項 程序設(shè)計代碼如下：var main_Form:Tmain_Form。 username:string。 password:string。 R1,R2,R3:boolean。implementationuses login, Unit3, Unit4, Unit5, Unit6。{$R *.dfm}procedure (Sender: TObject)。經(jīng)濟管理學(xué)院本科課程設(shè)計論文begin username:=39。39。 password:=39。39。 R1:=false。 R2:=false。 R3:=false。 ()。 if username39。39。 then begin if R1=true then begin :=true。 :=true。 :=true。 :=true。 end else begin :=false。 :=false。 :=false。 :=false。 end。 if R2=true then begin :=true。 :=true。 end else begin :=false。 :=false。 end。 if R3=true then begin :=true。 :=true。 end else begin :=false。 :=false。 end。 end else close。end。procedure (Sender: TObject)。begin ()。end。procedure (Sender: TObject)。begin close。end。procedure (Sender: TObject)。begin ()。end。procedure (Sender: TObject)。begin ()。end。procedure (Sender: TObject)。begin ()。end。procedure (Sender: TObject)。var Tabel1:TTable。經(jīng)濟管理學(xué)院本科課程設(shè)計論文begin Table1:=(self)。 :=39。RLZYGL39。 :=39。39。 。 。 。 (39。username39。).asstring:=39。admin39。 (39。password39。).asstring:=39。admin39。 (39。department39。).asstring:=39。計算機系39。 (39。stamp39。).asdatetime:=date()。 (39。right139。).asboolean:=true。 (39。right239。).asboolean:=true。 (
電大資料相關(guān)推薦
鄂ICP備17016276號-1