【正文】 gers who are in need at the welerestingplace, and gives them peace and calm when they are tossed bythe storm, or cool shade in the heat。 參 考 文 獻(xiàn) 1 陳明 . 軟件工程學(xué)教程 .科技出版社， 2021 2 薩師煊，王珊 . 數(shù)據(jù)庫系統(tǒng)概論 . 第三版 . 高等教育出版社， 2021 3 飛思科技產(chǎn)品研發(fā)中心 . visual basic 數(shù)據(jù)庫應(yīng)用開發(fā) .電子工業(yè)出版社， 2021 4 飛思科技產(chǎn)品研發(fā)中心 . visual basic 開發(fā)者手冊 . 電子工業(yè)出版社 , 2021 5 申 旻 . visual basic 高手突破 . 清華大學(xué)出版社， 2021， 302 6 Steve Teixeira， Xaviver Pacheco 著，龍勁松，王瑜，謝尚書譯 . visual basic 開發(fā)人員指南 . 機(jī)械工業(yè)出版社 .2021 7 喬林 .參透 Delphi／ Kylix . 中國鐵道出版社 .2021 8 李維 .Inside 深入核心 VCL 架構(gòu)剖析 . 電子工業(yè)出版社 .2021 9 張立科編寫組 .Windows API 函數(shù)參考手冊 .人民郵電出版社 .2021 嚴(yán)蔚敏，吳偉民 .數(shù)據(jù)結(jié)構(gòu) .第二版 .清華大學(xué)出版社 .2021 10 王珍 玲 。通過這幾個(gè)月的畢業(yè)設(shè)計(jì)，我學(xué)到很多以前沒有學(xué)到的 visual basic 開發(fā)技術(shù)，在軟件工程學(xué)上更是取得了很大的進(jìn)步。 .Refresh If . adPosUnknown Then = .(名稱 ) End If End With Exit Sub err0: MsgBox 數(shù)據(jù)庫連接失??！ End Sub Private Sub Text18_Change() On Error GoTo err5 With Adodc2 .RecordSource = select * from amp。H12amp。 39。HFFamp。 amp。 amp。 amp。 amp。 where 失效標(biāo)記 =false .Refresh For i = 0 To . If Not . Then If .(失效期 ) = Date Then .(失效標(biāo)記 ) = True . Else .(失效標(biāo)記 ) = False . End If . End If Next End With End Sub Private Sub bo2_Change() If 西藥中成藥庫 And 中草藥庫 And 器械材料庫 Then = False = False End If End Sub Private Sub Combo2_Click() Select Case Case 西藥中成藥庫 = kcyp = 西藥和中成藥入庫登記 = ypcode Call Guolu = True = True Case 中草藥庫 = caoyao = 中草藥入庫登記 = cycode Call Guolu = True = True Case 器械材料庫 = qixie = 醫(yī)療器械和材料入庫登記 = qxcode Call Guolu = True = True Case Else = False = False = 庫存登記 End Select End Sub Private Sub Command1_Click() Dim rq1 As String Dim rq2 As String Dim rq3 As String On Error GoTo err1 With Adodc1 .RecordSource = select * from amp。 關(guān)閉注冊表關(guān)鍵字 Exit Function 39。 四字節(jié)的注冊表關(guān)鍵字?jǐn)?shù)據(jù)類型 For i = Len(tmpVal) To 1 Step 1 39。 WinNT 沒有空終結(jié)字符串 ... tmpVal = Left(tmpVal, KeyValSize) 39。 標(biāo)記變量尺寸 39。 注冊表關(guān)鍵字值的臨時(shí)存儲器 Dim KeyValSize As Long 39。 \ 39。 39。Persist Security Info=False End Sub 2. 用戶修改密碼界面設(shè)計(jì) : 代碼設(shè)計(jì) : Private Sub Command1_Click() On Error GoTo err1 username = If And Then = select * from usertab where 用戶名 =39。 amp。 39。如果要從查詢、窗體或報(bào)表中的多個(gè)表中將數(shù)據(jù)合并在一起，就要定義各個(gè)表之間 的關(guān)系。 二、 利用 adodc（ ADO Data Control)進(jìn)行數(shù)據(jù)庫鏈接： 使用 adodata 控件訪問數(shù)據(jù)庫可以完全不用編寫代碼 ,只需要通過簡單的設(shè)置和操作其屬性就可以實(shí)現(xiàn)與數(shù)據(jù)庫的連接 ,通過綁定數(shù)據(jù)感知控件 ,就能提供一個(gè)訪問數(shù)據(jù)庫的界面 ,用來實(shí)現(xiàn)對數(shù)據(jù)庫的瀏覽 ,貼加 ,刪除 ,修改 等操作 . 三、 利用 DAO對數(shù)據(jù)庫進(jìn)行操縱 : 在 visual basic 中提供了兩種與 jet數(shù)據(jù)引擎接口的方法 :data控件與數(shù)據(jù)訪問對象 (DAO)DAO 是 database object 的英文縮寫 ,要訪問數(shù)據(jù)庫一方面數(shù)據(jù)庫要提供訪問接口 ,另一方面要在編程環(huán)境中有對數(shù)據(jù)庫的支持 . DAO 模型是設(shè)計(jì)關(guān)系數(shù)據(jù)庫系統(tǒng)結(jié)構(gòu)的對象類的集合 .他們提供了管理關(guān)系型數(shù)據(jù)庫系統(tǒng)所需要的全部操作屬性和方法 ,這其中包括建立數(shù)據(jù)庫 ,定義表 ,字段和建立表間關(guān)系 ,定位和查詢數(shù)據(jù)庫等 . 關(guān)系數(shù)據(jù)庫 介紹 : 關(guān)系數(shù)據(jù)庫是目前各類數(shù)據(jù)庫中最重要、最 流行的數(shù)據(jù)庫，他應(yīng)用數(shù)學(xué)方法來處理數(shù)據(jù)庫數(shù)據(jù)，是目前使用最廣泛的數(shù)據(jù)庫系統(tǒng)。 4) OnClick 事件：用來添加按鈕的單擊事件所執(zhí)行的程序代碼。 3） DragOver 事件：在拖放操作 正在進(jìn)行時(shí)發(fā)生。 10) DownPicture 屬性：設(shè)置或返回一個(gè)對 圖片的引用，該圖片在控件被單擊處于壓下狀態(tài)時(shí)顯示。 12） MouseUp 事件：在控件上釋放鼠標(biāo)時(shí)發(fā)生。 4） DragOver 事件： 在拖放操作正在進(jìn)行時(shí)發(fā)生。 19) FontUnderLine 屬性：設(shè)置 /返回字體下劃線樣式。 11) DataFormat 屬性：設(shè)置 /返回 DataFormat 對象，一個(gè)綁定對象將附加到它。 3) Enable 屬性：該控件為灰色時(shí)為 false,表示運(yùn)行時(shí)不可用。 3) Multline 屬性：該屬性設(shè)定 text 字符串中是否接受換行符。 7） MouseDown 事件：當(dāng)在命令按鈕上按下鼠標(biāo)按鈕時(shí)發(fā)生。 14) MaskColor 屬性：設(shè)置 /返回一個(gè)在按鈕的圖片中作為“掩碼“的的顏色 15) Picture 屬性：設(shè)置返回 mandButton 控件中要顯示的圖片。正如 Bill Gate 所說，世界上絕大多數(shù)的 Windows應(yīng)用程序是用 Visual Basic 編寫的。 經(jīng)過分析 ,我們使用 MICROSOFT公司的 VISUAL BASIC 開發(fā)工具 ,利用其提供的各種面向?qū)ο蟮拈_發(fā)工具 ,尤其是數(shù)據(jù)窗口這一能方便而簡潔操縱數(shù)據(jù)庫的智能化對象 ,首先在短時(shí)間內(nèi)建立系統(tǒng)應(yīng)用原型 ,然后 ,對初始原型系統(tǒng)進(jìn)行需求迭代 ,不斷修正和改進(jìn) ,直到形成用戶滿意的可行系統(tǒng)。然而，雖然現(xiàn)在世界上已經(jīng)充滿了多如牛毛的各種軟件，但它們依然不能滿足用戶的各種特殊需要，人們還不得不開發(fā)適合自己特殊需求的軟件。各行各業(yè)的人們無須經(jīng)過特別的訓(xùn)練就能夠使用電腦完成許許多多復(fù)雜的工作。而對于后者則要求應(yīng)用程序功能完備 ,易使用等特點(diǎn)。隨著微軟對它不斷地改進(jìn)以及計(jì)算機(jī)本身性能的提高，使得 Visual Basic 越來越適合一般的應(yīng)用程序開發(fā)。 13) DisabledPicture 屬性：設(shè)置 /返回一個(gè)對圖片的引用，該圖片在控件無效時(shí)顯示在控件中。 6） KeyPress 事件：當(dāng)用戶按下或松開一個(gè) ANSI 鍵時(shí)發(fā)生。 2) Maxlength 屬性：該屬性設(shè)定在文本框控件中能夠輸入的最大字符數(shù)。 2) Alignment 屬性：決定單選按鈕的標(biāo)題在控件上的位置。 10) DataField 屬性：設(shè)置 /返回?cái)?shù)據(jù)使用者將被綁定到的字段名。 18) FontStrikethru 屬性：設(shè)置 /返回字體刪除線樣式。 3） DragDrop 事件：在一個(gè)完整的拖放動作或使用 Drag 方法，并將其Action 參數(shù)設(shè)置位 2時(shí)，該事件發(fā)生。 11） MouseMove 事件：在控件上移動鼠標(biāo)時(shí)發(fā)生。 9) DisabledPicture 屬性：設(shè)置或返回一個(gè)對圖片的引用，該圖片在控件無效時(shí)顯示在控件中。 2） DragDrop 事件：在一個(gè)完整的拖放動作完成或使用 Drag 方法，并將其 Action 參數(shù)設(shè)置為 2 時(shí)發(fā)生。 3) Largechange 屬性：用戶點(diǎn)擊滾動條與鍵頭之間的區(qū)域時(shí) ,value 的改變量。 如果你的機(jī)器沒安裝有 Access，可通過 VB 建庫。 如果要保存數(shù)據(jù)，請為每一種類型的信息創(chuàng)建一個(gè)表。 第一章 系統(tǒng)的分析 第一章 系統(tǒng)的分析 2． 1 系統(tǒng)開發(fā)的目標(biāo)和思想 本系統(tǒng)開發(fā)目標(biāo)是服務(wù)于 高速公路收費(fèi)管理人員 ,方便工作人員 ,對過往車輛收費(fèi) ,發(fā) 放收費(fèi)票據(jù)記錄 ,對信息的分類管理等 . 同時(shí)力求做到界面人性化 ,功能齊全 ,數(shù)據(jù)存儲安全 . 2． 2 系統(tǒng)的可行性分析 技術(shù)上 :本系統(tǒng)采用 visual basic 與微軟的 access 作為數(shù)據(jù)庫 ,技術(shù)上開發(fā)難度一般 . 經(jīng)濟(jì)上 :本系統(tǒng)服務(wù)于 醫(yī)院藥方管理人員 ,提高了工作人員辦事效率 ,節(jié)省了開支 .所以具有經(jīng)濟(jì)上的可行性 . 社會上 :本系統(tǒng)同時(shí)也 方便了廣大病人 ,以及醫(yī)院管理人員 .所以具有社會可行性 . 第二章 系統(tǒng)的設(shè)計(jì) 3． 1 系統(tǒng)的功能結(jié)構(gòu)設(shè)計(jì) 程序登陸 主界面 出庫 入 庫 數(shù)據(jù)維護(hù) 窗口 幫助 3． 2 系統(tǒng)的數(shù)據(jù)庫設(shè)計(jì) 1:草藥表 : 2:處方表設(shè)計(jì) : 3:費(fèi)用表設(shè)計(jì) : 4:庫存表設(shè)計(jì) 5:科室代碼表 : 6:門診收費(fèi)表 : 7:藥品信息表 : 8:用戶表 : 9:藥方表 : 3． 2 界面設(shè)計(jì)與代碼 設(shè)計(jì) 1,登入界面設(shè)計(jì) : 代碼設(shè)計(jì) : Public userdwname As String Public username As String Public userright As String Public conn As String Private Sub Command1_Click() Dim password As String Dim respond As String username = password = On Error GoTo err1 = conn = select * from usertab where 用戶名 = amp。 39。 \。 amp。 \) ) Then SysInfoPath = SysInfoPath amp。 注冊表關(guān)鍵字?jǐn)?shù)據(jù)類型 Dim tmpVal As String 39。 分配變量空間 KeyValSize = 1024