數(shù)據(jù)庫應用、 實驗室設備管理系統(tǒng)

1、遼 寧 工 業(yè) 大 學數(shù)據(jù)庫應用技術課 程 設 計 說 明 書題目： 實驗室設備管理系統(tǒng) 學院（系）： 軟件學院 專業(yè)班級： 軟件工程班 學 號： 學生姓名： 指導教師： 佟玉軍 教師職稱： 副教授 起止時間：2011.12.19-2011.12.31遼寧工業(yè)大學課程設計（論文）任務書院（系）：軟件學院 教研室： 軟件工程 學 號111301049學生姓名劉璐專業(yè)班級軟件工程112班設計題目實驗室設備管理系統(tǒng)設計技術參數(shù)1 題目要達到的目標：完成系統(tǒng)的登陸、數(shù)據(jù)的插入刪除修改統(tǒng)計等基本操作。2 數(shù)據(jù)庫：SQLSERVER2000。3 所使用的語言、工具:VB6.0+ SQLSERVER2000

2、+WINDOWSXP。4 所采用的技術、系統(tǒng)結構:ADO數(shù)據(jù)庫聯(lián)接技術,系統(tǒng)結構為C/S結構。設計要求1 教師布置實習任務和要求時，不得缺席，并做好記錄。2 上機前預先把所有的源程序編寫好。3 上機時不得遲到，不得缺席，愛護設備，認真調(diào)試程序。4 仔細查閱相關資料，認真完成思考題。5 按要求書寫設計任務書，并按要求按版打印，不得雷同。工作量二周工作計劃周一聽取教師布置設計的任務及要求。周二學生查閱相關資料，進行數(shù)據(jù)庫設計。周三至周五：詳細設計與界面設計。周一至周四程序設計與上機，調(diào)試源程序。周五書寫課程設計任務書。參考資料數(shù)據(jù)庫應用技術數(shù)據(jù)庫應用技術實驗指導書自編數(shù)據(jù)庫應用技術課程設計大綱自編

3、等指導教師評語 教師： 學生：說明：此表一式四份，學生、指導教師、教研室、系部各一份。可加附頁。2011年 12 月 31 遼 寧 工 業(yè) 大 學 課 程 設 計 說 明 （ 計 算 ）書 目錄第一章 概述4第二章 問題定義5第三章 需求分析6第四章 數(shù)據(jù)庫設計12第五章 界面設計17第六章 代碼與注釋19參考文獻24第一章 概述實驗室設備管理系統(tǒng)是一個典型的信息管理系統(tǒng)，它可以為實驗室形成一個規(guī)范的管理體系。他的功能非常的強大，能夠完成設備的購置、使用、維修、賠償、報廢等多方面功能。系統(tǒng)采用VB（Visual Basic）和SQL Server 2000進行開發(fā)，VB是Microsoft公司

4、推出的一種Windows應用程序開發(fā)工具。是當今世界上使用最廣泛的編程語言之一，它也被公認為是編程效率最高的一種編程方法。它的功能強大、開發(fā)出來的軟件性能可靠。SQL Server 2000是微軟公司開發(fā)的大型關系數(shù)據(jù)庫管理系統(tǒng)，它不僅可以滿足大型數(shù)據(jù)處理系統(tǒng)對數(shù)據(jù)存儲量的需求，而且對于小型企業(yè)和個人來說，也可以作為管理數(shù)據(jù)的簡易工具，數(shù)據(jù)庫性能良好，數(shù)據(jù)可靠性高，易于使用。整個系統(tǒng)從符合操作簡便、界面友好、靈活、實用、安全的要求出發(fā)，完成學校部門管理、設備分類管理、設備的基本信息管理、設備使用管理、設備維護管理、設備報廢管理、綜合查詢管理等功能。并通過設置權限管理來實現(xiàn)系統(tǒng)的安全性和可靠性的

5、管理。目前國內(nèi)學校教學設備自動化管理水平不是很高。大多數(shù)學校設備管理辦法是設備采購進來以后，將設備的基本情況和相關信息登記存檔，然后將檔案存檔。以后檔案基本就沒人維護，如設備位置變遷、檢修情況、設備當前運行狀態(tài)等信息根本不會體現(xiàn)在設備臺帳上，即設備跟蹤信息不能及時體現(xiàn)在設備檔案上。某些使用設備管理系統(tǒng)學校，對設備的跟蹤信息即使能體現(xiàn)在設備檔案上，但設備的缺陷處理及設備缺陷等功能沒有實施，設備檢修的備品備件情況和檢修成本核算沒有實現(xiàn)，整個學校設備管理信息化仍處于較低水平。本系統(tǒng)滿足學校設備管理的需要，將會提高學校的辦公效率和設備可靠性，減少工作人員的勞動強度，減少辦公耗材，提高學校的現(xiàn)代化管理水

6、平。實時報警功能對學校的安全生產(chǎn)更是不可忽視。第二章 問題定義因為現(xiàn)在各個高校內(nèi)教學設備眾多但自動管理水平相比過低，很多高校管理設備都采用在設備購進以后將設備的基本情況和相關信息登記存檔。存檔以后檔案基本就沒人記錄與維護，至于以后設備的變遷或損壞都不會記錄在設備檔案中，即不能體現(xiàn)設備的即時狀態(tài)。而有些即使有設備管理系統(tǒng)的單位，就算是能把設備的即時信息體現(xiàn)在設備檔案上，但設備的缺陷處理及設備缺陷等功能沒有實施，設備檢修的備品備件情況和檢修成本核算沒有實現(xiàn)，整個學校教學設備管理信息化仍處于較低水平。將管理任務分成小塊，落實到個人并能隨時查詢設備當前情況和歷史情況，對設備的可靠性分析有直接作用，使管

7、理人員從手工計算、統(tǒng)計工作中解脫出來。 現(xiàn)在，科學技術的飛速發(fā)展把人類社會推向了一個嶄新的時代信息時代。這已是無可爭議的事實；信息對社會經(jīng)濟發(fā)展的巨大推動作用，使其與物質(zhì)能源一起并列為現(xiàn)代社會的三大支柱，這已在全社會達到共識。隨著對信息作為一種資源來管理的需求日益加強，信息研究領域出現(xiàn)了一種新的管理思想和模式信息管理。因此，就誕生了“信息管理”這樣一個概念。由于信息是普遍存在的，人類信息管理活動的范圍也是十分廣泛的，信息管理不僅是信息工作的一部分，而且已被認為是現(xiàn)代管理的重要組成部分。信息管理的概念源于西方，也是在世界信息量迅速增長、信息技術日新月異、信息產(chǎn)業(yè)強勁發(fā)展的六七十年代出現(xiàn)的。時至今

8、日，信息管理已不僅僅是一個概念，而是信息學和管理學中的重要內(nèi)容了。對信息管理的理解，一種認為是，信息管理就是對信息的管理。第三章 需求分析一、數(shù)據(jù)庫需求分析1）設備信息管理部分管理員可對設備信息庫進行維護，可添加新設備信息。管理員可對設備類別進行維護，可添加新設備類別。管理員可對設備信息進行查詢。管理員可查看設備類別。設備是否已經(jīng)借出應存儲在設備信息中，因此設備必須有一個字段來記錄。2）設備使用者部分管理員可對使用者信息進行維護，如添加，刪除，修改讀者信息等。管理員可通過ID查詢使用者信息，因此使用者ID必須唯一，且為必填字段。使用者可以注銷，即刪除使用者。3）設備借還部分管理員可對借用設備和

9、歸還設備信息進行維護，如添加，刪除，修改等。因設備不經(jīng)常外借，所以管理員應能一次性查閱所有借用記錄。外借設備和歸還記錄中應包含借用者信息，如單位，姓名等。4）設備維修部分管理員可以對維修信息進行維護，如添加，刪除，修改等。管理員可通過ID或類別查詢設備維修信息，因此設備ID必須唯一，且要有分類查詢功能。5）設備報廢部分管理員可以對報廢信息進行維護，如添加，刪除，修改等。管理員可通過ID或類別查詢設備報廢信息，因此設備ID必須唯一，且要有分類查詢功能。6）設備賠償部分管理員可以對賠償信息進行維護，如添加，刪除，修改等。管理員可通過ID或類別查詢設備賠償信息，因此設備ID必須唯一，且要有分類查詢功

10、能。7）實驗室管理員信息管理部分管理員可對實驗室管理員信息進行維護，如添加，刪除設備管理員信息等。管理員可通過ID查詢實驗室管理員信息，因此設備管理員ID必須唯一，且為必填字段。8）管理員信息管理部分管理員有權限劃分，每個管理員ID必須對應一個管理員權限類型（系統(tǒng)管理員，高級管理員，普通管理員）。管理員ID必須唯一。系統(tǒng)管理員可以維護管理員信息，如添加，刪除管理員。系統(tǒng)管理員可以查詢管理員信息，因此可查詢字段（ID）必須設置為必填。二、數(shù)據(jù)流圖數(shù)據(jù)流程圖是軟件工程學和管理信息系統(tǒng)科學中的概念,它描述的是一個具體的業(yè)務處理系統(tǒng)的信息來源,存儲,處理和信息將要流到何處去的全面情況,它可以輔助計算機

11、專業(yè)人員更好的了解現(xiàn)有系統(tǒng)的一些狀況,但還需要一些工具來補充系統(tǒng)的流程細節(jié)。是以圖形的方式表達在問題中信息的變換和傳遞過程。它把系統(tǒng)看成是由數(shù)據(jù)流聯(lián)系的各種概念的組合，用分解及抽象手段來控制需求分析的復雜性，采用分層的數(shù)據(jù)流程圖來表示一個復雜的系統(tǒng)。需要注意的是數(shù)據(jù)流圖和程序設計中的程序流程圖是不同的，數(shù)據(jù)流圖關心的是企業(yè)業(yè)務系統(tǒng)中的數(shù)據(jù)處理加工的客觀過程，并不關心未來電子化處理的加工過程；數(shù)據(jù)流圖中流動的只是數(shù)據(jù)，并沒有控制過程，但在程序流程圖當中，必須有控制邏輯。結構化分析是面向數(shù)據(jù)流開展需求分析工作的一種有效方法。一般采用自頂向下，逐層分解的演義分析法來定義系統(tǒng)的需求，即先把分析對象抽象

12、成一個系統(tǒng)，然后自頂向下的逐層分解，將復雜的系統(tǒng)分解成簡單的、能夠清楚地被理解和表達的若干個子系統(tǒng)。這樣就可以分別理解系統(tǒng)的每個細節(jié)、前后順序和相互關系，找出各部分之間的數(shù)據(jù)接口。在結構化分析方法所采用的工具有數(shù)據(jù)流程圖（DFD）、數(shù)據(jù)字典（DD）、結構化語言、判定樹、判定表等。數(shù)據(jù)流圖就是采用圖形方式來表達系統(tǒng)的邏輯功能、數(shù)據(jù)在系統(tǒng)內(nèi)部的邏輯流向和邏輯變換過程，是結構化系統(tǒng)分析方法的主要表達工具及用于表示軟件模型的一種圖示方法。本系統(tǒng)流圖如圖3.1所示。管理員管理員設置設備類型設置實驗室信息設置供應商信息設置用戶權限設置管理員信息設備信息實驗室信息權限信息供應商信息設備添加實驗室管理員設置使

13、用者信息設置設備信息使用者信息實驗室管理員信息設備賠償設備賠償信息產(chǎn)生報表管理員產(chǎn)生報表管理員設備報廢設備報廢信息產(chǎn)生報表管理員設備借還設備借還信息產(chǎn)生報表管理員設備維修設備維修信息產(chǎn)生報表管理員圖3.1數(shù)據(jù)流圖三、數(shù)據(jù)字典（DD）:數(shù)據(jù)字典是一種用戶可以訪問的記錄數(shù)據(jù)庫和應用程序元數(shù)據(jù)的目錄。主動數(shù)據(jù)字典是指在對數(shù)據(jù)庫或應用程序結構進行修改時，其內(nèi)容可以由DBMS自動更新的數(shù)據(jù)字典。數(shù)據(jù)字典中存放著系統(tǒng)中所有數(shù)據(jù)的定義，即對所有數(shù)據(jù)庫結構的描述。數(shù)據(jù)字典提供了對數(shù)據(jù)庫描述的集中管理手段。數(shù)據(jù)字典是一個定義應用程序中使用的所有數(shù)據(jù)元素和結構的含義、類型、數(shù)據(jù)大小、格式、度量單位、精度以及允許聚

14、值范圍的共享倉庫。作用是確保開發(fā)人員使用統(tǒng)一的數(shù)據(jù)定義，數(shù)據(jù)字典中有關系統(tǒng)的詳細信息是系統(tǒng)設計、系統(tǒng)實施與維護的重要依據(jù)。是關于數(shù)據(jù)信息的集合，也就是對數(shù)據(jù)流圖中包含的所有元素定義的集合。任何字典最主要的用途都是供人查閱不了解的條目的解釋，數(shù)據(jù)字典的作用也正是在軟件分析和設計過程中給人提供關于數(shù)據(jù)的描述信息。數(shù)據(jù)流圖和數(shù)據(jù)字典共同構成系統(tǒng)的邏輯模型，沒有數(shù)據(jù)字典數(shù)據(jù)流圖就不嚴格，然而沒有數(shù)據(jù)流圖數(shù)據(jù)字典也難于發(fā)揮作用。只有數(shù)據(jù)流圖和對數(shù)據(jù)流圖精確的定義放在一起，才能共同構成系統(tǒng)的規(guī)格說明。 以下是數(shù)據(jù)流圖中主要元素的數(shù)據(jù)字典卡片:名字：LabAd_ID別名：實驗室管理員編號描述：唯一標志實驗室

15、管理員的關鍵域位置：實驗室信息表(Lab_Info)實驗室管理員信息表(LabAd_Info)名字：Lab_ID別名：實驗室編號描述：唯一標志實驗室的關鍵域位置：實驗室信息表(Lab_Info) 設備信息表(Equip_Info) 維修信息表(Mend_Info) 報廢信息表(Broke_Info) 賠償信息表(Pey_Info)名字：Equip_ID別名：設備編號描述：唯一標志一個特定設備的關鍵域位置：實驗室信息表(Lab_Info) 設備信息表(Equip_Info) 維修信息表(Mend_Info) 報廢信息表(Broke_Info) 賠償信息表(Pey_Info)名稱：SysAd_ID

16、別名：描述：記錄各部門的基本信息 位置：系統(tǒng)管理員信息表（SysAd_Info）供應商信息表（Orter_Info）用戶權限表（Limit_Info）日志信息表（Log_Info）注冊控制表（Reg_Info）四、程序流程圖： 實驗室設備管理系統(tǒng)操作流程如圖3.2所示，系統(tǒng)提供兩種登錄方式，使用者可以先注冊一個使用編號，然后根據(jù)注冊信息登錄系統(tǒng)。開 始選擇登錄方式否使用者管理員否否選擇操作類型成功登錄注冊選擇操作方式否是成功成功否綜合查詢綜合查詢系統(tǒng)管理基本信息管理設備查詢與統(tǒng)計日常事務管理得到返回結果得到返回結果退出退出是是結 束結 束圖3.2程序流程圖五、功能結構圖：系統(tǒng)功能結構圖主要從功

17、能的角度描述了系統(tǒng)的結構，但并未表達各功能之間的數(shù)據(jù)傳送關系。事實上，系統(tǒng)中許多業(yè)務或功能都是通過數(shù)據(jù)文件聯(lián)系起來的。例如，某一功能模塊向某一數(shù)據(jù)文件中存入數(shù)據(jù)，而另一個功能模塊則從該數(shù)據(jù)文件中取出數(shù)據(jù)。再比如，雖然在數(shù)據(jù)流程圖中的某兩個功能模塊之間原來并沒有通過數(shù)據(jù)文件發(fā)生聯(lián)系，但為了處理方便，在具體實現(xiàn)中有可能在兩個處理功能之間設立一個臨時的中間文件以便把它們聯(lián)系起來。上述這些關系在設計中是通過繪制信息系統(tǒng)流程圖來從整體上表達的。系統(tǒng)功能圖如圖3.3所示。實驗室設備管理系統(tǒng)日常事務管理設備的查詢與統(tǒng)計基本信息管理系統(tǒng)管理綜合管理設備購置管理設備使用管理設備維修管理入庫查詢與統(tǒng)計維修查詢與統(tǒng)

18、計賠償查詢與統(tǒng)計設備類型管理實驗室管理員管理設備供應商管理設備使用者管理用戶管理修改密碼權限管理綜合信息查詢 圖3.3系統(tǒng)功能圖第四章 數(shù)據(jù)庫設計一、概念設計： 實驗室管理員姓名ID電話性別住址圖4.1實驗室管理員實體E-R圖設備ID名稱類別金額保修年限生產(chǎn)廠商購置日期圖4.2設備實體E-R圖實驗室ID名稱圖4.3實驗室實體E-R圖系統(tǒng)管理員名稱ID密碼備注權限類型圖4.4系統(tǒng)管理員實體E-R圖實驗室管理員管理管理員管理實驗室設 備使用者供應商設備類別維修屬于借還賠償報廢分類供貨使用11n11nnn1n1n1圖4.5系統(tǒng)總體E-R圖二、邏輯設計：本系統(tǒng)采用Microsoft SQL Serve

19、r 2000 建立數(shù)據(jù)庫，包括14張表：“設備信息表”、“設備維修信息表”、“設備報廢信息表”、“設備借還信息表”、“賠償記錄信息表”、“實驗室信息表”、“設備類型信息表”、“設備使用者信息表”、“實驗室管理員信息表”、“系統(tǒng)管理員信息表”、“供應商信息表”、“用戶權限表”、“日志信息表”、“注冊控制表”。下面列出幾個主要的數(shù)據(jù)庫表設計：表4.1 實驗室管理員信息表列名數(shù)據(jù)類型字段大小必填字段默認值說明LabAd_IDvarchar50是遞增，主鍵LabAd_Namevarchar50是實驗室管理員姓名LabAd _Sexchar4是男實驗室管理員性別LabAd _Addrvarchar200

20、是實驗室管理員住址LabAd _Teltext16是實驗室管理員電話表4.2設備信息表列名數(shù)據(jù)類型字段大小必填字段默認值說明Equip_IDchar15是主鍵，設備編號Type_IDint4是設備類型Orter_IDint4是設備供應商Equip_Datedatetime8是購置日期Equip_Pricemoney8是設備金額Equip_Yearint4是保修年限Usr_IDchar16null設備使用者Lab_IDint4是null所屬實驗室Equip_Elsevarchar200null備注Equip_Lendchar4是否是否已外借報廢狀態(tài)char4是否是否報廢表4.3實驗室信息表列名數(shù)

21、據(jù)類型字段大小必填字段默認值說明Lab_IDint4是遞增，主鍵Lab_Namechar16是實驗室名稱LabAd_IDvarchar50實驗室管理員編號表4.4 系統(tǒng)管理員信息表列名數(shù)據(jù)類型字段大小必填字段默認值說明Admin _Namechar16是主鍵，管理員名稱Admin_SecNumchar16是管理員密碼Admin_Typechar10是權限類型Admin_Elsetext16管理員備注Timesint40記錄用戶進入系統(tǒng)前，密碼錯誤次數(shù)三、物理設計 1. 數(shù)據(jù)庫的物理設計的內(nèi)容和方法數(shù)據(jù)庫最終是要存儲在物理設備上的。為一個給定的邏輯數(shù)據(jù)模型選取一個最適合應用環(huán)境的物理結構的過程，

22、就是數(shù)據(jù)庫的物理設計。物理結構依賴于給定的DBMS和和硬件系統(tǒng)，因此設計人員必須充分了解所用DBMS的內(nèi)部特征，特別是存儲結構和存取方法；充分了解應用環(huán)境，特別是應用的處理頻率和響應時間要求；以及充分了解外存設備的特性。 數(shù)據(jù)庫的物理設計通常分為兩步： (1).確定數(shù)據(jù)庫的物理結構 (2).對物理結構進行評價，評價的重點是時間和空間效率 2. 數(shù)據(jù)庫表的創(chuàng)建打開SQL數(shù)據(jù)庫，單擊“創(chuàng)建數(shù)據(jù)庫表”菜單的“新建數(shù)據(jù)庫表結構”菜單項。在彈出的“創(chuàng)建數(shù)據(jù)庫表結構”界面中，單擊“新建模板”按鈕。在彈出的對話中，輸入數(shù)據(jù)庫表名，然后，單擊確定。部分所建表如下所示：圖4.6實驗室管理員信息圖4.7設備信息圖

23、4.8實驗室信息圖4.9系統(tǒng)管理員信息第五章 界面設計一、登陸窗口如下所示：用戶擁有自己的用戶名、密碼和使用權限。當輸入用戶名和密碼以后，點擊“確定”鍵，如果用戶名和密碼都正確就可以順利進入主窗體，如果輸入錯誤，那么就有相應的提示信息。如圖5.1所示。圖5.1 登錄界面二、主界面輸入正確的用戶名和密碼后會進入主界面，如圖5.2所示。圖5.2系統(tǒng)主界面圖三、密碼管理用戶可以修改自己的密碼，選擇菜單“系統(tǒng)管理修改密碼”，如圖5.3所示圖5.3修改密碼界面四、設備基本信息管理界面設計此界面可以實現(xiàn)對設備類型的查詢等功能。有按設備編號和實驗室名稱查詢兩種方式。每個設備都有自己的編號，輸入標號就可以查詢

24、每個設備的詳細信息；如果不知道編號，輸入設備所在的實驗室名稱也可查詢到要找設備的詳細信息。如圖5.4所示。圖5.4設備基本信息管理界面五、設備購置管理界面設計本界面實現(xiàn)新購置設備的錄入功能，其中包括設備編號，設備名稱，設備類型，生產(chǎn)廠商，購置日期，金額，保修年限，所屬實驗室，等，購入新設備時，應該完成對設備的完整添加，添加時使用人可不填，也就是將設備添加到數(shù)據(jù)庫中。如圖5.5所示。圖5.5設備購置管理界面第六章 代碼與注釋一、登錄代碼Private Sub Command1_Click() Dim rs As New ADODB.Recordset Dim rs1 As New ADODB.R

25、ecordset Dim rs2 As New ADODB.Recordset Dim rs3 As New ADODB.Recordset Dim n, X, M As Integer If txtuser.Text = "" Then MsgBox "請輸入用戶名！" Exit Sub End If If txtid.Text = "" Then MsgBox "請輸入密碼" Exit Sub End If If txtuser.Text = "Admin" Or txtuser.Text

26、= "admin" Then rs3.Open "select * from SysAd_Info where Admin_Name='" & Trim(txtuser.Text) & "' and Admin_SecNum='" & Trim(txtid.Text) & "'", DBCnn, adOpenStatic, adLockOptimistic If rs3.RecordCount > 0 Then frmmain.Show frml

27、og.Hide Else MsgBox "密碼有誤，請重新輸入！" End If Else rs.Open "select * from SysAd_Info where Admin_Name='" & Trim(txtuser.Text) & "'", DBCnn, adOpenStatic, adLockOptimistic If rs.RecordCount <= 0 Then MsgBox "該用戶名不存在！請重新輸入正確信息！" Else If Val(rs.Fiel

28、ds("Times") >= 5 Then MsgBox "該用戶已被鎖定，請與超級管理員聯(lián)系！" Else rs2.Open "select * from SysAd_Info where Admin_SecNum='" & Trim(txtid.Text) & "'", DBCnn, adOpenStatic, adLockOptimistic If rs2.RecordCount > 0 Then rs.Fields("Times") = 0 r

29、s.Update frmmain.Show frmlog.Hide Else rs.Update MsgBox "密碼輸入有誤，請重新輸入！" End If End If End If End If二、主界面代碼Private Sub menu4_Click(Index As Integer) Select Case Index Case 1 frmadmin.Show Case 2 frmser.Show Case 3 frmlim.Show Case 4 For Each Form In Forms If frmmain.Caption = "實驗室設備管理系

30、統(tǒng)" Then frmmain.Show Else Unload Form End If Next Form frmbf.Show Case 5 frmloginfo.Show End SelectEnd SubPrivate Sub menu5_Click(Index As Integer) Select Case Index Case 1 ShellExecute Me.hwnd, vbNullString, "幫助文件.CHM", vbNullString, "", SW_SHOWNORMAL Case 2 frmabout.Show E

31、nd SelectEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1 frmmain.Hide frmlog.Show frmlog.txtuser.Text = "" frmlog.TxtID.Text = "" Case 2 frmser.Show Case 3 frmstuinfo.Show Case 4 Case 5 frmabout.Show Case 6 ShellExecute

32、Me.hwnd, vbNullString, "幫助文件.CHM", vbNullString, "", SW_SHOWNORMAL End SelectEnd SubPrivate Sub TX_Click() X = Shell("C:Program FilesOutlook Expresswab.exe", 1)End SubPrivate Sub 退出_Click() Dim rs As New ADODB.Recordset If MsgBox("確實要退出實驗室設備管理系統(tǒng)嗎？", vbYesNo +

33、vbQuestion + vbDefaultButton1, "確認窗口") = vbYes Then rs.Open "select * from SysAd_Info where Admin_Name='" & Trim(frmlog.txtuser.Text) & "'", DBCnn, adOpenStatic, adLockOptimistic rs.Fields("Times") = 0 rs.Update rs.Close End End IfEnd Sub三、修改密碼

34、代碼Private Sub Command1_Click() Dim rs As New ADODB.Recordset rs.Open "select * from SysAd_Info where Admin_Name='" & Trim(frmlog.txtuser.Text) & "' and Admin_SecNum='" & Trim(Txtsec.Text) & "'", DBCnn, adOpenStatic, adLockOptimistic If rs

35、.RecordCount < 1 Then MsgBox "密碼有誤，請輸入正確信息！" Exit Sub ElseIf Txtnew.Text <> Txtnewd Then MsgBox "新口令重復輸入時不正確！" Txtnew.Text = "" Txtnewd.Text = "" Exit Sub Else rs.Fields("Admin_SecNum") = Txtnew.Text MsgBox "密碼修改成功" frmser.Hide rslog.Open "select * from Log_Info where 操作員=''", DBCnn, adOpenStatic, adLockOptimistic rslog.AddNew rslog.Fields("操作員") = frmlog.txtuser.Text rslog.Fields("日期") = Date rslog.