管理信息系統(tǒng)課程設計藥品庫房管理系統(tǒng)

1、遼 寧 工 業(yè) 大 學 管理信息系統(tǒng)設計課程設計報告（論文）題目： 藥品庫房系統(tǒng)的分析與設計 院（系）： 軟件學院 專業(yè)班級： 軟件工程114 學 號： 111301085 學生姓名： 安凱辰 指導教師： 谷寶華 教師職稱： 教 授 起止時間： 2012.5.28-2012.6.8 課程設計（論文）任務及評語院（系）：軟件學院 教研室：軟件教研室學 號111301085學生姓名安凱辰專業(yè)班級軟件工程114班課程設計（論文）題目藥品庫房系統(tǒng)的分析與設計課程設計（論文）任務管理信息系統(tǒng)課程設計作為獨立的教學環(huán)節(jié)，是電子商務專業(yè)集中實踐性環(huán)節(jié)系列之一，是學習完管理信息系統(tǒng)課程并進行完專業(yè)實習后進行的

2、一次全面的綜合練習。任務：采用結構化的系統(tǒng)開發(fā)方法，應用具體的計算機語言（如VB、Delphi）和數(shù)據(jù)庫（SQL、Access）等技術，按照軟件工程的思想，開發(fā)一個實用的中小型管理信息系統(tǒng)，完成藥品庫房理系統(tǒng)的分析設計實施工作，實現(xiàn)該系統(tǒng)藥品管理、售藥管理、系統(tǒng)分析等功能，并完成結合分析設計過程，撰寫系統(tǒng)設計說明書（課設報告）。1根據(jù)課程設計時間選擇適當規(guī)模大小的設計課題。采用專業(yè)實習的調研內容作為課程設計選題。2根據(jù)合理的進度安排，按照系統(tǒng)開發(fā)的流程及方法，踏實地開展課程設計活動。3課程設計過程中，根據(jù)選題的具體需求，在開發(fā)各環(huán)節(jié)中撰寫相關的技術文檔，最后提交詳細的課程設計報告。4開發(fā)出可以

3、運行的管理信息系統(tǒng)，通過上機運行檢查。5設計說明書要求文檔齊備，步驟全整，流程正確，說明詳細，具有有可操作性。指導教師評語及成績成績： 指導教師簽字： 2012 年 6 月 12 日目 錄第1章 系統(tǒng)分析11.1 建立系統(tǒng)的必要性11.2 業(yè)務流程分析21.3數(shù)據(jù)流程圖31.4數(shù)據(jù)字典3第2章 系統(tǒng)設計62.1 總體設計6 功能設計6 運行環(huán)境設計62.2 代碼設計72.3 數(shù)據(jù)庫設計7 概念設計7 邏輯設計8 物理設計10第3章 系統(tǒng)實施113.1 程序實現(xiàn)113.2 系統(tǒng)測試12第4章 課設總結13參考文獻14附錄：15第1章 系統(tǒng)分析1.1 建立系統(tǒng)的必要性發(fā)達國家藥材公司庫房信息系統(tǒng)的

4、開發(fā)實現(xiàn)已有三十多年的歷史，至今有了長足的進步，有許多舉世公認的成功的系統(tǒng)在藥材公司庫房有效地運轉著。像鹽湖城LDS藥材公司庫房的HELP系統(tǒng)，麻省總藥材公司庫房的COSTAR系統(tǒng)，退伍軍人管理局的DHCP系統(tǒng)?？v觀美國的醫(yī)藥庫房發(fā)展歷史，大約可分為三個階段：第一個十年，集中在開發(fā)藥材公司庫房行政管理的功能上，像財務收費管理管理等。但到1972年Collen仍報告美國迄今為止連一個成功的已完成的全面藥材公司庫房(管理)計算機系統(tǒng)都沒有。第二個十年，在繼續(xù)完成和實現(xiàn)藥材公司庫房管理信息的計算機化的同時，開發(fā)者的努力已進入醫(yī)療信息的處理領域，像病人醫(yī)療處理系統(tǒng)，實驗室系統(tǒng)等。到1985年，美國全國

5、藥材公司庫房數(shù)據(jù)處理工作調查表明，100張床位以上的藥材公司庫房80%實現(xiàn)了計算機財務收費管理，70%的藥材公司庫房可支持病人掛號登記和行政事務管理，25%的藥材公司庫房有了較完整的MIS。藥材公司庫房信息系統(tǒng)正在經(jīng)歷著小型化(DownSizing)、智能化(Intellegence)和集成化(Integration)的改造過程。刺激美國藥材公司庫房采用計算機系統(tǒng)的重要因素。為病人提供更好、更快的服務，提高藥材公司庫房在醫(yī)療服務市場上的競爭力，以吸引更多病人到本院就醫(yī)。人力工資的昂貴，迫使藥材公司庫房采用計算機以提高勞動效率。國家和保險公司為施行預付款制度(Prospective Paymen

6、t System,PPS)而要求藥材公司庫房及時上交復雜的有關DRGs的報告，迫使藥材公司庫房采用計算機技術。我國藥材公司庫房信息系統(tǒng)的研發(fā)工作，從八十年代初期算起，至今也有十多年的歷史，其中經(jīng)歷了單機單任務的階段，多機多任務的階段以及微機網(wǎng)絡一體化的階段，應該承認，這期間我們有了很大進步。HIS的應用已經(jīng)涉及到許多方面，有些系統(tǒng)的功能(例如財務帳 目管理、藥品庫存管理、住院病人管理.等)也日趨完善。但是我國還沒有在一家國家級的大型綜合性藥材公司庫房真正實現(xiàn)完整的藥材公司庫房管理信息系統(tǒng)。藥材公司庫房對信息的需求永遠是HIS發(fā)展的原動力。刺激我國藥材公司庫房廣泛采用計算機信息系統(tǒng)的因素已經(jīng)存在

7、，并且會越來越廣泛與強烈，其中較為突出的有：藥材公司庫房要強化自身的管理，逐步實現(xiàn)醫(yī)療價格評價與按成本收費，實現(xiàn)藥材公司庫房內按成本核算與全面財務計劃，并體現(xiàn)在建立和優(yōu)化藥材公司庫房內合理的分配制度上，為此，每個藥材公司庫房都迫切需要建立自己的以財務管理為中心的藥材公司庫房管理信息系統(tǒng)。藥材公司庫房要加強醫(yī)療服務質量的自我監(jiān)督、自我控制的能力，為病人提供更快更好的服務，必然要依賴于計算機信息系統(tǒng)。醫(yī)療制度的改革正在把病人藥材公司庫房的二元關系改變?yōu)椴∪怂幉墓編旆勘ｋU機構 政府監(jiān)督的多元關系。大量的有關病人的診斷、治療、用藥、資源消耗的信息不僅在院內,而且要在許多部門之間流通、傳遞。這將是一件

8、難以用手工完成的繁雜的任務。1.2 業(yè)務流程分析本藥品庫房管理系統(tǒng)是一個針對醫(yī)藥經(jīng)營企業(yè)現(xiàn)狀的庫存管理系統(tǒng)，為了更清楚的說明框架，如圖1.1所示。系統(tǒng)流程圖展示了本系統(tǒng)所有功能模塊之間的邏輯關系，其中的各個功能模塊，基本上都代表了一個獨立的頁面。領藥部門供應科 不合格領藥單領藥單入庫單一不合格入庫單一 驗證檢驗合格領藥單合格入庫單 出庫、記帳 入庫、記帳 記庫存臺帳入庫帳出庫帳 庫存臺帳 統(tǒng)計 報表 主管部門 圖1.1 業(yè)務運轉圖1.3數(shù)據(jù)流程圖本藥品庫房管理系統(tǒng)是一個針對醫(yī)藥經(jīng)營企業(yè)現(xiàn)狀的庫存管理系統(tǒng)，它從配送中心到門店的各個環(huán)節(jié)對人流、物流、資金流、信息流進行管理。由門店根據(jù)銷售、庫存生成

9、缺貨通知單，上傳到配送中心，配送中心根據(jù)庫存，對門店進行配送。同時，配送中心根據(jù)庫存下限生成缺貨分析，然后傳到采購部，采購部對缺貨分析修改后生成采購需求，進行采購。該系統(tǒng)業(yè)務運轉圖1.2如下：圖1.2 程序流程圖1.4數(shù)據(jù)字典 數(shù)據(jù)流圖表達了數(shù)據(jù)和處理的關系，數(shù)據(jù)字典則是系統(tǒng)中各類數(shù)據(jù)描述的集合，是進行詳細的數(shù)據(jù)收集和數(shù)據(jù)分析所獲得的主要成果。數(shù)據(jù)字典在數(shù)據(jù)庫設計中占有很重要的地位。在分析階段，數(shù)據(jù)字典可以建立嚴密、一致的數(shù)據(jù)定義來使得分析員和用戶之間的通信更加順歷。它是系統(tǒng)中一系列數(shù)據(jù)信息以及數(shù)據(jù)流圖中包含的所有元素的定義的集合，主要的用途是提供給查詢相關條目的解釋。因此，數(shù)據(jù)字典的作用是在

10、軟件分析和設計的過程中給人員提供相關的數(shù)據(jù)描述信息。它包括數(shù)據(jù)流，數(shù)據(jù)元素，數(shù)據(jù)存儲及處理過程。酒店管理系統(tǒng)中使用數(shù)據(jù)字典來提供數(shù)據(jù)查詢的解釋。數(shù)據(jù)元素系統(tǒng)名：藥品庫房管理系統(tǒng) 有關數(shù)據(jù)結構：藥品入庫表 藥品出庫表藥品庫存表 供應商表客戶表 藥品入庫退貨表 藥品出庫退貨表數(shù)據(jù)元素系統(tǒng)名：藥品庫房管理系統(tǒng)表名：藥品入庫表別名：RKD定義：藥品入庫表=商品名稱+簡稱+批號+產(chǎn)地+規(guī)格+包裝+單位+數(shù)量+進價+金額+備注+供應商+日期+經(jīng)手人+票號數(shù)據(jù)流條目數(shù)據(jù)元素系統(tǒng)名：藥品庫房管理系統(tǒng) 表名：藥品入庫退貨表 別名：RKTD 定義：藥品入庫退貨表=商品名稱+簡稱+批號+產(chǎn)地+規(guī)格+包裝+單位+數(shù)量

11、+進價+金額+備注+供應商+日期+經(jīng)手人+票號 數(shù)據(jù)元素系統(tǒng)名：藥品庫房管理系統(tǒng) 表名：藥品出庫退貨表 別名：XSTD 定義：藥品出庫退貨表=商品名稱+批號+產(chǎn)地+規(guī)格+包裝+單位+數(shù)量+進價+金額+備注+供應商+日期+經(jīng)手人+票號 數(shù)據(jù)元素系統(tǒng)名：藥品庫房管理系統(tǒng) 表名：藥品出庫表別名：XSD 定義：藥品出庫表=商品名稱+批號+產(chǎn)地+規(guī)格+包裝+單位+數(shù)量+進價+金額+備注+供應商+日期+經(jīng)手人+票號數(shù)據(jù)元素系統(tǒng)名：藥品庫房管理系統(tǒng) 表名：客戶表別名：KH 定義：客戶表=客戶編號+客戶全稱+簡稱+地址+所屬地區(qū)+郵政編號+電話+傳真+聯(lián)系人+聯(lián)系人電話+開戶銀行+銀行賬號+納稅人登記+預付金

12、額+實際金額+尚余欠款+網(wǎng)址郵箱+日期第2章 系統(tǒng)設計2.1 總體設計2.1.1 功能設計藥品庫房管理系統(tǒng)是一個針對醫(yī)藥經(jīng)營企業(yè)現(xiàn)狀的庫存管理系統(tǒng)，本系統(tǒng)模塊清晰，思路明確，本著各模塊間的緊密聯(lián)系，使得系統(tǒng)能夠有效迅速得完成指定任務，從而提高了企業(yè)效率，結構如下圖2.1所示。 藥品庫房管理系統(tǒng)日常業(yè)務庫存管理查詢統(tǒng)計基礎信息系統(tǒng)設置藥品入庫藥品出庫入庫單管理庫存查詢庫存盤點倉庫查詢倉庫退貨查詢數(shù)據(jù)恢復供應商管理客戶管理初建密碼密碼設置數(shù)據(jù)備份圖2.1 系統(tǒng)功能圖2.1.2 運行環(huán)境設計（一）編程環(huán)境的選擇Visual Basic 6.0是Windows應用程序開發(fā)工具，具有直觀的開發(fā)界面、先進

13、的程序設計思想，是目前最為廣泛的、易學易用的面向對象的開發(fā)工具。VB還提供了軟件發(fā)布功能，使得開發(fā)、調試到發(fā)布可以一步完成。故而，實現(xiàn)本系統(tǒng)VB是一個相對較好的選擇。（二）關系型數(shù)據(jù)庫的選擇Access是一種功能強大的數(shù)據(jù)庫開發(fā)工具，數(shù)據(jù)庫匯集了信息以供查詢、存儲和檢索。選擇access數(shù)據(jù)庫的最主要原因是，它支持網(wǎng)絡數(shù)據(jù)庫，現(xiàn)在企業(yè)規(guī)模的迅速擴大，車輛作為最主要的交通工具在企業(yè)中已經(jīng)大量存在，為了合理控制這些信息，最佳的調配各部門的車輛使用，采用網(wǎng)絡數(shù)據(jù)庫是最理想的選擇。Access服務器提供了可靠的數(shù)據(jù)保障，可以自動數(shù)據(jù)備份和訪問日志的記錄，可以進行詳細的數(shù)據(jù)分析等操作。采用C/S模式的設

14、計，可以更加合理的利用企業(yè)資源，使得數(shù)據(jù)集中在一臺服務器上，從來節(jié)省了數(shù)據(jù)庫管理的人力資源，也使得由于非專業(yè)人士的誤操作，或者別的各種電腦意外而導致數(shù)據(jù)丟失，或者別的不必要損失，所以在數(shù)據(jù)庫選擇上采用了access2.2 代碼設計系統(tǒng)為每個產(chǎn)品設計了代碼，一方面可統(tǒng)計產(chǎn)品的特性，另方面是為了方便數(shù)據(jù)輸入，在產(chǎn)品輸入的輸入產(chǎn)品代碼即可文件名 表名 RKD 藥品入庫表RKTD 藥品入庫退貨表XSD 藥品出庫表XSTD 藥品出庫退貨表KC 藥品庫存表GYS 供應商表KH 客戶表2.3 數(shù)據(jù)庫設計2.3.1 概念設計由上面的數(shù)據(jù)項，可以設計出能夠滿足需求的各種實體及它們之間的關系，為后面的邏輯結構設計

15、打下基礎。這些實體包含各種具體信息，通過相互之間的作用形成數(shù)據(jù)的流動。實體與實體之間的E-R圖，圖中省略了實體的屬性，請參照以上實體的屬性。 如圖4.5所示：N11MMNPMN會員客戶操作員倉庫藥品供應商供應銷售存儲管理圖4.5 系統(tǒng)整體關系圖2.3.2 邏輯設計建立數(shù)據(jù)庫YPJXC.MDB，其中包括的表1如下所示：表2.1 數(shù)據(jù)庫總體列表 表名 文件名藥品入庫表RKD 藥品入庫退貨表RKTD藥品出庫表XSD藥品出庫退貨表XSTD藥品庫存表KC供應商表GYS客戶表KH表2.2 藥品入庫表（RKD）字段字段名中文含義 類型寬度小數(shù)位1商品名稱商品名稱文本502簡稱簡稱文本503批號批號文本104

16、產(chǎn)地產(chǎn)地文本405規(guī)格規(guī)格文本506包裝包裝文本50表2.3 供應商表（GYBMB）字段字段名中文含義 類型寬度小數(shù)位1供應商編號供應商編號文本10 2供應商全稱供應商全稱文本1003簡稱簡稱文本204地址地址文本1005所屬地區(qū)所屬地區(qū)文本50表2.4 客戶表（KH）字段字段名中文含義 類型寬度小數(shù)位1客戶編號客戶編號文本102客戶全稱客戶全稱文本1003簡稱簡稱文本204地址地址文本1005所屬地區(qū)所屬地區(qū)文本506郵政編碼郵政編碼文本6表2.5 藥品出庫退貨表（XSTD）字段字段名中文含義 類型寬度小數(shù)位1商品名稱商品名稱文本502簡稱簡稱文本503批號批號文本104產(chǎn)地產(chǎn)地文本405規(guī)

17、格規(guī)格文本50表2.6藥品入庫退貨表（RKTD）字段字段名中文含義 類型寬度小數(shù)位1商品名稱商品名稱文本502簡稱簡稱文本503批號批號文本105規(guī)格規(guī)格文本506包裝包裝文本50表4.4 藥品庫存表（KC）字段字段名中文含義 類型寬度小數(shù)位1商品名稱商品名稱文本502簡稱簡稱文本503批號批號文本104產(chǎn)地產(chǎn)地文本405規(guī)格規(guī)格文本506包裝包裝文本507單位單位文本508進價進價貨幣1229庫存庫存數(shù)字12210庫存金額庫存金額貨幣1222.3.3 物理設計本系統(tǒng)中需要設計的基本信息表：出庫管理表、單位管理表、費用支出表、科目設定表、庫存盤點表、其它收入表、入庫管理表和用戶管理表。并且本系

18、統(tǒng)運用到流行的可視化VB語言與access數(shù)據(jù)庫和軟件工程中的需求分析、數(shù)據(jù)庫原理中所學到的知識，這使得初學者很容易在短時期內對軟件熟練的應用和掌握，提高了系統(tǒng)的可操作性，更具有實用價值。E-R轉換為關系模型一般遵循的原則:一個實體型轉換為一個關系模型.實體的屬性就是關系的屬性,實體的碼就是關系的碼.第3章 系統(tǒng)實施 3.1 程序實現(xiàn)本系統(tǒng)的應用程序開發(fā)是在上述系統(tǒng)設計的基礎上，用軟件開發(fā)工具Visual Basic 6.0進行開發(fā)。開發(fā)步驟如下：1. 設計用戶操作主界面如圖3.1所示：圖3.1設計用戶操作主界面其中主要代碼如下：Dim s, y, i 定義變量Dim mydb As Data

19、base 定義數(shù)據(jù)庫Dim rs1 As Recordset 定義字段Dim rs2 As RecordsetDim lsph As Integer 定義一個整型變量Private Sub Form_Load()自動識別數(shù)據(jù)庫路徑Data1.DatabaseName = App.Path & yyjxc.mdbData2.DatabaseName = App.Path & yyjxc.mdbData3.DatabaseName = App.Path & yyjxc.mdbmf1.Rows = 102: mf1.Cols = 12 定義mf1表的總行數(shù)、總列數(shù)定義mf1表的列寬和表頭信息 For

20、 i = 1 To 101 mf1.TextMatrix(i, 0) = i Next i rkrq.Text = Date 設置入庫日期End SubPrivate Sub Form_Unload(Cancel As Integer) frm_main.Enabled = TrueEnd SubPrivate Sub gys_Change() DBList1.Visible = True DBList1.ReFill 查詢供應商信息 Data2.RecordSource = select 供應商全稱 from gys where (gys.供應商全稱 like + Chr(34) + gys

21、.Text + * + Chr(34) + )or (gys.簡稱 like + Chr(34) + gys.Text + * + Chr(34) + )group by 供應商全稱 Data2.RefreshEnd Sub3.2 系統(tǒng)測試測試是一個為了尋找錯誤而運行程序的過程，一個好的測試用例是只可能找到迄今為止尚未發(fā)現(xiàn)錯誤的用例，一個成功的測試是揭示了迄今為止尚未發(fā)現(xiàn)的錯誤的測試。軟件測試基本可分為白盒測試和黑盒測試。兩種測試方法從不同的角度出發(fā)，反映了軟件的不同側面，也適用于不同的開發(fā)環(huán)境。白盒測試又稱結構測試、邏輯驅動測試或基于程序本身的測試，也可稱為測試員測試，主要應用于結構化開發(fā)環(huán)

22、境。黑盒測試又稱功能測試、數(shù)據(jù)驅動測試或基于規(guī)格說明的測試，也可被稱為用戶測試，主要應用于快速應用開發(fā)（RAD）環(huán)境。本例所用的是黑盒測試。在測試時，把程序看作一個不能打開的黑盆子，在完全不考慮程序內部結構和內部特性的情況下，測試者在程序接口進行測試，它只檢查程序功能是否按照需求規(guī)格說明書的規(guī)定正常使用，程序是否能適當?shù)亟邮蛰斎霐?shù)據(jù)而產(chǎn)生正確的輸出信息，并且保持外部信息（如數(shù)據(jù)庫或文件）的完整性。黑盒測試方法主要有等價類劃分、邊值分析、因果圖、錯誤推測等，主要用于軟件確認測試?！昂诤小狈ㄖ塾诔绦蛲獠拷Y構、不考慮內部邏輯結構、針對軟件界面和軟件功能進行測試?！昂诤小狈ㄊ歉F舉輸入測試，只有把所有

23、可能的輸入都作為測試情況使用，才能以這種方法查出程序中所有的錯誤。實際上測試情況有無窮多個，人們不僅要測試所有合法的輸入，而且還要對那些不合法但是可能的輸入進行測試。第4章 課設總結經(jīng)過兩周的努力，我的系統(tǒng)的設計與分析終于有所成就。Visual Basic提供可視化的開發(fā)環(huán)境，使用者可以像搭積木一樣構建出程序的界面，而且Visual Basic提供豐富的控件組，省去了自己編寫代碼實現(xiàn)這些效果的麻煩，可以把更多的精力放在程序功能的實現(xiàn)上。本課設述了結合運用軟件開發(fā)工具Visual Basic 6.0和Access實現(xiàn)開發(fā)藥品庫房管理系統(tǒng)的過程，詳細論述了面向對象方法及其在信息系統(tǒng)開發(fā)中的應用和一

24、個系統(tǒng)開發(fā)的過程和步驟。通過藥品庫房管理系統(tǒng)的開發(fā)和畢業(yè)論文的寫作，把已前所學的各種獨立的課程融合起來，讓我的理論知識和實際操作能力都有了一定程度的提高。另外我也發(fā)現(xiàn)自己在軟件開發(fā)的規(guī)范化和編程技巧方面還有很大的不足，特別是面向對象方法的運用還不夠熟練。藥品庫房管理系統(tǒng)會與越來越好的被應用在各大藥房管理中，既便于管理，又簡捷方便，可見它有著很好的發(fā)展前途。通過本次實習，讓我學到了許多課本上所學不到的知識。由于在這段時間里，我學到在校園中無法學習到的知識和技能，更好的理論聯(lián)系了實踐，也更提高了自己各方面的素質，如通用能力。同時實習也給了我一定的工作經(jīng)驗，為將來謀求一份更好的職業(yè)打下了基礎。參考文

25、獻1 周佩德,數(shù)據(jù)庫原理及應用.北京:電子工業(yè)出版社，1988:38-135 2 李光明,VisualBasic 6.0編程實例大制作.哈爾濱:冶金工業(yè)出版社，1988:40-833 黃淼云,VB6.0辦公自動化編程.北京:國防工業(yè)出版社，1990:14-214 李大友,VisualBasic程序設計.北京:清華大學出版，1992:16-375. EricBrierley,Visual Basic開發(fā)人員指南.北京:機械工業(yè)出版社，1994:24-356 陳明,Visual Basic 程序設計.北京:中央電大出版，1987:42-567 劉韜、駱娟,Visual Basic6.0實效編程百例

26、.北京:人民郵電出版社，1992:10-218 徐孝凱,數(shù)據(jù)結構（c+描述）.北京:中央電大出版，1988:32-469 張紅VisualBasic 6.0中文版應用與開發(fā)指南.北京:人民郵電出版社，2006:71-9710 林立軍.VisualBasic 6.0數(shù)據(jù)庫開發(fā)指南.西安:電子科技大學出版社，2005:77-8911 張宏林VisualBasic 6.0.北京:人民郵電出版社，2006:90-12112 宋偉.中文VB6.0編程基礎.北京:清華大學出版社，2005:35-6013 Jeffrey著.Visual Basic 6.0數(shù)據(jù)庫存訪問技術.電子科技大學出版社，2002:66

27、-8714 吳秉柔. 精彩ACCESS2000中文版.北京:北京大學出版社，2003:95-12815 李俊民,高春燕.Access數(shù)據(jù)庫開發(fā)實例解析.北京:機械工業(yè)出版社，附錄：Dim x, i 定義變量Public Sub viewdata() 定義顯示數(shù)據(jù)的函數(shù) For i = 0 To 16 If Data1.Recordset.Fields(i) Then gys(i).Text = Data1.Recordset.Fields(i) Else gys(i).Text = Next iEnd SubPrivate Sub Form_Activate() 向combo1添加查詢項目列表

28、 x = Array(供應商編號, 供應商全稱, 簡稱, 地址, 所屬地區(qū), 郵政編碼, 電話, 傳真) For i = 0 To 7 Combo1.AddItem (x(i) Next i Combo1.Text = 供應商全稱初始化給gys(i)賦值 If Data1.Recordset.RecordCount 0 Then Call viewdata 調用函數(shù) End IfEnd SubPrivate Sub Form_Load() Data1.DatabaseName = App.Path & yyjxc.mdb 自動識別數(shù)據(jù)庫路徑End SubPrivate Sub Form_Unload(Cancel As Integer) frm_main.Enabled = True Unload MeEnd SubPrivate Sub ComFind_Click()查詢供應商信息 Data1.RecordSource = select * from gys where (gys. & Combo1.Text & & like + Chr(34) + Text1.Text + * + Chr(34) + ) Da