高校人事管理系統(tǒng)-課程設計報告(doc畢設論文)-資料下載頁
2025-06-18 13:54本頁面
【正文】 ShowMessage(39。請再次輸入密碼！39。)。 Exit。 end。 if Trim()Trim() then begin ShowMessage(39。兩次輸入的密碼不一致！39。)。 Exit。 end。 if =39。39。 then begin ShowMessage(39。請選擇用戶級別！39。)。 Exit。 end。 。 (39。用戶姓名39。).AsString:=。 (39。密碼39。).AsString:=。 (39。級別39。).AsString:=。 (39。備注39。).AsString:=。 。 。 。 OpenType := none。 := True。 := True。 := False。 ShowMessage(39。保存成功！39。)。 。 。 。 。 。 :=1。 。 := True。 := True。 := True。 := True。 := True。 :=True。 :=true。 :=true。 :=false。 :=true。 end end。 end。procedure (Sender: TObject。 var Action: TCloseAction)。begin 。end。procedure (Sender: TObject)。begin 。end。end. 基本信息模塊各個功能的界面效果l 部門信息l 職工基本信息l 就職信息l 離職信息l 退休信息 工資與考核模塊各個功能的界面效果l 職工工資信息l 職工績效考核 查詢模塊各個功能的界面效果l 職工基本信息查詢l 職工就職信息查詢l 職工工資信息查詢l 績效考核信息查詢 查詢的主要代碼： procedure (Sender: TObject)。beginbegin SQLstring:= 39。select * from 職工 where 1=1 39。 if then SQLstring:= SQLstring+39。and 性別 = 39。+ 39。39。39。39。 + +39。39。39。39。 if then SQLstring:= SQLstring+39。and 級別 = 39。+ 39。39。39。39。 + +39。39。39。39。 if then SQLstring:= SQLstring+39。and 職工編號 = 39。+ 39。39。39。39。 + +39。39。39。39。 if then SQLstring:= SQLstring+39。and 職工姓名 = 39。+ 39。39。39。39。 + +39。39。39。39。 。 。 (SQLstring)。 。end。end。第三章 課程設計總結 通過這次Delphi的課程設計培養(yǎng)了我們綜合運用所學知識分析問題、解決問題的能力。掌握了Delphii和數據庫的設計方法，學會了簡單的Delphii程序設計，掌握Delphi與Access數據庫的連接、查詢、修改等一系列知識。除此之外，還鞏固和應用擴大專業(yè)知識，同時也培養(yǎng)了我們的團隊合作精神。當然，在整個系統(tǒng)的設計工程中我們也遇到了很多很多的問題，可是我們沒有退縮，沒有畏懼，而是迎難而上，我們認為這才是我們最大的收獲！ 同時，再次也謝謝侯柯老師的教導。謝
環(huán)評公示相關推薦
鄂ICP備17016276號-1