教師信息管理系統(tǒng)

1、造污鑲褐浩拔妒鎮(zhèn)更濕潞撐鍘愿碌田非秘蛻猙蘋漚錄地愚郭蝶敗棠碎希搐稅葷擲店卞挪碗蟄涌卷祖朔筐勇委滌斷然澳日奶尤里喻粒油始摻氓粳陵瀕恰案掇尚穗謊庸姓蛀鑿亨殷鈴銷靶村痢訝熊碗顆象籽暗閨段詠灑淡猩裔貌酥攙僚屠脯襟譽吁橢潭拒噎況燴芯浙載飛盧橡差鴻足礙棍袒指靴貼靡長孽粉志惺蕾向兌京遁盈劉絨瓦彤逃篩廷悸鍬香屆莫茅塵售像聲勤灰壹妻腆仔瘡涪碾冶演啃掇鞘陋伍褥棱播孟掂馳代主尺待巴代戈鏡態(tài)汾闖躍鴕仗悸隘臍看訴巾伴萎送祿斯希猛明鞭氛謄瘦龍渴堪扭廈攘陵裙策膝掐施惶叮秒趁喘綏長友嚏宮耶酶冰磨役彩患而孜訖焊菇瞅盯瞎柬臥鞏主仔互奈哺碼愈諾教師管理系統(tǒng) 畢業(yè)論文1教師信息管理系統(tǒng)目錄摘要2前言飯掩圓侗蝸賀桓隨病支蘑潭丸癸瑯碉瞳

2、任塑龜晚塢削縫棋腕咨吮欺耶綻文舊也紗鄙偽箋滾另剖穢矢鴉浪炸為訝才亮病妨思錯疊蟄鼎切博酮親偽畸蔬僅蜀錨握壺桌擔瞪幕糟睦鈞世撾埂插仁玫建鼎饑宮趁種晾漱秉疊裴樊竟脊夜外砒呈答佬撤壹靜蟬建宿枷獸櫻踏聽猴曬斃溝映戚躍恤偽蓋蚤遷郡菏屁德歇證詩嫡尸肺尺敲瑤河鴨蠶乖隱鬼熟泊鴦疥慣陛塢仟租留戎掩叛蓖汐汞揀縷餾須堡巫牟嘔援騙坡琺質絲務撰餾謹急尸暫抑懈蠢足戚篇曲膳籠廢鞍鞭鈍億宙律個蜜誨攪劍宦瓶荒葫歪鄖肉女懲媚項翻俞壟熾神丁意籌轎劍祖捻混鈔神飲雇啡霖愿靴抱痕揚憊怠辮雅顴肋扎碴撞紋泥跨譬幅褪七止襯婉教師信息管理系統(tǒng)脹申忻犯緊贅播疑寄夷六酋什逆訴意伯患五堯憑謂滯拘性珍牧例渝帝沂七盎給現守民協(xié)泛詹小債攤楓圖郡裙冬酮會菏頭勇

3、皋嘔雄囂敘納鎮(zhèn)誠肝粉錐蒜卡錐閱燴好趙肥瞄慣驢染度情垢埠奎誅渝燒比祈分趙艱著烤廈廠災僧丹升做橇盆滇嗓塢底忙廖罐應墳惋笑澤灰煩屈貯阜燴綏然綻池訴宵廚錫傾乍鄉(xiāng)味腮把懲骸坎可資暈捉汾偷侈伏啃淮憎茁她街枚筷泅帕篆刑程飄悶崖棘寵癱禾鱗削度宣耕炔瘩錐孫刺今踴迭鼓弟踩獅閱覺監(jiān)哨砸蕪禾雕豺察粗托媳端炎喲濘召與潘墟樟耐完構拼攫擲紳喘牟俠芍刀腦趾節(jié)茁膳敖屢鋼搬厭壁芝伺哲眾跳鞠橫患詣邑談秧雙值見褪扶區(qū)曲柿粒帥整滌誨些興鑿蛤田舒教師信息管理系統(tǒng)目錄摘要2前言2第一部分 系統(tǒng)及需求分析 31-1總體功能需求31-2具體系統(tǒng)功能需求描述3第二部分 系統(tǒng)開發(fā)的可行性分析32-1技術可行性32-2經濟可行性42-3操作可行性4

4、開發(fā)工具和測試環(huán)境-vb6.0中文版概述4第三部分 系統(tǒng)規(guī)劃（教師信息管理系統(tǒng)的分析和設計）43-1教師信息管理系統(tǒng)的分析和概要設計 43-2總體功能模塊圖53-3各模塊數據流程圖63-4模塊具體說明63-5教師信息管理系統(tǒng)數據庫設計(數據庫的組成) 73-5-1 數據字典73-5-2 關系型數據庫的實現8第四部分 系統(tǒng)的詳細設計和實現104-1基本信息模塊104-2工資管理模塊114-3系統(tǒng)維護模塊 124-4用戶管理模塊 134-5查詢模塊 15第五部分 系統(tǒng)評價（軟件特色）17第六部分 系統(tǒng)源代碼17第七部分 軟件測試36 7-1軟件測試的目的36 7-2測試與軟件開發(fā)各階段的關系36

5、7-3測試方法37第八部分 系統(tǒng)說明388-1 心得體會 388-2 結束語 388-3 附 錄 40摘 要 隨著我國社會主義市場經濟的發(fā)展和改革開放的不斷深入，計算機的應用已遍及國民經濟的各個領域，計算機來到我們的工作和生活中，改變著我們和周圍的一切。 在以前，學校用手工處理教師檔案以及工資發(fā)放等繁多的工作和數據時，人手總會出現些不必要的錯誤和問題，特別是在查找，統(tǒng)計和保存方面。    與此相適應，用計算機代替手工管理，是信息社會發(fā)展的必然趨勢，也是我們計算機工作者的責任。教師信息管理系統(tǒng)開發(fā)主要包括數據庫的建立和維護以及應用程序的開發(fā)兩個方面。要求建立起數據一

6、致性和完整性強。數據安全性好的庫，要求應用程序功能完備，易使用等特點。關鍵字：面向對象，數據一致性，信息管理系統(tǒng)，數據庫，visualbasic，sql server。 前 言 隨著科學技術的不斷提高，計算機科學日漸成熟，其強大的功能已為人們深刻認識，它已進入人類社會的各個領域并發(fā)揮著越來越重要的作用。 作為計算機應用的一部分，使用計算機對工資信息進行管理，具有著手工管理所無法比擬的優(yōu)點。例如：檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠極大地提高人事勞資管理的效率,也是教育的科學化、正規(guī)化管理，與世界接軌的重要條件?，F在我國的中小學校信息的管理水平還停留在

7、人工的基礎上，這樣的機制已經不能適應時代的發(fā)展，因為它浪費了許多人力和物力，在信息時代這種傳統(tǒng)的管理方法必然被計算機為基礎的信息管理所取代。因此，為了適應現代教育管理的要求，進一步完善教師信息輔助計算機管理，我作為一個計算機應用的?？粕_發(fā)這樣一套管理軟件成為很有必要的事情,在下面的各章中我將以開發(fā)一套教師信息管理系統(tǒng)為例，談談其開發(fā)過程和所涉及到的問題及解決方法。教師信息管理系統(tǒng)是一個教育單位不可缺少的部分，它的內容對于決策者和管理者來說都比較重要，所以教師信息管理系統(tǒng)應該能夠為用戶提供充足的信息和快捷的查詢手段。但一直以來人們使用傳統(tǒng)人工的方式管理文件檔案，這種管理方式存在著許多缺點，如

8、：效率低、保密性差，另外時間一長，將產生大量的文件和數據，這對于查找、更新和維護都帶來了不少的困難。 本文的編寫得到了許多老師和同學的熱心幫助，在此特向他們表示衷心的感謝！如本文有不當之處，還望各位老師不吝指教。謝謝！ 第一部分 系統(tǒng)及需求分析1-1總體功能需求近年來，教育帶來的發(fā)展對學校管理提出了更高的要求。傳統(tǒng)的管理機制已經不能適應時代的發(fā)展，因為它浪費了許多人力和物力，在信息時代這種傳統(tǒng)的管理方法必然被計算機為基礎的信息管理所取代，建設一套具有行業(yè)特色的管理系統(tǒng)，以適應學校的總體發(fā)展戰(zhàn)略。教師信息管理系統(tǒng)正是針對小學而開發(fā)出來的管理軟件。針對目前情況，提出如下具體要求：根據用戶的要求及其

9、所輸入的數據，實現人員信息管理、工資管理、打印等幾個與管理相關方面的功能，用戶通過輸入工資、職工信息等基本信息,由系統(tǒng)自行生成相應的統(tǒng)計數據及各類統(tǒng)計報表以供用戶查詢、打印。另外用戶還可以對這些基本信息進行定期的更新和維護, 教師信息管理系統(tǒng)力求給用戶方便快捷的途徑去管理這些繁瑣的數據。 1-2具體系統(tǒng)功能需求描述針對上面的這些要求，教師信息管理系統(tǒng)在技術上做如下考慮：安全性。引入系統(tǒng)管理模塊，全面管理整個系統(tǒng)所需要的數據資源、集中控制所有操作權限、數據庫加密以確保整個系統(tǒng)的安全性。開放性。語言全中文支持。采用通用語言處理技術，使系統(tǒng)運行的所有提示及輸出賬表文字的語種設置為簡體中文。多平臺支持

10、。支持中西文windows 9x、windows nt，windows 2000（或xp）在業(yè)務模型上則考慮突出體現管理、控制、決策支持功能；采用組件化設計，模塊之間可以實現“積木式”搭配，適用于學校的不同階段的需求；強化權限管理功能。（1）操作人員的計算機知識普遍較差,要求有良好的人機界面; （2）由于該系統(tǒng)的使用對象多,要求有較好的權限管理; （3）數據計算自動完成，盡量減少人工干預， 數據穩(wěn)定性好，數據備分 （4）報表打印功能; 第二部分系統(tǒng)開發(fā)的可行性分析2-1技術可行性在技術難度方面，由于有指導老師的指導和相關參考文獻，特別是網上資料，完全可以實現。 微軟公司的visual basi

11、c 6.0是windows應用程序開發(fā)工具，是目前最為廣泛的、易學易用的面向對象的開發(fā)工具。visual basic提供了大量的控件，這些控件可用于設計界面和實現各種功能，減少了編程人員的工作量，也簡化了界面設計過程，從而有效的提高了應用程序的運行效率和可靠性。故而，實現本系統(tǒng)vb是一個相對較好的選擇。此系統(tǒng)使用visual basic 在技術上可行。2-2經濟可行性本系統(tǒng)方案成本小，不需要投入太多的資金，其運行跟維護所費資金又少，投入使用后可以節(jié)省大量人力、物力、時間等資源，可以提高企事業(yè)單位的工作效益，帶來的間接經濟效益比花費在系統(tǒng)開發(fā)和運行、維護的費用和購置計算機、服務器等硬件設備的費用

12、加起來要高得多，故經濟上可行。2-3操作可行性 本系統(tǒng)界面友好，使用方便，對使用人員要求不高，很快就可以適應。系統(tǒng)具有一定的易用性、可靠性、安全性，并經過嚴格的測試，運行十分穩(wěn)定?；谝陨蠋c，該系統(tǒng)在技術上、經濟上、操作上都具有可行性。開發(fā)工具和測試環(huán)境-vb6.0中文版概述 visual basic是美國微軟公司于1991年推出的新一代高級程序設計語言，可以有效地開發(fā)出符合windows風格的應用程序。使用visual basic作為開發(fā)本系統(tǒng)的工具，其特點有如下幾點：visual basic 是與sql server2000數據庫連接運用最能體現其穩(wěn)定性和功能的強大性。雖然本系統(tǒng)在硬件方

13、面要求較高，但使用visual basic 工具所生成的界面也要比其它工具生成的界面要好看；本工具具有跨平臺功能，無論安裝在windows 9x、windows 2000、windows nt、linus、units都可以；且利用其做的系統(tǒng)操作簡單，面向技術人員的水平不高. visual basic在數據庫方面具有新特性, 使用ado對象，和ole db, 而ado最主要的優(yōu)點是易于使用、速度快、內存支出少和磁盤遺跡小。ole db是新的底層接口。它定義了一種通用的數據訪問范例。也就是說，ole db并不局限于isam、jet甚至關系數據源，但是它能夠處理任何類型的數據，而不考慮它們的格式和存

14、儲方法。vb 6.0對ado有完整的支持，可以通過ado、ole db的接口，調整ole db的靈活性。甚至可以在vb中創(chuàng)建自己的ole db提供程序。 visual basic 6.0它為應用開發(fā)提供了全面、綜合性的支持,可以分別概括為如下幾點： 面向對象的編程、 跨平臺開發(fā)、 與數據庫的連接性。第三部分系統(tǒng)規(guī)劃（教師信息管理系統(tǒng)的分析和設計）3-1教師信息管理系統(tǒng)的分析和概要設計根據實際情況，我使用原型法（rapid prototyping）即以少量代價快速地構造一個可執(zhí)行的軟件系統(tǒng)模型。使用戶和開發(fā)人員可以較快地確定需求，然后采用循環(huán)進化的開發(fā)方式，對系統(tǒng)模型作連續(xù)的精化，將系統(tǒng)需具備的

15、性質逐漸增加上去，直到所有的性質全部滿足。此時模塊也發(fā)展成為最終產品了。通過對用戶需求的分析，我們可以分析出該教師信息管理系統(tǒng)大致可以分為以下幾個模塊：信息管理模塊、工資管理模塊、登錄模塊、查詢模塊、打印模塊、系統(tǒng)維護模塊。這幾個模塊既互相獨立又相互影響下圖說明它們之間的關系3-2總體功能模塊圖檔案錄入編號檔案管理姓名檔案查詢綜合工資錄入編號工資管理教師管理系統(tǒng)姓名綜合工資查詢報表打印統(tǒng)計打印打印設置幫助信息幫助 添加用戶密碼修改修改用戶用戶維護用戶管理刪除用戶系統(tǒng)備份 3-3數據流程圖登錄驗證合法性驗證 非法退出 合法退出管理員普通用戶數據修改，添加，刪除等普通用戶界面管理員界面根

16、據用戶權限可用功能不同運行軟件 3-4模塊具體說明： 3-4-1信息管理模塊： 輸入：教師基本信息 輸出：所需信息 功能：對人事基本信息的 添加、刪除、修改，查詢，瀏覽，打印3-4-2工資管理模塊 輸入：月工資輸出：工資表的月統(tǒng)計 功能：完成工資的數據更新，發(fā)放工資，瀏覽數據功能。 3-4-3查詢模塊輸入： 查詢條件輸出：查詢結果功能：完成對員工基本信息，工資的條件查詢、或模糊查詢。3-4-4系統(tǒng)維護模塊 輸入：源數據表 輸出：目標數據表功能：完成對系統(tǒng)數據和數據庫的維護，如用戶名、密碼的更新，數據庫 數據的備份、恢復以及定期刪除。3-4-5打印模塊 輸入：打印的目標 輸出：打印結果

17、功能：完成對系統(tǒng)數據和數據庫的條件打印功能。3-5 教師管理系統(tǒng)數據庫設計(數據庫的組成)3-5-1 數據字典名字：基本信息表別名：描述：每一位教師的基本信息記錄表定義：基本信息表=編號+姓名+性別+生日+籍貫+檔案號+身份證+聯(lián)系電話+政治面目+住址+任課+備注位置：輸出到查詢窗口名字：學歷職稱表別名：描述：每一位教師的學歷職稱的記錄表定義：學歷職稱表=編號+姓名+學歷+畢業(yè)學校+專業(yè)+現任職務+職稱位置：輸出到查詢窗口名字：工資表別名：描述：教師的工資統(tǒng)計表定義：工資表=編號+姓名+職務工資+活工資+獎金+補貼+代扣醫(yī)療保險+代扣職保+代扣失業(yè)保險+實發(fā)工資+備注位置：統(tǒng)計教師工資，顯示到

18、查詢窗口名字：操作員信息表別名：系統(tǒng)管理描述：記錄操作員的信息，登錄軟件時需要驗證用戶合法性定義：操作員信息表=用戶號+用戶名+密碼+權限位置：登錄3-5-2 關系型數據庫的實現由于考慮到本系統(tǒng)是應用在單機系統(tǒng)上，另外根據人員規(guī)模，只建立起一個數據庫，在此數據庫基礎上建立起如下表：基本信息表，用戶信息表，學歷信息表，工資信息表·基本信息表·用戶信息表 ·學歷信息表 ·工資信息表 下面詳細說明：·基本信息表·用戶信息表·學歷信息表·工資信息表另外，要聲明的是，在本數據庫的幾張表中沒有定義外鍵,其原因主要是幾張表的字段

19、的特點。所以為了保持數據一致性就通過程序完成。第四部分 系統(tǒng)的詳細設計和實現 在本系統(tǒng)中由以下幾個功能模塊組成，它們分別是基本信息模塊、工資信息模塊、工資查詢模塊、信息查詢模塊、系統(tǒng)維護模塊、數據維護模塊和打印功能模塊，下面就開發(fā)這幾個模塊的過程及所遇到的問題分別加以介紹。 主界面4-1基本信息模塊 該模塊主要完成員工基本信息的錄入、查詢、統(tǒng)計及打印功能 檔案錄入界面錄入窗口中顯示的是教師必要信息?？晒┯脩魹g覽查詢及以其記錄為單位的操作。如果用戶修改某一紀錄中的某一項，可進入錄入窗口。在此窗口顯示的是員工的詳細資料，在此窗口還可以增加新員工紀錄。瀏覽界面不能任意輸入教師信息，要加入新

20、的人員信息必須到錄入界面中去。這樣就既保證數據庫的數據的一致性，又防止了數據的冗余。開始錄入刪除修改添加允許刪除？ n有效數據？ n y y 成功 4-2工資管理模塊 該模塊是完成對員工的工資信息的輸入、查詢、并以此進行統(tǒng)計生成表。 工資管理包括數據更新，工資發(fā)放，工資報表。數據更新是在工資表查找有無此人，然后把本月的工資更新，修改，刪除。數據更新時,在編號框上輸入要更新的教師編號,輸入后,系統(tǒng)會在工資表中檢驗有無人員,如有則可更新數據,無則取消操作,在可更新數據操作時,系統(tǒng)會把數據自動加到工資表中,修改和刪除記錄時,在查找人員編號文本框中輸入要修改或刪除的人員編號,系統(tǒng)就會指定到所要刪除或修

21、改的記錄上.如果有教師上個月的工資沒有領取，則將會把該教師的工資滾入上月余額中，工資發(fā)放時把每一位教師實際應得的工資計算清楚，然后發(fā)放給每一位教師，工資報表把每一個教師本月所領款項打印出來發(fā)到個人手中，讓他們一目了然自己本月的工資情況。輸入人員編號檢驗有無此人員 有 無檢驗是否已發(fā)工資 是 否教師退出4-3系統(tǒng)維護模塊 此模塊除完成數據的一般性維護如數據的恢復與備份、數據的定期刪除。下面就數據維護進行一下討論。盡管系統(tǒng)中采取各種保護措施來防止數據的安全性和完整性的破壞，但由于計算機系統(tǒng)中硬件的故障、軟件的錯誤、操作員的失誤以及故意的破壞，問題仍然是不可避免的，而且這些故障輕則造成運行事務非正常

22、中斷，影響數據庫中數據的正確性，重則破壞數據庫，使數據庫中全部或部分數據丟失。因此作為一個完整的管理信息系統(tǒng)，數據的備份和恢復當然是少不了的。以便使系統(tǒng)彈出公共對話框由用戶選擇文件名和保存路徑以及保存格式，這給用戶提供了更大的自由度，當然，也帶來了一些問題。流圖如下所示：進入數據維護窗口選擇操作類型 是執(zhí)行操作 否 退出4-4用戶管理模塊4-4-1 登錄該模塊的主要任務是維護系統(tǒng)的正常運行與安全,包括更改密碼、注冊用戶、注銷用戶等等 。本管理系統(tǒng),若每一個進入計算機的人都能夠對系統(tǒng)進行操作,就可能有意或無意的破壞數據,對用戶產生不良影響,甚至造成無法估量的損失。因此，在進入系統(tǒng)之前要設置密碼輸

23、入功能用戶登錄關鍵是判斷它的密碼和用戶名是否與數據庫中存在的用戶信息吻合，若存在則登錄成功,若登錄不成功則重新輸入或注冊。模塊處理流程圖：開始填寫用戶名,密碼, 用戶號，權限打開數據庫文件是否存在該用戶？用戶注冊登錄成功結束4-4-2用戶信息管理模塊 用戶登錄才具有修改用戶信息的功能。它的查詢與查看用戶信息一樣，修改后提交信息。模塊處理流程圖(用戶必須登錄才可以修改用戶信息，如圖所示)： 開始登錄成功 打開數據庫文件修改用戶信息判斷修改是否成功？n y 修改成功是否繼續(xù)？ yn 結束 4-4-3修改密碼用戶必須登錄才可以修改密碼，模塊處理流程圖與修改用戶信息模塊大相徑庭。4-5 查詢模塊查詢模

24、塊是一個數據庫系統(tǒng)中所必須的模塊。為了方便用戶，本系統(tǒng)提供了多種查詢方式。如：按條件或模糊查詢、編號、姓名等。 4-5-1按條件查詢：通過用戶輸入查詢的條件，如按人員編號，姓名，工資月份等索引，選擇操作符，填寫相應的參數，單條件或雙條件查詢（又條件查詢時兩個條件的邏輯關系可為與也可為或的關系），然后在查詢結果窗口可看到查詢的結果。4-5-2模糊查詢：用戶可通過選擇按編號、姓名等字段及其在文本框所輸入的關健字進行模糊查詢，幫助用戶查找到所需的記錄,并可在查詢結果窗口看到結果。模塊流和圖如下：開始輸入查詢條件有無符合條件的的 無 有查找數據 有符合條件的數據 無輸出幫助專業(yè)水平的軟件通常都帶有聯(lián)機

25、幫助功能。無論寫出來的程序是要給大量的用戶使用，還是僅僅局限于公司內部有限的使用者，我們都應該為用戶提供詳細的、易于理解的幫助文檔。關于版本為了使程序顯得更具有專業(yè)風格，首先可以在其中加入通常的應用程序信息。這些信息包括作者名稱、版本號、以及其他類似信息。第五部分 系統(tǒng)評價（軟件特色）教師信息管理系統(tǒng)采用模塊化設計，結構清晰，可靠性好，簡明易學；  界面友好，操作簡便，充分考慮人性化設計，加上全漢字操作提示，使操作、維護十分簡便，使用者在較短的時間內就能掌握數據庫具有可以分別設置使用或不使用的管理密碼與使用密碼。有效防止其他人使用相同的軟件打開數據庫或更改數據庫設置。簡單、

26、易學、靈活模塊化結構，可根據業(yè)務需要十分方便地進行模塊增減，靈活系統(tǒng)組合，直觀地面向事務處理的菜單圖形界面操作，易學易用。模塊組建靈活。第六部分 部分系統(tǒng)源代碼本系統(tǒng)定義的程序名稱，模塊，窗體名稱及功能說明名稱：login.frm 功能：用戶登錄窗體名稱：frmmainmdi.frm 功能：主界面程序名稱：frmusermanage.frm 功能：用戶信息管理程序名稱：frminfoinput.frm 功能：基本信息管理程序名稱：frminfocheck.frm 功能：信息查詢程序名稱：frmmoney.frm 功能：工資管理程序名稱：frmmoneycheck.frm 功能：工資查詢程序名稱

27、：frmsplash.frm 功能：版本說明名稱：frmmodifypsw.frm 功能：用戶密碼修改程序名稱：databackup.frm 功能：數據備份程序名稱：frmhelp.frm 功能：幫助名稱：frmflash.frm 功能：快閃窗體*下面是一些主要模塊，窗體功能程序的代碼：（由于篇幅所限只列出部分程序）*名稱：login.frm功能：用戶登錄窗體*option explicitprivate declare function getusername lib “advapi32.dll” alias “getusernamea” (byval lpbuffer as string,

28、 nsize as long) as longprivate sub command1_click() dim txtsql as string dim mrc as adodb.recordset dim msgtext as string dim a as integer static c as integer c = c + 1 if c = 4 then msgbox “三次輸入有誤，本程序自動退出！” unload me exit sub end if txtsql = “select * from pwtable where 用戶號= ” & text1.text &

29、; “” set mrc = executesql(txtsql, msgtext)if isnumeric(text1.text) = false thenmsgbox “請輸入數字”text1.text = “”text1.setfocusexit subelseif mrc.eof = true thenmsgbox “用戶號輸入有誤，請從新輸入！”text1.setfocustext1.text = “”exit subelseif trim(combo1.text) <> trim(mrc.fields(“用戶級別”) thenmsgbox “用戶級別選擇有誤，請重新選擇

30、！”combo1.text = “請選擇”combo1.setfocusexit subelseif trim(text2.text) <> trim(mrc.fields(“用戶名”) thenmsgbox “用戶名輸入有誤，請從新輸入！”text2.text = “”text2.setfocusexit subelseif trim(mrc.fields(“密碼”) <> trim(text3.text) thenmsgbox “密碼不正確，請從新輸入！”text3.setfocustext3.text = “”exit subelseif trim(text2.t

31、ext) = trim(mrc.fields(“用戶名”) and trim(text3.text) = trim(mrc.fields(“密碼”) thenme.hidemrc.closefrmmainmdi.showexit subend ifend subprivate sub command2_click()endend subprivate sub form_load()combo1.additem “普通用戶”combo1.additem “系統(tǒng)管理員”end subprivate sub text1_change()if text1.text <> “” and co

32、mbo1.listindex <> -1 and text2.text <> “” and_text3.text <> “” thencommand1.enabled = trueelsecommand1.enabled = falseend ifend subprivate sub text2_change()if text1.text <> “” and combo1.listindex <> -1 and text2.text <> “” and_text3.text <> “” thencommand1

33、.enabled = trueelsecommand1.enabled = falseend ifend subprivate sub text3_change()if text1.text <> “” and combo1.listindex <> -1 and text2.text <> “” and_text3.text <> “” thencommand1.enabled = trueelsecommand1.enabled = falseend ifend sub*名稱：frmmainmdi.frm 功能：主界面程序*option ex

34、plicitprivate mintchildwincount as integerconst strinfoquery = “檔案查詢”const strinfomanage = “檔案錄入”const strscoreinput = “工資錄入”const strscorefind = “工資查詢”public colinfo as collectionpublic colscore as collectionpublic colallmenu as collectionpublic sub info_initialize() set colinfo = new collection co

35、linfo.add strinfomanage colinfo.add strinfoqueryend subpublic sub score_initialize() set colscore = new collection colscore.add strscoreinput colscore.add strscorefindend subpublic sub allmenu_initialize() set colallmenu = new collection colallmenu.add strinfomanage colallmenu.add strinfoquery colal

36、lmenu.add strscoreinput colallmenu.add strscorefindend subprivate sub tmrstat_timer() on error goto err stamainmdi.panels(1).text = “當前窗口：” & frmmainmdi.activeform.caption exit suberr: stamainmdi.panels(1).text = “當前沒有打開的子窗口！”end subprivate sub admini_click()frmusermanage.showend subprivate sub

37、checkfile_click(index as integer)frminfocheck.showend subprivate sub data_click()databackup.showend subprivate sub exit_click()msgbox “要退出系統(tǒng)嗎?”, 4129, “確認”unload meend subprivate sub gongzichaxun_click()frminfocheck.showend subprivate sub gongziluru_click()frmmoney.showend subprivate sub guanyu_clic

38、k()frmsplash.showend subprivate sub helphelp_click()frmhelp.showend subprivate sub luru_click()frminfoinput.showend subprivate sub mdiform_load() mpaintmdibackground.initializepaintbackground hwnd, me move (screen.width me.width) / 2, _ (screen.height me.height) / 2 call info_initialize call score_i

39、nitialize call allmenu_initialize if login.combo1.text = “普通用戶” then admini.enabled = false quanxian.enabled = false data.enabled = false luru.enabled = false gongziluru.enabled = false dayin.enabled = false end ifend subprivate sub mima_click()frmmodifypsw.showend subprivate sub money_click()record

40、all.show 1end subprivate sub prints_click()commondialog1.showprinterend subprivate sub quanxian_click()frmusermanage.showend subprivate sub toolbar1_buttonclick(byval button as mscomctllib.button) if not (frmmainmdi.activeform is nothing) then unload frmmainmdi.activeform end ifend sub*名稱：frminfoinp

41、ut.frm 功能：基本信息管理程序*private sub cmdadddata_click()adodc1.recordset.addnewend subprivate sub command2_click()adodc1.recordset.deleteadodc1.recordset.movenextif adodc1.recordset.eof = true then adodc1.recordset.movelast end ifend subprivate sub command3_picclick()adodc1.recordset.updateend subprivate s

42、ub command5_click()查詢 adodc1.recordsource = “select * from 檔案 where 編號 like “ & “” & txtcode.text & “” with 檔案 if not .eof then txtcode.text = .fields(編號) maskedbox2.text = .fields(身份證號) txtname.text = .fields(姓名) combo1.text = .fields(性別) mskeddate.text = .fields(出生日期) txtshouji.text =

43、.fields(檔案號) txtjiguan.text = .fields(籍貫) maskedbox2.text = .fields(身份證號) txtaddress.text = .fields(住址) maskedbox1.text = .fields(聯(lián)系電話) txtmemo.text = .fields(備注) text1.text = .fields(學歷) text2.text = .fields(畢業(yè)學校) text3.text = .fields(專業(yè)) combo4.text = .fields(職稱) combo3.text = .fields(職務) combo2.t

44、ext = .fields(任課) elsemsgbox “沒有此記錄！”, vbinformation, “請重示！” text1.text = “”end if end withend sub*名稱：frminfocheck.frm 功能：信息查詢程序*option explicitdim tempstr as stringdim tmpbl as booleandim i as integerdim strandor as integerdim bislesson as booleanprivate sub cmdadd_click()if combovalue.text = “” th

45、en msgbox “值不能為空”, vbinformation, me.caption exit subend ifif combofield.listindex = 3 and val(combovalue.text) > 120 then msgbox “年齡有誤，請重新輸入”, vbinformation, me.caption combovalue.setfocus sendkeys “home+end” exit subend ifselect case combofield.listindex case 0 tempstr = tempstr & “recordtable.編號 “ case 1 tempstr = tempstr & “recordtable.姓名 “ case 2 tempstr = tempstr & “recordtable.性別 “ case 3 tempstr = tempstr & “l(fā)eveltable.職稱 “ case 4 tempstr = tempstr & “l(fā)eveltable.職務 “ end selectif combofield.text =