【正文】 //打開職務(wù)代碼表 if not then 。 //打開教育水平代碼表 if not then 。 //打開人事變動(dòng)代碼表 。 //關(guān)閉用戶信息表 end。end。procedure (Sender: TObject)。begin With DataModule1 do //設(shè)置默認(rèn)前綴為DataModule1 begin :=39。ID=39。39。39。++39。39。39。39。 //設(shè)置過濾器 :=True。 //激活過濾器 。 //打開用戶信息表 :=39。PERSON=39。39。39。++39。39。39。39。 //設(shè)置過濾器 :=True。 //激活過濾器 。 //打開人事變更記錄表 end。end。procedure (Sender: TObject。 var Action: TCloseAction)。begin inherited。 //繼承父類 :=True。 //激活查詢菜單 :=True。 //激活查詢按鈕 。 //關(guān)閉用戶信息表 。 //關(guān)閉人事變更記錄信息表end。procedure (Sender: TObject)。var passwd:String。begin With DataModule1 do //設(shè)置默認(rèn)前綴為DataModule1 begin if =1 then //判斷員工號(hào)是否存在 begin passwd:=。 //提取密碼字段 passwd:=Copy(passwd+passwd,1,10)。 passwd:=Encrypt(passwd,123)。 。 //設(shè)置為修改狀態(tài) T_user_2[39。PASSWD39。]:=passwd。 //修改密碼 。 //保存 :=39。39。 //清除密碼輸入框 end。 end。end。procedure (Sender: TObject)。begin with DataModule1 do //設(shè)置默認(rèn)前綴為DataModule1 begin 。 //設(shè)置為修改狀態(tài) 。 //保存 。 //設(shè)置為修改狀態(tài) T_change_list[39。PERSON39。]:=。 //寫員工號(hào)到表里 。 //保存 end。end。end.數(shù)據(jù)庫的選擇：ACCESS 2003數(shù)據(jù)庫建表 人員信息表Ryxx字段名稱數(shù)據(jù)類型字段長(zhǎng)度字段含義Rybh文本10人員編號(hào)，Rybh是主鍵Xm文本10姓名Xb文本10性別Csrq日期/時(shí)間出生日期Gzrq日期/時(shí)間工作日期Bmmc文本10所在部門名稱Jycd文本10教育程度Sfyh是/否是否已婚Sfbx是/否是否保險(xiǎn)Grjl備注個(gè)人簡(jiǎn)歷ZpOLE對(duì)象照片表格截圖： Bmxx表結(jié)構(gòu)字段名稱數(shù)據(jù)類型字段長(zhǎng)度字段含義Bmbh文本10部門編號(hào)，Bmxx表的主鍵Bmmc文本10部門名稱表格截圖： Jycd表結(jié)構(gòu)字段名稱數(shù)據(jù)類型字段長(zhǎng)度字段含義Jycdbh文本10教育程度編號(hào)，Jycd是主鍵Jycd文本10部門名稱表格截圖： Login表結(jié)構(gòu)字段名稱數(shù)據(jù)類型字段長(zhǎng)度字段含義UserName文本10用戶名PassWord文本10密碼表格截圖：系統(tǒng)設(shè)計(jì)程序開發(fā)平臺(tái)的選擇：Delphi 系統(tǒng)的使用說明（1）用戶第一次使用時(shí)，需要首先由管理員登陸，進(jìn)行登記注冊(cè)，將用戶輸入的信息的保存到注冊(cè)表中；之后第二次輸入用戶名、密碼和密碼確認(rèn)等內(nèi)容，既可以查詢進(jìn)入；（2）點(diǎn)擊“編輯”下的“員工信息”和“部門信息”可以輸入員工基本信息。（3）點(diǎn)擊修改可以對(duì)員工基本信息進(jìn)行修改。（4）點(diǎn)擊“查詢”可以查詢員工基本信息；“報(bào)表打印”則打印各種報(bào)表記錄信息及查詢信息的報(bào)表。（6）點(diǎn)擊“？”顯示版本信息。心得體會(huì)Delphi語言豐富，好的的編譯器、更多功能支持讓我覺得這個(gè)語言比較好用，通過這學(xué)期和這次課程設(shè)計(jì)讓我學(xué)到了很多知識(shí)，讓我更深入的了解到了編程的樂趣，本以為電腦的編程我是絕對(duì)一點(diǎn)都學(xué)不會(huì)的，但經(jīng)過這次的課程設(shè)計(jì)讓我對(duì)編程有了更深的認(rèn)識(shí)。在整個(gè)程序的編寫過程中，對(duì)我來說，最難的就是文件與數(shù)據(jù)庫的連接，很糾結(jié)，去向網(wǎng)上的一些視頻尋求幫助，并且在同學(xué)的幫助和老師的講課提示中，我不斷地改進(jìn)著。幾天下來，我初步完成了大部分程序的編寫，但依舊老是出錯(cuò)，在同學(xué)的幫助下，不斷修改，找問題，其實(shí)發(fā)現(xiàn)該問題是提升的會(huì)更快，不過還好最后程序運(yùn)行出來了，但依舊有些地方有瑕疵。任需改善。通過這次編程練習(xí)我發(fā)現(xiàn)編程一定要心細(xì)，一個(gè)字母錯(cuò)可能都會(huì)糾結(jié)很久才會(huì)發(fā)現(xiàn)，所以一定要心細(xì)，而且勇敢地去試驗(yàn)自己的思路，可能你的思路是對(duì)的，別一開始就否定自己。7：致謝在這次制作過程中首先要謝謝劉俊老師給我們用那么長(zhǎng)的時(shí)間講的一個(gè)范例，否則我相信我們是怎么也不會(huì)做出來的，其次我要謝謝我的同學(xué)們，他們不厭其煩的幫我糾正錯(cuò)誤，大家在相互討論中一起進(jìn)步，學(xué)習(xí)的氣氛真的濃了很多 參考文獻(xiàn)[1]毛利銳，[2]：清華大學(xué)出版社，2004.[3] 付軍．Delphi7實(shí)例編程100例．北京：中國(guó)鐵道出版社[4] 王學(xué)慶．Delphi 6數(shù)據(jù)庫設(shè)計(jì)實(shí)例導(dǎo)航．北京：科學(xué)出版社[5]張 莉，王 強(qiáng)，等． SQL SERVER數(shù)據(jù)庫原理及應(yīng)用教程[M]．北京：清華大學(xué)出版社[6]沈才梁，萬志平．Delphi [M]．北京：清華大學(xué)出版社 第30 頁 共30 頁 8/17/2022