職工檔案管理信息系統(tǒng)的設計與實先

1、湖南文理學院課程設計報告課程名稱： 計算機軟件技術基礎 系 部： 電氣與信息工程學院 專業(yè)班級： 通信 07101 班 學生姓名： 郭 蘭 指導教師： 梅 英 完成時間： 2009-12-5 報告成績： 評閱意見：評閱教師 日期 目錄一、設計題目2二、設計要求2三、設計目的2四、所用軟件2五、系統(tǒng)設計31.系統(tǒng)總體設計31.1 系統(tǒng)總體設計分析31.2 系統(tǒng)的結(jié)構組成框圖32.各子模塊設計42.1 數(shù)據(jù)庫的邏輯結(jié)構設計42.2 登陸界面的模塊設計62.3檔案管理窗體模塊設計63相關函數(shù)分析64源程序設計（見附錄）6六、實驗調(diào)試結(jié)果61.系統(tǒng)的登陸界面62、職工檔案系統(tǒng)的主窗體。6七、設計中的問

2、題及解決方法6八、設計心得6九.參考文獻6十、附錄：6一、設計題目職工檔案管理信息系統(tǒng)的設計與實現(xiàn)二、設計要求設計編寫一個職工檔案管理軟件。該軟件與實際應用還有很大的距離，但它涵蓋了數(shù)據(jù)庫設計的基本內(nèi)容。根據(jù)實際工作的需要，一般用戶要求一個檔案管理軟件應有以下幾個基本功能：(1) 數(shù)據(jù)輸入功能：要求隨時往庫中追加記錄和插入記錄并且操作方便。(2) 數(shù)據(jù)查詢功能：一般的查詢功能包括按姓名查詢、按編號查詢等(為簡單起見例按姓名查詢)，且能從任何一個記錄計始順序瀏覽，隨時可停止。(3) 數(shù)據(jù)修改功能：要求可隨時對庫中數(shù)據(jù)進行修改更新，對無用的數(shù)據(jù)可隨時刪除。(4) 報表功能：為了查詢?nèi)啃畔ⅲ梢詫?/p>

3、數(shù)據(jù)庫中的數(shù)據(jù)簡單直觀的以表格的形式輸出。(5) 要求以菜單選擇的方式完成上述4項功能，用戶界面美觀，便于操作，軟件運行穩(wěn)定、準確。三、設計目的  隨著我們對計算機理論知識的學習的不斷加深，實踐方面是不可缺少的，因此我覺著這是一次很好的運用自己所學的知識的機會，在本次我的設計中為了提升自己的能力，我運用了delphi語言來實現(xiàn)我所設計的系統(tǒng)的功能。這是一種我們課堂上沒講過的語言，我也是聽別人說這種語言的編程簡單，界面友好，同時我覺得既然是鍛煉能力，何不運用這種語言，現(xiàn)在網(wǎng)絡那么發(fā)達，還怕學不會？憑著自己平時的積累和學習的激情，我決定用了,雖然沒有達到自己預期的效果。四、所用軟件1.頁

4、面開發(fā)環(huán)境：borland delphi 72.后臺數(shù)據(jù)庫： microsoft office access 20033.開發(fā)環(huán)境運行平臺：xp(sp2)五、系統(tǒng)設計1.系統(tǒng)總體設計1.1 系統(tǒng)總體設計分析 該系統(tǒng)為職工管理系統(tǒng)，主要目的是方便，全面的對職工信息進行管理。根據(jù)我所學知識可以運用c語言、c+實現(xiàn)和delphi等。鑒于c語言的單一界面、復雜程序的編輯，操作不方便，不能方便直觀的展現(xiàn)設計內(nèi)容。c+雖然界面比tc好一些，但由于我們沒有系統(tǒng)的對他進行學習編程有些困難。因此選用delphi為平臺設計此系統(tǒng)。 根據(jù)老師的設計要求，該系統(tǒng)實現(xiàn)下面的功能: 系統(tǒng)采用人機交互的方式，界面美觀友好，

5、信息查詢靈活、方便，數(shù)據(jù)存儲安全實現(xiàn)對職工的檔案的輸入、查詢。實現(xiàn)對職工的檔案的修改。實現(xiàn)對職工的檔案的輸出報表。對于職工檔案的輸入、查詢、修改和報表功能都是基于數(shù)據(jù)庫的操作，建立數(shù)據(jù)庫是本設計關鍵。通過對設計的需求分析可得知，此系統(tǒng)設計包括：數(shù)據(jù)庫的建立，登陸界面的設計，登陸等候界面的設計，檔案管理窗體的創(chuàng)建，數(shù)據(jù)報表編輯窗體的建立。 1.2 系統(tǒng)的結(jié)構組成框圖 系統(tǒng)結(jié)構框圖如下圖所示：按編號查詢信息瀏覽信息查詢信息修改信息添加菜單選擇按姓名查詢職工檔案管理信息系統(tǒng)圖1 系統(tǒng)結(jié)構框圖由結(jié)構框圖可知，首先要建立數(shù)據(jù)庫，同時新建一個工程，再在里面添加form1、form2、 form3、form

6、4、 form5窗體，通過在窗體中添加所需的控件，比如：adodatabase、adodatasource、adoquery。最后對各個控件的屬性和事件進行設置，對數(shù)據(jù)庫進行連接，編寫程序代碼，實現(xiàn)系統(tǒng)所需實現(xiàn)的功能。2.各子模塊設計2.1 數(shù)據(jù)庫的邏輯結(jié)構設計數(shù)據(jù)庫是一種存儲數(shù)據(jù)并對數(shù)據(jù)進行操作的工具。數(shù)據(jù)庫的作用在于組織和表達信息，簡而言之，數(shù)據(jù)庫就是信息的集合。在進行數(shù)據(jù)庫的設計時有兩種方法可行，即：（1）在delphi自身的開發(fā)環(huán)境中創(chuàng)建數(shù)據(jù)表，用到的是該軟件的數(shù)據(jù)庫桌面工具database desktop。（2）可以用microsoft office access 2003來建立表格

7、，生成該數(shù)據(jù)庫的.mdb文件，再通過delphi來進行數(shù)據(jù)庫的鏈接。我選擇了后一種方法。2.1.1數(shù)據(jù)表的建立首先需要羅列出職工檔案所包括的具體項目，如下所示：籍貫職工基本信息性別民族出生日期工資學歷健康狀況政治面貌編號姓名職務年齡 圖2 職工基本信息打開microsoft office 2003 access完成表格的建立，如下所示：圖3 數(shù)據(jù)表2.1.2 數(shù)據(jù)表的鏈接在form2和form3中添加ado數(shù)據(jù)集組件adotable1、數(shù)據(jù)訪問組件daasource1及數(shù)據(jù)控制組件dbgrid1，點擊adotable1中的connectionstring（連接字符串屬性），得到下圖所示的對話框

8、： 圖4 生成connectionstring的向?qū)нM行瀏覽加載數(shù)據(jù)表并測試，最后結(jié)果如下圖所示： 圖5 adoconnection屬性配置成功點擊“確定”即加載數(shù)據(jù)表成功。2.2 登陸界面的模塊設計為了使系統(tǒng)的安全性得到保障，我設置了登錄模塊。只有通過登錄模塊，只有系統(tǒng)的合法用戶才可以進入系統(tǒng)的主界面。建立了一個窗口form1，并在里面添加了一些控件，其中包括6個標簽控件lable，一個圖片控件image1，一個編輯控件edit1和一個時間控件timer1，用以進行界面的驗證和登陸。同時建立form5并在其中添加image1，lable1，progressbar1和timer1，用以控制登陸

9、的時間和模擬網(wǎng)絡的登陸模型。在添加控件之后最重要的事是設置各個控件的屬性、事件和編程。2.2.1整個窗體界面的設計：圖6 登陸界表1檔案管理窗體主要控件的屬性設置和功能表組件屬性功能image1picture使用editor加載圖片edit1text屬性為空,passwordchar屬性設為“”用來輸入用戶登密碼label 1caption設為“職工檔案管理系統(tǒng)”用于顯示系統(tǒng)標題label2caption設為“進入”用于進入系統(tǒng)label3caption設為“職工檔案管理系統(tǒng)”用于顯示系統(tǒng)標題label4caption設為“進入”用于輸入標示輸入密碼label5caption設為“設計者：郭蘭

10、”用于顯示設計者label6caption設為“退出”用于退出系統(tǒng)timer1interval設為“500”用于登陸界面等候2.2.2登陸流程圖 輸入密碼密碼是否正確系統(tǒng)功能開始退出noyes與數(shù)據(jù)庫核對密碼 圖7 登陸流程圖2.2.3編寫窗體代碼1.處理登陸窗體的label2click事件該事件的主要作用是設置登陸用戶名和用戶需要登錄的密碼，點擊登陸按鈕當密碼不正確時顯示“對不起，您輸入的密碼不正確”，密碼正確時進去form5窗體，form1窗體自動隱藏。當你不需要登錄是就點擊退出按鈕退出該系統(tǒng)。登陸窗體的label2click事件對應的代碼如下：procedure tform1.label

11、2click(sender: tobject);begin if edit1.text='1234' then 輸入密碼“1234” begin form1.hide; 窗體1隱藏 form5.show; 窗體5顯示form5.timer1.enabled:=true;endelseshowmessage('對不起，您輸入的密碼不正確！') 密碼不正確顯示“對不起，您輸入的密碼不正確！”end;2. 處理登陸窗體的.label2mouseenter事件該事件的主要作用是當鼠標指向lable 2時，lable2的顏色變成紅的點擊鼠標就可進入系統(tǒng)。登陸窗體的.lab

12、el2mouseenter事件對應的代碼如下：procedure tform1.label2mouseenter(sender: tobject);begin label2.font.color:=clred; 字體顏色變?yōu)榧t色end;3. 處理登陸窗體的label2mouseleave事件該事件的主要功能是當它離開label2時字體的顏色恢復原來的顏色變?yōu)榫G藍。登陸窗體的label2mouseleave事件對應的代碼如下：procedure tform1.label2mouseleave(sender: tobject); /beginlabel2.font.color:=clteal; 字

13、體顏色變?yōu)榫G藍 end; 4. 處理登陸窗體的timer1timer事件該事件的主要功能是進入界面時使label1和 label3閃爍實現(xiàn)立體感。登陸窗體的timer1timer事件對應的代碼如下：procedure tform1.timer1timer(sender: tobject);beginlabel1.visible:=not label1.visible ;end;5. 處理登陸窗體的label6click事件該事件的主要功能是退出登陸界面關閉form1窗體。登陸窗體的label6click事件對應的代碼如下：procedure tform1.label6click(sender:

14、 tobject); beginform1.close; 關閉窗口end;end.2.3檔案管理窗體模塊設計 任何窗體都是一個容器，只有在容器中放置執(zhí)行相關事務的空間才能產(chǎn)生相應的作用，為此在主窗體中在里面添加了一些控件，其中包括2個標簽控件lable，一個圖片控件image1，一個頁面控制控件pagecontrol1，一個數(shù)據(jù)源提供者provider，一個命令按鈕speedbutton1和一個時間控件timer1。其中最重要的是pagecontrol1，它用于生成多個頁面，以實現(xiàn)不同功能的開發(fā)。2.3.1整個窗體界面的設計：圖8 主窗體的設計表2 form2檔案管理窗體主要控件的屬性設置和功

15、能表組件屬性功能image1picture使用editor加載圖片lable1caption設為“職工檔案管理”用于顯示窗體標題label2caption設為“職工檔案管理”用于顯示窗體標題pagecontrol1用于頁面控制datasourcedataset設為“adotable”設置數(shù)據(jù)源對應的數(shù)據(jù)集adotableconnectionstring設為“provider=microsoft.jet.oledb.4.0;data source=c:documents and settingsadministrator桌面郭蘭職工檔案管理信息系統(tǒng).mdb;persist security in

16、fo=false”，active設為“true”，tablename設為“職工基本信息表”active設為“true”設置該數(shù)據(jù)集所使用的數(shù)據(jù)庫 speedbutton1caption設為“退出系統(tǒng)”用于系統(tǒng)的退出timer1interval設為“1000”用于字體的閃爍，產(chǎn)生立體感2.3.2編寫窗體代碼1.處理登陸窗體的speedbutton1click事件該事件的主要功能是退出系統(tǒng)。登陸窗體的speedbutton1click事件對應的代碼如下：procedure tform2.speedbutton1click(sender: tobject);beginapplication.term

17、inate ;end;2.3.3 pagecontrol1頁面的設置和控件的屬性、功能設置及代碼編寫該頁面控制主要由表單tabsheet2、tabsheet3、tabsheet4及其添加到表單中的各個控件。tabsheet2（個人檔案記錄）建立及設置tabsheet2表單在其中加載了很多l(xiāng)abel控件顯示職工的基本信息。其主要實現(xiàn)職工信息的輸入，修改，刪除功能。tabsheet2的操作界面：圖9 個人檔案記錄編輯表3 tabelsheet2主要控件的屬性設置和功能表組件屬性功能label3caption設為“職務”提示輸入職務label4caption設為“職工姓名”提示輸入姓名label5c

18、aption設為“職工編號”提示輸入職工編號label6caption設為“工資”提示輸入工資label7caption設為“政治面貌”提示輸入政治面貌label8caption設為“性別”提示輸入性別label9caption設為“出生日期”提示輸入出生日期label10caption設為“民族”提示輸入民族label11caption設為“學歷”提示輸入學歷label12caption設為“健康狀況”提示輸入健康狀況label13caption設為“聯(lián)系電話”提示輸入聯(lián)系電話label15caption設為“籍貫”提示輸入籍貫dbedit1datasource設為“datasourc1”選

19、擇數(shù)據(jù)源datafield設為“職工編號”是數(shù)據(jù)與輸出窗口相匹配dbedit2datasource設為“datasourc1”選擇數(shù)據(jù)源datafield設為“職工姓名”是數(shù)據(jù)與輸出窗口相匹配dbedit3datasource設為“datasourc1”選擇數(shù)據(jù)源datafield設為“性別”是數(shù)據(jù)與輸出窗口相匹配dbedit4datasource設為“datasourc1”選擇數(shù)據(jù)源datafield設為“出生日期”是數(shù)據(jù)與輸出窗口相匹配dbedit5datasource設為“datasourc1”選擇數(shù)據(jù)源datafield設為“民族”是數(shù)據(jù)與輸出窗口相匹配dbedit6datasourc

20、e設為“datasourc1”選擇數(shù)據(jù)源datafield設為“政治面貌”是數(shù)據(jù)與輸出窗口相匹配dbedit7datasource設為“datasourc1”選擇數(shù)據(jù)源datafield設為“健康狀況”是數(shù)據(jù)與輸出窗口相匹配dbedit8datasource設為“datasourc1”選擇數(shù)據(jù)源datafield設為“學歷”是數(shù)據(jù)與輸出窗口相匹配dbedit9datasource設為“datasourc1”選擇數(shù)據(jù)源datafield設為“職務”是數(shù)據(jù)與輸出窗口相匹配dbedit10datasource設為“datasourc1”選擇數(shù)據(jù)源datafield設為“工資”是數(shù)據(jù)與輸出窗口相匹配d

21、bedit11datasource設為“datasourc1”選擇數(shù)據(jù)源datafield設為“聯(lián)系電話”是數(shù)據(jù)與輸出窗口相匹配dbedit12datasource設為“datasourc1”選擇數(shù)據(jù)源datafield設為“籍貫”是數(shù)據(jù)與輸出窗口相匹配bitbtn1caption設為“輸入”輸入數(shù)據(jù)bitbtn2caption設為“修改”對數(shù)據(jù)進行修改bitbtn3caption設為“刪除”刪除數(shù)據(jù)流程圖如下圖示：yes開始開始退出輸入職工信息判斷是否重復保存數(shù)據(jù)退出連接數(shù)據(jù)庫連接數(shù)據(jù)庫輸入修改信息判斷是否重復保存數(shù)據(jù)yesnono 圖9 輸入流程圖 圖10 修改流程圖編寫tabsheet2

22、代碼 處理登陸窗體的tform2.bitbtn1click事件該事件的主要功能是添加職工檔案信息。登陸窗體的tform2.bitbtn1click事件對應的代碼如下：procedure tform2.bitbtn1click(sender: tobject);beginadotable1.append;end; 處理登陸窗體的tform2.bitbtn2click事件該事件的主要功能是修改職工檔案信息。登陸窗體的tform2.bitbtn2click事件對應的代碼如下：procedure tform2.bitbtn2click(sender: tobject);beginadotable1.e

23、dit;adotable1.post;end; 處理登陸窗體的tform2.bitbtn3click事件該事件的主要功能是刪除職工檔案信息。登陸窗體的tform2.bitbtn3click事件對應的代碼如下：procedure tform2.bitbtn3click(sender: tobject);beginadotable1.delete;end;2. tabsheet3（全部檔案瀏覽查詢）建立及設置tabsheet3表單中設置了dbgird控件，label控件和button按鈕其主要功能是顯示每個職工的全部信息，并可以通過輸入職工姓名查詢每個職工的信息。tabsheet3的操作界面：圖1

24、1 瀏覽查詢界面編輯表4 tabsheet2主要控件的屬性設置和功能表組件屬性功能labelcaption設為“請輸入職工姓名”提示輸入所要查詢的職工姓名dbgird1datasource設為“datasourc1”設置數(shù)據(jù)表格使用的數(shù)據(jù)源edit1text屬性為空，用于輸入要查詢的職工姓名buttoncaption設為“執(zhí)行查詢”進入查詢流程圖: 開始輸入查詢信息判斷是否存在輸出數(shù)據(jù)退出連接數(shù)據(jù)庫noyes圖12 查詢流程圖 編寫tabsheet3代碼：處理登陸窗體的tform2. button1click事件該事件的主要功能是查詢職工檔案信息，當輸入的姓名在數(shù)據(jù)庫中時黑三角指向?qū)穆毠ぃ?/p>

25、否則保持不變。登陸窗體的tform2. button1click事件對應的代碼如下procedure tform2.button1click(sender: tobject);beginadotable1.locate('職工姓名',edit1.text ,)end;3.tabsheet4 （報表功能）建立及設置tabsheet4表單的設計主要包括兩大部分：數(shù)據(jù)表的建立和操作界面的設置。其主要功能是顯示職工的全部信息。建立一個數(shù)據(jù)報表圖13 數(shù)據(jù)報表的建立表5 quickrep1主要控件的屬性設置和功能表組件組件屬性功能qrband1qrlabel7caption設為“職工基本

26、信息”在報表中顯示靜態(tài)文本qrband2qrdbtext1dataset設為“adotable1”指定數(shù)據(jù)來源，顯示數(shù)據(jù)庫表中記錄的字段qrdbtext2dataset設為“adotable1”指定數(shù)據(jù)來源，顯示數(shù)據(jù)庫表中記錄的字段qrdbtext3dataset設為“adotable1”指定數(shù)據(jù)來源，顯示數(shù)據(jù)庫表中記錄的字段qrdbtext4dataset設為“adotable1”指定數(shù)據(jù)來源，顯示數(shù)據(jù)庫表中記錄的字段qrdbtext5dataset設為“adotable1”指定數(shù)據(jù)來源，顯示數(shù)據(jù)庫表中記錄的字段qrband3qrlabel2將name設為qrlabel2在報表中顯示靜態(tài)文本

27、qrlabel3” 將name設為qrlabel3在報表中顯示靜態(tài)文本qrlabel4將name設為qrlabel4在報表中顯示靜態(tài)文本qrlabel5將name設為qrlabel5在報表中顯示靜態(tài)文本qrlabel6將name設為qrlabel6在報表中顯示靜態(tài)文本tabsheet4的操作界面：圖14 報表功能界面編輯在該頁面中添加了一個數(shù)據(jù)控制控件radiobutton并將其與form3窗體鏈接，把它的caption設為“基本信息打印”。流程圖如下所示： 開始輸入職工信息輸出職工信息退出 圖13 報表流程圖 編寫tabsheet4代碼：處理登陸窗體的tform2. radioclick事件

28、該事件的主要功能是打印職工檔案信息，當點擊數(shù)據(jù)控制按鈕時就顯示全體職工的信息。登陸窗體的tform2. radioclick事件對應的代碼如下procedure tform2.radiobutton1click(sender: tobject);beginform3.quickrep1.preview;打印form3的信息form2.hide ;窗體2隱藏form3.show;窗體3顯示end.3相關函數(shù)分析 在設計該系統(tǒng)的過程中我沒有用到函數(shù)，只有過程之間的相互調(diào)用和ifelse語句、deginend語句的應用，最主要的過程是procedure，比如procedure tform2.bitb

29、tn1click(sender: tobject);beginadotable1.append;end;tform2.bitbtn1click事件過程調(diào)用adotable1.append過程，鼠標點擊就執(zhí)行增加空白頁的任務。該系統(tǒng)應用的基本上就是這種過程和事件的調(diào)用。4源程序設計（見附錄）六、實驗調(diào)試結(jié)果1.系統(tǒng)的登陸界面當輸入的密碼正確時，得到如下的成功登陸界面圖14 系統(tǒng)登陸當輸入的密碼不正確時，顯示密碼輸入錯誤圖15 系統(tǒng)登陸失敗2、職工檔案系統(tǒng)的主窗體。登陸成功后將進入該界面，它由編輯、瀏覽，報表三個主按鈕控件構成。圖16 個人檔案顯示圖當點擊輸入按鈕后，得到如下的空白頁面，我們可以輸

30、入員工的相對應的檔案信息圖17 職工檔案信息輸入當我們點擊修改按鈕后可以對員工的檔案進行修改，如下圖所示圖18 職工檔案修改進入查詢頁面后，我們可以對員工的檔案進行查詢，當所要查詢的人屬于該系統(tǒng)后，黑三角形將指向我們所查詢的員工這一行，當不存在時，黑三角就保持不變。圖19 職工檔案信息查詢選擇報表功能后點擊基本信息打印，將會顯示職工的部分信息，具體效果如下圖所示：圖20 職工檔案報表3.“退出系統(tǒng)”按鈕實現(xiàn)帶系統(tǒng)的退出功能，鼠標選定后，將自動退出該系統(tǒng)，其存在的界面如下：圖21 退出系統(tǒng)七、設計中的問題及解決方法 由于這是我第一次用delphi來制作一個系統(tǒng)，所以我碰到了好多問題，但是經(jīng)過查找

31、資料，看視頻教程，我把問題解決掉了，基本實現(xiàn)我所要的那些功能。我列寫了下面主要幾個方面的。1.在背景圖片上添加控件的問題。 設置背景圖片后，當我添加一些組件時相應部分的背景無法顯示，使得圖片上殘留一些陰影，經(jīng)過查找書本，最后在對象編輯器中我將transparent屬性設為“true”,終于得到了我所需的效果，同時我也將其它組件的屬性進行了修改。transparent屬性設置為“false”時的效果如下：transparent屬性設置為“true”時的效果如下： 2.pagecontrol和tabsheet的添加問題。 通過閱讀我所借的相關資料書，我了解到設計檔案窗體時，可以通過頁面控制控件按鈕

32、來控制相應頁的菜單。但是在設計過程中我并沒有找到相應的tabsheet控件，后來在我下載的視頻教程中我找到了解決方法，成功的添加了3個表單，完成了該頁面的設置。 3.數(shù)據(jù)表的鏈接問題 在該系統(tǒng)中最重要的部分就是數(shù)據(jù)表的鏈接問題，只有數(shù)據(jù)表鏈接成功了，后續(xù)的工程才能進行，同時這也是我問題出現(xiàn)最多的一個過程。在pagecontrol中添加adotable1和datasource1控件后，就是設置其屬性了，當數(shù)據(jù)表的鏈接不成功時，出現(xiàn)了以下的對話框：圖22 數(shù)據(jù)表鏈接失敗當我把adotable1屬性connectionstring設為“provider=microsoft.jet.oledb.4.0

33、;data source=c:documents and settingsadministrator桌面郭蘭職工檔案管理信息系統(tǒng).mdb;persist security info=false”，active設為“true”，tablename設為“職工基本信息表”active設為“true”；datasource的dataset設為“adotable”后，數(shù)據(jù)表導入成功。4.使用該系統(tǒng)后出現(xiàn)的路徑錯誤問題。當系統(tǒng)設計好后，我在其他電腦上測試其功能時發(fā)現(xiàn)，總是出錯，數(shù)據(jù)表的內(nèi)容也無法顯示出來，在我們班精通電腦的同學的幫助下，我重新設置鏈接的路徑，并將文件夾放在桌面上，這樣就可以有效的避免這種問

34、題的出現(xiàn)，但是在那種不同的電腦系統(tǒng)中，比如windows7，就要重新修改路徑了。八、設計心得這是我第一次用這個語言來編寫這樣一個系統(tǒng)，也是我真正的學習delphi的實踐過程，遇到的問題真的很多。當時有很多人勸我放棄，畢竟時間是有限的，可是我拒絕了他們的好意，因為我從來對這樣一個自己陌生的軟件產(chǎn)生濃烈的興趣，我上網(wǎng)查了好多資料、下載視頻教程、到圖書館借閱書籍、與同學網(wǎng)上交流，當我設計出這個系統(tǒng)時，心里真的很高興。在學習delphi的過程中我學到了好多，比如說對delphi組件的屬性和功能的理解，對procedure過程的理解，特別是數(shù)據(jù)庫的建立與鏈接。也掌握了如何應用這種語言實現(xiàn)對一個數(shù)據(jù)表的添

35、加、刪除、修改、產(chǎn)生報表功能，我相信以后遇到類似的系統(tǒng)時，通過努力我都可以可以設計出來。兩周的課程設計，我真的學到了很多，但是最重要的是我學會了這樣一個有用的軟件，我覺得它的優(yōu)點很多，它的編程的簡單易懂更是我所喜歡的。兩周的時間要學會一種語言真的很難，而我學的只是些基本的、淺顯的，但是我相信在課余我一定會加強對它的學習，從而更好的學好它，掌握它，應用它。九.參考文獻 1. 譚浩強. delphi程序設計（第二版）（delphi 2005），北京，清華大學出版社 20062. 伍俊良. delphi 7.0/8.0課程設計與系統(tǒng)開發(fā)案例，北京，清華大學出版社 20043. 徐 謖. delphi

36、應用與開發(fā)案例教程.，北京，清華大學出版社 20054. 求是科技 delphi信息管理系統(tǒng)開發(fā)實例導航.，北京，人民郵電出版社 20055. 彭明明 delphi數(shù)據(jù)庫實用編程100例，北京，中國鐵道出版社 20066. 十、附錄：unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls, jpeg, extctrls; type 所用到的控件 tform1 = class(tform) image1: timag

37、e; label1: tlabel; label2: tlabel; label3: tlabel; edit1: tedit; label4: tlabel; timer1: ttimer; label5: tlabel; label6: tlabel; procedure label2click(sender: tobject); procedure label2mouseenter(sender: tobject); procedure label2mouseleave(sender: tobject); procedure timer1timer(sender: tobject); p

38、rocedure label6click(sender: tobject); private private declarations public public declarations end;var form1: tform1;implementation uses unit5;$r *.dfmprocedure tform1.label2click(sender: tobject); beginif edit1.text='1234' then 輸入密碼1234beginform1.hide; form1隱藏form5.show; form5顯示 form5.timer

39、1.enabled:=true; form5的時間控制工作endelseshowmessage('對不起，您輸入的密碼不正確！') 密碼錯誤時顯示對不起，您輸入的密碼不正確！end;procedure tform1.label2mouseenter(sender: tobject);beginlabel2.font.color:=clred;鼠標移到label2時變?yōu)榧t色end;procedure tform1.label2mouseleave(sender: tobject);begin label2.font.color:=clteal; 鼠標移開label2時變?yōu)榫G藍色e

40、nd;procedure tform1.timer1timer(sender: tobject);使字體閃爍beginlabel1.visible:=not label1.visible ;end;procedure tform1.label6click(sender: tobject);點擊label6時form1關閉，進入等候界面beginform1.close;end;end.unit unit2;interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs

41、, stdctrls, buttons, mask, dbctrls, db, dbtables, comctrls, grids, dbgrids, extctrls, quickrpt, qrctrls, jpeg, extdlgs, adodb;type 該窗體所用到的控件 tform2 = class(tform) label1: tlabel; label2: tlabel; pagecontrol1: tpagecontrol; tabsheet2: ttabsheet; speedbutton1: tspeedbutton; dbedit1: tdbedit; dbedit2:

42、tdbedit; dbedit3: tdbedit; dbedit4: tdbedit; dbedit5: tdbedit; dbedit6: tdbedit; dbedit7: tdbedit; dbedit8: tdbedit; dbedit9: tdbedit; dbedit10: tdbedit; dbedit11: tdbedit; label3: tlabel; label4: tlabel; label5: tlabel; label6: tlabel; label7: tlabel; label8: tlabel; label9: tlabel; label10: tlabel

43、; label11: tlabel; label12: tlabel; label13: tlabel; bitbtn1: tbitbtn; bitbtn2: tbitbtn; bitbtn3: tbitbtn; datasource1: tdatasource; tabsheet3: ttabsheet; dbgrid1: tdbgrid; tabsheet4: ttabsheet; label14: tlabel; edit1: tedit; button1: tbutton; radiobutton1: tradiobutton; image1: timage; timer1: ttim

44、er; adotable1: tadotable; label15: tlabel; dbedit12: tdbedit; procedure speedbutton1click(sender: tobject);該窗體所用到的過程 procedure bitbtn1click(sender: tobject); procedure bitbtn2click(sender: tobject); procedure bitbtn3click(sender: tobject); procedure button1click(sender: tobject); procedure formclose(sender: tobject; var action: tcloseaction); procedure timer1timer(sender: tobject); procedure radiobutton1click(sender: tobject); private private declarations public public