人口管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)

1、第 頁共30頁人口管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)08秋計(jì)算機(jī)科學(xué)與技術(shù)王秀枚摘要：目前，人口流動(dòng)頻繁，這給街道居委會(huì)的人口管理帶來很大的困難，結(jié)合我自己目前的工作實(shí)際，我給自己設(shè)定的畢業(yè)論文為人口管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)，希望利用人口管理系統(tǒng)居委會(huì)可以輕松的對所屬轄區(qū)的人口及各項(xiàng)情況進(jìn)行較精確的管理，實(shí)現(xiàn)人口管理工作的信息化、現(xiàn)代化，同時(shí)也能提升公安機(jī)關(guān)對違法犯罪的發(fā)現(xiàn)控制能力和防范打擊水平。一、人口管理系統(tǒng)開發(fā)的背景及重要意義（一）、開發(fā)背景多年來，人口管理工作在維護(hù)社會(huì)穩(wěn)定、打擊犯罪、管理治安、服務(wù)群眾方面發(fā)揮了重要作用。但隨著人們居住、就業(yè)、生活、流動(dòng)方式的變化，特別是流動(dòng)人口、暫住人口、人戶分離、人

2、口大量增多，傳統(tǒng)的手工式人口管理方式越來越難以適應(yīng)這種動(dòng)態(tài)的開放的社會(huì)環(huán)境需要，對違法犯罪人員發(fā)現(xiàn)不了、控制不住、管理不嚴(yán)、打擊不力的問題日益突現(xiàn)出來。街道居委會(huì)是城市社會(huì)的最小單元，街道的和諧穩(wěn)定就是社會(huì)的和諧穩(wěn)定，街道居委會(huì)不能清楚掌握本街道的人口情況，就無法對本街道的社會(huì)治安和秩序進(jìn)行有效的管控。一直以來，街道居委會(huì)對本街道的人口管理都是通過手工進(jìn)行登記、遷徙、查閱等操作，經(jīng)常發(fā)生有違法犯罪人員發(fā)現(xiàn)不了，對公安部門查辦案響應(yīng)不了、信息提供不準(zhǔn)確，從而耽誤了查辦案的進(jìn)度。隨著國家實(shí)施國家信息化的進(jìn)程不斷推進(jìn)，人口管理的信息化、系統(tǒng)化與電子化也變得非常迫切。（二）、課題開發(fā)的作用和重要意義以

3、我國國情為例，人口信息內(nèi)容比較多，隨居住、就業(yè)、生活、流動(dòng)而發(fā)生變化，人口信息管理必須實(shí)時(shí)更新，又要滿足各種統(tǒng)計(jì)、查詢、打印，通過傳統(tǒng)的手工操作非常繁瑣，如：需要查詢某一個(gè)人的信息時(shí)，首先查詢該人在街道居委會(huì)的登記情況，還要查閱他的多次信息變更的情況，最終才可能查出他的全部準(zhǔn)確信息，整一個(gè)操作非常繁瑣，如果在人工查閱過程中，發(fā)生了錯(cuò)漏，信息將不準(zhǔn)確。通過人口信息管理系統(tǒng)對街道居委會(huì)的人口信息進(jìn)行管理，系統(tǒng)管理員只需要按要求輸入人口的有關(guān)信息，如戶籍、性別、年齡、出生年月、何時(shí)遷入、何時(shí)遷出、婚姻狀況、服役情況、身份信息等，人口信息發(fā)生變化時(shí)，實(shí)時(shí)進(jìn)行更改維護(hù)，這樣，整個(gè)街道人口的信息情況通過人

4、口信息系統(tǒng)就可以實(shí)現(xiàn)一鍵查詢，一目了然，使得人口管理非常輕松。人口計(jì)劃生育是我國的一項(xiàng)基本國策，人口計(jì)劃生育政策的貫徹落實(shí)需要人口管理部門、計(jì)生部門、街道居委會(huì)、醫(yī)院等部門的配合，街道居委會(huì)人口信息的準(zhǔn)確性，也是計(jì)生部門有效管控人口增長和執(zhí)行有關(guān)政策方針的關(guān)鍵之一。二、設(shè)計(jì)目標(biāo)（一）、現(xiàn)行有代表性系統(tǒng)的特點(diǎn)和優(yōu)缺點(diǎn)為了能夠在軟件市場上搶占一定的份額，各個(gè)軟件開發(fā)公司都各具自己的特色和優(yōu)點(diǎn)。但是，由于系統(tǒng)開發(fā)人員的素質(zhì)、水平等各方面的因素，所開發(fā)出來的軟件都難免會(huì)存在操作性、技術(shù)性、安全性等方面的漏洞，從而導(dǎo)致用戶在軟件的使用過程中產(chǎn)生出各種意想不到的損失和影響。而且現(xiàn)行系統(tǒng)大部分的功能都比較齊

5、全，界面也很漂亮，這也導(dǎo)致了系統(tǒng)界面相對比較復(fù)雜，占用的存儲(chǔ)空間比較大，實(shí)際運(yùn)用中顯得就不方便，且大部分只適用于公安部門的人口信息和戶籍信息管理，對于街道居委會(huì)的人口管理是不適用的。（二）、本課題開發(fā)中要解決的問題和達(dá)到的目標(biāo)既要滿足人口信息的管理的功能要求，又要結(jié)合街道居委會(huì)對人口信息管理的特點(diǎn)和需求，同時(shí)從投資、運(yùn)行速度、系統(tǒng)穩(wěn)定性、可操作性、人機(jī)界面等方面考慮，街道居委會(huì)人口管理系統(tǒng)應(yīng)滿足投資少、運(yùn)行速度快、系統(tǒng)穩(wěn)定可靠、操作簡單易掌握、人機(jī)界面友好的要求。三、系統(tǒng)分析（一）、系統(tǒng)調(diào)研人口管理系統(tǒng)是數(shù)據(jù)庫應(yīng)用系統(tǒng)，其開發(fā)主要包括窗體與數(shù)據(jù)模塊兩方面。最終產(chǎn)品是幫助相關(guān)人員對人口信息進(jìn)行合

6、理化的管理。利用數(shù)據(jù)庫對人口信息進(jìn)行管理，操作員通過友好的人機(jī)界面進(jìn)行對人口信息進(jìn)行操作維護(hù)，實(shí)現(xiàn)對人口信息的電子化管理。系統(tǒng)把需要進(jìn)行管理的信息存放在指定的數(shù)據(jù)庫，通過友好界面、本地?cái)?shù)據(jù)庫及之間的接口，用戶無需關(guān)心數(shù)據(jù)庫的設(shè)置，便可以輕松的在系統(tǒng)提供的友好界面上對人口信息進(jìn)行登記、查詢、更改維護(hù)、打印等操作，并對操作用戶進(jìn)行管理。由于采用了單層數(shù)據(jù)庫應(yīng)用程序的體系結(jié)構(gòu)，使得整一個(gè)系統(tǒng)的開發(fā)投資少，運(yùn)行速度快，系統(tǒng)穩(wěn)定性強(qiáng)。在窗體設(shè)計(jì)上人機(jī)界面友好、操作簡單易掌握，無需占用太多的存儲(chǔ)空間。（二）、用戶需求分析人口管理系統(tǒng)是一個(gè)輔助居委會(huì)人員完成日常工作的一個(gè)系統(tǒng)，它涵蓋了居委會(huì)本轄區(qū)人口情況進(jìn)

7、行管理的比較繁瑣的工作。現(xiàn)代城市居委會(huì)隨著人口的不斷增加及不斷變化，工作效率低下、由于不可避免的人為因素造成的數(shù)據(jù)遺漏、誤報(bào)的手工方式越來越不適應(yīng)實(shí)際管理工作的需要，利用計(jì)算機(jī)技術(shù)和數(shù)據(jù)庫技術(shù)設(shè)計(jì)開發(fā)人口管理系統(tǒng)，更好的適應(yīng)了當(dāng)前人口管理需求，緩解手工管理存在的弊端，實(shí)現(xiàn)人口信息管理工作的規(guī)范管理、科學(xué)統(tǒng)計(jì)和快速查詢，從而大大減少了人口管理方面的工作量，為提高人口管理工作效率和推進(jìn)社區(qū)信息化改革提供了重要的參考依據(jù)，是居委會(huì)人口管理工作的得力助手。（三）、系統(tǒng)的數(shù)據(jù)要求針對人口管理信息系統(tǒng)的需求，通過用戶對系統(tǒng)功能要求和流程分析，需要如下面所示的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)：人口信息：包括的數(shù)據(jù)項(xiàng)有戶別、

8、編號(hào)、村（區(qū)）、住址、姓名、與戶主關(guān)系、姓名、別名、性別、生日、出生地、籍貫、民族、宗教信仰、文化程度、婚姻狀況、血型、人高、變動(dòng)后住所、服務(wù)處所、兵役狀況、身份證、遷徙情況記錄。用戶信息：包括的數(shù)據(jù)項(xiàng)有用戶名稱、用戶中文名稱、用戶密碼、用戶密碼確認(rèn)。（四）、系統(tǒng)的功能要求本系統(tǒng)用于人口信息管理，主要任務(wù)是用計(jì)算機(jī)對人口信息進(jìn)行日常管理，如錄入、查詢、修改、打印等，針對這此要求，設(shè)計(jì)了本人口管理系統(tǒng)。對系統(tǒng)的功能要求如下：由于工作的需要和保密性，以及便于管理，系統(tǒng)用戶應(yīng)該具有不同的等級，即不同的權(quán)限。系統(tǒng)能夠?qū)θ丝诘男畔⑦M(jìn)行錄入，能夠非常方便地修改、查詢和打印該信息。能夠通過系統(tǒng)迅速了解人口的

9、基本情況。系統(tǒng)運(yùn)行在Windows平臺(tái)上，還應(yīng)有一個(gè)較友好的圖形用戶界面，最終產(chǎn)品是幫助相關(guān)人員對人口信息進(jìn)行有計(jì)劃、有步驟、方便的管理。（五）、可行性研究人口管理工作主要是對轄區(qū)人口的基本情況進(jìn)行管理，主要包括信息錄入、修改、查詢、打印等功能人口管理系統(tǒng)要能快速、高效、準(zhǔn)確、安全地完成這些功能，并要做到各個(gè)系統(tǒng)界面整潔、美觀、友好、操作方便、合理。Delphi7.0是一個(gè)面向?qū)ο蟮能浖_發(fā)工具，是全新的可視化編程環(huán)境，為我們提供了一種方便、快捷的Windows應(yīng)用程序開發(fā)工具，可以直觀地、快速地進(jìn)行Windows應(yīng)用程序的開發(fā)。它使用了MicrosoftWindows圖形用戶界面的許多先進(jìn)特

10、性和設(shè)計(jì)思想，采用了當(dāng)今世界上最快的編譯器和最為領(lǐng)先的數(shù)據(jù)庫技術(shù)。對于廣大的程序開發(fā)人員來講，使用Delphi開發(fā)應(yīng)用軟件，無疑會(huì)大大的提高編程效率。為此，我選擇使用Delphi7.0開發(fā)工具來實(shí)現(xiàn)人口管理系統(tǒng)的設(shè)計(jì)，實(shí)現(xiàn)對人口信息管理工作的全面管理，并靈活運(yùn)用SQL查詢增強(qiáng)了系統(tǒng)的信息查詢功能。第一個(gè)步驟：建立數(shù)據(jù)庫文件并按數(shù)據(jù)要求完成數(shù)據(jù)表的創(chuàng)建。第二個(gè)步驟：以模塊化為原則，每個(gè)系統(tǒng)功能由一個(gè)工程來實(shí)現(xiàn)，創(chuàng)建工程。第三個(gè)步驟：為每個(gè)工程的窗體添加組件，并通過組件屬性設(shè)置和添加程序代碼。第四個(gè)步驟：編寫主程序。第五個(gè)步驟：編輯運(yùn)行。人口管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)人口管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)第 頁共30

11、頁第 頁共30頁綜上所述，本系統(tǒng)的技術(shù)成熟、完備、可靠，具有良好的可使用性能，符合街道居委會(huì)對功能和數(shù)據(jù)的要求，滿足街道居委會(huì)對人口管理信息的需要，并達(dá)到操作過程中的直觀、方便、實(shí)用、安全等要求。四、系統(tǒng)設(shè)計(jì)（一）、總體結(jié)構(gòu)設(shè)計(jì)系統(tǒng)處理流程設(shè)計(jì)本系統(tǒng)的處理流程如下圖所示：2系統(tǒng)功能模塊設(shè)計(jì)根據(jù)需求，系統(tǒng)功能模塊設(shè)計(jì)如下人口管理系統(tǒng)主要由兩個(gè)管理模塊組成，分別是人口信息管理和用戶管理，人口信息管理是對轄區(qū)內(nèi)常住人口進(jìn)行登記、打印登記表、更改和統(tǒng)計(jì)查詢，而用戶管理是對系統(tǒng)操作員的賬號(hào)密碼進(jìn)行管理維護(hù)。功能層次框圖：人口信息管理模塊中，擁有人口信息的錄入、打印登記表、更改（人口基本信息更改、遷出等）

12、、統(tǒng)計(jì)查詢功能，統(tǒng)計(jì)查詢中，如果不選擇篩選的條件，則顯示所有記錄信息，否則按照所提供的條件進(jìn)行篩選，在窗口中顯示符合條件的記錄。用戶管理模塊能增加用戶名密碼、更改已有用戶的密碼、刪除已有用戶，進(jìn)行操作員賬號(hào)密碼信息進(jìn)行有效的管理，保證系統(tǒng)和系統(tǒng)信息的安全性。3功能設(shè)計(jì)（1）功能劃分登記功能更改維護(hù)功能查詢功能打印功能用戶管理功能（2）功能描述登記功能通過此模塊來錄入一個(gè)人口基本信息，包括錄入人口基本資料：戶別、編號(hào)、村（區(qū)）、地址、與戶主關(guān)系、姓名、別名、性別、生日、出生地、籍貫、民族、宗教信仰、文化程度、婚姻狀況、血型、身高、變動(dòng)后住所、服務(wù)處所、兵役狀況。身份證信息：申請?jiān)蚓幪?hào)、遷入號(hào)碼

13、、簽發(fā)日期、有效期限。遷徙登記：何時(shí)由何地遷來、何時(shí)因何因遷住何地、事項(xiàng)變更記錄。整一個(gè)人口信息記錄涵蓋了戶籍、身份證、遷入遷出本區(qū)的記錄。用戶在進(jìn)行錄入操作時(shí)，只須按照提示要求選擇和輸入每一項(xiàng)的具體資料即可。而且可以對已經(jīng)增加并成功保存的記錄進(jìn)行同戶增加的錄入，符合了我國戶籍管理的實(shí)際情況。另外不需要退出該模塊便可以方便增加新的記錄。查詢功能按所提供的條件進(jìn)行查詢，并在窗口中列出查詢結(jié)果，用戶可以選擇所列的任何一條記錄，并對所選擇的記錄進(jìn)行修改并保存。修改功能對選中的記錄進(jìn)行修改并保存。打印功能對每一戶人口信息進(jìn)行打印登記表，登記表中涵蓋了該戶中的所有人口的信息，以供存檔或查閱。用戶管理功能

14、添加、刪除能夠操作本系統(tǒng)的用戶，設(shè)置用戶的操作權(quán)限，修改用戶的登陸密碼。（二）、系統(tǒng)配置設(shè)計(jì)1系統(tǒng)開發(fā)環(huán)境Delphi7.0運(yùn)行環(huán)境硬件環(huán)境：400MHz以上多媒體電腦，64M以上內(nèi)存，800*600真彩顯示模式，16倍速以上光驅(qū)，兼容聲卡。軟件環(huán)境：中文Windows98、Windows2000、WindowsXP、WindowsServer2003，TSCC編碼。（三）、數(shù)據(jù)結(jié)構(gòu)設(shè)計(jì)數(shù)據(jù)庫應(yīng)用程序的體系結(jié)構(gòu)數(shù)據(jù)庫應(yīng)用程序開發(fā)采用單層的數(shù)據(jù)庫應(yīng)用程序設(shè)計(jì)，采用本地?cái)?shù)據(jù)庫，使用ACCESS數(shù)據(jù)庫。考慮到體系結(jié)構(gòu)的可伸縮性，即當(dāng)以后應(yīng)用程序過渡到多層體系結(jié)構(gòu)時(shí)，只需要修改數(shù)據(jù)模塊上的數(shù)據(jù)集組件而

15、不需要改動(dòng)用戶界面，把用戶界面與數(shù)據(jù)訪問鏈路分開。數(shù)據(jù)集與數(shù)據(jù)控制組件之間通過datasource組件連接，datasource組件相當(dāng)于用戶界面與數(shù)據(jù)庫之間的導(dǎo)管。邏輯結(jié)構(gòu)設(shè)計(jì)（1）數(shù)據(jù)庫設(shè)計(jì)人口信息資料庫定義population.mdbrkdjb（人口信息表）yh（用戶信息表）各個(gè)信息表結(jié)構(gòu)和各字段設(shè)計(jì)如下：rkdjb（人口信息表）字段名說明類型長度約束條件id戶口ID自動(dòng)編號(hào)長整型主鍵，升序hb戶別文本30hkbh編號(hào)文本30chuorqu村（區(qū)）文本50zz住址文本225yhzgx與戶主關(guān)系文本30 xm姓名文本30bm別名文本30 xb性別文本10birthday出生年月日日期/時(shí)間

16、csd出生地文本200jg籍貫文本50mz民族文本30zjxy宗教信仰文本50whcd文化程度文本30fyzk婚姻狀況文本50XX血型文本20Sg身高數(shù)字小數(shù)bdzz變動(dòng)后住址文本200fwcs服務(wù)處所文本200byzk兵役情況文本200sfzslyy備注sfzbh身份證編號(hào)文本20sfzqrhml遷入號(hào)碼1文本20sfzqrhm2遷入號(hào)碼2文本20sfzqfrq簽發(fā)日期sfzyxqx有效期限數(shù)字長整型hshdql何時(shí)由何地遷來備注hshyqwhd何時(shí)何因遷往何地備注xxbgjz事項(xiàng)變更更正記載備注yh（用戶信息表）字段名類型長度約束條件user文本20主鍵，升序zwm文本30pwd文本30q

17、x文本20（2）工程安排：為系統(tǒng)以后的擴(kuò)展提供其可伸縮性，實(shí)現(xiàn)系統(tǒng)功能模塊化，把系統(tǒng)的某一項(xiàng)功能由一個(gè)工程來實(shí)現(xiàn)，每一個(gè)工程包含了實(shí)現(xiàn)某一項(xiàng)功能所需的窗體及窗體設(shè)置，組件及組件屬性設(shè)置，源程序代碼等所有信息，分別存放在工程文件（.dpr）和庫單元文件（pas）中，下表為本系統(tǒng)設(shè)計(jì)的工程安排列表：工程名庫單元名窗體屬性功能說明adduseradduser增加用戶增加用戶名和密碼cxcx查詢按各種條件查詢?nèi)丝谛畔eluserdeluser刪除用戶刪除用戶dmudmuDM數(shù)據(jù)集dydy打印打印人口信息登記表GgwhGgwh更改維護(hù)人口信息更改維護(hù)loginlogin進(jìn)入系統(tǒng)登錄系統(tǒng)mainmain

18、主界面系統(tǒng)操作主界面MpwdMpwd修改密碼修改用戶密碼1PwdPwd修改密碼修改用戶密碼1RkdjRkdj常住人口登記常住人口登記（四）、窗體設(shè)計(jì)1.系統(tǒng)登錄窗體Frmlogin雙擊population.exe文件后，運(yùn)行人口管理系統(tǒng)，同時(shí)彈出“進(jìn)入系統(tǒng)”對話框選擇登錄用戶，輸入正確的密碼，進(jìn)入系統(tǒng)。系統(tǒng)管理員為“Admin”，密碼為空。2.操作主界面正常登錄系統(tǒng)后，便進(jìn)入人口管理系統(tǒng)操作主界面，通過主菜單或直接單擊主菜單下面的快捷按鈕直接進(jìn)入各項(xiàng)操作窗口，在窗口的下方顯示當(dāng)前操作員信息，以及當(dāng)前日期。3.人口信息登記窗體FrmRkdj單擊快捷按鈕“登記”或者單擊主菜單“調(diào)查錄入”，在下拉菜

19、單中單擊“常住人口登記”，彈出一個(gè)新窗口，按該窗口提示和要求輸入人口信息，用戶無需一次性把全部資料全部輸入完整，輸入完畢后只需要單擊保存就可以，可以對最后一條被保存的記錄進(jìn)行同戶增加，另外不需要關(guān)閉當(dāng)前記錄窗口，只需單擊增加便可以重新增加一條記錄。如果是同一戶的人口，可以使用同戶增加進(jìn)行添加，無需重復(fù)錄入相同的信息。打印登記表窗體FrmDY在人口登記窗口中，保存了數(shù)據(jù)后，或者在更改維護(hù)和查詢窗口中雙擊記錄打開的窗口中，單擊“打印登記表”，會(huì)出現(xiàn)上面的界面，可以選擇打印或關(guān)閉，單擊“打印”可以打印“常住人口底冊登記表”，“常住人口底冊登記表”包含了所選擇打印人口所屬戶口的所有人口的登記信息。人口

20、信息更改維護(hù)單擊快捷按鈕“維護(hù)”或者單擊主菜單“調(diào)查錄入”，在下拉菜單中單擊“更改維護(hù)”，按所提供的條件進(jìn)行查詢，查詢結(jié)果列在右邊的顯示框中，可以選擇任意一條記錄進(jìn)行更改或刪除操作。人口信息查詢單擊快捷按鈕“查詢”或者單擊主菜單“查詢統(tǒng)計(jì)”，在下拉菜單中單擊“各種條件查詢”按所選中的條件進(jìn)行查詢，查詢結(jié)果列在右邊的顯示框中，如果不選中某一個(gè)條件，則顯示全部記錄，可以選擇任意一條記錄進(jìn)行更改或刪除操作。用戶管理增加用戶：使用任何一個(gè)用戶進(jìn)行登錄系統(tǒng)后，單擊主菜單“系統(tǒng)設(shè)置”，在下拉菜單中單擊“增加用戶”，輸入用戶及密碼，輸入完畢后，單擊確定，彈出以下信息提示框。如果放棄本次操作則單擊“退出”，系

21、統(tǒng)將關(guān)閉當(dāng)前窗口，返回主界面。人口管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)第 頁共30頁用戶已經(jīng)建立并保存，單擊“OK”后，窗口進(jìn)行刷新，可以再增加用戶，否則單擊“退出”，關(guān)閉當(dāng)前窗口，返回到主界面。注：為了保證系統(tǒng)中用戶名的唯一性，若增加一個(gè)與已存在的某用戶名相同的用戶，則系統(tǒng)應(yīng)彈出以下消息提示框。修改密碼：任何一個(gè)用戶進(jìn)行登錄系統(tǒng)后，單擊主菜單“系統(tǒng)設(shè)置”，在下拉菜單中單擊“修改用戶”，在窗口所列的用戶中雙擊需要修改的用戶，則彈出以下窗口，否則單擊“退出，”將關(guān)閉當(dāng)前窗口，返回主界面。輸入密碼并確認(rèn)密碼后，單擊“確定”，保存操作，系統(tǒng)將彈出以下信息提示框。放棄本次操作，單擊“退出”，關(guān)閉當(dāng)前窗口，返回上一級窗

22、口。系統(tǒng)提示修改成功，單擊“OK”后，單擊“退出”，退出該次修改，返回上一級窗口,可以再進(jìn)行修改操作，不再修改，單擊“退出”，關(guān)閉當(dāng)前窗口，返回主界面。注意：只能對當(dāng)前操作員的密碼進(jìn)行修改。否則會(huì)彈出以下消息提示框。刪除用戶：使用任何一個(gè)用戶進(jìn)行登錄系統(tǒng)后，單擊主菜單“系統(tǒng)設(shè)置”，在下拉菜單中單擊“刪除用戶”，單擊選中某一用戶，單擊“刪除”，則彈出以下信息提示框，否則單擊“退出”，將關(guān)閉當(dāng)前窗口，返回主界面。單擊“是”，則刷新窗口，該用戶便會(huì)在剛才的窗口中消失，否則單擊“否”，關(guān)閉消息提示框。注：不能對系統(tǒng)管理員進(jìn)行刪除，假如對系統(tǒng)管理員進(jìn)行刪除，則會(huì)彈出以下消息提示框。10.退出系統(tǒng)單擊主菜

23、單“退出系統(tǒng)”或快捷按鈕“退出”，彈出“退出系統(tǒng)確認(rèn)”消息框，單擊“確定”，將關(guān)閉窗口，退出系統(tǒng)。單擊“取消”，則放棄操作，返回主界面。五、系統(tǒng)實(shí)現(xiàn)（一）、所采用的平臺(tái)及其簡介人口管理系統(tǒng)是利用數(shù)據(jù)庫的管理技術(shù)建立在windows操作系統(tǒng)中的，在windows環(huán)境的人口管理系統(tǒng)是人口管理的應(yīng)用程序，最終產(chǎn)品是幫助相關(guān)人員對人口信息進(jìn)行有計(jì)劃、有步驟、方便的管理。該人口管理系統(tǒng)采用DELPHI7.0語言完成的。由多個(gè)窗體和一個(gè)數(shù)據(jù)庫文件構(gòu)成，窗體的功能由程序段實(shí)現(xiàn)或直接由DELPHI提供的組件的屬性設(shè)置完成，人口管理系統(tǒng)完成后,直接經(jīng)過編譯后生成可執(zhí)行文件population.exe，可以直接使

24、用。（二）、各功能模塊實(shí)現(xiàn)一個(gè)功能模塊的實(shí)現(xiàn)可能是由一個(gè)窗體的屬性設(shè)置就可以完成，可能是由一個(gè)窗體設(shè)置及其程序段完成，可能是由多個(gè)窗體的屬性設(shè)置完成，可能是由多個(gè)窗體的屬性設(shè)置及其程序段完成，這要看該功能實(shí)現(xiàn)的步驟的復(fù)雜性，同時(shí)為了減少系統(tǒng)資源，在窗體設(shè)計(jì)上，盡量保持其通用性，即一個(gè)窗口可供多個(gè)功能模塊調(diào)用，下圖為各功能模塊實(shí)現(xiàn)的邏輯框圖：各個(gè)窗體屬性及功能列表：窗口項(xiàng)目Formstylecaption功能FrmMainfsMDIForm人口管理系統(tǒng)人口管理系統(tǒng)主界面FrmCxfsMDIchild查詢實(shí)現(xiàn)各種條件查詢FrmGgwhfsMDIchild更改維護(hù)人口信息更改FrmRkdjfsMDI

25、child常住人口登記常住人口信息錄入FrmLoginfsNormal進(jìn)入系統(tǒng)人口管理系統(tǒng)登錄FrmAddUserfsMDIchild增加用戶增加用戶帳號(hào)和密碼FrmDelUserfsMDIchild刪除用戶刪除用戶FrmPwdfsMDIchild修改密碼對某用戶進(jìn)行修改密碼1FrmMpwdfsMDIchild修改密碼對某用戶進(jìn)行修改密碼21.人口管理系統(tǒng)主窗體FrmMain這是整一個(gè)系統(tǒng)的主界面，從該主界面中，操作員可能選擇對系統(tǒng)所做的操作。首先建立一個(gè)窗體，保存工程文件為main.dpr，庫單元文件為main.pas，然后在窗體上添加下列組件后，然后為窗體中各事件添加代碼并保存，這一工程就

26、建好了。其窗體的主要組件及設(shè)置如下：可視化組件：caption組件組件名功能登記Ttoolbuttontoolbuttonl常住人口登記維護(hù)Ttoolbuttontoolbutton2人口信息更改查詢Ttoolbuttontoolbutton3統(tǒng)計(jì)查詢退出Ttoolbuttontoolbutton4退出系統(tǒng)非可視化組件name組件組件名功能ImagelistlTImagelistImagelistl主界面背景圖片mainMenulTmainMenuMainMenul主菜單主菜單設(shè)置主菜單項(xiàng)目子菜單項(xiàng)功能說明調(diào)查錄入常住人口登記常住人口登記更改維護(hù)人口信息更改查詢統(tǒng)計(jì)各種條件查詢統(tǒng)計(jì)查詢系統(tǒng)設(shè)置

27、增加用戶增加操作員刪除用戶刪除操作員修改密碼修改操作員密碼數(shù)據(jù)庫連接設(shè)置系統(tǒng)數(shù)據(jù)庫連接設(shè)置2.常住人口登記：這是常住人口登記窗體，從該窗體可以進(jìn)行常住人口的登記。首先建立一個(gè)窗體，保存工程文件為Rkdj.dpr，庫單元文件為Rkdj.pas，然后在窗體上添加下列組件后，然后為窗體中各事件添加代碼并保存，這一工程就建好了。在該模塊中，為了考慮信息的可讀性，廣泛使用了LABEL組件，并與DBEDIT或DBCOMBOBOX組件組合使用，使操作一目了然，其窗體的主要組件及設(shè)置如下：組件組件完成功能labell基本資料顯示區(qū)標(biāo)簽label2Dbcomboboxl戶別選擇框label3Dbeditl編號(hào)編

28、輯框label4Dbedit2村（區(qū)）編輯框Label7Dbedit3住址編輯框Label3lDbcombobox7與戶主關(guān)系選擇框Label5Dbedit4姓名編輯框Label6Dbedit5別名編輯框Label8Dbcombobox2性別選擇框LabellO生日日歷選擇框LabelllDbedit6出生地編輯框Labell2Dbedit7籍貫編輯框Label13Dbedit8民族編輯框Labell4Dbcombobox6宗教信仰選擇框Labell5Dbcombobox3文化程度選擇框Labell6Dbcombobox4婚姻狀況選擇框Labell7Dbcombobox5血型選擇框Labell

29、8DbeditlO身高編輯框Labell9Dbeditil變動(dòng)后住所編輯框Label20Dbedit12服務(wù)處所編輯框Label21Dbedit13兵役狀況編輯框Label9身份證輸入?yún)^(qū)標(biāo)簽Label27遷徙記錄輸入?yún)^(qū)標(biāo)簽Shape2基本資料顯示框Shape4身份證、遷徙記錄顯示框Label30Dbmeno2何時(shí)由何地遷來備注框Label29Dbmeno3何時(shí)因何因遷住何地備注框Label28Dbmeno4事項(xiàng)變更記錄備注框Label22Dbmenol申請?jiān)蜉斎隠abel23Dbedit14編號(hào)輸入Label24Dbedit15遷入號(hào)碼輸入Label25Dbedit16有效期限輸入非可視化組

30、件及設(shè)置：組件功能Datasourcel連接數(shù)據(jù)集組件和數(shù)據(jù)控制組件3.查詢、更改維護(hù):這是人口信息更改維護(hù)模塊，從該模塊可以對系統(tǒng)已有人口信息進(jìn)行修改。首先建立一個(gè)窗體，保存工程文件為Ggwh.dpr，庫單元文件為Ggwh.pas，然后在窗體上添加下列組件后，然后為窗體中各事件添加代碼并保存，這一工程就建好了。在該模塊中，也是為了考慮信息的可讀性，廣泛使用了LABEL組件，并與Edit或Checkbox組件組合使用，使操作一目了然，其窗體的主要組件及設(shè)置如下：可視化組件及設(shè)置：組件Checkbox組件Combobox組件EDIT組件功能Label1查詢條件顯示框標(biāo)簽Label2Checkbo

31、xlCombobox1戶別查詢條件選擇Label3Checkbox2Edit1編號(hào)查詢條件選擇Label4Checkbox3Edit2村（區(qū)）查詢條件選擇Label7Checkbox4Edit3地址杳詢條件選擇Label5Checkbox5Edit4姓名查詢條件選擇Label6Checkbox6Edit5別名查詢條件選擇Labe8Checkbox7Combobox2性別查詢條件選擇Labe10Checkbox8Esb,Ese年齡查詢條件選擇LabellCheckbox9Edit15出生地查詢條件選擇Label2CheckboxlOEdit7籍貫查詢條件選擇Label3CheckboxllEdi

32、t8民族查詢條件選擇Label4Checkbox12Combobox3宗教信仰查詢條件選擇Label5Checkbox13Combobox4文化程度查詢條件選擇Label6Checkbox14Combobox5婚姻狀況查詢條件選擇Label7Checkbox15Combobox6血型杳詢條件選擇Label8Checkbox16Edit9,Edit10身咼查詢條件選擇Label9Checkbox17Edit11變動(dòng)后住所查詢條件選擇Labe20Checkbox18Edit12服務(wù)處所查詢條件選擇Labe21Checkbox19Edit13兵役狀況查詢條件選擇BitBtnl完成所選杳詢條件進(jìn)行組合

33、查詢BitBtn2對選中的記錄進(jìn)行更改BitBtn3退出查詢操作BitBtn4對選中的記錄進(jìn)行刪除非可視化組件及設(shè)置：組件功能Datasource1連接數(shù)據(jù)集組件和數(shù)據(jù)控制組件4.增加用戶：這是增加操作員的窗體，從該窗體可以增加操作員用戶名及密碼。首先建立一個(gè)窗體保存工程文件為AddUser.dpr，庫單元文件為AddUser.pas,然后在窗體上添加下列組件后，然后為窗體中各事件添加代碼并保存，這一工程就建好了。在該窗體中，也是為了考慮信息的可讀性，廣泛使用了LABEL組件，并與Edit組件組合使用，使操作一目了然，另外考慮到界面的美觀，該窗體采用了GroupBox控件。其窗體的主要組件及設(shè)

34、置如下：組件組件功能Groupbox1群組框Label1Edit1用戶名稱編輯框Label2Edit2用戶中文名稱編輯框Label3Edit3用戶密碼編輯框Label4Edit4用戶密碼確認(rèn)編輯框BitBtn1確定增加用戶BitBtn2取消操作5.刪除用戶：這是刪除操作員的窗體，從該窗體可以對系統(tǒng)已有的操作員進(jìn)行刪除。首先建立一個(gè)窗體，保存工程文件為DelUser.dpr，庫單元文件為DelUser.pas,然后在窗體上添加下列組件后，然后為窗體中各事件添加代碼并保存，這一工程就建好了。在該窗體中，需要訪問數(shù)據(jù)庫，則采用DateSource組件。為了使操作直觀，采用了DBGird組件。其窗體的

35、主要組件及設(shè)置如下：組件功能DBGirdl以柵格的形式顯示和編輯數(shù)據(jù)集中的數(shù)據(jù)DateSourcel訪問數(shù)據(jù)庫Adouser通過SQL杳詢結(jié)果建立的用來存放用戶信息表BitBtnl確定刪除BitBtn2取消操作6.修改密碼：這是修改操作員密碼的窗體，從該窗體可以對系統(tǒng)已有的操作員進(jìn)行修改密碼操作。首先建立一個(gè)窗體，保存工程文件為PWD.dpr，庫單元文件為PWD.pas,然后在窗體上添加下列組件后，然后為窗體中各事件添加代碼并保存，這一工程就建好了。在該窗體中，需要訪問數(shù)據(jù)庫，則采用DateSource組件。為了使操作直觀，采用了DBGird組件。其窗體的主要組件及設(shè)置如下：窗口1組件功能DB

36、Girdl以柵格的形式顯示和編輯數(shù)據(jù)集中的數(shù)據(jù)DateSourcel訪問數(shù)據(jù)庫Adouser通過SQL杳詢結(jié)果建立的用來存放用戶信息表BitBtnl確定修改BitBtn2退出窗口操作窗口2組件組件功能DBGird1以柵格的形式顯示和編輯數(shù)據(jù)集中的數(shù)據(jù)Label2Edit1用戶舊密碼Label3Edit2用戶新密碼Label4Edit3用戶新密碼確認(rèn)BitBtn1確定刪除BitBtn2取消操作7.登錄對話框：這是系統(tǒng)登錄的窗體。首先建立一個(gè)窗體，保存工程文件為login.dpr，庫單元文件為login.pas，然后在窗體上添加下列組件后，然后為窗體中各事件添加代碼并保存，這一工程就建好了。其窗體

37、的主要組件及設(shè)置如下：組件組件功能Groupbox1群組框Label2Combobox1用戶名選擇Label3Edit1輸入密碼BitBtn1確定輸入BitBtn2取消操作8.數(shù)據(jù)模塊：在程序開發(fā)中，我們們使用ADO訪問數(shù)據(jù)，把數(shù)據(jù)集放在DMU工程里，保存工程文件為dmu.dpr,庫單元文件為dmu.pas,在工程中添加下列組件后，然后為窗體中各事件添加代碼并保存，這一工程就建好了。其主要組件及功能如下：組件組件名功能TADOConnectionADOC數(shù)據(jù)庫連接設(shè)置TADOQueryADOData通過SQL杳詢結(jié)果建立的用來暫存人口信息表TADOQueryADOhz通過SQL杳詢結(jié)果建立的用

38、來存放活動(dòng)的（當(dāng)前的）戶主信息表TADOQueryADOcy1通過SQL杳詢結(jié)果建立的用來存放活動(dòng)的（當(dāng)前的）非戶主人口1信息表TADOQueryADOcy2通過SQL杳詢結(jié)果建立的用來存放活動(dòng)的（當(dāng)前的）非戶主人口2信息表TADOQueryADOcy3通過SQL杳詢結(jié)果建立的用來存放活動(dòng)的（當(dāng)前的）非戶主人口3信息表TADOQueryADOcy通過SQL杳詢結(jié)果建立的用來存放活動(dòng)的（當(dāng)前的）戶口信息表9.打?。哼@是系統(tǒng)打印的窗體。首先建立一個(gè)窗體，保存工程文件為dy.dpr,庫單元文件為dy.pas,然后在窗體上添加下列組件后，然后為窗體中各事件添加代碼并保存，這一工程就建好了在窗體中除添加

39、下列組件外,為了使打印的登記表更具可讀性、直觀性、美觀性和整齊性在窗體大量使用了QRLabel、QRMemo、QRShape組件。其窗體的主要組件及設(shè)置如下：組件DATASET屬性FIELDNAME屬性功能QuickRepl打印設(shè)置DetailBand2打印QRDBText2ADOHZhb（戶主）戶別QRDBText4ADOHZchuorqu（戶主）村（區(qū)）QRDBText3ADOHZhkbh（戶主）編號(hào)QRDBTextlADOHZzz（戶主）住址QRDBText24ADOHZsfzyxqx（戶主）有效期限QRDBText23ADOHZsfzqfrq（戶主）簽發(fā)日期QRDBText22ADOH

40、Zsfzqrhm2（戶主）遷入號(hào)碼2QRDBText21ADOHZsfzqrhm1（戶主）遷入號(hào)碼1QRDBText20ADOHZsfzbh（戶主）身份證編號(hào)QRDBText18ADOHZbyzk（戶主）兵役情況QRDBText17ADOHZfwcs（戶主）服務(wù)處所QRDBText16ADOHZbdzz（戶主）變動(dòng)后住址QRDBText15ADOHZxx（戶主）血型QRDBText29ADOHZsg（戶主）身高QRDBText14ADOHZfyzk（戶主）婚姻狀況QRDBText13ADOHZwhcd（戶主）文化程度QRDBText12ADOHZzjxy（戶主）宗教信仰QRDBText11AD

41、OHZmz（戶主）民族QRDBText10ADOHZjg（戶主）籍貫QRDBText9ADOHZcsd（戶主）出生地QRDBText8ADOHZbirthday（戶主）出生年月日QRDBText7ADOHZxb（戶主）性別QRDBText6ADOHZbm（戶主）別名QRDBText5ADOHZxm（戶主）姓名QRDBText25ADOCY1yhzgx（非戶主1）與戶主關(guān)系QRDBText30ADOCY1xm（非戶主1）姓名QRDBText31ADOCY1bm（非戶主1）別名QRDBText32ADOCY1xb（非戶主1）性別QRDBText33ADOCY1birthday（非戶主1）出生年月日

42、QRDBText34ADOCY1csd（非戶主1）出生地QRDBText35ADOCY1jg（非戶主1）籍貫QRDBText36ADOCY1mz（非戶主1）民族QRDBText37ADOCY1zjxy（非戶主1）宗教信仰QRDBText38ADOCY1whcd（非戶主1）文化程度QRDBText39ADOCY1fyzk（非戶主1）婚姻狀況QRDBText41ADOCY1sg（非戶主1）身高QRDBText42ADOCY1bdzz（非戶主1）變動(dòng)后住址QRDBText43ADOCY1fwcs（非戶主1）服務(wù)處所QRDBText44ADOCY1byzk（非戶主1）兵役情況QRDBText47ADO

43、CY1sfzbh（非戶主1）身份證編號(hào)QRDBText48ADOCY1sfzqrhml（非戶主1）遷入號(hào)碼1QRDBText49ADOCY1sfzqrhm2（非戶主1）遷入號(hào)碼2QRDBText50ADOCY1sfzqfrq（非戶主1）簽發(fā)日期QRDBText51ADOCY1sfzyxqx（非戶主1）有效期限QRDBText55ADOCY2yhzgx（非戶主2）與戶主關(guān)系QRDBText56ADOCY3yhzgx（非戶主3）與戶主關(guān)系QRDBText57ADOCY2xm（非戶主2）姓名QRDBText58ADOCY3xm（非戶主3）姓名QRDBText59ADOCY2bm（非戶主2）別名QRD

44、BText60ADOCY3bm（非戶主3）別名QRDBText61ADOCY2xb（非戶主2）性別QRDBText62ADOCY3xb（非戶主3）性別QRDBText63ADOCY2birthday（非戶主2）出生年月日QRDBText64ADOCY3birthday（非戶主3）出生年月日QRDBText65ADOCY2csd（非戶主2）出生地QRDBText66ADOCY3csd（非戶主3）出生地QRDBText67ADOCY2jg（非戶主2）籍貫QRDBText68ADOCY3jg（非戶主3）籍貫QRDBText69ADOCY2mz（非戶主2）民族QRDBText70ADOCY3mz（非戶

45、主3）民族QRDBText71ADOCY2zjxy（非戶主2）宗教信仰QRDBText72ADOCY3zjxy（非戶主3）宗教信仰QRDBText73ADOCY2whcd（非戶主2）文化程度QRDBText74ADOCY3whcd（非戶主3）文化程度QRDBText75ADOCY2fyzk（非戶主2）婚姻狀況QRDBText76ADOCY3fyzk（非戶主3）婚姻狀況QRDBText40ADOCY1xx（非戶主1）血型QRDBText77ADOCY2xx（非戶主2）血型QRDBText78ADOCY3xx（非戶主3）血型QRDBText79ADOCY2sg（非戶主2）身高QRDBText80A

46、DOCY3sg（非戶主3）身高QRDBText81ADOCY2bdzz（非戶主2）變動(dòng)后住址QRDBText82ADOCY3bdzz（非戶主3）變動(dòng)后住址QRDBText83ADOCY2fwcs（非戶主2）服務(wù)處所QRDBText84ADOCY3fwcs（非戶主3）服務(wù)處所QRDBText85ADOCY2byzk（非戶主2）兵役情況QRDBText86ADOCY3byzk（非戶主3）兵役情況QRDBText89ADOCY2sfzbh（非戶主2）身份證編號(hào)QRDBText90ADOCY3sfzbh（非戶主3）身份證編號(hào)QRDBText91ADOCY2sfzqrhm1（非戶主2）遷入號(hào)碼1QRDB

47、RichTextlADOHZsfzslyy（戶主）備注QRDBRichText2ADOCY1sfzslyy（非戶主1）備注QRDBRichText3ADOCY2sfzslyy（非戶主2）備注QRDBRichText4ADOCY3sfzslyy（非戶主3）備注QRDBRichText5ADOHZhshdql（戶主）何時(shí)由何地遷來QRDBRichText6ADOCY1hshdql（非戶主1）何時(shí)由何地遷來QRDBRichText7ADOCY2hshdql（非戶主2）何時(shí)由何地遷來QRDBRichText8ADOCY3hshdql（非戶主3）何時(shí)由何地遷來QRDBText19ADOCY2sfzqrh

48、m2（非戶主2）遷入號(hào)碼2QRDBText26ADOCY3Sfzqrhm1（非戶主3）遷入號(hào)碼1QRDBText45ADOCY3sfzqrhm2（非戶主3）遷入號(hào)碼2QRDBText46ADOCY2sfzqfrq（非戶主2）簽發(fā)日期QRDBText52ADOCY3sfzqfrq（非戶主3）簽發(fā)日期QRDBText87ADOCY2sfzyxqx（非戶主2）有效期限QRDBText88ADOCY3sfzyxqx（非戶主3）有效期限QRDBRichText9ADOHZhshyqwhd（戶主）何時(shí)何因遷往何地QRDBRichTextlOADOCY1hshyqwhd（非戶主1）何時(shí)何因遷往何地QRDBR

49、ichTextllADOCY2hshyqwhd（非戶主2）何時(shí)何因遷往何地QRDBRichText12ADOCY3hshyqwhd（非戶主3）何時(shí)何因遷往何地QRDBRichText13ADOHZxxbgjz（戶主）事項(xiàng)變更更正記載QRDBRichText14ADOCY1xxbgjz（非戶主1）事項(xiàng)變更更正記載QRDBRichText15ADOCY2xxbgjz（非戶主2）事項(xiàng)變更更正記載QRDBRichText16ADOCY3xxbgjz（非戶主3）事項(xiàng)變更更正記載（三）、編譯與運(yùn)行系統(tǒng)設(shè)計(jì)完成后，保存所有工程的庫單元文件和工程文件后，通過DELPHI提供的工程編譯功能，就可以完成編譯工作。

50、完成工程的編輯后，使用DELPHI提供的RUN命令即可以運(yùn)行該程序，也可以直接在WINDOWS環(huán)境下，直接調(diào)用可執(zhí)行文件population.exe便可。六、系統(tǒng)評價(jià)與改進(jìn)設(shè)想（一）、系統(tǒng)的總體評價(jià)首先，這次進(jìn)行開發(fā)的是一種關(guān)于人口管理的系統(tǒng)，我認(rèn)為這個(gè)管理系統(tǒng)比較適合現(xiàn)代社會(huì)發(fā)展的需求。它可以針對現(xiàn)在街道居委人口信息進(jìn)行集中式的管理與記錄，其靈活性、針對性與實(shí)用性都較高。其次，該系統(tǒng)軟件非常容易被接受，其外表易于理解、操作簡單、界面友好、所占空間少、方便實(shí)用，它能對街道居委會(huì)人口信息進(jìn)行科學(xué)管理，也能非常及時(shí)地對人口信息數(shù)據(jù)的更新，以確保人口信息記錄的準(zhǔn)確性。這個(gè)管理系統(tǒng)的快速查詢功能可以讓

51、使用者在最短時(shí)間內(nèi)得到想要查詢的人口信息，掌握最新的人口信息情況。（二）、開發(fā)過程的體會(huì)在這次對人口管理系統(tǒng)的投入開發(fā)過程中，我利用所學(xué)數(shù)據(jù)庫基礎(chǔ)與應(yīng)用、軟件開發(fā)與環(huán)境、計(jì)算機(jī)信息基礎(chǔ)等方面的知識(shí)，并加以DELPHI編程軟件的使用，對系統(tǒng)的人口信息管理進(jìn)行了設(shè)計(jì)、分析和實(shí)際運(yùn)用編程，把所有在校所學(xué)知識(shí)都運(yùn)用到本次開發(fā)工作中，對本次人口管理系統(tǒng)的開發(fā)提供了強(qiáng)有力的基礎(chǔ)，同時(shí)也為我即將畢業(yè)走向社會(huì)作了一次很好的“社會(huì)實(shí)踐”。通過本次畢業(yè)設(shè)計(jì)，我體會(huì)到一個(gè)軟件從它的構(gòu)思到設(shè)計(jì)再到調(diào)試工作，都需要付出大量心思，同時(shí)也要耗上大量時(shí)間。另外通過自己親自投身這次畢業(yè)設(shè)計(jì)開發(fā)工作，使我更加認(rèn)識(shí)到反對盜版軟件，

52、支持正版，尊重開發(fā)人員的知識(shí)產(chǎn)權(quán)的重要性。參考文獻(xiàn)作者宋坤、鄒天思，Delphi數(shù)據(jù)庫系統(tǒng)開發(fā)完全手冊人民郵電出版社2006年3月版作者東方人華、呂偉臣，Delphi7入門與提高，清華大學(xué)出版社2004年版作者前沿科技、于忠達(dá)、咸鶴群，新手學(xué)Delphi30例，人民郵電出版社2004-09版作者王利，數(shù)據(jù)庫基礎(chǔ)與應(yīng)用，中央廣播電視大學(xué)出版社1997年版作者張立科，數(shù)據(jù)庫開發(fā)技術(shù)與工程實(shí)踐，人民郵電出版社2004年版作者何旭洪，數(shù)據(jù)庫系統(tǒng)開發(fā)導(dǎo)航，人民郵電出版社2003年版附錄：應(yīng)用程序部分源程序代碼unitmain;interfaceusesWindows,Messages,SysUtils,

53、Variants,Classes,Graphics,Controls,Forms,Dialogs,Menus,WinSkinData,ADODB,ComCtrls,ToolWin,ImgList,ExtCtrls,jpeg;typeTFrmMain=class(TForm)MainMenu1:TMainMenu;N1:TMenuItem;N2:TMenuItem;N4:TMenuItem;N5:TMenuItem;N6:TMenuItem;N7:TMenuItem;N8:TMenuItem;SkinData1:TSkinData;N12:TMenuItem;N13:TMenuItem;Stat

54、usBar1:TStatusBar;ToolBar1:TToolBar;ToolButton1:TToolButton;ToolButton2:TToolButton;ToolButton3:TToolButton;ImageList1:TImageList;N11:TMenuItem;N14:TMenuItem;N15:TMenuItem;ToolButton4:TToolButton;ToolButton5:TToolButton;Image1:TImage;procedureN12Click(Sender:TObject);procedureFormShow(Sender:TObject

55、);procedureN13Click(Sender:TObject);procedureFormCreate(Sender:TObject);procedureN6Click(Sender:TObject);procedureN7Click(Sender:TObject);procedureN8Click(Sender:TObject);procedureN11Click(Sender:TObject);procedureN14Click(Sender:TObject);procedureN15Click(Sender:TObject);privatePrivatedeclarationsp

56、ublicPublicdeclarationsConstr,SystemPath,CurUser,CurCzyName:string;functionDisKey(Msg1:string;DisKeyNo:integer):string;functionEnKey(Msg1:string;EnKeyNo:integer):string;ProcedureCreateForm(Tfrm:TComponentClass;varfrm);ProcedureCloseForm(Sender:TObject;varAction:TCloseAction);ProcedureAutoSize(mycon:

57、Tcontrol;fwidth,fheight:integer);end;varFrmMain:TFrmMain;implementationuseslogin,dmu,rkdj,Ggwh,cx,adduser,deluser,Pwd;$R*.dfmprocedureTFrmMain.N12Click(Sender:TObject);beginifapplication.MessageBox(你要退出系統(tǒng)嗎？,退出系統(tǒng)確認(rèn),Mb_OKCancel+MB_DefButton2+MB_IconQuestion+MB_SystemModal)=IdOkthenbeginself.Close;appl

58、ication.Terminate;end;end;procedureTFrmMain.FormShow(Sender:TObject);beginfrmLogin:=TFrmLogin.create(self);iffrmLogin.ShowModal=mrokthenbeginfrmlogin.Close;frmlogin.Free;StatusBarl.PanelsO.Text:=當(dāng)前操作員：+curCzyName;StatusBarl.Panelsl.Text:=今天：+FormatDateTime(yyyy年mm月dd日,date();/imagel.Picture.LoadFrom

59、File(imagebj.jpg);Self.Showendelsebeginfrmlogin.Close;frmlogin.Free;Self.Close;Application.Terminate;end;end;procedureTFrmMain.N13Click(Sender:TObject);varparaStr,IniStr:WideString;strList:TStringList;beginstrList:=TStringList.Create;iffileExists(system.ini)thenbeginstrList:=TStringList.Create;strli

60、st.LoadFromFile(system.ini);iniStr:=DisKey(trim(strlist.Text),5);end;ParaStr:=promptDataSource(Application.Handle,IniStr);constr:=ParaStr;ifdm.adoc.Connectedthendm.adoc.Close;dm.ADOC.ConnectionString:=constr;trydm.adoc.Connected:=true;exceptonE:exceptiondobeginshowmessage(數(shù)據(jù)庫連接錯(cuò)誤！錯(cuò)誤信息：+e.Message+請配置