【正文】 End Sub 3,關于界面設計 : 代碼設計 : Private Sub cmdOK_Click() Unload Me End Sub Private Sub Form_Load() = ( ) / 2 500 = ( ) / 2 = 關于 amp。 amp。 username amp。 amp。 39。 密碼 = amp。 username amp。例如，可以打印一份將數(shù)據(jù)分組并計算數(shù)據(jù)總和的報表，也可以 打印另一份帶有各種數(shù)據(jù)格式的打印郵件標簽的報表。查詢的同時也可以更新或刪除多條記錄，并對數(shù)據(jù)執(zhí)行內(nèi)嵌或自定義的計算。在這個文件中，用戶可以將自己的數(shù)據(jù)分別保存在各自獨立的存儲空間中，這些空間稱作表；可以使用聯(lián)機窗體來查看、添加及更新表中的數(shù)據(jù)；使用查詢來查找并檢索所要的數(shù)據(jù)；也可以使用報表以特定的版面布置來分析及打印數(shù)據(jù)。在數(shù)據(jù)庫發(fā)展的歷史上，最重要的成就就是關系模型。注意：請將庫文件存入程序所在目錄。 2) Enable 屬性 :為 true 時 (缺省值 ),激活定時器開始計時 。 2) Max 和 min 屬性：對 value 值的最大 ,最小進行限制。 5） OLECompleteDrag 事件：當源部件被放到目標時發(fā)生，并通知源部件拖放操作被執(zhí)行或取消。 ? 復選按鈕類的控件的基本事件： 1） Click 事件：鼠標單擊控件時發(fā)生。 12) DragMode 屬性：設置返回一個值，確定在拖放操作中所用方式。 8) Datasource 屬性：設置或返回控件綁定的一個數(shù)據(jù)源。 2) Index 屬性 :該屬性值為復選框控件數(shù)組的下標 . 3) Value 屬性 :value 為 0 表空白 ,為 1表勾號 ,為 2表示灰色勾號 . 4) Container 屬性： Form 控件上的容器。 10） MouseDown 事件：當在控件上按下鼠標鍵時發(fā)生。 6） LostFocus 事件： 當對象失去焦點時發(fā)生。 2） DbClick 事件： 當在一個對象上按下和釋放鼠標按鈕并再次按下和釋放按鈕時，該事件發(fā)生。 21) FontSize 屬性：設置 /返回控件中顯示文本所用的字體大小 22) Height 屬性：設置 /返回控件的高度。 17) FontItalic 屬性：設置 /返回字體斜體樣式。 13) DownPicture 屬性：設置 /返回一個對圖片的引用，該圖片在控件單擊下處于壓下狀態(tài)時顯示。 9) Container 屬性：設置 /返回 Form 上的控件屬性。 5) Tabindex 屬性：建立控件時 ,vb 自動為其分配一個 tabindex 值 ,利用tab 鍵可以在控件之間切換焦點。 10) BackColor 屬性：設置返回背景色 11) BorderStyle 屬性：設置對象的邊框樣式 12) DataField 屬性：設定數(shù)據(jù)使用者將被綁定到的字段名 13) DataFormat 屬性：設定 DataFormat 對象，用于數(shù)據(jù)綁定 14) DataMember 屬性：從數(shù)據(jù)供應程序提供的幾個數(shù)據(jù)成員中返回 /設定一個特定的數(shù)據(jù)成員 15) DataSource 屬性：設定控件綁定的一個數(shù)據(jù)源 16) DragIcon 屬性：設定圖標，它將 在拖放操作中作為指針顯示 17) DragMode 模式：設定一個值，確定在拖放操作中所用方式 18) Enabled 屬性：設置 /返回運行時 TextBox 是否相應用戶事件 19) Font 屬性：設置 /返回字體屬性 20) ForeColor 屬性：設置 /返回文本的前景色 21) Height 屬性：設置 /返回 TextBox 的高度 22) IMEMode 屬性：設置 /返回數(shù)值用來確定輸入方法編輯器的狀態(tài) 23) Index 屬性：設置 /返回唯一的標識控件數(shù)組中該控件的編號 24) Left 屬性：設置 /返回 TextBox 控件的水平位置 25) Locked 屬性：設置 /返回 TextBox 中文本 是否可編輯 26) LinkItem 屬性：設置 /返回 DDE與另一個應用程序會話時，傳給接受端的數(shù)據(jù) 27) MaxLength 屬性：設置 /返回一個值，指定在 TextBox 控件中能夠輸入的字符最大值 28) MouseIcon 屬性：設置 /返回自定義鼠標的圖標 29) Top 屬性：設置 /返回 TextBox 控件的垂直位置 30) Tag 屬性：存儲過程所需的附加數(shù)據(jù) ? 文本框類的事件： 1） Change 事件：當改變文本框內(nèi)容時發(fā)生 2） Click 事件：鼠標單擊控件時發(fā)生 3） DblClick 事件：用鼠標左鍵雙擊控件時發(fā)生 4） DragDrop 事件：在一個完整的拖放動作完成 或使用 Drag 方法，并將其 Action 參數(shù)設置為 2 時發(fā)生 5） DragOver 事件：在拖放操作正在進行時發(fā)生 6） GotFocus 事件：當一個命令按鈕獲得焦點時發(fā)生 7） LinkClose 事件：當一個 DDE 對話結(jié)束時發(fā)生 8） LinkError 事件：當一個 DDE 對話框過程中出現(xiàn)錯誤時，該事件發(fā)生 9） KeyDown 事件：當命令按鈕具有焦點時按下一個鍵時發(fā)生 10） Validate 事件：在焦點轉(zhuǎn)換到另一個控件之前發(fā)生，此時該控件的 Causes Validation 屬性值設置為 True ? 單選按鈕類的控件： 1) Caption 屬性：顯示在控件上的文本 ,是單選按鈕的標題。 5) Passwordchar 屬性：該屬性設定輸入文本的特殊顯示字符 ,在設計密碼程序時非常有用。 ? 文本框類 的控件： 1) Text 屬性：通過像 text 屬性賦值的方法來改變該屬性的值。 9） MouseUp 事件：當在命令按鈕上釋放鼠標按鈕時發(fā)生。 （ 2） 事件處理過程 命令按鈕 GotFoucs 事件處理過程為： Private Sub ObjectGotFocus（ Index As Integer） 3） LostFocus 事件：當一個對象失去焦點時發(fā)生 4） KeyDown 事件：當命令按鈕具有焦點時按下一個鍵時發(fā)生 5） KeyUp 事件：當命令按鈕具有焦點時 釋放一個鍵時發(fā)生。命令按鈕的 Click 事件僅對當單擊鼠標時發(fā)生。 6) Default 屬性 :決定哪一個命令按鈕控件是窗體的缺省命令按 鈕 . 7) Font 屬性 :控制各種文字字體類型 . 8) Left,top,height,width 屬性 :設定控件的位置與大小 . 9) Style,picture 屬性 :決定按鈕的顯示方式是否為圖像形式出現(xiàn) . 10) Visible 屬性 :確定控件運行時是否為可見 . 11) Index 屬性 :當控件為一控件數(shù)組時 ,此屬性值為該控件在數(shù)組的下標值 . 12) DownPicture 屬性：設置 /返回一個對圖片的引用，該圖片在按鈕被單擊處于壓下狀態(tài)時顯示。 2) Enable 屬性：控制控件的激活狀態(tài)灰色或可用。 1． 2 系統(tǒng)簡介 本系統(tǒng)采用 visual basic 與 Access 作為數(shù)據(jù)庫的方式編寫 ,主要服務于藥方藥品管理人員的日常工作 . 主要由以下幾大功能模塊構成 : 一 . 藥品入庫 :庫存登記 ,庫存查看 ,藥品調(diào)價 ,退出 二 . 藥品出苦 :庫存調(diào)撥 ,查看出庫情況 三 . 數(shù)據(jù)維護 :報廢品清理 ,修改密碼 ,修改庫存記錄 四 . 窗口 :重疊 ,水平平鋪 ,垂直平鋪 ,排列圖標 五 . 幫助 :關于 1. 3 開發(fā)軟件介紹 Visual Basic Micrsoft 公司出品的開發(fā)工具， Visual Basic 是一種可視化的，面向?qū)ο蟮?Windows 開發(fā)語言，它具有易用，通用和開發(fā)效率高的特點。 關鍵字 :藥品 管理 ,MIS,visual basic ,數(shù)據(jù)庫 1． 1 課題背景 藥品庫房管理系統(tǒng)用計算機管理醫(yī)院藥方藥品管理的一種計算機應用技術的創(chuàng)新 ,在計算機還未普及之前醫(yī)院藥房藥品管理都是由工作人員手工書寫的方式來操作的 .現(xiàn)在一般的醫(yī)院藥方都采用計算機智能化管理 ,采用計算機作為工具的實用的計算機藥方庫存管理程序來幫助管理員進行更有效的藥品管理工作。 對于前者要求建立起數(shù)據(jù)一致性和完整性強、數(shù)據(jù)安全性好的庫?，F(xiàn)在不同了，即使你沒有接受過嚴格的程序設計訓練，使用 Visual Basic 也一樣能夠開發(fā)出功能強大、適合自己特殊需求的 應用程序了。 它已經(jīng)深入 到日常工作和生活的方方面面，比如文字處理、信息管理、輔助設計、圖形圖像處理、教育培訓以及游戲娛樂等。 隨著科學技術的不斷提高 ,計算機科學日漸成熟 ,其強大的功能已為人們深刻認識 ,它已進入人類社會的各個領域并發(fā)揮著越來越重要的作用。以前開發(fā) Windows 應用軟件是專業(yè)人員的工作，需要掌握許多專業(yè)知識和經(jīng)過特殊的培訓才能勝任。藥方管理系統(tǒng) 是典型的信息管理系統(tǒng) (MIS),其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護以及前端應用程序的開發(fā)兩個方面。 因為本人能力有限，加上時間緊迫，所以設計出來的本系統(tǒng)可能功能比較簡單，另外本系統(tǒng)是單機版，不能實現(xiàn)網(wǎng)絡互聯(lián)操作 ,這 些都有待于我在以后的工作學習中進一步改進。而對于后者則要求應用程序功能完備 ,易使用等特點。在眾多的開發(fā)工具中，我們?yōu)槭裁匆x擇Visual 呢？因為 VB 具有眾多其它開發(fā)工具所沒有的優(yōu)點！具體介紹如下： ? 開發(fā)的高效 ? 語言的 高效 ? 編譯的高效 ? 執(zhí)行的高效 ? 維護的高效 基于以上理由，我們毫不憂郁的選擇了 做為我們的開發(fā)工具?。? 主要的控件及其基本屬性，事件簡介 ? 命令按鈕類的控件： 1) Caption 屬性：用來顯示在控件上的標題。 5) Cancel 屬性：該屬性決定按鈕是否為一個 ” 取消 ” 按鈕。 ? 命令按鈕類的事件： 1） 單擊事件―― Click 事件 （ 1） 觸發(fā)與適用 此事件是在一個命令按鈕對象上按下然后釋放一個鼠標按鈕時發(fā)生。 2） 獲得焦點―― GotFocus 事件 （ 1） 觸發(fā)與適用 當命令按鈕獲得焦點產(chǎn)生該事件，獲得焦點可以通過諸如Tab 切換或單擊對象之類的用戶動作，或在代碼中用SetFocus 方法改變焦點來實現(xiàn)。 8） MouseMove 事件：當命令按鈕上移動鼠標時發(fā)生。 3) Backstyle 屬性：用以指示標簽是否透明 . 4) Bordstyle 屬性 :用以設定控件是否有邊框。 4) Scrollbars 屬性：該屬性決定是否為文本框加滾動條。 8) Alignment 屬性：設定控件中的文本對其方式 9) Appearance 屬性：設定一個對象在運行時是否可以 3D效果顯示。 4) Index 屬性：屬性值表示為單選按鈕組成的控件中某個按鈕的索引值。 8) BackColor 屬性：設置 /返回背景色。 12) DisabledPicture 屬性：設置 /返回一個對圖像的引用，該圖片在控件無效時顯示在控件中。 16) FontBold 屬性：設置 /返回字體粗體樣式。 20) FontName 屬性：設置 /返回控件中顯示文本所用的字體大小。 ? 單選按鈕類的常用事件： 1） Click 事件：鼠標單擊控件時發(fā)生。 5） GotFocus 事件： 當獲的對象焦點時發(fā)生。 9） KeyPress 事件：當用戶按下或釋放 ANSI 一個鍵時發(fā)生。 ? 復選按鈕類的控件： 1) Caption 屬性：缺省為 check1? 。 7) DataFormat 屬性：設置或返回 DataFormat 對象，用于數(shù)據(jù)綁定。 11) DragIcon 屬性：設置或返回圖標，它將在拖放操作中做為指針顯示。 15) Value 屬性：設置或返回控件的狀態(tài)。 4） GotFocus 事件：在對象獲的焦點時發(fā)生。 2) Mutselect 屬性 :可以設置列表框為單選或允許多選屬性 . 3) Selectd 屬性 :標示一 個數(shù)組 ,數(shù)組各元素為 : 4) Selected(0),selected(1)? ? 滾動條類的控件： 1) Value 屬性：滾動條上滑塊所在位置由 value 值所決定。 ? 定時器類類的控件： 1) Interval 屬性：表示定時的時間間隔 ,以毫秒為單位。 第二步：用 Access 建立一個名為 Pad的數(shù)據(jù)庫，在庫中 建立一個表 Myset，給表添加四個字段： backcolor（數(shù)據(jù)）， forecolor(文本）， fontname(文本） ,fontsize（文本）。 20 世紀 70 年代以后開發(fā)的數(shù)據(jù)庫管理系統(tǒng)產(chǎn)品幾乎都是基于關系的。目前已成為關系數(shù)據(jù)庫的標準語言 Microsoft Access 介紹 : 使用 Microsoft Access，可以在單一的數(shù)據(jù)