學(xué)校教師管理系統(tǒng)設(shè)計畢業(yè)論文

1、<p>　　計算機(jī)信息管理專業(yè)畢業(yè)設(shè)計（論文）</p><p>　　《學(xué)校教師管理系統(tǒng)設(shè)計》</p><p><b>　　目 錄</b></p><p>　　摘要 ……………………………………………………………………………2</p><p>　　第一章 概述……………………………………………………………

2、…4</p><p>　　第二章 教師管理信息系統(tǒng)需求分析………………………… 5</p><p>　　第一節(jié) 教師管理信息系統(tǒng)的用戶需求簡介……………………………5</p><p>　　第二節(jié) 教師管理信息系統(tǒng)的要求………………………………………5</p><p>　　第三節(jié) 數(shù)據(jù)流程圖………………………………………………………6&

3、lt;/p><p>　　第三章 教師管理信息系統(tǒng)設(shè)計 …………………………………8</p><p>　　第一節(jié) 教師管理信息系統(tǒng)功能描述……………………………………8</p><p>　　第二節(jié) 系統(tǒng)功能模塊圖…………………………………………………11</p><p>　　第三節(jié) 系統(tǒng)開發(fā)環(huán)境簡介………………………………………………12&l

4、t;/p><p>　　第四節(jié) 數(shù)據(jù)庫設(shè)計………………………………………………………12</p><p>　　第四章　教師管理信息系統(tǒng)的功能實現(xiàn)………………………14</p><p>　　第一節(jié)　系統(tǒng)技術(shù)要點……………………………………………………14</p><p>　　第二節(jié)　添加功能模塊設(shè)計………………………………………………17<

5、/p><p>　　第三節(jié)　信息查詢模塊設(shè)計………………………………………………18</p><p>　　第四節(jié)　計發(fā)工資信息模塊設(shè)計…………………………………………18</p><p>　　第五章　測試與分析 …………………………………………………19</p><p>　　第一節(jié)　測試環(huán)境…………………………………………………………19</

6、p><p>　　第二節(jié)　測試方法…………………………………………………………19</p><p>　　第三節(jié)　測試項目…………………………………………………………20</p><p>　　第六章　總結(jié)………………………………………………………………24</p><p>　　參考文獻(xiàn) ……………………………………………………………………25<

7、/p><p>　　附 錄 …………………………………………………………………………26</p><p><b>　　摘 要</b></p><p>　　本論文詳細(xì)介紹了教師管理系統(tǒng)實例的開發(fā)于應(yīng)用，是一個數(shù)據(jù)庫應(yīng)用系統(tǒng)完整的制作過程。主要內(nèi)容有：系統(tǒng)開發(fā)背景、系統(tǒng)概述、需求分析、系統(tǒng)設(shè)計、功能、感受與體會等。其中需求分析中主要對系統(tǒng)的數(shù)據(jù)流程

8、圖進(jìn)行了詳細(xì)描繪，系統(tǒng)設(shè)計中主要描繪出了該管理系統(tǒng)的模塊設(shè)計圖和該系統(tǒng)數(shù)據(jù)庫的設(shè)計。功能與操作中介紹了對該管理系統(tǒng)實例的基本功能。</p><p>　　教師管理系統(tǒng)從符合操作簡便、界面友好、靈活、實用、安全的要求出發(fā)，完成人事、考勤、工資、培訓(xùn)、用戶等的全過程管理，包括新進(jìn)教師加入時人事檔案的建立、老教師的退休、在職教師職位的變動等引起教師信息的修改、教師信息查詢、統(tǒng)計等管理工作以及考勤管理，還包括教師工資查詢、

9、修改、計發(fā)、工資表打印等工資管理工作以及系統(tǒng)用戶的帳號密碼管理。</p><p>　　關(guān)鍵字：VB 畢業(yè)論文 信息系統(tǒng) 教師管理 </p><p><b>　　第一章 概述</b></p><p>　　隨著時代的進(jìn)步，社會生產(chǎn)力高速發(fā)展，新技術(shù)層出不窮信息量急劇膨脹，整個人類社會已成為信息化的社會人們對信息和數(shù)據(jù)的利用和處理已經(jīng)進(jìn)入自動化

10、、網(wǎng)絡(luò)化和社會化的階段。如在查找情報資料、處理銀行帳目、倉庫管理、科研生產(chǎn)等方面，無不需要利用大量的信息資源。因此，如何有效地進(jìn)行數(shù)據(jù)信息的管理和利用，已經(jīng)成為人們普遍關(guān)注的課題。</p><p>　　信息在不同的領(lǐng)域里有著不同的概念，在管理科學(xué)領(lǐng)域中，通常認(rèn)為信息是經(jīng)過加工處理后的一種數(shù)據(jù)形式，是一種有次序的符號排列，它是系統(tǒng)傳輸和處理的對象。處在信息時代的今天，信息的作用越來越為人們所重視。制定工作計劃，研究

11、投資策略，都離不開對信息的充分利用。它通過對數(shù)據(jù)的加工處理，及時為管理與決策分析提供信息。</p><p>　　隨著教師管理信息系統(tǒng)在學(xué)校中的廣泛應(yīng)用，該系統(tǒng)對學(xué)校的影響也會越來越大，它對教育界管理方面的貢獻(xiàn)是無可替代的。</p><p>　　第二章學(xué)校管理信息系統(tǒng)需求分析</p><p>　　第一節(jié) 教師管理信息系統(tǒng)的用戶需求簡介</p><

12、p>　　教師管理信息系統(tǒng)對學(xué)校加強(qiáng)教師管理有著極其重要的作用，它的設(shè)計內(nèi)容非常復(fù)雜而且繁多，比如擁有招聘的功能，網(wǎng)上篩選簡歷的功能，提醒的功能，而且設(shè)計的模塊也很多，比如人事規(guī)劃模塊，新教師上崗管理模塊，招聘篩選管理模塊，績效考核模塊，工資管理模塊，等。</p><p>　　但由于人員結(jié)構(gòu)比較簡單，學(xué)歷比較高，基本上都擁有大專以上學(xué)歷，部門劃分也很清晰，而且人員的流動性不高，所以學(xué)校目前階段的人事工作主要就

13、是教師檔案的收集整理和工資的管理工作，因此，針對該學(xué)校而言，經(jīng)過反復(fù)的論證，設(shè)計的這套管理信息系統(tǒng)，定義了以下的功能，見表3.1：</p><p>　　第二節(jié) 教師管理信息系統(tǒng)的要求</p><p>　　目標(biāo)系統(tǒng)應(yīng)該達(dá)到以下要求： </p><p>　　1、時間經(jīng)濟(jì)性。優(yōu)化邏輯設(shè)計與物理設(shè)計，使系統(tǒng)運行效率高反映速度快。</p><p>　

14、　2、可靠性。能連續(xù)準(zhǔn)確的處理業(yè)務(wù)，有較強(qiáng)的容錯能力。</p><p>　　3、可理解性。用戶容易理解和使用該系統(tǒng)。</p><p>　　4、可維護(hù)性和適應(yīng)性。系統(tǒng)應(yīng)易于修改、易于擴(kuò)充、易于維護(hù)，能夠適應(yīng)業(yè)務(wù)不斷發(fā)展變化的需要。</p><p>　　5、可用性。目標(biāo)系統(tǒng)功能齊全，能夠完全滿足業(yè)務(wù)需求。</p><p>　　6、安全保密性。保證

15、系統(tǒng)的物理安全、數(shù)據(jù)存儲和存取的安全 </p><p>　　與保密、數(shù)據(jù)傳輸?shù)陌踩c保密，做好使用人員的授權(quán)管理。</p><p>　　表3.1 教師管理信息系統(tǒng)功能需求分析</p><p>　　第三節(jié) 數(shù)據(jù)流程圖</p><p>　　3.1 頂層數(shù)據(jù)流程圖</p><p>　　圖3.2 頂層數(shù)據(jù)流程圖</p

16、><p>　　圖3.3 一層數(shù)據(jù)流程圖</p><p>　　第三章教師管理信息系統(tǒng)設(shè)計</p><p>　　第一節(jié) 教師管理信息系統(tǒng)功能描述</p><p><b>　　1、系統(tǒng)管理功能</b></p><p>　　系統(tǒng)管理功能包括用戶管理、配置管理、數(shù)據(jù)備份、數(shù)據(jù)恢復(fù)和系統(tǒng)初始化：</p&g

17、t;<p><b>　?。?）用戶管理</b></p><p>　　系統(tǒng)的操作由用戶，也就是使用者來完成，用戶管理也就是對系統(tǒng)使用者自身的管理，是系統(tǒng)最基本的管理層次。在改管理模塊中可以增加、修改、刪除用戶的帳號及密碼，從而來達(dá)到控制系統(tǒng)使用的目的。</p><p><b>　?。?）配置管理</b></p><

18、p>　　配置管理中主要是對學(xué)校中部門和崗位的配置，可對其進(jìn)行增加、修改和刪除操作。</p><p><b>　?。?）數(shù)據(jù)備份</b></p><p>　　信息系統(tǒng)中，系統(tǒng)數(shù)據(jù)的安全性尤為重要，為了防止數(shù)據(jù)被破壞而導(dǎo)致系統(tǒng)出錯或無法正確運行，必須對數(shù)據(jù)庫進(jìn)行備份，以便數(shù)據(jù)遭到破壞后能恢復(fù)。</p><p><b>　?。?）數(shù)據(jù)

19、恢復(fù)</b></p><p>　　該功能實現(xiàn)了在數(shù)據(jù)庫得到備份后能把已備份的數(shù)據(jù)庫恢復(fù)到備份時的狀態(tài)。</p><p><b>　?。?）系統(tǒng)初始化</b></p><p>　　當(dāng)系統(tǒng)需要從新開始運行時，可以將系統(tǒng)恢復(fù)到初始狀態(tài)，以便用戶可以重新使用。</p><p>　　2、教師檔案管理功能</p&g

20、t;<p>　　教師檔案管理功能包括教師檔案信息的增加、修改、刪除和查詢：</p><p><b>　　（1）增加功能</b></p><p>　　該系統(tǒng)按照教師管理人員的書寫習(xí)慣，可對教師的姓名、性別、出生年月、所在部門、職位名稱、最高學(xué)歷、畢業(yè)院校、所學(xué)專業(yè)、身份證號碼、家庭住址、到校時間、電話號碼、手機(jī)、傳呼等基本信息進(jìn)行記錄，為了方便起見，還增加

21、了備注的功能，可以對教師進(jìn)行評語及特點的描述。信息錄入后最終自動生成詳細(xì)的易于操作的教師檔案表， 可以隨時的記錄了解本校教師的信息，一目了然。本系統(tǒng)支持任何一種輸入方法。</p><p><b>　?。?）修改功能</b></p><p>　　該系統(tǒng)提供的檔案修改功能可以在教師的基本情況發(fā)生變化后，根據(jù)修改的項目修改教師原始的各種信息，比如修改學(xué)歷、所在部門、職務(wù)名稱

22、等。</p><p><b>　?。?）刪除功能</b></p><p>　　該系統(tǒng)中刪除的功能是為了考慮人員的流動性，當(dāng)教師調(diào)動后，可及時得把教師信息刪除，在選擇刪除某一條信息后，為了防止誤操作，系統(tǒng)會再次提示“您是否真的刪除”，如果您選擇確認(rèn)后，才能刪除。</p><p><b>　?。?）查詢功能</b></p

23、><p>　　對教師信息，根據(jù)查詢條件列出查詢結(jié)果，其中，查詢條件可以是單一查詢條件，也可以是組合查詢條件。</p><p><b>　?。?）檔案打印功能</b></p><p>　　可根據(jù)需要，打印出教師數(shù)據(jù)庫中所有或部分人的檔案。</p><p>　　3、工資信息管理功能</p><p>　　工

24、資信息主要包括教師的底薪、補貼、獎金、加班費、房貼、養(yǎng)老金、醫(yī)療補助、住房公積金等項目，另外，系統(tǒng)會自動統(tǒng)計該教師的工資的稅前小計、所得稅和實發(fā)工資等信息。</p><p><b>　　主要功能模塊有：</b></p><p><b>　?。?）計發(fā)工資</b></p><p><b>　?。?）查詢工資<

25、/b></p><p><b>　?。?）打印工資</b></p><p>　　第二節(jié) 系統(tǒng)功能模塊圖</p><p>　　系統(tǒng)功能模塊圖見圖4.1。</p><p>　　圖4.1 系統(tǒng)功能模塊圖</p><p>　　第三節(jié) 系統(tǒng)開發(fā)環(huán)境簡介</p><p>　　

26、選擇微軟平臺作為主導(dǎo)，一方面考慮目前微軟的飛速發(fā)展，越來越多的企業(yè)在規(guī)劃內(nèi)部網(wǎng)絡(luò)時，將微軟平臺作為首選方案；另一方面從技術(shù)角度來講，微軟平臺上的應(yīng)用無論是在開發(fā)上，還是在軟件的部署上都非常容易，而且性能優(yōu)越。</p><p>　　操作系統(tǒng)：Windows 98或以上版本</p><p>　　數(shù)據(jù)庫：MS Access 2000</p><p>　　開發(fā)工具與語言:

27、Visual Basic 6.0英文版</p><p>　　第四節(jié) 數(shù)據(jù)庫設(shè)計</p><p>　　教師管理信息系統(tǒng)的數(shù)據(jù)庫選用Microsoft公司的Access產(chǎn)品作為數(shù)據(jù)庫應(yīng)用程序。目前的Access 2000是Microsoft強(qiáng)大的桌面數(shù)據(jù)庫平臺的第六代產(chǎn)品，是3 2位Access的第三個版本。</p><p>　　教師管理信息系統(tǒng)的數(shù)據(jù)庫名稱為mang

28、.mdb，該數(shù)據(jù)庫由四張表組成，它們分別是：</p><p>　　員工基本信息表：mang</p><p>　　部門名稱信息表：dep</p><p>　　崗位名稱信息表：func</p><p>　　查詢數(shù)據(jù)暫存表：query</p><p>　　查詢數(shù)據(jù)暫存表的數(shù)據(jù)結(jié)構(gòu)與教師基本信息表的數(shù)據(jù)結(jié)構(gòu)相同。</p&

29、gt;<p><b>　　1、教師信息查詢表</b></p><p>　　表 4.2教師信息查詢表</p><p><b>　　2、部門名稱信息表</b></p><p>　　表 4.3 部門名稱息查詢表</p><p><b>　　3、崗位名稱信息表</b>&l

30、t;/p><p>　　表 4.4 崗位名稱信息查詢表</p><p>　　第四章 教師管理信息系統(tǒng)的功能實現(xiàn)</p><p>　　第一節(jié) 系統(tǒng)技術(shù)要點</p><p><b>　　一、時間范圍的查詢</b></p><p>　　時間范圍的查詢和一般字符的查詢并不一樣。一般字符的查詢使用 SQL 語句

31、 “SELECT * FROM jiating where 姓名='" + ss +”即可，對于時間這樣的字符使用的SQL必須是這樣的格式“SELECT * FROM MANG where 日期 Between "#2/2/2002" And "2/2/2003#”。</p><p>　　因此使用SS定義STRING型變量用SS="#" &

32、amp; Text1.Text & "#"連接中間字符使用SELECT * FROM MANG where 日期 Between " + ss + " And " + ss2 + "索檢記錄。</p><p>　　二、打印查詢后的記錄</p><p>　　對于動態(tài)打印，直接使用DataReport是無法實現(xiàn)的。所以首先

33、建立臨時數(shù)據(jù)表 用"INSERT INTO QUERY SELECT* FROM QUERY where ", mycn, adOpenKeyset, adLockOptimistic將要打印的記錄存放其中，再使用DataReport時，我通過DataEnvironment連接了一個臨時數(shù)據(jù)表，該數(shù)據(jù)表中的數(shù)據(jù)根據(jù)查詢條件的不同而變化，然后用刷新報表即可。</p><p>　　第二節(jié) 添加功

34、能模塊設(shè)計</p><p>　　通過ADO控件連接到數(shù)據(jù)庫的RS表，通過SQL語句“SELECT rs.編號, rs.姓名, rs.年齡, rs.部門, rs.職級, rs.婚姻狀況, rs.文化程度, rs.工作年數(shù), rs.聯(lián)系電話, rs.家庭住址, rs.身份證號碼 FROM rs;” 篩選出全部記錄，通過ADO控件連接到數(shù)據(jù)庫的RS表，通過SQL語句“SELECT rs.編號, rs.姓名, rs.年齡

35、, rs.部門, rs.職級, rs.婚姻狀況, rs.文化程度, rs.工作年數(shù), rs.聯(lián)系電話, rs.家庭住址, rs.身份證號碼 FROM rs;“ 篩選出全部記錄。</p><p>　　用TEXT控件，將它的數(shù)據(jù)源設(shè)為ADO控件，將它的各列顯示出數(shù)據(jù)庫的各列。屬性設(shè)為可寫。</p><p>　　Private Sub Command1_Click()</p>&l

36、t;p>　　On Error Resume Next</p><p>　　Adodc1.Recordset.AddNew 添加記錄 </p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p>　　On Error R

37、esume Next</p><p>　　Adodc1.Recordset.Delete 刪除記錄</p><p><b>　　End Sub</b></p><p>　　第三節(jié) 信息查詢模塊設(shè)計</p><p>　　這里就列出查詢源代碼進(jìn)行說明：</p><p>　　Private

38、 Sub Command6_Click()</p><p>　　ss= Text2.Text 設(shè)定4個變量</p><p>　　Adodc1.RecordSource = "SELECT * FROM RS where " + ss2 + "='" + ss4 + "' and

39、 " + ss3 + "='" + ss5 + "'"</p><p>　　Adodc1.Refresh</p><p>　　字段1=變量SS1 值=SS2 字段2=變量SS3 值=SS4</p><p><b>　　End Sub</b></p>

40、<p>　　第四節(jié) 計發(fā)工資信息模塊設(shè)計</p><p>　　通過ADO控件連接到數(shù)據(jù)庫的表工資</p><p>　　用控件，將它的數(shù)據(jù)源設(shè)為ADO控件，將它的各列顯示出數(shù)據(jù)庫的各列。</p><p>　　Private Sub Command1_Click()</p><p>　　On Error Resume Next<

41、/p><p>　　Adodc1.Recordset.AddNew 添加記錄 </p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p>　　On Error Resume Next</p><p>　　

42、Adodc1.Recordset.Delete 刪除記錄</p><p><b>　　End Sub</b></p><p><b>　　第五章 測試與分析</b></p><p><b>　　第一節(jié) 測試環(huán)境</b></p><p>　　本次實例測試是在電信部門

43、的工作現(xiàn)場中完成的。</p><p><b>　　測試所在硬件環(huán)境：</b></p><p>　　中央處理器 奔騰4處理器</p><p><b>　　內(nèi)存：128M</b></p><p>　　硬盤：40G 轉(zhuǎn)速7200轉(zhuǎn)/分</p><p>　　光驅(qū)：CD-ROM 52X

44、</p><p>　　顯示器： 彩色 真彩32 分辨率 1024×768</p><p>　　標(biāo)準(zhǔn)鍵盤、標(biāo)準(zhǔn)光電鼠標(biāo)</p><p>　　打印機(jī)：HP LaserJet 5100 PCL6</p><p><b>　　測試所在軟件環(huán)境：</b></p><p>　　Windows X

45、P Professional SP2</p><p>　　Microsoft office 2003</p><p><b>　　第二節(jié) 測試方法</b></p><p>　　測試是一個為了尋找錯誤而運行程序的過程，一個好的測試用例是只可能找到迄今為止尚未發(fā)現(xiàn)錯誤的用例，一個成功的測試是揭示了迄今為止尚未發(fā)現(xiàn)的錯誤的測試。</p>

46、<p>　　軟件測試基本可分為白盒測試和黑盒測試。兩種測試方法從不同的角度出發(fā)，反映了軟件的不同側(cè)面，也適用于不同的開發(fā)環(huán)境。白盒測試又稱結(jié)構(gòu)測試、邏輯驅(qū)動測試或基于程序本身的測試，也可稱為測試員測試，主要應(yīng)用于結(jié)構(gòu)化開發(fā)環(huán)境。黑盒測試又稱功能測試、數(shù)據(jù)驅(qū)動測試或基于規(guī)格的測試，也可被稱為用戶測試，主要用于快速應(yīng)用開發(fā)（RAD）環(huán)境。</p><p>　　本例所用的是黑盒測試。在測試時，把程序看作一

47、個不能打開的黑盆子，在完全不考慮程序內(nèi)部結(jié)構(gòu)和內(nèi)部特性的情況下，測試者在程序接口進(jìn)行測試，它只檢查程序功能是否按照需求規(guī)格說明書的規(guī)定正常使用，程序是否能適當(dāng)?shù)亟邮蛰斎霐?shù)鋸而產(chǎn)生正確的輸出信息，并且保持外部信息（如數(shù)據(jù)庫或文件）的完整性。黑盒測試方法主要有等價類劃分、邊值分析、因—果圖、錯誤推測等，主要用于軟件確認(rèn)測試。 “黑盒”法著眼于程序外部結(jié)構(gòu)、不考慮內(nèi)部邏輯結(jié)構(gòu)、針對軟件界面和軟件功能進(jìn)行測試?！昂诤小狈ㄊ歉F舉輸入測試，只有把所

48、有可能的輸入都作為測試情況使用，才能以這種方法查出程序中所有的錯誤。實際上測試情況有無窮多個，人們不僅要測試所有合法的輸入，而且還要對那些不合法但是可能的輸入進(jìn)行測試。</p><p><b>　　第三節(jié) 測試項目</b></p><p>　　表 6.1 測試項目表</p><p><b>　　第六章 結(jié)束語</b>&

49、lt;/p><p>　　在軟件的編寫過程中，我充分體會了軟件編程工作者的辛苦，因為每一個細(xì)微的細(xì)節(jié)都必須十分的注意，如果稍有不慎，就會全盤皆輸，而且往往很多的時候，程序我自己覺得非常的正確，但是就是編譯通不過，在查找錯誤的過程中，面臨著否認(rèn)自己的過程，是對意志品質(zhì)的考驗。</p><p>　　我的辛勤努力有了匯報，終于做出了一個完整的軟件，雖然這個軟件的功能并不算得上復(fù)雜，但在實際的運用中，已

50、經(jīng)發(fā)揮了他得價值，在人事工作中，已經(jīng)將我工作得努力轉(zhuǎn)化為生產(chǎn)力。這就像是精心栽培得果實成熟時心中得感受。他畢竟代表了我四個月辛勤的結(jié)晶。</p><p>　　相信，有了這次得實踐，我會更有信心在將來得工作中做出更大成績。</p><p>　　在本系統(tǒng)的設(shè)計過程和論文編寫過程中，很多老師、同事和朋友都給與了我許多無私的幫助，尤其是我的導(dǎo)師給我的論文提出了很多寶貴的修改意見，在這里，我向這些無

51、私幫助我的人表示衷心的感謝。</p><p><b>　　參考文獻(xiàn)</b></p><p>　　[1] 劉世峰.《Visual Basic 程序設(shè)計》中央廣播電視大學(xué)出版社2004.7</p><p>　　[2] 廖彬山.《Visual Basic面向?qū)ο笈c可視化程序設(shè)計》.清華大學(xué)出版社. 2004.6 </p><p&

52、gt;　　[3] 高越明.《Visual Basic程序設(shè)計》.中國電力出版社..2004.5</p><p>　　[4] 黃維通.《Visual Basic 6.0信息系統(tǒng)設(shè)計與開發(fā)實例》.機(jī)械工業(yè)出版社.2004.4 </p><p>　　[5] 朱順泉，姜靈敏.《管理信息系統(tǒng)理論與實務(wù)（修訂版）》.人民郵電出版社.2004.4 </p><p>　　[6]

53、王興晶.《Visual Basic 6.0應(yīng)用編程150例》.電子工業(yè)出版社.2004.3</p><p>　　[7] 林卓然.《Visual Basic 程序設(shè)計教程》. 電子工業(yè)出版社.2004.2 </p><p><b>　　附錄：源代碼</b></p><p>　　登陸界面 form12</p><p>　　P

54、rivate Sub Form_Load()</p><p>　　Dim mname As String ‘ 定義變量 用于存放姓名變量</p><p>　　Dim pass As String ‘ 定義變量 用于存放存放變量</p><p><b>　　End Sub</b></p&

55、gt;<p>　　Private Sub Command1_Click()</p><p>　　mname = Text1.Text ‘將界面的文本框的值賦給給姓名和密碼變量</p><p>　　pass = Text2.Text</p><p>　　Dim mycn As New ADODB.Connection

56、定義ADO連接</p><p>　　Dim myrs As New ADODB.Recordset 定義ADO記錄集</p><p>　　Set myrs = New ADODB.Recordset</p><p>　　mycn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=mang.

57、mdb;" </p><p>　　打開當(dāng)前目錄下的mang.mdb數(shù)據(jù)庫</p><p>　　myrs.Open "SELECT * FROM [user] where (user.user)='" + mname + "';", mycn, adOpenKeyset, adLockOptimistic</p>

58、<p>　　通過SQL 語句打開符合姓名變量記錄</p><p>　　If myrs.BOF = True And myrs.EOF = True Then 如果沒找到</p><p>　　MsgBox "查無此人", , "登陸信息" 返回 </p><p&g

59、t;<b>　　Else </b></p><p>　　If myrs("pass") = pass Then 找到了則檢查密碼是否正確 </p><p>　　FrmMain.Show 如果正確則打開主界面 Unload Me</p><p&g

60、t;<b>　　Else</b></p><p>　　MsgBox "密碼不正確", , "登陸信息" 否則返回</p><p><b>　　End If</b></p><p><b>　　End If</b></p><

61、;p><b>　　End Sub</b></p><p>　　Private Sub Form_DblClick()</p><p>　　MsgBox "hello"</p><p><b>　　End Sub</b></p><p><b>　　主界面</

62、b></p><p>　　Private Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long</p><p>　　'聲明API函數(shù)用于數(shù)據(jù)備份和恢復(fù)</p><p>

63、　　Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long</p><p>　　Priv

64、ate Sub Form_Load()</p><p>　　Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 4000)</p><p>　　Me.Top = GetSetting(App.Title, "Settings", "MainTop",

65、4000)</p><p>　　Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 6500)</p><p>　　Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 6500)&

66、lt;/p><p><b>　　'定位界面</b></p><p><b>　　End Sub</b></p><p>　　Private Sub mnudayindangan_Click()</p><p>　　Form5.Show '打開界面</p><p&g

67、t;<b>　　End Sub</b></p><p>　　Private Sub mnudayinlaozi_Click()</p><p>　　DataReport5.Show '打開報表</p><p><b>　　End Sub</b></p><p>　　Private Sub m

68、nulaozijifa_Click()</p><p>　　Form7.Show '打開界面</p><p><b>　　End Sub</b></p><p>　　Private Sub mnupeizhi_Click()</p><p>　　Form3.Show '打開界面</p>&l

69、t;p><b>　　End Sub</b></p><p>　　Private Sub mnutuichu_Click()</p><p>　　End '退出所有程序</p><p><b>　　End Sub</b></p><p>　　Private Sub mnudayinw

70、anzheng_Click()</p><p>　　'應(yīng)做:添加 'mnudayinwanzheng_Click' 代碼。</p><p>　　MsgBox "添加 'mnudayinwanzheng_Click' 代碼。"</p><p><b>　　End Sub</b></

71、p><p>　　Private Sub mnudayinjiandan_Click()</p><p>　　'應(yīng)做:添加 'mnudayinjiandan_Click' 代碼。</p><p>　　MsgBox "添加 'mnudayinjiandan_Click' 代碼。"</p><p&

72、gt;<b>　　End Sub</b></p><p>　　Private Sub mnulaozichaxun_Click()</p><p>　　Form9.Show '打開界面</p><p><b>　　End Sub</b></p><p>　　Priv

73、ate Sub mnudanganchaxun_Click()</p><p>　　Form4.Show '打開界面</p><p><b>　　End Sub</b></p><p>　　Private Sub mnudanganshanchu_Click()</p><p>　

74、　Form1.Command9.Visible = False</p><p>　　Form1.Command1.Visible = True</p><p>　　Form1.Show '打開界面</p><p><b>　　End Sub</b></p><p>　　Private