【正文】 操作可能要反復(fù)多次，大大影響了軟件開發(fā)效率。面向?qū)ο蟮某绦蛟O(shè)計(jì) Basic支持面向?qū)ο蟮某绦蛟O(shè)計(jì)，但它與一般的面向?qū)ο蟮某绦蛟O(shè)計(jì)語(yǔ)言(C++)不完全相同。每個(gè)對(duì)象以圖形方式顯示在界面上，都是可視的。在設(shè)計(jì)Visual Basic程序的過(guò)程中，隨時(shí)可以運(yùn)行程序，而在整個(gè)程序設(shè)計(jì)好之后，可以編譯生成可執(zhí)行文件(.EXE)，脫離Visual Basic環(huán)境，直接在Windows環(huán)境下運(yùn)行。在用Visual Basic設(shè)計(jì)大型應(yīng)用軟件時(shí)，不必建立具有明顯開始和結(jié)束的程序，而是編寫若干個(gè)微小的子程序，即過(guò)程。Visual Basic提供開放式數(shù)據(jù)連接，即ODBC功能，可通過(guò)直接訪問(wèn)或建立連接的方式使用并操作后臺(tái)大型網(wǎng)絡(luò)數(shù)據(jù)庫(kù)，如SQL Server，Oracle等。Visual Basic提供了動(dòng)態(tài)數(shù)據(jù)交換的編程技術(shù)，可以在應(yīng)用程序中與其他Windows應(yīng)用程序建立動(dòng)態(tài)數(shù)據(jù)交換，在不同的應(yīng)用程序之間進(jìn)行通信。動(dòng)態(tài)鏈接庫(kù)(DLL)Visual Basic是一種高級(jí)程序設(shè)計(jì)語(yǔ)言，不具備低級(jí)語(yǔ)言的功能，對(duì)訪問(wèn)機(jī)器硬件的操作不太容易實(shí)現(xiàn)。該版本繼承了SQL ，同時(shí)又比它增加了許多更先進(jìn)的功能，具有使用方便、可伸縮性好、與相關(guān)軟件集成程度高等優(yōu)點(diǎn)。在多層的客戶/服務(wù)器系統(tǒng)中，至少要經(jīng)過(guò)三個(gè)處理層，第一層是客戶機(jī)，它只負(fù)責(zé)數(shù)據(jù)的表示。這個(gè)階段的目標(biāo)，就是按系統(tǒng)規(guī)劃所定的某個(gè)開發(fā)項(xiàng)目范圍內(nèi)明確系統(tǒng)開發(fā)的目標(biāo)和用戶的信息需求，提出系統(tǒng)的邏輯方案。軟件需求是指用戶對(duì)目標(biāo)軟件系統(tǒng)在功能、行為、性能、設(shè)計(jì)約束等方面的期望。良好的分析活動(dòng)有助于避免或盡早發(fā)現(xiàn)早期的錯(cuò)誤，從而提高軟件生產(chǎn)率，降低開發(fā)成本，改進(jìn)軟件質(zhì)量。 經(jīng)濟(jì)可行性高校一般地處大中城市(地級(jí)以上)，有著較好的經(jīng)濟(jì)、文化、交通和信息上的支持。并且，高校實(shí)驗(yàn)室本身就具備一定的實(shí)驗(yàn)條件:若干P4微機(jī)和局域網(wǎng)絡(luò)設(shè)備，以及相關(guān)操作系統(tǒng)和開發(fā)軟件，基本滿足實(shí)驗(yàn)條件。Visual Basic ，特別在關(guān)系數(shù)據(jù)庫(kù)處理方面，功能相當(dāng)強(qiáng)大。這樣才能使系統(tǒng)易學(xué)易用。要充分的利用Visual Basic提供的強(qiáng)大的功能，多用窗口和控件，充分體現(xiàn)窗口的多元化格局。管理員進(jìn)入系統(tǒng)可設(shè)置其他管理員的用戶名，密碼以及權(quán)限，用戶進(jìn)入系統(tǒng)可設(shè)置其他用戶的用戶名，密碼以及權(quán)限。(4)實(shí)驗(yàn)室管理:該模塊的服務(wù)器端實(shí)現(xiàn)了實(shí)驗(yàn)室信息的添加、修改、刪除、打印功能。服務(wù)器端具有設(shè)備運(yùn)行的添加、修改、刪除、打印功能。(7)行課管理:該模塊的服務(wù)器端具有課表添加、修改、刪除、打印功能。具體實(shí)現(xiàn)目標(biāo)如下：固定資產(chǎn)管理功能；人員管理功能；實(shí)驗(yàn)室管理功能；排課管理功能；運(yùn)行管理功能；查找功能；數(shù)據(jù)備份還原功能；各種報(bào)表打印功能。系統(tǒng)采用模塊化的程序設(shè)計(jì)方法，既便于系統(tǒng)功能模塊的組合，又便于未參與開發(fā)的技術(shù)人員補(bǔ)充、維護(hù)。原始數(shù)據(jù)錄入與修改：儀器設(shè)備、實(shí)驗(yàn)室信息、人員信息、排課信息、設(shè)備運(yùn)行信息能夠隨時(shí)增加或刪除記錄，并且能夠?qū)σ唁浫氲臄?shù)據(jù)進(jìn)行編輯修改。安全功能：能夠進(jìn)行多用戶操作，各個(gè)操作員能夠賦予不同的操作權(quán)限。下面對(duì)它們的作用分別介紹：“用戶表”:保存用戶名稱、用戶口令以及用戶權(quán)限，可以添加和刪除用戶；“資產(chǎn)信息表”:保存資產(chǎn)的具體信息，包括設(shè)備的編號(hào)、設(shè)備名稱、產(chǎn)品型號(hào)、資產(chǎn)配置、計(jì)量單位、資產(chǎn)類別、生產(chǎn)廠家、生產(chǎn)日期、登記日期、使用年限、資產(chǎn)價(jià)值、增加方式、資產(chǎn)狀態(tài)、所屬實(shí)驗(yàn)室、保管人、設(shè)備利用率等信息；“實(shí)驗(yàn)室信息表”:保存了實(shí)驗(yàn)室的具體信息，包括實(shí)驗(yàn)室編號(hào)、實(shí)驗(yàn)室名稱、管理員、資產(chǎn)總價(jià)值等信息；“人員基本信息表”:保存了員工編號(hào)、姓名、性別、專業(yè)、職稱、所屬部門、人員現(xiàn)狀等信息；“排課信息表”:保存課程的基本情況，包括開課年份、課名、所在實(shí)驗(yàn)室、班級(jí)、教師等信息；“設(shè)備運(yùn)行記錄表”:保存設(shè)備運(yùn)行的基本情況，包括使用時(shí)間、設(shè)備編號(hào)、實(shí)驗(yàn)室編號(hào)、實(shí)驗(yàn)內(nèi)容、設(shè)備狀態(tài)、使用人等信息；“設(shè)備維修記錄表”:保存設(shè)備維修的基本情況，包括設(shè)備編號(hào)、維修歸還時(shí)間、維修地點(diǎn)、故障原因、維修結(jié)果等信息；“設(shè)備轉(zhuǎn)移記錄表”：保存設(shè)備轉(zhuǎn)移的基本情況，包括設(shè)備編號(hào)、轉(zhuǎn)移日期、原使用部門、新使用部門、轉(zhuǎn)移說(shuō)明等信息。 主要數(shù)據(jù)表的結(jié)構(gòu)用戶表tblUsers用戶表用于保存系統(tǒng)用戶的相關(guān)信息，見表31表31 用戶表結(jié)構(gòu)字段名稱數(shù)據(jù)類型字段大小可否為空主鍵說(shuō)明UserNamechar30Not null*使用者名稱UserPwdchar30Not null密碼Permbit1添加用戶權(quán)限備注：主鍵中的“*”表示“關(guān)鍵字”，下同。見表34表34 人員基本信息表結(jié)構(gòu)字段名稱數(shù)據(jù)類型字段大小可否為空主鍵說(shuō)明Idchar12Not null*員工編號(hào)Namechar20姓名Sexchar2性別Datebirthdatetime8出生日期Professionchar20專業(yè)Titlechar20職稱Departchar20所屬部門Appearancechar20人員現(xiàn)狀Remarkstext16備注排課記錄表tblPaike用于保存實(shí)驗(yàn)室課程安排的相關(guān)信息，見表35表35 排課記錄表結(jié)構(gòu)字段名稱數(shù)據(jù)類型字段大小可否為空主鍵說(shuō)明PKyearchar8Not null*開課年份PKdatechar2Not null*星期LessonSchar2Not null*起時(shí)LessonEchar2Not null止時(shí)CourseNamechar30Not null課程名稱DepartNamechar30Not null*實(shí)驗(yàn)室名稱Classchar30班級(jí)Teacherchar30輔導(dǎo)教師設(shè)備運(yùn)行記錄表tblRecord用于保存實(shí)驗(yàn)室行課中設(shè)備運(yùn)行的相關(guān)信息，見表36表36 設(shè)備運(yùn)行記錄結(jié)構(gòu)字段名稱數(shù)據(jù)類型字段大小可否為空主鍵說(shuō)明UseDatedatetime8Not null*使用時(shí)間AssetNumberchar12Not null*設(shè)備編號(hào)AssetNamechar30設(shè)備名稱DepartNumberdatetime8實(shí)驗(yàn)室編號(hào)DepartNamechar30實(shí)驗(yàn)室名稱Experimentchar30實(shí)驗(yàn)內(nèi)容AssetStatechar30設(shè)備狀態(tài)UserNamechar20使用人設(shè)備維修記錄表tblFix 用于保存設(shè)備維修的相關(guān)信息，見表37表37 設(shè)備維修記錄表結(jié)構(gòu)字段名稱數(shù)據(jù)類型字段大小可否為空主鍵說(shuō)明AssetNumberChar12Not null*設(shè)備編號(hào)FixDateDatetime8Not null*維修歸還時(shí)間FixSiteChar30維護(hù)地點(diǎn)Otherstext16故障原因維修結(jié)果設(shè)備轉(zhuǎn)移記錄表tblMove用于保存設(shè)備轉(zhuǎn)移情況的信息，見表38表38 設(shè)備轉(zhuǎn)移記錄表結(jié)構(gòu)字段名稱數(shù)據(jù)類型字段大小可否為空主鍵說(shuō)明AssetNumberchar12Not null*設(shè)備編號(hào)MoveDatedatetime8Not null*轉(zhuǎn)移日期SourseDepartchar30原使用部門TargetDepartchar30新使用部門Otherstext16轉(zhuǎn)移說(shuō)明設(shè)備借還記錄表tblBorrow用于保存設(shè)備借還情況的信息，見表38表38 設(shè)備借還記錄表結(jié)構(gòu)字段名稱數(shù)據(jù)類型字段大小可否為空主鍵說(shuō)明AssetNumberchar12Not null*設(shè)備編號(hào)BorrowDatedatetime8Not null*借出時(shí)間BorrowSitechar30借出地點(diǎn)BackDateDatetime8歸還時(shí)間Otherstext16借出原因說(shuō)明 菜單設(shè)計(jì)進(jìn)入系統(tǒng)的主畫面，屏幕的最上方為主菜單區(qū)，顯示本功能子系統(tǒng)的主菜單。根據(jù)系統(tǒng)功能結(jié)構(gòu)圖，服務(wù)器端與客戶端主菜單頁(yè)面相似，下面以客戶端為例，設(shè)計(jì)如下：圖32 實(shí)驗(yàn)室管理系統(tǒng)主界面將MDIForm1 窗體設(shè)為作用中的窗體，然后單擊“工具”/“菜單編輯器”菜單命令，在“菜單編輯器”對(duì)話框中的“標(biāo)題”輸入欄內(nèi)輸入菜單標(biāo)題（如“系統(tǒng)”），在“名稱”輸入欄內(nèi)輸入名稱（如“系統(tǒng)”），如圖33所示，然后按圖31所示菜單名稱和標(biāo)題依次完成。登錄表單如圖42圖42 登錄表單通過(guò)總體設(shè)計(jì)，確定了系統(tǒng)的六大子系統(tǒng)（系統(tǒng)，資產(chǎn)管理，實(shí)驗(yàn)室管理，人員管理，排課管理，幫助） 系統(tǒng)模塊分為數(shù)據(jù)備份還原、添加用戶、修改密碼、切換用戶重新登錄、關(guān)閉（1） 數(shù)據(jù)備份和還原表單如圖43所示圖43 數(shù)據(jù)備份還原表單數(shù)據(jù)備份代碼：Private Sub Command2_Click()txtSQL = BACKUP DATABASE [lab] TO DISK = N39。, NOSKIP , STATS = 10, NOFORMATSet mrc = ExecuteSQL(txtSQL, MsgText)MsgBox 數(shù)據(jù)備份已經(jīng)完成, vbOKOnly + vbExclamation, 提醒End Sub（2） 添加用戶表單如圖44所示圖44 添加用戶表單代碼：Private Sub Command1_Click()Dim txtSQL As StringDim mrc As Dim MsgText As String txtSQL = select*from tblUsers1 Set mrc = ExecuteSQL(txtSQL, MsgText) 39。判斷兩次輸入密碼是否一致If Trim(Text1(1).Text) Trim(Text1(2).Text) Then MsgBox 兩次輸入密碼不一樣，請(qǐng)確認(rèn)！, vbOKOnly + vbExclamation, 警告 Exit SubElse 39。服務(wù)器端管理員可以添加，修改，刪除信息以及打印報(bào)表。 Combo4 amp。 Combo7 amp。 amp。 and =39。End IfsQSql = sQSql amp。主要包括實(shí)驗(yàn)室管理、設(shè)備運(yùn)行記錄管理兩個(gè)模塊。提供系統(tǒng)的幫助信息，附帶了常用的計(jì)算器和日歷工具，方便操作員使用。當(dāng)前時(shí)間為2012519，當(dāng)運(yùn)行固定資產(chǎn)信息管理的添加修改時(shí)，登記時(shí)間自動(dòng)為2012519，用戶可以不用輸入，方便操作。登錄表單，輸入正確錯(cuò)誤用戶名，系統(tǒng)自動(dòng)報(bào)錯(cuò)，輸入正確用戶名以及錯(cuò)誤的密碼，系統(tǒng)自動(dòng)報(bào)錯(cuò)，輸入用戶名與用戶權(quán)限不匹配，自動(dòng)報(bào)錯(cuò)。通過(guò)理論聯(lián)系實(shí)際，鞏固了所學(xué)的知識(shí)，提高了處理實(shí)際問(wèn)題的能力，了解了設(shè)計(jì)專題的主要內(nèi)容，為自己能順利與社會(huì)環(huán)境接軌做準(zhǔn)備。為以后更進(jìn)一步的學(xué)習(xí)和提高打下了堅(jiān)實(shí)的基礎(chǔ)。在此感謝他耐心的輔導(dǎo)。附 錄1．服務(wù)器資產(chǎn)信息表的主要代碼：Private Sub ShowData()Dim i As IntegerDim MsgText As StringtxtSQL = select * from tblAssetSet mrc = ExecuteSQL(txtSQL, MsgText)With msgList .Rows = 1 Do While Not .Rows = .Rows + 1 For i = 1 To 39。 , yyyymmdd) 39。根據(jù)數(shù)據(jù)項(xiàng)類型進(jìn)行 .TextMatrix(.Rows 1, i 1) = (i 1) amp。 Trim(Text(0)) amp。更新數(shù)據(jù)庫(kù) 39。 39。 amp。執(zhí)行查詢語(yǔ)句 Set mrc = ExecuteSQL(txtSQL, MsgText)畢業(yè)設(shè)計(jì)（論文）原創(chuàng)性聲明和使用授權(quán)說(shuō)明原創(chuàng)性聲明本人鄭重承諾：所呈交的畢業(yè)設(shè)計(jì)（論文），是我個(gè)人在指導(dǎo)教師的指導(dǎo)下進(jìn)行的研究工作及取得的成果。作者簽名：　　 　 　　 日　 期：　　 　 　　 學(xué)位論文原創(chuàng)性聲明本人鄭重聲明：所呈交的論文是本人在導(dǎo)師的指導(dǎo)下獨(dú)立進(jìn)行研究所取得的研究成果。作者簽名： 日期： 年 月 日學(xué)位論文版權(quán)使用授權(quán)書本學(xué)位論文作者完全了解學(xué)校有關(guān)保留、使用學(xué)位論文的規(guī)定，同意學(xué)校保留并向國(guó)家有關(guān)部門或機(jī)構(gòu)送交論文的復(fù)印件和電子版，允許論文被查閱