..XX航空航天大學課程設計報告課程設計名稱：軟件綜合課程設計課程設計題目：病人住院管理院〔系：計算機學院專業(yè)：班級：學號：__指導完成日期：2011年09月09日..目錄1系統(tǒng)分析11.1需求分析11.2開發(fā)工具11.2.1VisualBasic6.011.2.2MicrosoftOfficeAccess22概要設計42.1數(shù)據(jù)庫概念結構設計42.2系統(tǒng)模塊設計63詳細設計73.1數(shù)據(jù)庫邏輯結構設計73.2系統(tǒng)子模塊設計8編寫全局變量和通用過程8用戶管理模塊10病人資料管理模塊10費用輸入模塊134調(diào)試分析155測試及運行結果165.1用戶登陸界面165.2用戶管理界面175.3病人資料管理界面18參考文獻21附錄22..1系統(tǒng)分析1.1需求分析實現(xiàn)一個病人住院管理系統(tǒng),系統(tǒng)可以連接數(shù)據(jù)庫。病人入院時,住在指定科室的病房〔如外科、內(nèi)科、兒科等,到每個病人有一個主治醫(yī)生負責,可以選擇單人間和三人間病房,如果選擇三人間病房,床位由系統(tǒng)分配。入院時通過該系統(tǒng)將病人的信息添加數(shù)據(jù)庫中。當病人出院時計算住院期間的費用〔藥費、床費、餐費等。系統(tǒng)能夠按照病人、病房、主治醫(yī)生進行查詢,所以查詢模塊至少有三個界面分別顯示相關信息。1.2開發(fā)工具VisualBasic6.0VisualBasic是一種由微軟公司開發(fā)的包含協(xié)助開發(fā)環(huán)境的事件驅(qū)動編程語言。從任何標準來說,VB都是世界上使用人數(shù)最多的語言——不僅是盛贊VB的開發(fā)者還是抱怨VB的開發(fā)者的數(shù)量。它源自于BASIC編程語言。VB擁有圖形用戶界面〔GUI和快速應用程序開發(fā)〔RAD系統(tǒng),可以輕易的使用DAO、RDO、ADO連接數(shù)據(jù)庫,或者輕松的創(chuàng)建ActiveX控件。程序員可以輕松的使用VB提供的組件快速建立一個應用程序。VB使用了可以簡單建立應用程序的GUI系統(tǒng),但是又可以開發(fā)相當復雜的程序。VB的程序是一種基于窗體的可視化組件安排的聯(lián)合,并且增加代碼來指定組件的屬性和方法。因為默認的屬性和方法已經(jīng)有一部分定義在了組件內(nèi),所以程序員不用寫多少代碼就可以完成一個簡單的程序。過去的版本里面VB程序的性能問題一直被放在了桌面上,但是隨著計算機速度的飛速增加,關于性能的爭論已經(jīng)越來越少。窗體控件的增加和改變可以用拖放技術實現(xiàn)。一個排列滿控件的工具箱用來顯示可用控件〔比如文本框或者按鈕>。每個控件都有自己的屬性和事件。默認的屬性值會在控件創(chuàng)建的時候提供,但是程序員也可以進行更改。很多的屬性值可以在運行時候隨著用戶的動作和修改進行改動,這樣就形成了一個動態(tài)的程序。舉個例子來說：窗體的大小改變事件中加入了可以改變控件位置的代碼,在運行時候每當用戶更改窗口大小,控件也會隨之改變位置。在文本框中的文字改變事件中加入相應的代碼,程序就能夠在文字輸入的時候自動翻譯或者阻止某些字符的輸入。VB的程序可以包含一個或多個窗體,或者是一個主窗體和多個子窗體,類似于操作系統(tǒng)的樣子。有很少功能的對話框窗口〔比如沒有最大化和最小化按鈕的窗體可以用來提供彈出功能。VB的組件既可以擁有用戶界面,也可以沒有。這樣一來服務器端程序就可以處理增加的模塊。VB使用參數(shù)計算的方法來進行垃圾收集,這個方法中包含有大量的對象,提供基本的面向?qū)ο笾С帧Ｒ驗樵絹碓蕉嘟M建的出現(xiàn),程序員可以選用自己需要的擴展庫。和有些語言不一樣,VB對大小寫不敏感,但是能自動轉換關鍵詞到標準的大小寫狀態(tài),以及強制使得符號表入口的實體的變量名稱遵循書寫規(guī)則。默認情況下字符串的比較是對大小寫敏感的,但是可以關閉這個功能。MicrosoftOfficeAccessMicrosoftOfficeAccess〔前名MicrosoftAccess是由微軟發(fā)布的關聯(lián)式數(shù)據(jù)庫管理系統(tǒng)。它結合了MicrosoftJetDatabaseEngine和圖形用戶界面兩項特點,是MicrosoftOffice的成員之一。其實Access也是微軟公司另一個通訊程序的名字,想與ProComm以及其他類似程序來競爭。可是事后微軟證實這是個失敗計劃,并且將它中止。數(shù)年后他們把名字重新命名于數(shù)據(jù)庫軟件。Access在20XX的時候成為了計算機等級考試中的計算機二級的一種數(shù)據(jù)庫語言并且因為它的易學易用的特點正逐步取代傳統(tǒng)的VFP成為二級中最受歡迎的數(shù)據(jù)庫語言。Access是微軟公司推出的基于Windows的桌面關系數(shù)據(jù)庫管理系統(tǒng)〔RDBMS,即RelationalDatabaseManagementSystem,是Office系列應用軟件之一。它提供了表、查詢、窗體、報表、頁、宏、模塊7種用來建立數(shù)據(jù)庫系統(tǒng)的對象；提供了多種向?qū)?、生成器、模?把數(shù)據(jù)存儲、數(shù)據(jù)查詢、界面設計、報表生成等操作規(guī)范化；為建立功能完善的數(shù)據(jù)庫管理系統(tǒng)提供了方便,也使得普通用戶不必編寫代碼,就可以完成大部分數(shù)據(jù)管理的任務。Access能夠存取Access/Jet、MicrosoftSQLServer、Oracle<甲骨文軟件公司>,或者任何ODBC兼容數(shù)據(jù)庫內(nèi)的資料。熟練的軟件設計師和資料分析師利用它來開發(fā)應用軟件,而一些不熟練的程序員和非程序員的"進階用戶"則能使用它來開發(fā)簡單的應用軟件。雖然它支援部分面向?qū)ο蟆睴OP技術,但是未能成為一種完整的面向?qū)ο箝_發(fā)工具。與一般的RDBMS完全不同,它缺乏數(shù)據(jù)庫觸發(fā)和預存程序。自從MSAccess2000<Jet4.0>,開發(fā)人員可以在查詢中設定參數(shù),這跟預存程序很相似的,但這些"預存程序"只能處理一個程序．當資料表內(nèi)數(shù)據(jù)發(fā)生變化時,它確實允許形式包含被引發(fā)的代碼,使用是普通的透過查詢和其他技術在進入營運儲存的程序在方面RDBMS支援這些的。進入可提供的編程語言,當時在另一個內(nèi)產(chǎn)品MicrosoftOffice家具,微軟公司應用的VisualBasic。兩個數(shù)據(jù)庫進入信息庫COM組成部分被提供：這筆遺產(chǎn)數(shù)據(jù)存取物體<DAO>,用進入和新只可提供ActiveX數(shù)據(jù)對象<忙亂>。MicrosoftAccess容易被應用于小的工程,但是如果設計的不好對大工程是無用的。全部數(shù)據(jù)庫質(zhì)問,形式和報告被儲存在數(shù)據(jù)庫里,并且與相關的模型的理想?yún)f(xié)調(diào),沒有與他們做一個身體上組織的階層的可能性。一種設計技術是把進入應用在數(shù)據(jù)和計劃之間進行分發(fā)。一個數(shù)據(jù)庫應該只包含桌子和關系,當另一個將有全部計劃時,形式,報告和質(zhì)問和對第一個數(shù)據(jù)庫桌子的連接。令人遺憾,當連結時,進入允許沒有有關的道路,因此那些發(fā)展環(huán)境作為這種生產(chǎn)環(huán)境有相同的道路應該<雖然你寫你們自己的能"動態(tài)連接程序"常規(guī)在里VBA那搜出能一定背面結束檔案以透過這個目錄樹搜尋,如果它發(fā)現(xiàn)這條電流通路它不能>。這種技術也允許開發(fā)者在不同的檔案中分申請,因此一些架構是可能的。2概要設計2.1數(shù)據(jù)庫概念結構設計本系統(tǒng)包括的實體主要有病人、科室、病房、醫(yī)生、費用等。下面分別介紹各實體的E-R圖,通過E-R圖可以了解各實體的屬性。科室實體的屬性圖如圖2.1所示。科室科室開始科室名稱編號圖2.1科室實體的屬性圖病房實體的屬性圖如圖2.2所示。病房病房開始編號病房類型床費圖2.2病房實體的屬性圖醫(yī)生實體的屬性圖如圖2.3所示。醫(yī)生醫(yī)生開始編號醫(yī)生姓名圖2.3醫(yī)生實體的屬性圖病人實體的屬性圖如圖2.4所示。病人病人開始編號姓名身份證性別備注圖2.2病人實體的屬性圖費用實體的E-R圖如圖2.5所示。費用費用開始藥費總計結算床費餐費日期基本費用編號圖2.5費用實體的屬性圖實體間的E-R圖如圖2.6所示。病人入院時,根據(jù)病人情況選擇科室和病房,每個科室有多個病人就診,每個病房可以住多個病人。一個病人由一個醫(yī)生負責,作為該病人的主治醫(yī)生,每個醫(yī)生可能負責多個病人。病人住院期間的費用根據(jù)時間日期來計算。病人病人開始科室開始醫(yī)生開始費用開始病房開始花費屬于屬于治療日期1n1nmnmn圖2.6實體間的E-R圖2.2系統(tǒng)模塊設計整個系統(tǒng)可分為三個模塊進行設計,主要包括病人基本信息管理,費用數(shù)據(jù)錄入、查詢,病人、病房、主治醫(yī)生查詢,系統(tǒng)管理等部分,系統(tǒng)模塊圖如圖2.7所示。病人住院管理系統(tǒng)病人住院管理系統(tǒng)開始數(shù)據(jù)處理模塊開始查詢模塊開始系統(tǒng)功能模塊費用輸入病人資料管理用戶管理數(shù)據(jù)備份數(shù)據(jù)恢復病房查詢病人查詢主治醫(yī)生查詢圖2.7系統(tǒng)模塊圖..3詳細設計3.1數(shù)據(jù)庫邏輯結構設計本系統(tǒng)共建立六張表：科室表、病房表、醫(yī)生表、病人表、費用表、操作員表。以下分別列出各表的字段說明?？剖冶恚河糜诒４驷t(yī)院中各科室的信息。在系統(tǒng)中只使用科室編號和名稱,將其單獨列出一張表可方便用戶修改科室。各字段參數(shù)如表3.1所示。表3.1科室表字段名稱數(shù)據(jù)類型字段大小是否主鍵說明ID自動編號是科室編號科室文本20否科室名稱病房表：用于保存病房信息。包括病房編號、類型,以及不同類型病房床費。其中病房類型分為單人間和三人間,且不同房間所需床費不同。各字段參數(shù)如表3.2所示。表3.2病房表字段名稱數(shù)據(jù)類型字段大小是否主鍵說明ID自動編號是病房編號病房文本20否病房類型床費貨幣否床費醫(yī)生表：用于醫(yī)院所有醫(yī)生的信息。病人需要醫(yī)生開藥來計算藥費,所以將藥費作為醫(yī)生的一個屬性。各字段參數(shù)如表3.3所示。表3.3醫(yī)生表字段名稱數(shù)據(jù)類型字段大小是否主鍵說明ID自動編號是醫(yī)生編號醫(yī)生文本15否醫(yī)生姓名藥費貨幣否開藥藥費病房表：用于保存病人基本信息。包括病人編號、姓名、性別、身份證號碼、入院時間、科室、病房、主治醫(yī)生及入院時所需繳納的基本費用。其中科室、病房和醫(yī)生均是各實體的編號。各字段參數(shù)如表3.4所示。表3.4病人表字段名稱數(shù)據(jù)類型字段大小是否主鍵說明ID自動編號是病人編號姓名文本10否病人姓名身份證文本15否身份證性別文本2否性別入院時間日期/時間否入院時間科室數(shù)字否科室編號病房數(shù)字否病房編號醫(yī)生數(shù)字否醫(yī)生編號基本費用貨幣否基本費用備注備注備注信息費用表：用于保存病人住院期間的費用。由于需要按病人查詢費用,所以包含了病人ID。各字段參數(shù)如表3.5所示。表3.5費用表字段名稱數(shù)據(jù)類型字段大小是否主鍵說明ID自動編號是序號病人ID長整型否病人編號日期日期/時間否費用日期基本費用貨幣否基本費用床費貨幣否床費藥費貨幣否藥費餐費貨幣否餐費總計貨幣否總計結算貨幣否結算操作員表：用于保存操作本系統(tǒng)人員的登錄名、密碼等信息。各字段參數(shù)如表3.6所示。表3.6操作員表〔User字段名稱數(shù)據(jù)類型字段大小是否主鍵說明Name文本15是登錄名PWD文本16否登錄密碼UserClass字節(jié)否用戶類型3.2系統(tǒng)子模塊設計編寫全局變量和通用過程在由應用程序向?qū)?chuàng)建的程序框架中,創(chuàng)建了一個模塊文件"Module1.bas",在該模塊中有一個名為"SubMain"的過程,用來啟動應用程序。在該模塊中還定義了一下全局變量和通用過程,供其他模塊使用。下面的過程用來執(zhí)行針對數(shù)據(jù)庫的操作,如創(chuàng)建/釋放數(shù)據(jù)庫連接,運行查詢等。PublicSubConnect<>'連接數(shù)據(jù)庫IfIsConnect=TrueThen'如果連接標記為真,則返回。否則會出錯ExitSubEndIfSetcnn=NewADODB.Connection'關鍵New用于創(chuàng)建新對象cnncnn.ConnectionString=Conn'設置連接字符串ConnectionString屬性cnn.Open'打開到數(shù)據(jù)庫的連接Ifcnn.State<>adStateOpenThen'判斷連接的狀態(tài)MsgBox"數(shù)據(jù)庫連接失敗",vbOKOnly+vbCritical,"警告"'如果連接不成功,則顯示提示信息,退出程序EndEndIfIsConnect=True'設置連接標記,表示已經(jīng)連接到數(shù)據(jù)庫EndSubPublicSubDisconnect<>'斷開與數(shù)據(jù)庫的連接DimrcAsLongIfIsConnect=FalseThenExitSub'如果連接標記為假,標明已經(jīng)斷開連接,則直接返回cnn.Close'關閉連接Setcnn=NothingIsConnect=FalseEndSubPublicSubSQLExt<ByValstrSQLstmtAsString>'執(zhí)行數(shù)據(jù)庫操作語句DimcmdAsNewADODB.Command'創(chuàng)建Command對象cmdConnect'連接到數(shù)據(jù)庫Setcmd.ActiveConnection=cnn'設置cmd的ActiveConnection屬性,指定與其關聯(lián)的數(shù)據(jù)庫連接cmd.CommandText=strSQLstmt'設置要執(zhí)行的命令文本cmd.ExecuteSetcmd=NothingDisconnectEndSub用戶管理模塊用戶管理是大多數(shù)信息管理系統(tǒng)中都需要的功能,將用戶管理的功能設置為一個類,可提高代碼的可重用性。用戶管理類模塊名稱為"clsUser",基本流程如圖3.1。開始開始初始化數(shù)據(jù)調(diào)用SQLExt過程執(zhí)行SQL語句結束查找指定用戶圖3.1用戶管理模塊流程圖病人資料管理模塊病人資料管理模塊是本系統(tǒng)的核心,包括病人資料的增加、修改、刪除等功能的實現(xiàn),可以在對話框中對病人資料進行管理并連接到數(shù)據(jù)庫中。"增加"按鈕有兩種狀態(tài),當該按鈕病人入院時,進入該模塊點擊"增加"按鈕,可以增加一個病人,將病人的基本信息輸入,并添加到數(shù)據(jù)庫的病人表中,其流程如圖3.2。從科室表中獲取數(shù)據(jù)從科室表中獲取數(shù)據(jù)從病房表中獲取數(shù)據(jù)SQL語句結束從醫(yī)生表中獲取數(shù)據(jù)定義SQL語句SQL語句刷新ADO控件數(shù)據(jù)SQL語句設置DataGrid1控件顯示ADO控件中的數(shù)據(jù)SQL語句數(shù)據(jù)是否讀取完畢設置ADO控件連接字符串為全局變量SQL語句計數(shù)器加1SQL語句是程序停止運行,返回false否開始圖3.2病人資料管理模塊增加事件流程圖病人入院后可能會更換病房或者出現(xiàn)其他變動,所以在該模塊還需要實現(xiàn)病人資料的即時更新。當在DataGrid表格中選中一個病人記錄時,"增加"按鈕的標題將改變?yōu)?修改",此時單擊該按鈕將修改選中記錄的數(shù)據(jù),具體流程如圖3.3。開始開始禁止使用"刪除"按鈕調(diào)用Status過程允許用戶操作窗體各控件SQL語句結束清除數(shù)據(jù)檢查用戶輸入或修改的數(shù)據(jù)SQL語句刷新ADO控件數(shù)據(jù)SQL語句調(diào)用Status過程禁止用戶操作窗體中的控件SQL語句輸入數(shù)據(jù)SQL語句數(shù)據(jù)是否輸入完畢是否圖3.3病人資料管理模塊修改事件流程圖為了方便查詢,只顯示住院病人資料,若病人出院,需要將該病人的資料刪除,及時更新數(shù)據(jù)庫,進入該模塊點擊"刪除"按鈕,可以將病人的基本信息刪除,其流程如圖3.4。開始開始結束顯示提示信息SQL語句刷新數(shù)據(jù)SQL語句病人編號大于0是否為添加狀態(tài)刪除SQL語句SQL語句執(zhí)行SQL語句SQL語句是是否否圖3.4病人資料管理模塊刪除事件流程圖費用輸入模塊費用輸入模塊主要用來錄入病人指定時間的費用。為減少錄入工作量,減少錄入錯誤,使用列表框顯示病人姓名,系統(tǒng)將自動填充病人的基本費用、床費、藥費,用戶也可以修改這些自動填充的數(shù)據(jù)。對于最終的結算數(shù)據(jù),既可手工輸入,也可單擊右側的"C"〔計算按鈕自動計算。其主要流程如圖3.5。開始開始從病房表中獲取數(shù)據(jù)從病人表中獲取數(shù)據(jù)SQL語句結束從醫(yī)生表中獲取數(shù)據(jù)調(diào)用status過程禁止用戶操作窗體控件SQL語句將當前記錄中"病人ID"保存到變量id中SQL語句在病人數(shù)組中逐個判斷SQL語句數(shù)據(jù)是否讀取完畢設置ADO控件連接字符串SQL語句將病人姓名添加到組合框中SQL語句是否圖3.5費用輸入模塊流程圖4調(diào)試分析<1>信息不能全部顯示問題描述：數(shù)據(jù)文件輸出到text控件中輸出數(shù)據(jù)不能全部顯示。問題分析：text控件中且數(shù)據(jù)量比較大,窗體不夠大,所以不能全部顯示。解決方法：比較簡單的方法就是把數(shù)據(jù)放到一個文本框〔text里,并在其中加上水平和垂直滾動條。具體實現(xiàn)步驟為：先在窗體〔form里加入一個文本框,采用默認名text1；然后,設置文本框text1的屬性：text屬性設置為空,multiline屬性設置為true,scrollbars屬性設置為3－both；接著添加一段vb代碼即可。<2>運行出錯問題描述：運行點擊病人資料時出錯,調(diào)試時在設置ADO控件連接字符串為全局變量Conn一行出錯。問題分析：指示出錯行并未有問題,可能原因是前面定義SQL語句時出錯。經(jīng)檢查分析,SELECT語句中醫(yī)生表中并未出現(xiàn)"主治醫(yī)生"這一參數(shù)。解決方法：將SELECT語句中"主治醫(yī)生"改為"醫(yī)生"。修改后的SELECT語句如下：strSQL2="SELECTa.ID,姓名,d.科室,性別,身份證,入院時間,b.病房,c.醫(yī)生,基本費用,備注"strSQL2=strSQL2&"FROM病人表a,病房表b,醫(yī)生表c,科室表d"strSQL2=strSQL2&"WHEREa.病房=b.IDANDa.醫(yī)生=c.IDANDa.科室=d.ID"5測試及運行結果5.1用戶登陸界面在VB6開發(fā)環(huán)境中,選擇菜單"運行/啟動"命令,將顯示登陸窗體,如圖5.1所示。圖5.1用戶登陸窗體在登錄窗體中單擊"確定"按鈕,即可進入系統(tǒng)主窗體,如圖5.2所示。圖5.2系統(tǒng)主窗體5.2用戶管理界面在系統(tǒng)主窗體中"系統(tǒng)/用戶管理"或點擊"用戶"按鈕,可以進入用戶管理界面,如圖5.3所示。圖5.3用戶管理窗體單擊"添加用戶"按鈕,管理員和操作員都可以添加新用戶,如圖5.4所示。圖5.4添加用戶窗體單擊"修改用戶"按鈕,管理員可以修改用戶,如圖5.5所示。圖5.5修改用戶窗體5.3病人資料管理界面在系統(tǒng)主窗體中"數(shù)據(jù)/病人資料",可以進入病人資料管理界面。操作員可以對病人資料進行添加、修改、刪除等操作,并且可以直觀顯示在界面的表格中。如圖5.6所示。圖5.6病人資料管理界面輸入新的入院病人資料,單擊"添加"按鈕,添加時界面顯示如圖5.7所示。圖5.7添加病人資料顯示界面新入院病人資料已添加到數(shù)據(jù)庫中,添加后界面顯示如圖5.8所示。圖5.8添加后病人資料顯示界面單擊"刪除"按鈕,彈出對話框如圖5.9所示。圖5.9彈出對話框選擇"是",可將該用戶從數(shù)據(jù)庫中刪除,刪除后顯示界面如圖5.10所示。圖5.10刪除后病人資料顯示界面..參考文獻[1]VisualBasic課程設計案例精編[M].北京:清華大學出版社,2007[2]VisualBasic項目案例開發(fā)實例自學手冊[M].北京:人民郵電出版社,2008[3]VisualBasic完全自學手冊[M].北京:機械工業(yè)出版社,2009[4]30天學通VisualBasic項目案例開發(fā)[M].北京:電子工業(yè)出版社,2009[5]VisualBasic從入門到精通[M].北京:人民郵電出版社,2010..附錄主要源程序清單：PrivateSubMDIForm_Load<>Me.Left=GetSetting<App.Title,"Settings","MainLeft",1000>Me.Top=GetSetting<App.Title,"Settings","MainTop",1000>Me.Width=GetSetting<App.Title,"Settings","MainWidth",6500>Me.Height=GetSetting<App.Title,"Settings","MainHeight",6500>'LoadNewDocEndSubPrivateSubMDIForm_Unload<CancelAsInteger>IfMe.WindowState<>vbMinimizedThenSaveSettingApp.Title,"Settings","MainLeft",Me.LeftSaveSettingApp.Title,"Settings","MainTop",Me.TopSaveSettingApp.Title,"Settings","MainWidth",Me.WidthSaveSettingApp.Title,"Settings","MainHeight",Me.HeightEndIfEndSubPrivateSubmnuDataEmp_Click<>frmEmp.ShowEndSubPrivateSubmnuDataInput_Click<>frmInput.ShowEndSubPrivateSubmnuDataRef_Click<>frmDataRef.ShowEndSubPrivateSubmnuQueryFind_Click<>frmSearchName.ShowEndSubPrivateSubmnuReportEmp_Click<>frmReportEmp.ShowEndSubPrivateSubmnuReportPay_Click<>frmReportPay.ShowEndSubPrivateSubmnuSysBack_Click<>DimstrSoureFileAsString,strDestFileAsString,iRetAsIntegerOnErrorResumeNextstrSoureFile=App.Path&strDB'源數(shù)據(jù)庫文件strDestFile=App.Path&"\BAK\DATA.BAK"'備份文件IfTrim<strDestFile>=""ThenExitSubIfDir<strDestFile><>""Then'文件存在iRet=MsgBox<Dir<strDestFile>&"文件已經(jīng)存在,是否替換？",vbYesNo,"警告">IfiRet=vbNoThenExitSubEndIfEndIfDimbuff<>AsByte,iAsLong'定義緩沖區(qū)i=FileLen<strSoureFile>ReDimbuff<i-1>OpenstrSoureFileForBinaryAs#1'打開源文件Get#1,,buff'讀取數(shù)據(jù)到緩沖區(qū)Close#1'關閉文件OpenstrDestFileForBinaryAs#1'打開目標文件Put#1,,buff'輸入緩沖區(qū)到目標文件Close#1MsgBox"數(shù)據(jù)庫備份完成！",vbInformation+vbOKOnly,"提示"EndSubPrivateSubmnuSysPWD_Click<>WithfrmUserEdit.Caption="修改密碼".strOldUser=CurUser.strName.txtUserName.Text=CurUser.strNameIfCurUser.iUserClass=1Then.cmbUserClass.AddItem"管理員"Else.cmbUserClass.AddItem"操作員"EndIf.cmbUserClass.ListIndex=0.cmbUserClass.Enabled=False.txtUserName.Enabled=False'不允許修改用戶名.bModify=True.ShowEndWithEndSubPrivateSubmnuSysQuit_Click<>DimynAsStringyn=MsgBox<"確定要退出系統(tǒng)嗎？",vbYesNo,"退出確定">Ifyn=vbYesThenUnloadMeEndSubPrivateSubmnuSysRest_Click<>DimstrSoureFileAsString,strDestFileAsStringDimbuff<>AsByte,iAsLong,iRetAsIntegerOnErrorResumeNextstrSoureFile=App.Path+"\BAK\DATA.BAK"strDestFile=App.Path+strDBIfDir<strSoureFile>=""ThenMsgBox"沒有發(fā)現(xiàn)可以恢復的數(shù)據(jù)庫！",vbOKOnly+vbCritical,"警告"ElseIfDir<strSoureFile><>""TheniRet=MsgBox<"恢復數(shù)據(jù)庫可能會丟失最近的數(shù)據(jù),確定要恢復備份文件嗎？",vbQuestion+vbYesNo,"確認">IfiRet=vbYes