檔案管理系統(tǒng)設(shè)計(jì)說(shuō)明書.docx

1、管理信息系統(tǒng)課程設(shè)計(jì)人事檔案管理沈陽(yáng)理工大學(xué)工業(yè)工程李阜濤2011/6/4企業(yè)檔案管理信息系統(tǒng)設(shè)計(jì)摘要信息是管理是一項(xiàng)極為重要的資源,管理工作的成敗取決于能否做出有效的決策,而決策的正確程度則在很大程度上取決于信息得質(zhì)量。所以能否有效的管理信息成為企業(yè)的首要問(wèn)題,管理信息系統(tǒng)MIS在強(qiáng)調(diào)管理、信息的現(xiàn)代社會(huì)中越來(lái)越得到普及。企業(yè)信息管理通常是比較復(fù)雜,由于各類信息繁多難歸集,利用計(jì)算機(jī)支持企業(yè)高效率完成企業(yè)信息管理,是適應(yīng)現(xiàn)代企業(yè)制度要求,推動(dòng)企業(yè)信息管理走向科學(xué)化、社會(huì)化、規(guī)范化和自動(dòng)化,從而提高企業(yè)信息管理效率。本系統(tǒng)選用Visual Basic 6.0軟件作為開(kāi)發(fā)工具,Visual Ba

2、sic 是一種高效的客戶/服務(wù)器模式以及分布式數(shù)據(jù)庫(kù)應(yīng)用程序的前端開(kāi)發(fā)工具。利用此軟件完成了企業(yè)檔案信息管理系統(tǒng)的員工檔案信息管理功能,同時(shí)具備了管理員設(shè)置模塊、查詢模塊、增添模塊、刪除模塊、修改模塊、統(tǒng)計(jì)模塊,輸出模塊等。本系統(tǒng)的開(kāi)發(fā)基本滿足企業(yè)檔案信息管理的要求,用戶界面友好,提供的信息豐富準(zhǔn)確,使管理工作的各環(huán)節(jié)能夠順利而有效的進(jìn)行,具有良好的實(shí)用價(jià)值和可觀的發(fā)展前景,極大的提高了企業(yè)信息管理的效率,是企業(yè)的科學(xué)化、規(guī)范化管理、自動(dòng)化的重要前提條件。關(guān)鍵詞:管理信息系統(tǒng)MIS ,Visual Basic 6.0 ,檔案管理數(shù)據(jù)庫(kù)(Microsoft Office Access 2003一

3、、應(yīng)用背景管理信息系統(tǒng)起初應(yīng)用于最基礎(chǔ)的工作,如打印報(bào)表、計(jì)算工資、人事管理等,進(jìn)而發(fā)展到企業(yè)財(cái)務(wù)管理、庫(kù)存管理等單項(xiàng)業(yè)務(wù)管理,這屬于電子數(shù)據(jù)處理(EDP,Electronic Data Processing系統(tǒng)。當(dāng)建立了企業(yè)數(shù)據(jù)庫(kù),有了計(jì)算機(jī)網(wǎng)絡(luò)從而達(dá)到數(shù)據(jù)共享后,從系統(tǒng)觀點(diǎn)出發(fā),實(shí)施全局規(guī)劃和設(shè)計(jì)信息系統(tǒng)時(shí),就達(dá)到管理信息系統(tǒng)的階段。隨著計(jì)算機(jī)技術(shù)的進(jìn)步和人們對(duì)系統(tǒng)的需求進(jìn)一步提高,人們更加強(qiáng)調(diào)管理信息系統(tǒng)能否支持企業(yè)高層領(lǐng)導(dǎo)的決策這一功能,更側(cè)重于企業(yè)外部信息的收集、綜合數(shù)據(jù)庫(kù)、模型庫(kù)、方法庫(kù)和其他人工智能工具能否直接面向決策者,這是決策支持系統(tǒng)(DSS,Decision Support

4、 System的任務(wù)。我國(guó)20世紀(jì)70年代末有少數(shù)企業(yè)開(kāi)始MIS的局部應(yīng)用?！傲濉逼陂g,選擇一些大型企業(yè)進(jìn)行MIS的開(kāi)發(fā)試點(diǎn),其中首都鋼鐵公司、北京第一棉紡廠、湖北第二汽車制造廠、寧江機(jī)床廠等取得了經(jīng)驗(yàn)。20世紀(jì)80年代中后期,在全國(guó)性的計(jì)算機(jī)應(yīng)用熱潮中,許多企業(yè)紛紛從財(cái)務(wù)管理、人事管理等單項(xiàng)應(yīng)用入手,嘗試建立MIS。許多企業(yè),如北京內(nèi)燃機(jī)廠、北京電視機(jī)廠、沈陽(yáng)鼓風(fēng)機(jī)廠、天津渤海無(wú)線電廠的MIS初具規(guī)模,建立了覆蓋全廠的計(jì)算機(jī)網(wǎng)絡(luò)。“八五”期間,企業(yè)逐步走向市場(chǎng),MIS建設(shè)的目標(biāo)和需求日益明確。一些企業(yè)的系統(tǒng),如北京第一機(jī)床廠、山西經(jīng)緯紡織機(jī)械廠、成都飛機(jī)制造公司等都達(dá)到了很高水平,與企業(yè)中

5、其他系統(tǒng)集成,形成了CIMS。目前,我國(guó)MIS已經(jīng)有了相當(dāng)?shù)钠占奥?幾乎覆蓋了各個(gè)行業(yè)及各個(gè)部門。有了以上應(yīng)用的基礎(chǔ),根據(jù)當(dāng)前企業(yè)的現(xiàn)狀與需求,特別建立了適合企業(yè)的檔案管理體統(tǒng),為企業(yè)提供高效的管理功能。二、系統(tǒng)可行性分析系統(tǒng)分析(又稱邏輯設(shè)計(jì)是管理信息系統(tǒng)開(kāi)發(fā)的關(guān)鍵環(huán)節(jié),要求在系統(tǒng)調(diào)查的基礎(chǔ)上,對(duì)新系統(tǒng)的功能進(jìn)行細(xì)致的分析,并建立一個(gè)新系統(tǒng)的邏輯模型。新系統(tǒng)的邏輯模型由系統(tǒng)數(shù)據(jù)流程圖、概況表、數(shù)據(jù)字典、吃理邏輯表達(dá)式及有關(guān)說(shuō)明組成。最后要完成系統(tǒng)分析報(bào)告(也稱為系統(tǒng)邏輯設(shè)計(jì)說(shuō)明書。在系統(tǒng)設(shè)計(jì)階段要做認(rèn)真、細(xì)致的分析、研究工作,避免新系統(tǒng)在功能上存在先天不足或缺陷。因?yàn)樾孪到y(tǒng)模型是建立在對(duì)現(xiàn)行

6、系統(tǒng)的分析及要求的基礎(chǔ)上的,所以系統(tǒng)調(diào)查工作要進(jìn)行得深入、細(xì)致、全面。用戶可以對(duì)新系統(tǒng)的邏輯模型提出意見(jiàn),雙方經(jīng)過(guò)討論、修改,最后達(dá)成共識(shí),并完成系統(tǒng)分析報(bào)告(系統(tǒng)邏輯設(shè)計(jì)說(shuō)明書,經(jīng)有關(guān)領(lǐng)導(dǎo)審批通過(guò)之后,轉(zhuǎn)入系統(tǒng)設(shè)計(jì)(又稱系統(tǒng)物理設(shè)計(jì)階段。通過(guò)對(duì)相關(guān)企業(yè)的調(diào)查,企業(yè)檔案管理系統(tǒng)要完成的功能主要有:1.檔案管理主要完成對(duì)員工檔案的查詢、增加、修改或刪除。2.檔案管理還要完成對(duì)部門檔案的查詢,員工花名冊(cè)的打印。3.檔案管理系統(tǒng)要能夠統(tǒng)計(jì)滿足任一條件的人數(shù),如文化程度、政治面貌和年齡等。由于在企業(yè)中,從領(lǐng)導(dǎo)到管理人員的的業(yè)務(wù)認(rèn)識(shí)是一致的,而且該企業(yè)有良好的管理基礎(chǔ),企業(yè)的經(jīng)濟(jì)效益良好,對(duì)建立系統(tǒng)的費(fèi)

7、用有能力支出,因而在建立系統(tǒng)的管理上、技術(shù)上和經(jīng)濟(jì)上都是可行的。三、系統(tǒng)分析1、組織結(jié)構(gòu)了解清楚對(duì)象系統(tǒng)內(nèi)部各種組織機(jī)構(gòu),向系統(tǒng)分析人員進(jìn)一步明確調(diào)查對(duì)象和方向。通過(guò)調(diào)查可得一般企業(yè)組織結(jié)構(gòu)圖如下:企業(yè)組織結(jié)構(gòu)圖總經(jīng)理 企劃部 銷售部 生產(chǎn)部 科研部 財(cái)務(wù)部 人事部 行政文員 采購(gòu)科 生產(chǎn)科 調(diào)度科 產(chǎn)品設(shè)計(jì)科 研發(fā)科 企業(yè)規(guī)劃科 廠房設(shè)計(jì)科 會(huì)計(jì)科 檔案科 廣告科 外聯(lián)科 銷售科 財(cái)務(wù)科 招聘科 績(jī)效管理科2、業(yè)務(wù)流程業(yè)務(wù)流程圖體現(xiàn)了信息的流動(dòng)過(guò)程,調(diào)查管理業(yè)務(wù)流程時(shí)應(yīng)順著原系統(tǒng)流動(dòng)的過(guò)程逐步進(jìn)行。通過(guò)對(duì)企業(yè)管理業(yè)務(wù)的實(shí)際調(diào)查分析,弄清了該企業(yè)檔案管理工作的業(yè)務(wù)流程和管理功能,系統(tǒng)的檔案管理

8、業(yè)務(wù)流程如下圖所示:企業(yè)檔案管理業(yè)務(wù)流程圖從業(yè)務(wù)流程圖可以看出該企業(yè)的檔案管理主要有以下幾項(xiàng)功能:一、檔案單審核,人事部的審核員負(fù)責(zé)對(duì)入職員工所填的檔案單進(jìn)行審核,檢查檔案單填寫的是否符合要求,檔案的信息是否真實(shí)。不合格的檔案單交由人事部返還給員工重新填寫,合格的檔案單轉(zhuǎn)給檔案室進(jìn)行檔案存儲(chǔ)。二、登錄檔案存儲(chǔ)臺(tái)賬,管理員依據(jù)合格的檔案單登記檔案存儲(chǔ)臺(tái)賬,記錄每一筆檔案業(yè)務(wù)。員工員工入職檔案登記表 人事部 與員工簽訂合同 審核員 不合格員工入職檔案表 合格員工 檔案單 任職通知 相關(guān)部門 檔案存儲(chǔ)臺(tái)賬檔案信息查詢及管理三、檔案信息查詢及管理,管理員根據(jù)企業(yè)要求對(duì)檔案的信息進(jìn)行維護(hù)和日常管理(包括

9、添加,刪除,更改,查詢,人數(shù)統(tǒng)計(jì),部門花名冊(cè)打印等功能。3、數(shù)據(jù)流程圖根據(jù)檔案管理的業(yè)務(wù)流程圖和相關(guān)功能得出檔案管理的數(shù)據(jù)流程圖如下圖所示: 檔案單 合格檔案單 不合格 檔案單入檔數(shù)據(jù) 查詢查詢檔案存儲(chǔ)檔案數(shù)據(jù)查詢 查詢出檔數(shù)據(jù) 查詢離職單 合格離職單 不合格離職單檔案管理數(shù)據(jù)流程圖4、數(shù)據(jù)字典根據(jù)數(shù)據(jù)流程圖對(duì)圖中的各個(gè)元素做出如下說(shuō)明:4.1數(shù)據(jù)項(xiàng)(檔案單錄入為例數(shù)據(jù)項(xiàng)編號(hào):I01 01數(shù)據(jù)項(xiàng)名稱:員工編號(hào)簡(jiǎn) 述:某員工的代碼員工 檔案單審核 入檔 處理 員工 離檔 處理 離職單審核 檔案統(tǒng)計(jì)輸出 檔案維護(hù)處理 檔案錄入 檔案查詢類型及寬度:字符串型、10位取值范圍:“0000000000”

10、“9999999999”4.2數(shù)據(jù)結(jié)構(gòu)數(shù)據(jù)結(jié)構(gòu)編號(hào):B0101數(shù)據(jù)結(jié)構(gòu)名稱:員工信息表簡(jiǎn)述:員工入職所填檔案情況數(shù)據(jù)結(jié)構(gòu)組成:員工編號(hào)+姓名+性別+出生年月日+部門+學(xué)歷+政治面貌+職位+職稱+聯(lián)系電話+聯(lián)系地址+當(dāng)前狀態(tài)4.3數(shù)據(jù)流數(shù)據(jù)流編號(hào):C0101數(shù)據(jù)流名稱:檔案單簡(jiǎn)述:新入職員工填寫的入職檔案登記表數(shù)據(jù)流來(lái)源:員工數(shù)據(jù)流去向:檔案單審核模塊數(shù)據(jù)流組成:姓名+性別+出生年月日+部門+學(xué)歷+政治面貌+職位+職稱+聯(lián)系電話+聯(lián)系地址數(shù)據(jù)流量:約10張/日高峰流量:約20張/日數(shù)據(jù)流編號(hào):C0102數(shù)據(jù)流名稱:合格檔案單簡(jiǎn)述:經(jīng)審核合格的員工檔案登記單數(shù)據(jù)流來(lái)源:檔案單審核模塊數(shù)據(jù)流去向:檔

11、案單處理模塊數(shù)據(jù)流組成:姓名+性別+出生年月日+部門+學(xué)歷+政治面貌+職位+職稱+聯(lián)系電話+聯(lián)系地址數(shù)據(jù)流量:約10張/日高峰流量:約20張/日數(shù)據(jù)流編號(hào):C0103數(shù)據(jù)流名稱:不合格檔案單簡(jiǎn)述:經(jīng)審核不合格的員工檔案登記單數(shù)據(jù)流來(lái)源:檔案單審核模塊數(shù)據(jù)流去向:員工數(shù)據(jù)流組成:姓名+性別+出生年月日+部門+學(xué)歷+政治面貌+職位+職稱+聯(lián)系電話+聯(lián)系地址數(shù)據(jù)流量:約1張/日高峰流量:約1張/日4.4處理邏輯處理邏輯編號(hào):P0101處理邏輯名稱:檔案單審核簡(jiǎn)述:審核員工送來(lái)的檔案登記單是否合格輸入的數(shù)據(jù)流:檔案單處理描述:檢查員工送來(lái)的檔案單是否符合要求,信息是否與簡(jiǎn)歷及真實(shí)情況一致,不合格的返還

12、給員工叫其重新填寫,合格的檔案單送到人事部讓檔案室登記檔案存儲(chǔ)。輸出的數(shù)據(jù)流:合格檔案單、不合格的檔案單處理頻率:約10次/日處理邏輯編號(hào):P0102處理邏輯名稱:入檔處理簡(jiǎn)述:根據(jù)合格檔案單,將入檔數(shù)據(jù)記入檔案存儲(chǔ)輸入的數(shù)據(jù)流:合格的檔案單處理描述:根據(jù)合格的檔案單,將入檔數(shù)據(jù)記入檔案存儲(chǔ)。輸出的數(shù)據(jù)流:入檔數(shù)據(jù)處理頻率:約10次/日4.5數(shù)據(jù)存儲(chǔ)數(shù)據(jù)存儲(chǔ)編號(hào):F0101數(shù)據(jù)存儲(chǔ)名稱:檔案存儲(chǔ)簡(jiǎn)述:記錄員工入檔數(shù)據(jù)的信息數(shù)據(jù)存儲(chǔ)組成:員工編號(hào)+姓名+性別+出生年月日+部門+學(xué)歷+政治面貌+職位+職稱+聯(lián)系電話+聯(lián)系地址+當(dāng)前狀態(tài)關(guān)鍵字:員工編號(hào)相關(guān)聯(lián)的處理:P01 01,P01 02 4.6

13、外部實(shí)體外部實(shí)體編號(hào):S01 01 外部實(shí)體名稱:人員 簡(jiǎn)述:新員工入職輸入數(shù)據(jù)流程:C01 03 輸出數(shù)據(jù)流程:C01 02四、系統(tǒng)設(shè)計(jì)4.1系統(tǒng)功能設(shè)計(jì)檔案系統(tǒng)功能設(shè)計(jì)是以檔案的業(yè)務(wù)流程和數(shù)據(jù)流程為依據(jù)的。根據(jù)檔案管理系統(tǒng)的業(yè)務(wù)流程和數(shù)據(jù)流程,可得出檔案管理系統(tǒng)的具體功能如下圖所示:檔案管理系統(tǒng)功能模塊圖檔案信息管理系統(tǒng)用戶管理 檔案管理系統(tǒng)用戶設(shè)置 檔案錄入 檔案維護(hù) 檔案查詢檔案輸出 檔案統(tǒng)計(jì) 重新登錄 關(guān)于退出系統(tǒng)4.2系統(tǒng)運(yùn)行環(huán)境與數(shù)據(jù)庫(kù)設(shè)計(jì)基于當(dāng)前信息和經(jīng)濟(jì)的發(fā)展趨勢(shì)和企業(yè)的辦公化自動(dòng)成度,綜合考慮各方面因素后系統(tǒng)的運(yùn)行環(huán)境設(shè)計(jì)為在Windows XP平臺(tái)下運(yùn)行,程序的設(shè)計(jì)語(yǔ)言為

14、Visual Basic 6.0企業(yè)版。數(shù)據(jù)庫(kù)為Microsoft Office Access 2003版本。系統(tǒng)的硬件要求為PC機(jī),256M以上內(nèi)存,320G以上硬盤。4.3代碼設(shè)計(jì)基于系統(tǒng)的運(yùn)行環(huán)境,根據(jù)系統(tǒng)分析,設(shè)計(jì)了2個(gè)數(shù)據(jù)表文件,它們的具體結(jié)構(gòu)及說(shuō)明如下:字段名稱數(shù)據(jù)類型字段含義寬度是否為空Name 文本用戶名10 Not NULLPwd 文本密碼10 Not NULL字段名稱數(shù)據(jù)類型寬度是否為空員工編號(hào)文本10 Not NULL姓名文本10 Not NULL性別文本 2 NULL出生年月日日期/時(shí)間12 Not NULL部門文本8 Not NULL學(xué)歷文本 4 NULL政治面貌文本

15、 4 NULL職位文本10 NULL職稱文本 4 NULL聯(lián)系電話文本12 NULL聯(lián)系地址文本50 NULL當(dāng)前狀態(tài)文本 4 NULL4.4輸入輸出設(shè)計(jì)在系統(tǒng)的輸入/輸出設(shè)計(jì)上遵循的是既滿足用戶需求又方便用戶使用的原則。輸入界面的設(shè)計(jì)不僅考慮數(shù)據(jù)輸入窗口的格式,而且考慮如何使輸入數(shù)據(jù)的錯(cuò)誤率盡可能小,為此在程序中加入了對(duì)數(shù)據(jù)的校驗(yàn)和判斷等功能。界面的輸出要求在屏幕上顯示,并能對(duì)部門員工的花名冊(cè)進(jìn)行Excel表格導(dǎo)出,為此在程序中加入導(dǎo)出程序。4.5數(shù)據(jù)庫(kù)設(shè)計(jì)本系統(tǒng)的數(shù)據(jù)庫(kù)采用Microsoft Office Access 2003,并用采用ADOC對(duì)象模型訪問(wèn)數(shù)據(jù)庫(kù),且使用Recordest

16、對(duì)象操作記錄。五、系統(tǒng)實(shí)施5.1系統(tǒng)登錄界面的代碼及設(shè)計(jì) 當(dāng)運(yùn)行此軟件時(shí)出現(xiàn)如上圖所示的登錄對(duì)話框,相關(guān)屬性如下表:控件屬性屬性取值Frame text 請(qǐng)輸入用戶名和密碼Label1 text 用戶名:Label2 text 密碼:Text1 user 選中Text2 pwd 選中CmdOK text 確定CmdCancel text 取消在CmdOK控件的Click事件中輸入如下的程序代碼:Private Sub cmdOK_Click(Dim user As String, pwd As Stringuser = txtUser.Textpwd = TxtPwd.TextAdodc1.C

17、ommandType = adCmdTextstrSQL = "Select * from 管理員密碼表Where Name='" & Trim(user & "'" + " AND pwd='" & Trim(pwd & " '"Adodc1.RecordSource = strSQLAdodc1.RefreshMsgBox "無(wú)此用戶名或密碼不正確!請(qǐng)重新輸入!"ElseMsgBox "登錄成功!"MDIFo

18、rm1.ShowUnload MeEnd IfEnd Sub在CmdCancel控件的Click事件中輸入如下的程序代碼:Private Sub cmdCancel_Click(EndEnd Sub5.2系統(tǒng)主界面的代碼及設(shè)計(jì)在Visual Basic 的工具欄中單擊“工具”下的“菜單編輯器”按照下表添加菜單相關(guān)項(xiàng)并設(shè)置相關(guān)屬性。對(duì)象屬性屬性值一級(jí)菜單“用戶管理”標(biāo)題用戶管理“用戶管理”的二級(jí)菜單標(biāo)題用戶設(shè)置(mnuYH一級(jí)菜單“檔案管理”標(biāo)題檔案管理“檔案管理”的二級(jí)菜單標(biāo)題檔案錄入(mnuLR“檔案管理”的二級(jí)菜單標(biāo)題檔案查詢(mnuCX“檔案管理”的二級(jí)菜單標(biāo)題檔案統(tǒng)計(jì)(mnuTJ“檔案

19、管理”的二級(jí)菜單標(biāo)題檔案維護(hù)(mnuWH“檔案管理”的二級(jí)菜單標(biāo)題檔案輸出(mnuSC一級(jí)菜單“系統(tǒng)”標(biāo)題系統(tǒng)“系統(tǒng)”的二級(jí)菜單標(biāo)題重新登錄(mnuLog“系統(tǒng)”的二級(jí)菜單標(biāo)題退出系統(tǒng)(mnuExit“系統(tǒng)”的二級(jí)菜單標(biāo)題關(guān)于系統(tǒng)(mnuAbout相關(guān)菜單代碼:Private Sub MDIForm_Load(End SubPrivate Sub mnuAbout_Click(frmSplash.ShowEnd SubPrivate Sub mnuCX_Click(FormCX.ShowEnd SubPrivate Sub mnuExit_Click(Unload MeEnd SubPriva

20、te Sub mnuLog_Click(Unload MeFormLog.ShowEnd SubPrivate Sub mnuLR_Click(FormLR.ShowEnd SubPrivate Sub mnuSC_Click(FormSC.ShowEnd SubPrivate Sub mnuTJ_Click(FormTJ.ShowEnd SubPrivate Sub mnuWH_Click(FormWH.ShowEnd SubPrivate Sub mnuYH_Click(FormYHGL.ShowEnd Sub (1從Toolbox工具箱中拖動(dòng)StatusBar控件到FrmMain窗口上。

21、(2用鼠標(biāo)右擊StatusBar控件,選擇“屬性”菜單項(xiàng)。(3在彈出對(duì)話框中,切換到“窗體”選項(xiàng)卡,索引1的窗格文本設(shè)置為“檔案管理信息系統(tǒng)”,最小寬度設(shè)置為2700.85,對(duì)齊方式為sbrLeft。(4單擊“插入窗格”按鈕,索引設(shè)置為2的窗格文本設(shè)置為“作者:李阜濤”,最小寬度設(shè)置為2099.90,對(duì)齊方式為sbrLeft。(5單擊“插入窗格”按鈕,將索引為3的窗格的自動(dòng)調(diào)整大小設(shè)置為sbrSpring。(6單擊“插入窗格”按鈕,將索引為4的窗格寬度設(shè)置為1800.00,對(duì)齊方式為sbLeft,樣式設(shè)置為sbrDate。(6單擊“插入窗格”按鈕,將索引為4的窗格寬度設(shè)置為1400.31,對(duì)齊

22、方式為sbRight,樣式設(shè)置為sbrTime。5.3用戶設(shè)置的代碼及設(shè)計(jì)單擊用戶管理下的二級(jí)菜單,用戶設(shè)置出現(xiàn)如下對(duì)話框: 次對(duì)話框控件的相關(guān)屬性如下表:控件屬性屬性取值Frame1 text 查找Frame2 text 用戶管理Label1 text 用戶名Label2 text 用戶名Label3 text 密碼Text1 text 選中Text2 text 選中Text3 text 選中Command1 text 確定Command2 text 添加Command3 text 刪除Command4 text 更新Command5 text 刪除初始化窗體Click事件中輸入如下的程序代

23、碼:Private Sub Form_Load(Text1.Text = ""Text2.Text = ""Text3.Text = ""End Sub在Command1控件的Click事件中輸入如下的程序代碼: Private Sub Command1_Click(If Len(Text1.Text > 0 ThenAdodc1.CommandType = adCmdTextAdodc1.RecordSource = "select * from 管理員密碼表Where Name= '" &

24、 Trim(Text1.Text & "'"Adodc1.RefreshMsgBox "沒(méi)有找到你要的相關(guān)記錄,請(qǐng)重新輸入!"Text1.Text = ""ElseCommand2.Enabled = FalseEnd IfElseMsgBox ("請(qǐng)指定要查找的員工編號(hào)"End IfEnd Sub在Command2控件的Click事件中輸入如下的程序代碼:Private Sub Command2_Click(If Len(Text2.Text > 0 ThenIf Len(Text3.Tex

25、t > 0 ThenAdodc1.CommandType = adCmdTextAdodc1.RecordSource = "select * from 管理員密碼表"MsgBox "添加成功"End IfElseMsgBox ("請(qǐng)輸入用戶密碼!"End IfElseMsgBox ("請(qǐng)輸入用戶名!"End IfEnd Sub在Command3控件的Click事件中輸入如下的程序代碼:Private Sub Command3_Click(Dim key As IntegerIf Len(Text2.Text

26、 > 0 And Len(Text2.Text > 0 Thenkey = MsgBox("真的要?jiǎng)h除 " & Trim(Text2.Text & " 的基本信息嗎?", vbExclamation + vbYesNo + vbDefaultButton3If key = vbYes ThenMsgBox ("您的信息已成功刪除"End IfEnd IfElseMsgBox ("請(qǐng)先查找信息"End IfCommand2.Enabled = TrueText1.Text = "

27、"Text2.Text = ""Text3.Text = ""End Sub在Command4控件的Click事件中輸入如下的程序代碼: Private Sub Command4_Click(If Len(Text2.Text > 0 And Len(Text2.Text > 0 ThenAdodc1.CommandType = adCmdTextAdodc1.RecordSource = "select * from 管理員密碼表"MsgBox ("您更改的信息已經(jīng)更新"ElseMsgBox

28、 ("請(qǐng)先查找信息"End IfCommand2.Enabled = TrueText1.Text = ""Text2.Text = ""Text3.Text = ""End Sub在Command5控件的Click事件中輸入如下的程序代碼:Private Sub Command5_Click(FormYHGL.HideMDIForm1.ShowEnd Sub5.4檔案錄入的代碼及設(shè)計(jì)單擊檔案管理下的二級(jí)菜單,檔案錄入出現(xiàn)如下對(duì)話框: 次對(duì)話框控件的相關(guān)屬性如下表:控件屬性屬性值Label1 text 員工編號(hào)La

29、bel2 text 性別Label3 text 姓名Label4 text 出生年月Label5 text 部門Label6 text 職位Label7 text 政治面貌Label8 text 職稱Label9 text 學(xué)歷Label10 text 聯(lián)系電話Label11 text 聯(lián)系地址Label12 text 當(dāng)前狀態(tài)Text1 text 選中Text2 text 選中Text3 text 選中Text4 text 選中Text5 text 選中Combo1 text 選中Combo2 text 選中Combo3 text 選中Combo4 text 選中Combo5 text 選中

30、Combo6 text 選中Combo7 text 選中Command1 text 保存Command2 text 取消在Command1控件的Click事件中輸入如下的程序代碼: Private Sub Command1_Click(If Len(Text1.Text > 0 ThenIf Len(Text2.Text > 0 ThenIf Len(Combo2.Text > 0 ThenIf Len(Text3.Text > 0 ThenAdodc1.CommandType = adCmdTextAdodc1.RecordSource = "select

31、* from 員工信息表"MsgBox "添加成功"End IfElseMsgBox ("請(qǐng)先輸入員的出生年月日!"End IfElseMsgBox ("請(qǐng)先輸入員所在部門!"End IfElseMsgBox ("請(qǐng)先輸入員工的姓名!"End IfElseMsgBox ("請(qǐng)先輸入員工編碼!"End IfEnd Sub在Command2控件的Click事件中輸入如下的程序代碼: Private Sub Command2_Click(MDIForm1.ShowFormLR.HideEnd

32、 Sub5.5檔案查詢的代碼及設(shè)計(jì)單擊檔案管理下的二級(jí)菜單,檔案查詢出現(xiàn)如下對(duì)話框: 設(shè)置次對(duì)話框的相關(guān)屬性如下表:控件屬性屬性值Label1 text 查詢內(nèi)容Label2 text 查詢值Combo1 text 選中Text1 text 選中Command1 text 查找Command2 text 取消在Command1控件的Click事件中輸入如下的程序代碼: Private Sub Command1_Click(Dim key, keyValue As Stringkey = Combo1.TextkeyValue = Text1.TextIf Len(Combo1.Text >

33、; 0 ThenIf Len(Text1.Text > 0 ThenIf key = "姓名" Or key = "部門" ThenElseIf key = "員工編號(hào)" Then 'MsgBox "沒(méi)有找到你要的相關(guān)記錄,請(qǐng)重新輸入!"End IfEnd IfElseMsgBox ("請(qǐng)輸入查詢值"End IfElseMsgBox ("請(qǐng)輸入查詢內(nèi)容"End IfCombo1 = ""Text1 = ""End Sub在

34、Command2控件的Click事件中輸入如下的程序代碼: Private Sub Command2_Click(MDIForm1.ShowFormCX.HideEnd Sub5.6檔案維護(hù)的代碼及設(shè)計(jì)單擊檔案管理下的二級(jí)菜單,檔案維護(hù)出現(xiàn)如下對(duì)話框: 設(shè)置次對(duì)話框的相關(guān)屬性(主要屬性如下表:控件屬性屬性值Frame1 text 查詢Frame2 text 詳細(xì)信息Command1 text 查找Command2 text 更新Command3 text 刪除Command3 text 取消在Command1控件的Click事件中輸入如下的程序代碼:Private Sub Command1_C

35、lick(If Len(Text7.Text > 0 ThenAdodc1.CommandType = adCmdTextAdodc1.RecordSource = "select * from 員工信息表Where 員工編號(hào)= '" & Trim(Text7.Text & "'"Adodc1.RefreshMsgBox "沒(méi)有找到你要的相關(guān)記錄,請(qǐng)重新輸入!"Text7.Text = ""End IfElseMsgBox ("請(qǐng)指定要查找的員工編號(hào)"End

36、 IfEnd Sub在Command2控件的Click事件中輸入如下的程序代碼:Private Sub Command2_Click(If Len(Text1.Text > 0 ThenAdodc1.CommandType = adCmdTextAdodc1.RecordSource = "select * from 員工信息表"MsgBox ("您更改的信息已經(jīng)更新"ElseMsgBox ("請(qǐng)先查找要更新的信息!"End IfText1.Text = ""Text6.Text = ""

37、Text3.Text = ""Text4.Text = ""Text5.Text = ""Text7.Text = ""Combo1.Text = ""Combo2.Text = ""Combo3.Text = ""Combo4.Text = ""Combo5.Text = ""Combo6.Text = ""Combo7.Text = ""End Sub在Command3控件

38、的Click事件中輸入如下的程序代碼:Private Sub Command3_Click(If Len(Text1.Text > 0 ThenDim key As Integerkey = MsgBox("真的要?jiǎng)h除 " & Trim(Text3.Text & " 的基本信息嗎?", vbExclamation + vbYesNo + vbDefaultButton3If key = vbYes ThenMsgBox ("您的信息已成功刪除"End IfEnd IfEnd IfElseMsgBox ("

39、;請(qǐng)先查找信息"End IfText1.Text = ""Text6.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""Text7.Text = ""Combo1.Text = ""Combo2.Text = ""Combo3.Text = ""Combo4.Text = ""Combo5.Text = ""C

40、ombo6.Text = ""Combo7.Text = ""End Sub在Command4控件的Click事件中輸入如下的程序代碼: Private Sub Command4_Click(MDIForm1.ShowFormWH.HideEnd Sub5.7檔案輸出的代碼及設(shè)計(jì)單擊檔案管理下的二級(jí)菜單,檔案輸出出現(xiàn)如下對(duì)話框: 設(shè)置次對(duì)話框的相關(guān)屬性如下表:控件屬性屬性值Frame1 text 查找Frame2 text 部門花名冊(cè)Label1 text 部門Combo1 text 選中Command1 text 查找Command2 text 取消C

41、ommand3 text 導(dǎo)出Excle在Command1控件的Click事件中輸入如下的程序代碼: Private Sub Command1_Click(If Len(Combo1.Text > 0 ThenDim key As Stringkey = "select 員工編號(hào),姓名from 員工信息表Where 部門= '" & Trim(Combo1.Text & "'"Adodc1.CommandType = adCmdTextAdodc1.RecordSource = keyAdodc1.RefreshSe

42、t DataGrid1.DataSource = Adodc1MsgBox "沒(méi)有找到你要的相關(guān)記錄"End IfElseMsgBox ("請(qǐng)先選擇部門!"End IfEnd Sub在Command2控件的Click事件中輸入如下的程序代碼:Private Sub Command2_Click(Dim i, j, k As IntegerDim xlapp As VariantDim xlBook As VariantDim xlSHEET As VariantIf Adodc1.RecordCount < 0 ThenMsgBox "沒(méi)

43、有可輸出的數(shù)據(jù),請(qǐng)選擇數(shù)據(jù)"Exit SubElseSet xlapp = CreateObject("excel.application"Set xlSHEET = xlBook.Worksheets(1xlapp.Visible = TrueOn Error Resume NextIf Err.Number <> 0 Then Set xlapp = CreateObject("Excel.Application"Set xlSHEET = xlBook.ActiveSheetxlSHEET.Cells(1, k = DataG

44、rid1.Columns(k - 1.CaptionNext kFor i = 1 To Adodc1.RecordCount + 1xlSHEET.Cells(i + 1, j + 1 = Adodc1(jNext jAdodc1.MoveNextNext iEnd IfEnd Sub在Command3控件的Click事件中輸入如下的程序代碼:Private Sub Command3_Click(MDIForm1.ShowFormSC.HideEnd Sub5.8檔案統(tǒng)計(jì)的代碼及設(shè)計(jì)單擊檔案管理下的二級(jí)菜單,檔案統(tǒng)計(jì)出現(xiàn)如下對(duì)話框: 設(shè)置次對(duì)話框的相關(guān)屬性(主要屬性如下表:控件屬性屬性值Co

45、mmand1 text 統(tǒng)計(jì)Command2 text 取消DataGrid1 text在Command1控件的Click事件中輸入如下的程序代碼:Private Sub Command1_Click(Adodc1.CommandType = adCmdTextIf Len(Combo1.Text > 0 And Len(Combo2.Text = 0 And Len(Combo3.Text = 0 Then Adodc1.RecordSource = "select * from 員工信息表where 職稱= '" & Trim(Combo1.Tex

46、t & "'"ElseIf Len(Combo1.Text = 0 And Len(Combo2.Text > 0 And Len(Combo3.Text = 0 ThenAdodc1.RecordSource = "select * from 員工信息表where 學(xué)歷= '" & Trim(Combo2.Text & "'"ElseIf Len(Combo1.Text = 0 And Len(Combo2.Text = 0 And Len(Combo3.Text > 0T

47、henAdodc1.RecordSource = "select * from 員工信息表where 政治面貌= '" & Trim(Combo3.Text & "'"ElseIf Len(Combo1.Text > 0 And Len(Combo2.Text > 0 And Len(Combo3.Text = 0 ThenAdodc1.RecordSource = "select * from 員工信息表where 職稱= '" & Trim(Combo1.Text & "'" & " " & Trim(Combo4.Text & " 學(xué)歷= '" & Trim(Combo2.Text & "'"ElseIf Len(Combo1.Text > 0 And Len(Combo2.Text = 0 And Len(Combo3.Text > 0 ThenAdodc1.RecordSource = "select *