藥店管理信息系統(tǒng)報(bào)告

1、成績(jī)管理信息系統(tǒng)課程設(shè)計(jì)報(bào)告系統(tǒng)名稱 藥店信息管理系統(tǒng) 班級(jí) 管093 姓名 張新萌、田新馳、李新雷 學(xué)號(hào) 04 、 06 、 12 裝訂線 2011年 12月 14 日一、 系統(tǒng)分析系統(tǒng)名稱：藥店管理信息系統(tǒng). 開發(fā)背景、目的、意義：隨著人們生活水平的提高，健康意識(shí)的增強(qiáng)，對(duì)醫(yī)藥產(chǎn)品的需求也迅速增加。藥店作為醫(yī)藥產(chǎn)品的主要銷售渠道，也處于高速發(fā)展時(shí)期，同時(shí)也加劇了產(chǎn)業(yè)間的競(jìng)爭(zhēng)。為了加強(qiáng)企業(yè)的內(nèi)部管理，提高運(yùn)營效率，利用現(xiàn)代信息技術(shù)提高企業(yè)的管理水平已非常迫切。另外，由于醫(yī)藥產(chǎn)品種類繁多、銷售模式特殊、業(yè)務(wù)量大，單憑手工記賬已很難適應(yīng)工作的需要。醫(yī)藥作為一個(gè)關(guān)系到人們健良的特殊行業(yè)，國家對(duì)醫(yī)藥

2、行業(yè)又有一些不同于其他行業(yè)的管理政策，這些都加大了管理的難度。如何盡快建立和完善現(xiàn)代企業(yè)的信息化管理機(jī)制問題，已成為醫(yī)藥企業(yè)發(fā)展的關(guān)鍵所在。本課題以提高藥店的醫(yī)藥管理水平和效率為目標(biāo)，建立了管理信息系統(tǒng)。該系統(tǒng)能集中處理藥品的進(jìn)銷存業(yè)務(wù)及其應(yīng)付賬目，實(shí)現(xiàn)了藥店的現(xiàn)代化管理。實(shí)現(xiàn)目標(biāo)：面對(duì)醫(yī)藥行業(yè)的高速發(fā)展及其發(fā)展過程中出現(xiàn)的各種情況，藥店管理信息系統(tǒng)在實(shí)施后，應(yīng)能夠達(dá)到以下目標(biāo)：(1) 實(shí)現(xiàn)多點(diǎn)操作的信息共享，相互之間的信息傳遞準(zhǔn)確，快捷和順暢。(2) 全面自動(dòng)化管理，可隨時(shí)掌握藥品的庫存、銷售等情況。(3) 系統(tǒng)界面友好美觀，操作簡(jiǎn)單易行，查詢靈活方便，數(shù)據(jù)存儲(chǔ)安全。(4) 能夠快速、準(zhǔn)確地

3、處理藥品進(jìn)、銷、存、退、盤點(diǎn)、變價(jià)、折扣等多種業(yè)務(wù)模式。(5) 提供助記碼及支持多種結(jié)算方式。(6) 系統(tǒng)維護(hù)方便可靠，有較高的安全性，滿足實(shí)用性，先進(jìn)性的要求。（5）系統(tǒng)功能：本系統(tǒng)由系統(tǒng)設(shè)置、日常業(yè)務(wù)、查詢統(tǒng)計(jì)、庫存管理、基礎(chǔ)信息管理五大分系統(tǒng)組成。主要功能如下：（1）系統(tǒng)設(shè)置：初期建賬，密碼設(shè)置，數(shù)據(jù)備份，數(shù)據(jù)恢復(fù)。（2）日常業(yè)務(wù)：入庫單，銷售單，入庫退單，銷售退單。（3）查詢統(tǒng)計(jì)：入庫查詢，銷售查詢，入庫退貨查詢，銷售退貨查詢。（5）庫存管理：庫存盤點(diǎn)，庫存查詢，價(jià)格管理。（6）基礎(chǔ)信息管理：客戶管理，供應(yīng)商管理。藥店管理信息系統(tǒng)E-R 圖2.2概念模型通過對(duì)用戶需求分析進(jìn)行綜合、歸納

4、與抽象、形成一個(gè)獨(dú)立于具體DBMS 的概念模型。在本藥店管理系統(tǒng)中涉及到了2種概念模型的抽象Is part of 聚集模型 概況模型2.3用例圖和頂層數(shù)據(jù)流圖 總體分析的用例圖 經(jīng)理與供貨商的用例圖 顧客與經(jīng)理間的用例圖 頂層數(shù)據(jù)流圖1. 系統(tǒng)總體設(shè)計(jì)（1） 分解的數(shù)據(jù)流圖 處理消費(fèi) 處理采購組織結(jié)構(gòu)或數(shù)學(xué)方法、構(gòu)造模型。 藥店管理信息系統(tǒng)庫存管理查詢統(tǒng)計(jì)日常業(yè)務(wù)基礎(chǔ)信息系統(tǒng)設(shè)置供應(yīng)商管理客戶管理初期建賬密碼設(shè)置數(shù)據(jù)備份數(shù)據(jù)恢復(fù)銷售退貨查詢?nèi)霂焱素洸樵冧N售查詢?nèi)霂觳樵儙齑姹P點(diǎn)價(jià)格管理庫存查詢銷售退單入庫退單銷售單入庫單 二、系統(tǒng)設(shè)計(jì)說明：系統(tǒng)設(shè)計(jì)較為復(fù)雜，源程序代碼較長，所以報(bào)告中只摘錄了一小

5、部分程序代碼，其余代碼詳見程序中，程序先進(jìn)入登陸界面，登陸后進(jìn)入主界面，登陸到主界面后即可點(diǎn)擊進(jìn)入相應(yīng)的窗口。該系統(tǒng)采用Access數(shù)據(jù)庫，數(shù)據(jù)庫名稱為yyjxc,它包括以下8個(gè)表：供應(yīng)商基礎(chǔ)信息表gys,庫存表kc,客戶基礎(chǔ)信息表kh,入庫表rkd,入庫退單表rktd,密碼表ma,銷售表xsd,銷售退單表xstd。1、系統(tǒng)登錄模塊及主程序界面設(shè)計(jì)（1）系統(tǒng)登錄模塊（窗體名：系統(tǒng)登錄.frm）源程序代碼較長，此處省略，詳見程序中實(shí)現(xiàn)目標(biāo)：程序啟動(dòng)后，首先進(jìn)入系統(tǒng)登錄界面驗(yàn)證操作員密碼。其實(shí)現(xiàn)的功能如下：a. 可選擇操作員，支持鼠標(biāo)和鍵盤操作b. 操作員和密碼驗(yàn)證成功后，進(jìn)入主界面c. 操作員錯(cuò)

6、誤或密碼錯(cuò)誤提醒并返回錯(cuò)誤點(diǎn)。d. 輸入三次錯(cuò)誤的密碼，系統(tǒng)自動(dòng)退出（2）主程序界面設(shè)計(jì)（窗體名：主界面.frm）Public Sub entercell() Dim x, y As String If Text1.Text = "1" Then Set myform = main_rcyw_rk If Text1.Text = "2" Then Set myform = main_rcyw_rktd If Text1.Text = "3" Then Set myform = main_rcyw_xs If Text1.Text =

7、"4" Then Set myform = main_rcyw_xstd If myform.mf1.CellWidth <= 0 Or myform.mf1.CellHeight <= 0 Then Exit Sub x = myform.mf1.TextMatrix(myform.mf1.FixedRows, myform.mf1.Col) y = myform.mf1.TextMatrix(myform.mf1.Row, 0) If y <> "" Then If myform.mf1.Col - myform.mf1.Le

8、ftCol <= 3 Then myform.mf1.LeftCol = myform.mf1.LeftCol + 1 End If If myform.mf1.CellWidth > 0 And myform.mf1.CellHeight > 0 Then myform.Text1. End If x = myform.mf1.TextMatrix(myform.mf1.FixedRows, myform.mf1.Col) y = myform.mf1.TextMatrix(myform.mf1.Row, 0) p = myform.mf1.TextMatrix(myfor

9、m.mf1.Row, myform.mf1.Col) myform.Text1.SelStart = 0 myform.Text1.SelLength = Len(myform.Text1.Text) End IfEnd SubPublic Sub moveright() If Text1.Text = "1" Then Set myform = main_rcyw_rk If Text1.Text = "2" Then Set myform = main_rcyw_rktd If Text1.Text = "3" Then Set

10、myform = main_rcyw_xs If Text1.Text = "4" Then Set myform = main_rcyw_xstd If myform.Text1.Text <> "" Then myform.Text1.SelStart = 0 myform.Text1.SelLength = Len(myform.Text1.Text) End If If myform.mf1.Col + 1 <= myform.mf1.Cols - 1 Then myform.mf1.Col = myform.mf1.Col +

11、 1 Else + 1 <= myform.mf1.Rows - 1 Then myform.mf1.Row = myform.mf1.Row + 1 myform.mf1.Col = 1 End If End IfEnd SubPublic Sub moveleft() If Text1.Text = "1" Then Set myform = main_rcyw_rk If Text1.Text = "2" Then Set myform = main_rcyw_rktd If Text1.Text = "3" Then S

12、et myform = main_rcyw_xs If Text1.Text = "4" Then Set myform = main_rcyw_xstd If myform.Text1.Text <> "" Then myform.Text1.SelStart = 0 myform.Text1.SelLength = Len(myform.Text1.Text) End If If myform.mf1.Col - 11 <= myform.mf1.Cols + 1 Then myform.mf1.Col = myform.mf1.C

13、ol - 1 If myform.mf1.Col = 0 Then myform.mf1.Col = 1 Else If myform.mf1.Row + 1 <= myform.mf1.Row - 1 Then myform.mf1.Row = myform.mf1.Row + 1 myform.mf1.Col = 1 End If End IfEnd SubPublic Sub movereturn() If Text1.Text = "1" Then Set myform = main_rcyw_rk If Text1.Text = "2"

14、Then Set myform = main_rcyw_rktd If Text1.Text = "3" Then Set myform = main_rcyw_xs If Text1.Text = "4" Then Set myform = main_rcyw_xstd If myform.mf1.Col = 10 Then myform.mf1.Row = myform.mf1.Row + 1 myform.mf1.Col = 1 Else If myform.mf1.Col + 1 <= myform.mf1.Cols - 1 Then my

15、form.mf1.Col = myform.mf1.Col + 1 Else If myform.mf1.Row + 1 <= myform.mf1.Rows - 1 Then myform.mf1.Row = myform.mf1.Row + 1 myform.mf1.Col = 1 End If End If End IfEnd SubPrivate Sub Form_Load()'在標(biāo)題欄上顯示軟件名稱及版本 Me.Caption = App.Title & " 版本： V" & App.Major & "."

16、 & App.Minor & "." & App.Revision Dim i As Integer '定義一個(gè)整型變量 For i = 0 To 1 Label1(i).Caption = App.Title Next i Label2.Caption = "版本： V" & App.Major & "." & App.Minor & "." & App.RevisionEnd SubPrivate Sub rkd_Click() '

17、調(diào)入入庫單 Load main_rcyw_rk main_rcyw_rk.Show frm_main.Enabled = FalseEnd SubPrivate Sub xsd_Click() '調(diào)入銷售單 Load main_rcyw_xs main_rcyw_xs.Show frm_main.Enabled = FalseEnd SubPrivate Sub xsth_Click() '調(diào)入銷售退貨 Load main_rcyw_xstd main_rcyw_xstd.Show frm_main.Enabled = FalseEnd SubPrivate Sub rkth_

18、Click() '調(diào)入退貨返廠 Load main_rcyw_rktd main_rcyw_rktd.Show frm_main.Enabled = FalseEnd SubPrivate Sub kccx_Click() '調(diào)入庫存查詢 Load main_kcgl_kccx main_kcgl_kccx.Show frm_main.Enabled = FalseEnd SubPrivate Sub kcpd_Click() '調(diào)入庫存盤點(diǎn) Load main_kcgl_kcpd main_kcgl_kcpd.Show frm_main.Enabled = False

19、End SubPrivate Sub jggl_Click() '調(diào)入價(jià)格管理 Load main_kcgl_jggl main_kcgl_jggl.Show frm_main.Enabled = FalseEnd SubPrivate Sub rkcx_Click() '調(diào)入入庫查詢 Load main_rqDialog main_rqDialog.Show main_rqDialog.Text1.Text = "0" frm_main.Enabled = FalseEnd SubPrivate Sub thfccx_Click() '調(diào)入退貨返廠

20、 Load main_rqDialog main_rqDialog.Show main_rqDialog.Text1.Text = "1" frm_main.Enabled = FalseEnd SubPrivate Sub xscx_Click() '調(diào)入銷售查詢 Load main_rqDialog main_rqDialog.Show main_rqDialog.Text1.Text = "2" frm_main.Enabled = FalseEnd SubPrivate Sub xsthcx_Click() '調(diào)入銷售退貨查詢 L

21、oad main_rqDialog main_rqDialog.Show main_rqDialog.Text1.Text = "3" frm_main.Enabled = FalseEnd SubPrivate Sub gysgl_Click() '調(diào)入供應(yīng)商管理 Load main_jbxx_gys main_jbxx_gys.Show frm_main.Enabled = FalseEnd SubPrivate Sub khgl_Click() '調(diào)入客戶管理 Load main_jbxx_kh main_jbxx_kh.Show frm_main.E

22、nabled = FalseEnd SubPrivate Sub cqjz_Click() '調(diào)入初期建帳 Load main_xt_cqjz main_xt_cqjz.Show frm_main.Enabled = FalseEnd SubPrivate Sub mmsz_Click() '調(diào)入密碼設(shè)置 Load main_xt_mmsz main_xt_mmsz.Show frm_main.Enabled = FalseEnd SubPrivate Sub sjbf_Click() '調(diào)入數(shù)據(jù)備份 Load main_xt_sjbf main_xt_sjbf.Sho

23、w frm_main.Enabled = FalseEnd SubPrivate Sub sjhf_Click() '調(diào)入數(shù)據(jù)恢復(fù) Load main_xt_sjhf main_xt_sjhf.Show frm_main.Enabled = FalseEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case Is = "rkd" '調(diào)入入庫單 rkd_Click Case Is = "xsd"

24、; '調(diào)入銷售單 xsd_Click Case Is = "xscx" '調(diào)入銷售查詢 xscx_Click Case Is = "kccx" '調(diào)入庫存查詢 kccx_Click Case Is = "gys" '調(diào)入供應(yīng)商管理 gysgl_Click Case Is = "kh" '調(diào)入客戶管理 khgl_Click Case Is = "cqjz" '調(diào)入初期建帳 cqjz_Click End SelectEnd Sub 實(shí)現(xiàn)目標(biāo)：密碼驗(yàn)證成

25、功后，進(jìn)入程序主界面。其實(shí)現(xiàn)的功能如下：a. 選擇主界面的菜單或工具欄，調(diào)用相應(yīng)程序，進(jìn)行相應(yīng)操作。b. 顯示開發(fā)者信息、系統(tǒng)日期和時(shí)間。2、日常業(yè)務(wù)設(shè)計(jì)（1）入庫單模塊設(shè)計(jì)（窗體名：入庫單.frm）程序代碼過長，內(nèi)容較多，詳見程序中程序啟動(dòng)后，選擇“日常業(yè)務(wù)”菜單下的“入庫單”項(xiàng)，將進(jìn)入入庫單模塊。其實(shí)現(xiàn)的功能如下：a. 完成藥品入庫工作，入庫采用智能化表單式錄入。b. 自動(dòng)生成入庫票號(hào)，可利用鍵在列表框中選擇供應(yīng)商信息c. 系統(tǒng)自動(dòng)統(tǒng)計(jì)入庫品種、入庫數(shù)量、入庫金額。（2）銷售單模塊設(shè)計(jì)（窗體名：銷售單.frm）程序代碼過長，內(nèi)容較多，詳見程序中程序啟動(dòng)后，選擇“日常業(yè)務(wù)”菜單下的“銷售單”

26、項(xiàng)，將進(jìn)入銷售單模塊。其實(shí)現(xiàn)的功能如下：a.完成藥品銷售的功能。b.自動(dòng)生成銷售票號(hào)、銷售日期；統(tǒng)計(jì)銷售品種、銷售數(shù)量、銷售金額。c.根據(jù)商品名稱或簡(jiǎn)稱自動(dòng)檢索相應(yīng)的商品信息。（3）銷售退單模塊設(shè)計(jì)（窗體名：銷售退單.frm）程序代碼過長，內(nèi)容較多，詳見程序中程序啟動(dòng)后，選擇“日常業(yè)務(wù)”菜單下的“銷售退單”項(xiàng)，將進(jìn)入銷售退單模塊。其實(shí)現(xiàn)的功能如下：a.完成藥品銷售退貨功能。b.自動(dòng)生成銷售退單票號(hào)、銷售退單日期；統(tǒng)計(jì)退貨品種、退貨數(shù)量、退貨金額。c.根據(jù)商品名稱或簡(jiǎn)稱自動(dòng)檢索相應(yīng)的商品信息。3、庫存管理設(shè)計(jì)（1）庫存查詢模塊設(shè)計(jì)（窗體名：庫存查詢.frm）Private Sub Form_Ac

27、tivate()' 向combo1添加查詢項(xiàng)目列表 Combo1.AddItem ("商品名稱") Combo1.AddItem ("簡(jiǎn)稱") Combo1.AddItem ("批號(hào)") Combo1.ListIndex = 0End SubPrivate Sub Form_Load() Data1.DatabaseName = App.Path & "yyjxc.mdb" '自動(dòng)識(shí)別數(shù)據(jù)庫路徑End SubPrivate Sub Form_Unload(Cancel As Integer)

28、 frm_main.Enabled = TrueEnd SubPrivate Sub Command1_Click()'查詢庫存信息 Data1.RecordSource = "select * from kc where (kc." & Combo1.Text & " " & "like " + Chr(34) + Text1.Text + "*" + Chr(34) + ")" Data1.RefreshEnd SubPrivate Sub Command2_

29、Click() '刪除庫存信息 On Error Resume Next Data1.Refresh Data2.RefreshEnd SubPrivate Sub Command3_Click() frm_main.Enabled = True Unload MeEnd Sub程序啟動(dòng)后，選擇“庫存管理”菜單下的“庫存查詢”項(xiàng)，將進(jìn)入庫存查詢模塊。其實(shí)現(xiàn)的功能如下：a.選擇字段查詢庫存商品信息，可模糊查詢。b.刪除庫存商品信息。（2）庫存盤點(diǎn)模塊設(shè)計(jì)（窗體名：庫存盤點(diǎn).frm）Private Sub Form_Activate()'設(shè)置ms1表格的列寬 MS1.ColWidt

30、h(0) = 12 * 25 * 0: MS1.ColWidth(1) = 12 * 25 * 8 MS1.ColWidth(2) = 12 * 25 * 0: MS1.ColWidth(5) = 12 * 25 * 5 MS1.ColWidth(9) = 12 * 25 * 3: MS1.ColWidth(10) = 12 * 25 * 0End SubPrivate Sub Form_Load() Data1.DatabaseName = App.Path & "yyjxc.mdb" '自動(dòng)識(shí)別數(shù)據(jù)庫路徑End SubPrivate Sub Form_U

31、nload(Cancel As Integer) frm_main.Enabled = TrueEnd SubPrivate Sub Command1_Click()'盤點(diǎn)庫存大于零的庫存信息 Data1.RecordSource = "select * from kc where kc.庫存>0 " Data1.Refresh MS1.Col = 9: MS1.Sort = flexSortNumericAscending '第9行按升序排序End SubPrivate Sub Command2_Click() frm_main.Enabled =

32、True Unload MeEnd SubPrivate Sub MS1_Click()End Sub程序啟動(dòng)后，選擇“庫存管理”菜單下的“庫存盤點(diǎn)”項(xiàng)，將進(jìn)入庫存盤點(diǎn)模塊。其實(shí)現(xiàn)的功能是盤點(diǎn)庫存商品信息。（3）價(jià)格管理模塊設(shè)計(jì)（窗體名：價(jià)格管理.frm）Public Sub eval() '定義賦值函數(shù) If Data2.Recordset(0) <> "" Then pz.Caption = Data2.Recordset(0) Else pz.Caption = "0" If Data2.Recordset(1) <>

33、; "" Then hjsl.Caption = Data2.Recordset(1) Else hjsl.Caption = "0" If Data2.Recordset(2) <> "" Then hjje.Caption = Data2.Recordset(2) Else hjje.Caption = "0"End SubPrivate Sub Form_Load() '自動(dòng)識(shí)別數(shù)據(jù)庫路徑 Data1.DatabaseName = App.Path & "yyjxc.md

34、b" Data2.DatabaseName = App.Path & "yyjxc.mdb"End SubPrivate Sub Form_Activate()' 向combo1添加查詢項(xiàng)目列表 Combo1.AddItem ("商品名稱") Combo1.AddItem ("簡(jiǎn)稱") Combo1.AddItem ("批號(hào)") Combo1.ListIndex = 0 '初始化查詢統(tǒng)計(jì)庫存商品信息 Data2.RecordSource = "select count(*

35、)as 品種,sum(庫存)as 合計(jì)庫存,sum(庫存金額)as 合計(jì)庫存金額 from kc " Data2.Refresh Call eval '調(diào)用函數(shù)End SubPrivate Sub Form_Unload(Cancel As Integer) frm_main.Enabled = TrueEnd SubPrivate Sub texgjj_Change() texgje.Text = Val(texgkc.Text) * Val(texgjj.Text) '計(jì)算庫存金額 Data2.Refresh Call eval '調(diào)用函數(shù)End SubP

36、rivate Sub texgkc_Change() texgje.Text = Val(texgkc.Text) * Val(texgjj.Text) '計(jì)算庫存金額 Data2.Refresh Call eval '調(diào)用函數(shù)End SubPrivate Sub Command1_Click()'查詢統(tǒng)計(jì)庫存商品信息 Data1.RecordSource = "select * from kc where (kc." & Combo1.Text & " " & "like " + Ch

37、r(34) + Text1.Text + "*" + Chr(34) + ")" Data1.Refresh Data2.RecordSource = "select count(*)as 品種,sum(庫存)as 合計(jì)庫存,sum(庫存金額)as 合計(jì)庫存金額 from kc where (kc." & Combo1.Text & " " & "like " + Chr(34) + Text1.Text + "*" + Chr(34) + "

38、;)" Data2.Refresh Call eval '調(diào)用函數(shù)End SubPrivate Sub Command2_Click() frm_main.Enabled = True Unload MeEnd Sub程序啟動(dòng)后，選擇“庫存管理”菜單下的“價(jià)格管理”項(xiàng)，將進(jìn)入價(jià)格管理模塊。其實(shí)現(xiàn)的功能如下：a.選擇任意字段查詢庫存商品信息。b.完成庫存商品的進(jìn)價(jià)、庫存數(shù)量的修改。c.統(tǒng)計(jì)庫存品種、庫存數(shù)量、庫存金額。4、查詢統(tǒng)計(jì)設(shè)計(jì) （1）入庫查詢模塊設(shè)計(jì)（窗體名：入庫查詢.frm）Private Sub DBGrid1_Click()End SubPrivate Sub F

39、orm_Activate()'向combo1添加查詢項(xiàng)目列表 Combo1.AddItem ("商品名稱") Combo1.AddItem ("批號(hào)") Combo1.AddItem ("票號(hào)") Combo1.ListIndex = 1 Data1.RecordSource = "select * from rkd where (rkd.日期 between " + Chr(35) + rq1.Text + Chr(35) + "and " + Chr(35) + rq2.Text +

40、 Chr(35) + ")" Data1.RefreshEnd SubPrivate Sub Form_Load() '自動(dòng)識(shí)別數(shù)據(jù)庫路徑 Data1.DatabaseName = App.Path & "yyjxc.mdb"End SubPrivate Sub Form_Unload(Cancel As Integer) frm_main.Enabled = TrueEnd SubPrivate Sub Command1_Click() '入庫查詢 Data1.RecordSource = "select * from

41、 rkd where (rkd.日期 between " + Chr(35) + rq1.Text + Chr(35) + "and " + Chr(35) + rq2.Text + Chr(35) + ")and(rkd." & Combo1.Text & " " & "like " + Chr(34) + Text1.Text + "*" + Chr(34) + ")" Data1.RefreshEnd SubPrivate Sub Co

42、mmand2_Click() '刪除入庫信息 On Error Resume Next Data1.RefreshEnd SubPrivate Sub Command3_Click() frm_main.Enabled = True Unload MeEnd Sub程序啟動(dòng)后，選擇“查詢統(tǒng)計(jì)”菜單下的“入庫查詢”項(xiàng)，將進(jìn)入入庫查詢模塊。其實(shí)現(xiàn)的功能如下：a.按任意時(shí)間段、任意字段查詢?nèi)霂焐唐沸畔?。b.刪除入庫商品信息。（2）銷售查詢模塊設(shè)計(jì)（窗體名：銷售查詢.frm）Private Sub DBGrid1_Click()End SubPrivate Sub Form_Activate(

43、)'向combo1添加查詢項(xiàng)目列表 Combo1.AddItem ("商品名稱") Combo1.AddItem ("批號(hào)") Combo1.AddItem ("票號(hào)") Combo1.ListIndex = 0 Data1.RecordSource = "select * from xsd where (xsd.日期 between " + Chr(35) + rq1.Text + Chr(35) + "and " + Chr(35) + rq2.Text + Chr(35) + &q

44、uot;)" Data1.RefreshEnd SubPrivate Sub Form_Load() '自動(dòng)識(shí)別數(shù)據(jù)庫路徑 Data1.DatabaseName = App.Path & "yyjxc.mdb"End SubPrivate Sub Form_Unload(Cancel As Integer) frm_main.Enabled = TrueEnd SubPrivate Sub Command1_Click() '查詢銷售信息 Data1.RecordSource = "select * from xsd where

45、(xsd.日期 between " + Chr(35) + rq1.Text + Chr(35) + "and " + Chr(35) + rq2.Text + Chr(35) + ")and(xsd." & Combo1.Text & " " & "like " + Chr(34) + Text1.Text + "*" + Chr(34) + ")" Data1.RefreshEnd SubPrivate Sub Command2_Clic

46、k() '刪除銷售信息 On Error Resume Next Data1.RefreshEnd SubPrivate Sub Command3_Click() frm_main.Enabled = True Unload MeEnd Sub程序啟動(dòng)后，選擇“查詢統(tǒng)計(jì)”菜單下的“銷售查詢”項(xiàng)，將進(jìn)入銷售查詢模塊。其實(shí)現(xiàn)的功能如下：a.按任意時(shí)間段、任意字段查詢商品銷售信息。b.刪除商品銷售信息。（3）銷售退貨查詢模塊設(shè)計(jì)（窗體名：銷售退貨查詢.frm）Private Sub DBGrid1_Click()End SubPrivate Sub Form_Activate()'向

47、combo1添加查詢項(xiàng)目列表 Combo1.AddItem ("商品名稱") Combo1.AddItem ("批號(hào)") Combo1.AddItem ("票號(hào)") Combo1.ListIndex = 0 '查詢銷售退貨信息 Data1.RecordSource = "select * from xstd where (xstd.日期 between " + Chr(35) + rq1.Text + Chr(35) + "and " + Chr(35) + rq2.Text + Chr

48、(35) + ")" Data1.RefreshEnd SubPrivate Sub Form_Load() '自動(dòng)識(shí)別數(shù)據(jù)庫路徑Data1.DatabaseName = App.Path & "yyjxc.mdb"End SubPrivate Sub Form_Unload(Cancel As Integer) frm_main.Enabled = TrueEnd SubPrivate Sub Command1_Click() '查詢銷售退貨信息 Data1.RecordSource = "select * from

49、xstd where (xstd.日期 between " + Chr(35) + rq1.Text + Chr(35) + "and " + Chr(35) + rq2.Text + Chr(35) + ")and(xstd." & Combo1.Text & " " & "like " + Chr(34) + Text1.Text + "*" + Chr(34) + ")" Data1.RefreshEnd SubPrivate Sub

50、Command2_Click() '刪除銷售退貨信息 On Error Resume Next Data1.RefreshEnd SubPrivate Sub Command3_Click() frm_main.Enabled = True Unload MeEnd Sub程序啟動(dòng)后，選擇“查詢統(tǒng)計(jì)”菜單下的“銷售退貨查詢”項(xiàng)，將進(jìn)入銷售退貨查詢模塊。其實(shí)現(xiàn)的功能如下：a.按任意時(shí)間段、任意字段查詢商品銷售退貨信息。b.刪除商品銷售退貨信息。4、基礎(chǔ)信息管理設(shè)計(jì) （1）供應(yīng)商管理模塊設(shè)計(jì)（窗體名：供應(yīng)商管理.frm）程序代碼過長，內(nèi)容較多，詳見程序中程序啟動(dòng)后，選擇“基礎(chǔ)信息管理”菜單

51、下的“供應(yīng)商管理”項(xiàng)，將進(jìn)入供應(yīng)商管理模塊。其實(shí)現(xiàn)的功能如下：a.完成供應(yīng)商基本信息的錄入、保存、修改、刪除。b.按任意字段、任意條件查詢供應(yīng)商基本信息。c.通過卡片式、列表式兩種方式查看供應(yīng)商基本信息。（2）客戶管理模塊設(shè)計(jì)（窗體名：客戶管理.frm）程序代碼過長，內(nèi)容較多，詳見程序中程序啟動(dòng)后，選擇“基礎(chǔ)信息管理”菜單下的“客戶管理”項(xiàng)，將進(jìn)入客戶管理模塊。其實(shí)現(xiàn)的功能如下：a.完成客戶基本信息的錄入、保存、修改、刪除。b.按任意字段、任意條件查詢客戶基本信息。c.通過卡片式、列表式兩種方式查看客戶基本信息。5、系統(tǒng)設(shè)置設(shè)計(jì) （1）初期建賬模塊設(shè)計(jì)（窗體名：初期建賬.frm）Private

52、 Sub Form_Unload(Cancel As Integer) frm_main.Enabled = TrueEnd SubPrivate Sub Command1_Click() Dim db As Database Dim rs As Recordset Dim connter As Integer Dim workarea(200) As String ProgressBar1.Visible = True ProgressBar1.Max = UBound(workarea) ProgressBar1.Value = ProgressBar1.Min For Counter =

53、 LBound(workarea) To UBound(workarea) workarea(Counter) = "initial value " & Counter ProgressBar1.Value = Counter Set db = Workspaces(0).OpenDatabase(App.Path & "yyjxc.mdb") Dim sql As String If Check1.Value = 1 Then '刪除全部庫存信息 sql = "delete * from kc " db.Ex

54、ecute sql End If If Check2.Value = 1 Then '刪除全部供應(yīng)商信息 sql = "delete * from gys " db.Execute sql End If If Check3.Value = 1 Then '刪除全部客戶信息 sql = "delete * from kh " db.Execute sql End If If Check4.Value = 1 Then '刪除全部入庫信息 sql = "delete * from rkd" db.Execute s

55、ql End If If Check5.Value = 1 Then '刪除全部入庫退貨信息 sql = "delete * from rktd" db.Execute sql End If If Check6.Value = 1 Then '刪除全部銷售信息 sql = "delete * from xsd" db.Execute sql End If If Check7.Value = 1 Then '刪除全部銷售退貨信息 sql = "delete * from xstd " db.Execute sql

56、 End If Next Counter ProgressBar1.Visible = False ProgressBar1.Value = ProgressBar1.MinEnd SubPrivate Sub Command2_Click() frm_main.Enabled = True Unload MeEnd Sub程序啟動(dòng)后，選擇“系統(tǒng)設(shè)置”菜單下的“初期建賬”項(xiàng)，將進(jìn)入初期建賬模塊。其主要功能是實(shí)現(xiàn)清空系統(tǒng)全部或部分?jǐn)?shù)據(jù)。（2）密碼設(shè)置模塊設(shè)計(jì)（窗體名：密碼設(shè)置.frm）Private Sub Form_Load() Data1.DatabaseName = App.Path &a

57、mp; "yyjxc.mdb" '自動(dòng)識(shí)別數(shù)據(jù)庫路徑End SubPrivate Sub Form_Unload(Cancel As Integer) frm_main.Enabled = TrueEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Text2.SetFocusEnd SubPrivate Sub text2_KeyDown(KeyCode As Integer, Shift As Integer) I

58、f KeyCode = vbKeyReturn Then Text3.SetFocusEnd SubPrivate Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Command1.SetFocusEnd SubPrivate Sub Command1_Click() '確認(rèn)修改操作員信息 Data1.RecordSource = "select * from ma where 操作員='" + Text1.Text + "'" '查詢操作員信息 Data1.Refresh If Text1.Text <> "" And Text2.Text <> "" And Text2.Text = ma.Text Then If Text3.T