【導讀】技術，也包括了企業(yè)管理科學和眾多豐富實踐經驗的總結。它是先進科學技術和?，F(xiàn)代企業(yè)經營管理結合的范例。段、一定規(guī)模及特定經濟環(huán)境下的必然要求。否能夠贏得和保持相當?shù)目蛻舻臐M意度。經過分析，我們使用MICROSOFT公司的

　　

【正文】 p。O） mnuOUTOrders Ctrl+F3 銷售單（ amp。S） MnuOUT1 Ctrl+F4 庫存管理（ amp。T） mnuStore1 倉庫調貨（ amp。M） mnuMove Ctrl+F5 庫存信息（ amp。Q） mnuDetail Ctrl+F6 查詢（ amp。Q） mnuQuery 進貨查詢（ amp。I） mnuQueryIN 按供應商查詢 （ amp。S） mnuINSupp 按倉庫查詢（ amp。T） mnuINStore 按業(yè)務員查詢（ amp。E） mnuINSaler 銷售查詢（ amp。O） mnuQuerOUT 按客戶查詢（ amp。C） mnuOUTCust 22 按倉庫查詢（ amp。T） mnuOUTStore 按業(yè)務員查詢（ amp。E） mnuOUTSaler 幫助（ amp。H） mnuHelp 關于（ amp。A） mnuAbout F1 編寫主窗體代碼 為主窗體設計好菜單后，就可為主窗體的裝載、卸載事件，以及各菜單編寫代碼。 1. Private Sub MDIForm_Unload(Cancel As Integer) 2. If vbMinimized Then 3. SaveSetting , Settings, MainLeft, 4. SaveSetting , Settings, MainTop, 5. SaveSetting , Settings, MainWidth, 6. SaveSetting , Settings, MainHeight, 7. End If 8. End Sub 9. Private Sub mnuAbout_Click() 39。關于 10. 39。顯示“關于”對話框 11. End Sub 12. Private Sub mnuAdduser_Click() 39。添加用戶 13. 39。顯示“添加用戶”窗體 14. End Sub 15. Private Sub mnuOUTOrders_Click() 39。銷售訂單 16. = SELECT so_id,so_date,so_saler,cus_id,_id, amp。 _ 17. _enddate,so_amount,so_price,so_amount,so_total,so_memo amp。 _ 18. FROM jxc_SalesOrders 39。設置窗體參數(shù) 19. 39。顯示“銷售訂單”窗體 20. End Sub 21. Private Sub mnuStore_Click() 39。倉庫 22. = SELECT * FROM jxc_store 23. 39。顯示“倉庫”窗體 24. End Sub 25. Private Sub mnuINOrders_Click() 39。進貨訂單 26. = SELECT od_id,od_date,od_saler,sup_id,_id, amp。 _ 27. od_enddate,od_amount,od_price,od_discount,od_total,od_memo amp。 _ 28. FROM jxc_orders 39。設置窗體參數(shù) 29. 39。顯示“進貨訂單”窗體 30. End Sub 31. Private Sub mnuIN1_Click() 39。入庫單 32. = SELECT in_id,in_date,in_saler,sup_id,st_id,_id, amp。 _ 23 33. _enddate,in_amount,in_price,in_discount,in_total,in_cash, amp。 _ 34. in_arr,in_rate,in_memo FROM jxc_in WHERE in_memo1 IS NULL 35. 39。顯示“入庫單”窗體 36. End Sub 37. Private Sub mnuExit_Click() 39。退出 38. Unload Me 39. End Sub 40. Private Sub mnuSupp_Click() 39。供應商 41. = SELECT * FROM jxc_supp 42. 39。顯示“供應商”窗體 43. End Sub 44. Private Sub mnuINStore_Click() 39。進貨 按倉庫查詢 45. 39。顯示“進貨信息 —— 按倉庫查詢”窗體 46. End Sub 47. Private Sub mnuINSupp_Click() 39。進貨 按供應商查詢 48. 39。顯示“進貨信息 —— 按供應商查詢”窗體 49. End Sub 50. Private Sub mnuOUTCust_Click() 39。銷售 按客戶查詢 51. 39。顯示“銷售信息 —— 按客戶查詢”窗體 52. End Sub 53. Private Sub mnuOUTSaler_Click() 39。銷售 按業(yè)務員查詢銷售 54. 39。顯示“銷售信息 —— 按業(yè)務員查詢”窗 體 55. End Sub 56. Private Sub mnuINSaler_Click() 39。進貨 按業(yè)務員查詢 57. 39。顯示“進貨信息 —— 按業(yè)務員查詢”窗體 58. End Sub 59. Private Sub mnuCust_Click() 39?？蛻? 60. = SELECT * FROM jxc_cust 61. 39。顯示“客戶”窗體 62. End Sub 63. Private Sub mnuModifypwd_Click() 39。修改密碼 64. 39。顯示“修改密碼”窗體 65. End Sub 66. Private Sub mnuOUTStore_Click() 39。銷售 按倉庫查詢 67. 39。顯示“銷售信息 —— 按倉庫查詢”窗體 68. End Sub 69. Private Sub mnuDetail_Click() 39。庫存信息 70. 39。顯示“庫存信息”窗體 71. End Sub 72. Private Sub mnuCNType_Click() 39。藥品類別 73. = False 39。禁止窗體中的“確定”按鈕 74. = 退出 39。修改“取消”按鈕標題為“退出” 75. 39。顯示“藥品類別”窗體 76. End Sub 24 77. Private Sub mnuCommName_Click() 39。藥品 78. = SELECT * FROM jxc_CommName 79. 39。顯示“藥品”窗體 80. End Sub 81. Private Sub mnuOUT1_Click() 39。銷售單 82. = SELECT out_id,out_date,out_saler,cus_id,st_id,_id, amp。 _ 83. _enddate,out_amount,out_price,out_discount,out_total, amp。 _ 84. out_cash,out_arr,out_rate,out_memo FROM jxc_out 39。設置窗體參數(shù) 85. 39。顯示“銷售單”窗體 86. End Sub 87. Private Sub mnuSalerType_Click() 39。業(yè)務員類別 88. = SELECT * FROM jxc_SMType 89. 39。顯示“業(yè)務員類別”窗體 90. End Sub 91. Private Sub mnuSaler_Click() 39。業(yè)務員 92. = SELECT * FROM jxc_sales 93. 39。顯示“業(yè)務員”窗體 94. End Sub 95. Private Sub mnuMove_Click() 39。倉庫調貨 96. = SELECT * FROM jxc_move 97. 39。顯示“藥品轉倉”窗體 98. End Sub ? 第 16 行為裝載窗體事件代碼，從注冊表中獲取窗體左上角坐標位置和窗體的大小。 ? 第 714 行為卸載窗體事件代碼，將主窗體的坐標位置和窗體大小保存到注冊表中。 ? 第 15104 行為各菜單項對應的事件代碼，分別用來顯示對應功能的窗體。在本例中，有的窗體初始化時就要顯示數(shù)據庫的數(shù)據，所以在打開這類窗體之前， 通過設置窗體的 strSQL 參數(shù)，使其獲取數(shù)據庫中的數(shù)據進行顯示。 編寫通用模塊程序 向工程中添加一個模塊文件“ ”，在該模塊中聲明全局變量，創(chuàng)建一個名為“ SubMain”的過程，用來啟動應用程序，另外再創(chuàng)建連接數(shù)據庫及從數(shù)據庫中獲取數(shù)據的過程。 下面列出 中的全局變量、 Sub Main 過程、生成序號過程的代碼。 1 Public fMainForm As frmMain 39。定義主窗體類型 2 Public UserName As String 39。保存當前登錄用 戶 3 Dim n As 39。數(shù)據庫連接 4 Sub Main() 25 5 Dim fLogin As New frmLogin 39。定義登錄窗口對象 6 = 醫(yī)藥進銷存系統(tǒng) 39。應用程序標題 7 vbModal 39。顯示登錄窗體 8 If Not Then 39。如果登錄不成功 9 End 39。結束應用程序 10 End If 11 Unload fLogin 39。卸載登錄窗體 12 Set fMainForm = New frmMain 39。生成新的主窗體 13 39。顯示主窗體 14 End Sub 15 Public Function GenNo() As String 39。生成序號 16 GenNo = Format(Now, yymmddhhmmss) 39。得到當前時間 17 Randomize 18 GenNo = GenNo amp。 Int((99 10 + 1) * Rnd + 10) 39。生成隨機序號 19 End Function 20 Private Sub Connect() 39。連接數(shù)據庫 21 If IsConnect = True Then 39。如果連接標記為真，則返回。否則會出錯 22 Exit Sub 23 End If 24 On Error GoTo DbOpenErr 25 Set n = New 39。關鍵 New 用于創(chuàng)建新對象 n 26 With n 27 .Provider = sqloledb 28 .ConnectionString = data source=st65\sqlexpress。initial catalog=MedicineJXC。user id=sa。password=111。 29 .ConnectionTimeout = 10 30 .Open 31 End With 32 IsConnect = True 39。設置連接標記，表示 已經連接到數(shù)據庫 33 Exit Sub 34 DbOpenErr: 35 If Err = 2147467259 Then 36 Set n = Nothing 37 MsgBox 連接 MS SQL Server 數(shù)據庫失??！ amp。 vbCrLf amp。 vbCrLf amp。 38 請檢查配置是否完好，醫(yī)藥進銷存數(shù)據庫是否存在？ , vbOKOnly + vbInformation, 醫(yī)藥進銷存 管理系統(tǒng) 39 End 40 End If 41 End Sub 26 ? 第 13 行定義全局變量，用來引用主窗體、保存當前登錄用戶、保存數(shù)據庫連接對象。 ? 第 414 行為啟動應用程序的 Main 過程。 ? 第 1519 行的函數(shù)用來根據系統(tǒng)當前時間，生成一個隨機的序號。生成各種編號時可通過該函數(shù)返回序號。 ? 第 2041 行為連接數(shù)據庫的過程。其中第 28 行為具體的連接字符串，若數(shù)據庫名稱不同，可修改此行代碼。 27 第七章 詳細設計 設計基本數(shù)據模塊 “基本數(shù)據”模塊用來管理系統(tǒng)經常引用的數(shù)據，如藥品、供應商、客戶、業(yè)務員、倉庫等數(shù)據。由于本書 篇幅限制，本節(jié)介紹兩類基本數(shù)據管理窗體的設計過程。 藥品類別 “藥品類別”窗體有兩個用途：一個用途是用來管理藥品類別（