1、目 錄目 錄系統(tǒng)背景資料（1）組織結(jié)構(gòu).1（2）業(yè)務(wù)功能.1（3）管理功能.1（4）業(yè)務(wù)功能與組合結(jié)構(gòu)的關(guān)系.1（5）前臺(tái)銷售處理流程.1（6）后臺(tái)進(jìn)貨、庫(kù)存、銷售管理流程.22目標(biāo)系統(tǒng)需求分析.2（1）系統(tǒng)目標(biāo).2（2）系統(tǒng)輸入、輸出信息分析.2（3）進(jìn)銷存數(shù)據(jù)處理流程.2（4）數(shù)據(jù)類需求分析.33目標(biāo)系統(tǒng)設(shè)計(jì)4（1）系統(tǒng)功能結(jié)構(gòu)設(shè)計(jì)4（2）系統(tǒng)數(shù)據(jù)庫(kù)設(shè)計(jì).4（3）系統(tǒng)主要功能模塊設(shè)計(jì).64系統(tǒng)實(shí)施.7（1）系統(tǒng)運(yùn)行環(huán)境說明.7（2）系統(tǒng)主要功能模塊界面和代碼75系統(tǒng)操作說明23（1）系統(tǒng)運(yùn)行環(huán)境23（2）系統(tǒng)安裝文件23（3）系統(tǒng)功能說明23附錄：課程設(shè)計(jì)分工說明.24快樂超市門店進(jìn)銷存管

2、理系統(tǒng)設(shè)計(jì)1系統(tǒng)背景資料本系統(tǒng)應(yīng)用背景為一家中小超市門店。（1）組織結(jié)構(gòu)該門店規(guī)模較小,其組織結(jié)構(gòu)關(guān)系如圖：店長(zhǎng)店長(zhǎng)銷售部門店長(zhǎng)助理圖1 組織結(jié)構(gòu)關(guān)系圖（2）業(yè)務(wù)功能業(yè)務(wù)功能主要包括：進(jìn)貨、銷售和庫(kù)存/盤點(diǎn)管理。（3）管理功能門店管理門店管理進(jìn)貨銷售庫(kù)存管理前臺(tái)后臺(tái)圖2 管理功能結(jié)構(gòu)圖（4）業(yè)務(wù)功能與組合結(jié)構(gòu)的關(guān)系業(yè)務(wù)功能與組織結(jié)構(gòu)的關(guān)系如表所示。進(jìn)貨銷售庫(kù)存/盤點(diǎn)店長(zhǎng)店長(zhǎng)助理銷售部門表1 業(yè)務(wù)功能與組織結(jié)構(gòu)的關(guān)系表注：表中“”表示該項(xiàng)業(yè)務(wù)是對(duì)應(yīng)組織的主要業(yè)務(wù)；“”表示該組織是參加協(xié)調(diào)該項(xiàng)業(yè)務(wù)的。（5）前臺(tái)銷售處理流程圖3 POS前臺(tái)銷售處理流程（6）后臺(tái)進(jìn)貨、庫(kù)存、銷售管理流程圖4 后臺(tái)進(jìn)貨

3、、庫(kù)存、銷售管理流程2目標(biāo)系統(tǒng)需求分析（1）系統(tǒng)目標(biāo)本仿真系統(tǒng)的設(shè)計(jì)目標(biāo)是：能通過鍵盤錄入當(dāng)前的銷售商品和實(shí)收金額、采購(gòu)清單、驗(yàn)貨單；自動(dòng)結(jié)算應(yīng)收金額和找零金額；打印購(gòu)物小票并更新庫(kù)存；能查詢商品銷售信息、采購(gòu)清單、庫(kù)存信息、驗(yàn)貨單；能根據(jù)驗(yàn)貨單確認(rèn)采購(gòu)清單并更新庫(kù)存。（2）系統(tǒng)輸入、輸出信息分析輸入信息有：當(dāng)前銷售商品信息、實(shí)收金額、入庫(kù)商品信息。輸出信息有：購(gòu)物小票、銷售情況表和庫(kù)存情況表。（3）進(jìn)銷存數(shù)據(jù)處理流程圖5 進(jìn)銷存數(shù)據(jù)處理流程圖（頂層）圖6進(jìn)銷存數(shù)據(jù)處理流程圖（第二層）（4）數(shù)據(jù)類需求分析數(shù)據(jù)類需求分析步驟如下：第一，依據(jù)系統(tǒng)實(shí)體確定基本數(shù)據(jù)類；第二，依據(jù)新系統(tǒng)數(shù)據(jù)處理流程補(bǔ)充

4、數(shù)據(jù)類。系統(tǒng)包括的主要實(shí)體有：顧客、收款員、POS機(jī)、小票、商店、商品、購(gòu)物籃、倉(cāng)庫(kù)。實(shí)體聯(lián)系圖（E-R圖）如圖所示：圖7 POS系統(tǒng)實(shí)體聯(lián)系圖得到系統(tǒng)的關(guān)系結(jié)構(gòu)如下：當(dāng)前銷售商品信息表（商品代號(hào)，商品名稱，單價(jià)，數(shù)量，金額，總計(jì)，實(shí)收，找零，時(shí)間，收款員代號(hào)，單據(jù)號(hào)）；基本信息表（商店號(hào)，機(jī)號(hào)，禮貌語1，禮貌語2，提示語1，提示語2）；歷史銷售商品信息表（商品代號(hào)，商品名稱，單價(jià)，數(shù)量，金額，總計(jì)，實(shí)收，找零，時(shí)間，收款員代號(hào)，單據(jù)號(hào)）；商品詞典表（商品代號(hào)，商品名稱，單價(jià)）；收款員表（收款員代號(hào)，收款員姓名，口令）；運(yùn)行參數(shù)表（單據(jù)號(hào)）；出庫(kù)表（出庫(kù)單編號(hào)，商品編號(hào)，數(shù)量，錄入，審核，客戶

5、，出庫(kù)時(shí)間）；歷史出庫(kù)表（出庫(kù)單編號(hào)，商品編號(hào)，數(shù)量，錄入，審核，客戶，出庫(kù)時(shí)間）；入庫(kù)表（入庫(kù)單編號(hào)，商品編號(hào)，供應(yīng)商，數(shù)量，單價(jià)，錄入，審核，入庫(kù)時(shí)間）；歷史入庫(kù)表（入庫(kù)單編號(hào)，商品編號(hào)，供應(yīng)商，數(shù)量，單價(jià)，錄入，審核，入庫(kù)時(shí)間）；eq oac(,11)庫(kù)存表（商品編號(hào)，商品名稱，分類，單位，數(shù)量，庫(kù)存底線，備注）。3目標(biāo)系統(tǒng)設(shè)計(jì)（1）系統(tǒng)功能結(jié)構(gòu)設(shè)計(jì)圖8 系統(tǒng)功能結(jié)構(gòu)設(shè)計(jì)（2）系統(tǒng)數(shù)據(jù)庫(kù)設(shè)計(jì)根據(jù)E-R圖得到系統(tǒng)基本關(guān)系如下：顧客（顧客代號(hào)）；收款員（收款員代號(hào)，收款員姓名，口令）；POS機(jī)（機(jī)號(hào)，品名，廠家）小票（單句號(hào)，日期，時(shí)間，收款員代號(hào)，機(jī)號(hào)，商店名稱，購(gòu)物信息，禮貌語，提示語）

6、；商店（商店號(hào)，商店名稱）；商品（商品代號(hào)，商品名稱，單價(jià)）；購(gòu)物籃（顧客代號(hào)，商品代號(hào)，數(shù)量，金額）；付款結(jié)算（顧客代號(hào)，實(shí)收，應(yīng)收，找零）；倉(cāng)庫(kù)（倉(cāng)庫(kù)代號(hào)，倉(cāng)庫(kù)名稱）。根據(jù)數(shù)據(jù)處理流程得到補(bǔ)充關(guān)系：銷售情況表（歷史購(gòu)物信息）。系統(tǒng)需要構(gòu)建的數(shù)據(jù)表主要有出庫(kù)表、入庫(kù)表、庫(kù)存表、基本信息表、商品詞典表、收款員表、運(yùn)行參數(shù)表、銷售商品表（歷史商品、當(dāng)前商品）具體參數(shù)設(shè)置如下：字段名類型寬度小數(shù)位數(shù)索引說明入庫(kù)單號(hào)字符型10有商品編號(hào)字符型13采用標(biāo)準(zhǔn)型EAN代碼供應(yīng)商字符型8數(shù)量數(shù)值整型單價(jià)貨幣8自動(dòng)錄入字符型8審核字符型8入庫(kù)時(shí)間日期/時(shí)間8表2入庫(kù)表的數(shù)據(jù)結(jié)構(gòu)字段名類型寬度小數(shù)位數(shù)收款員代號(hào)

7、字符型3收款員姓名字符型8口令字符型6表3 收款員表的數(shù)據(jù)結(jié)構(gòu)字段名類型寬度小數(shù)位數(shù)單據(jù)號(hào)字符型8表4 運(yùn)行參數(shù)表的數(shù)據(jù)結(jié)構(gòu)字段名類型寬度小數(shù)位數(shù)索引說明出庫(kù)單編號(hào)字符型10有商品編號(hào)字符型13采用標(biāo)準(zhǔn)型EAN代碼數(shù)量數(shù)值整型錄入字符型8審核字符型8客戶字符型8出庫(kù)時(shí)間日期/時(shí)間8表5出庫(kù)表的數(shù)據(jù)結(jié)構(gòu)字段名類型寬度小數(shù)位數(shù)商品代號(hào)字符型10商品名稱字符型20單價(jià)數(shù)值型122表6 商品詞典表的數(shù)據(jù)結(jié)構(gòu)字段名類型寬度小數(shù)位數(shù)商品代號(hào)字符型10商品名稱字符型20單價(jià)數(shù)值型122數(shù)量整型4金額數(shù)值型122總計(jì)數(shù)值型122實(shí)收數(shù)值型122找零數(shù)值型122時(shí)間日期時(shí)間型8收款員代號(hào)字符型3單據(jù)號(hào)字符型8表

8、7 當(dāng)前銷售商品信息表的數(shù)據(jù)結(jié)構(gòu)字段名類型寬度小數(shù)位數(shù)商品號(hào)字符型4商店名稱字符型30機(jī)號(hào)字符型2禮貌語1字符型30禮貌語2字符型30提示語1字符型30提示語2字符型30表8 基本信息表的數(shù)據(jù)結(jié)構(gòu)字段名類型寬度小數(shù)位數(shù)索引說明商品編號(hào)字符型13有采用標(biāo)準(zhǔn)型EAN代碼商品名稱字符型50分類字符型1ABC分類單位單位8計(jì)量單位數(shù)量數(shù)值整型庫(kù)存底線數(shù)值整型備注文本50表9 庫(kù)存表的數(shù)據(jù)結(jié)構(gòu)系統(tǒng)主要功能模塊設(shè)計(jì)總控模塊程序結(jié)構(gòu)圖9 總控模塊程序結(jié)構(gòu)圖圖10 系統(tǒng)菜單結(jié)構(gòu)圖商品銷售模塊程序結(jié)構(gòu)圖11 商品銷售模塊程序結(jié)構(gòu)圖小票樣式圖12 小票樣式庫(kù)存管理模塊程序結(jié)構(gòu)圖13 驗(yàn)收到貨模塊程序結(jié)構(gòu)圖4系統(tǒng)實(shí)

9、施（1）系統(tǒng)運(yùn)行環(huán)境說明操作系統(tǒng)：Windows 2000/XP/Vista數(shù)據(jù)管理系統(tǒng)：ACCESS 2000編程語言：VB 6.0（2）系統(tǒng)主要功能模塊界面和代碼總控制模塊程序設(shè)計(jì)系統(tǒng)總控模塊程序1）窗體對(duì)象 FrmInit屬性：Name: FrmInitBorderstyle:0-ZonePicture:D：Pos System享受大自然風(fēng)景寬屏壁紙StarUpPosition:2-屏幕中心代碼：Public COVER As BooleanPrivate Sub Form_Initialize() Me.Label1.Top = Me.Height - 400 Me.Label1.Le

10、ft = (Me.Width - Me.Label1.Width) / 2 Me.Label2.Top = (Me.Height + 800) Me.Label2.Left = (Me.Width - Me.Label2.Width) / 2 Me.Label1.Visible = False Me.Label2.Visible = FalseEnd SubPrivate Sub Form_Load()Dim nobtime As Integer nobtime = 0End Sub2）計(jì)時(shí)器對(duì)象Timer1屬性：Interval:60代碼：Private Sub Timer1_Timer()

11、If nobtime = 0 Then nobtime = 1 Me.Label1.Visible = True Me.Label2.Visible = TrueEnd IfIf Me.Label1.Top - 1500 0 Then Me.Label1.Top = Me.Label1.Top - 20 Me.Label2.Top = Me.Label2.Top - 20Else Unload Me COVER = TrueEnd IfEnd Sub系統(tǒng)封面表單設(shè)計(jì)系統(tǒng)封面表單界面，如圖所示，運(yùn)行時(shí)字幕由下向上慢慢上升。圖14 系統(tǒng)封面系統(tǒng)登錄表單設(shè)計(jì)系統(tǒng)登錄表單界面，如圖所示：圖15 系統(tǒng)登

12、錄界面代碼：Option Explicit 強(qiáng)制變量聲明Public OK As BooleanDim txtSQL As StringDim mrc As ADODB.RecordsetDim MsgText As StringPrivate Sub Form_Load() Dim i As Integer i = 0 txtSQL = select * from 收款員表 Set mrc = ExecuteSQL(txtSQL, MsgText) With txtUserName Do While Not mrc.EOF i = i + 1 .AddItem Trim(mrc.Fields

13、(收款員姓名) mrc.MoveNextLoop .ListIndex = 0 End With mrc.Close OK = FalseEnd SubPrivate Sub cmdCancel_Click() OK = False Me.HideEnd SubPrivate Sub cmdOK_Click() txtSQL = select * from 收款員表 where 收款員姓名 = & txtUserName.Text & Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = True Then MsgBox 沒有這個(gè)用戶，請(qǐng)重新輸入

14、用戶名!, vbOKOnly + vbExclamation, 警告 txtUserName.SetFocus Else If Trim(mrc.Fields(口令) = Trim(txtPassword.Text) Then OK = True Me.Hide UserName = Trim(txtUserName.Text) UserOrder = mrc.Fields(收款員代號(hào)) mrc.Close Else MsgBox 輸入密碼不正確，請(qǐng)重新輸入！, vbOKOnly + vbExclamation, 警告 txtPassword.SetFocus txtPassword.Text

15、 = End If End IfEnd SubPrivate Sub txtPassword_Change()End SubPrivate Sub txtUserName_Click() txtPassword.Text = End Sub系統(tǒng)菜單設(shè)計(jì)系統(tǒng)菜單采用菜單編輯器來完成：圖16-1 系統(tǒng)菜單編輯器圖16-2 系統(tǒng)菜單代碼：Private Sub MDIForm_Load()StatusBar1.Panels.Item(1) = 正在運(yùn)行中End SubPrivate Sub munbasic_Click()基本信息庫(kù).ShowEnd SubPrivate Sub munbillque

16、ry_Click()按單據(jù)號(hào)查詢.ShowEnd SubPrivate Sub muncodequery_Click()按商品代號(hào)查詢.ShowEnd SubPrivate Sub mundictionary_Click()商品詞典.ShowEnd SubPrivate Sub munparameter_Click()運(yùn)行參數(shù).ShowEnd SubPrivate Sub munpos_Click()收款員庫(kù).ShowEnd SubPrivate Sub munquit_Click()EndEnd SubPrivate Sub munsale_Click()商品銷售.ShowEnd SubPr

17、ivate Sub 出庫(kù)表_Click()frm出庫(kù)表.ShowEnd SubPrivate Sub 庫(kù)存查詢_Click()Form1.ShowEnd SubPrivate Sub 入庫(kù)表_Click()frm入庫(kù)表.ShowEnd Sub初始化模塊設(shè)計(jì)基本信息表單運(yùn)行界面，如圖所示：圖17 基本信息表收款員表單運(yùn)行界面如圖所示：圖18 收款員表商品詞典表單運(yùn)行界面如圖所示：圖19 商品詞典表運(yùn)行參數(shù)表單運(yùn)行界面如圖20所示：圖20 運(yùn)行參數(shù)表商品銷售模塊設(shè)計(jì)商品銷售表單商品銷售表單如圖21所示：圖21 商品銷售代碼：Dim txtSQL As StringDim mrc As ADODB.

18、RecordsetDim rec As ADODB.RecordsetDim MsgText As StringPrivate Sub Combo1_Click() txtSQL = select * from 商品詞典表 where 商品代號(hào) = & Combo1.Text & Set mrc = ExecuteSQL(txtSQL, MsgText) 執(zhí)行查詢語句 With MSHFlexGrid1 將查詢內(nèi)容顯示在表格控件中 .Rows = .Rows + 1 .TextMatrix(.Rows - 1, 0) = mrc.Fields(0) & .TextMatrix(.Rows -

19、1, 1) = mrc.Fields(1) & .TextMatrix(.Rows - 1, 2) = mrc.Fields(2) & End With Text3.Text = mrc.Fields(2) mrc.Close 關(guān)閉數(shù)據(jù)集End SubPrivate Sub Command1_Click() Dim Order As Integer If Text5 = Then MsgBox 實(shí)收不能為空!, vbOKOnly, 提示 Text5.SetFocus Exit Sub End If If Text1 = Then MsgBox 總計(jì)不能為空!, vbOKOnly, 提示 Exi

20、t Sub End If txtSQL = select 單據(jù)號(hào) from 運(yùn)行參數(shù)表 Set mrc = ExecuteSQL(txtSQL, MsgText) mrc.MoveLast Order = mrc.Fields(單據(jù)號(hào)) mrc.AddNew mrc.Fields(0) = Order + 1 Order = mrc.Fields(0) mrc.Update mrc.Close txtSQL = select 商品代號(hào),商品名稱,單價(jià),數(shù)量,金額,總計(jì),實(shí)收,找零,時(shí)間,收款員代號(hào),單據(jù)號(hào) from 當(dāng)前銷售商品信息表 Set mrc = ExecuteSQL(txtSQL,

21、MsgText) With MSHFlexGrid1 For i = 2 To .Rows - 1 mrc.AddNew mrc.Fields(0) = .TextMatrix(i, 0) mrc.Fields(1) = .TextMatrix(i, 1) mrc.Fields(2) = .TextMatrix(i, 2) mrc.Fields(3) = .TextMatrix(i, 3) mrc.Fields(4) = .TextMatrix(i, 4) mrc.Fields(5) = Text1.Text mrc.Fields(6) = Text5.Text mrc.Fields(7) =

22、 Text6.Text mrc.Fields(8) = Date mrc.Fields(9) = UserOrder mrc.Fields(10) = Order mrc.Update 將當(dāng)前銷售商品信息表復(fù)制到歷史銷售商品信息表 txtSQL = select 商品代號(hào),商品名稱,單價(jià),數(shù)量,金額,總計(jì),實(shí)收,找零,時(shí)間,收款員代號(hào),單據(jù)號(hào) from 歷史銷售商品信息表 Set rec = ExecuteSQL(txtSQL, MsgText) rec.AddNew For j = 0 To 10 rec.Fields(j) = mrc.Fields(j) Next j rec.Update

23、 Next i rec.Close mrc.Close MSHFlexGrid1.Clear Text1 = Text3 = Text4 = Text5 = Text6 = End WithEnd SubPrivate Sub Command2_Click() 打印單據(jù)報(bào)表 DataReport1.Show 清空當(dāng)前銷售商品信息表 txtSQL = select 商品代號(hào),商品名稱,單價(jià),數(shù)量,金額,總計(jì),實(shí)收,找零,時(shí)間,收款員代號(hào),單據(jù)號(hào) from 當(dāng)前銷售商品信息表 Set mrc = ExecuteSQL(txtSQL, MsgText) Do While Not mrc.EOF mr

24、c.Delete mrc.MoveNextLoop mrc.CloseEnd SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub Form_Load() Dim i As Integer i = 0 txtSQL = select * from 商品詞典表 Set mrc = ExecuteSQL(txtSQL, MsgText) With Combo1 Do While Not mrc.EOF i = i + 1 .AddItem Trim(mrc.Fields(商品代號(hào)) mrc.MoveNextLoop End With

25、mrc.Close With MSHFlexGrid1 .Rows = 2 .CellAlignment = 5 .ColWidth(0) = 1500 .ColWidth(1) = 2000 .ColWidth(2) = 1200 .ColWidth(3) = 1200 .ColWidth(4) = 1500 .TextMatrix(1, 0) = 商品代號(hào) .TextMatrix(1, 1) = 商品名稱 .TextMatrix(1, 2) = 單價(jià) .TextMatrix(1, 3) = 數(shù)量 .TextMatrix(1, 4) = 金額 End With Text1.Enabled =

26、 False Text3.Enabled = False Text6.Enabled = False End SubPrivate Sub Text4_Change()If Text4 ThenWith MSHFlexGrid1 .TextMatrix(.Rows - 1, 3) = Text4.Text .TextMatrix(.Rows - 1, 4) = Text3.Text * Text4.Text Text1.Text = Val(Text1.Text) + Val(.TextMatrix(.Rows - 1, 4)End WithEnd IfEnd SubPrivate Sub T

27、ext5_Change() If Text5 Then Text6.Text = Text5.Text - Text1.Text End IfEnd Sub單據(jù)表單小票樣式，如圖所示：圖22 單據(jù)表單銷售商品信息查詢模塊設(shè)計(jì)按商品代號(hào)查詢表單如圖所示：圖23 按商品代號(hào)查詢表單代碼：Dim txtSQL As StringDim mrc As ADODB.RecordsetDim MsgText As StringPrivate Sub Command1_Click()Unload MeEnd SubPrivate Sub Form_Load() With MSHFlexGrid1 .Rows

28、 = 2 .CellAlignment = 7 .ColWidth(0) = 1500 .ColWidth(1) = 2000 .ColWidth(2) = 1200 .ColWidth(3) = 1200 .ColWidth(4) = 1500 .ColWidth(5) = 2500 .ColWidth(6) = 1200 End WithEnd SubPrivate Sub Text1_Change() MSHFlexGrid1.Clear txtSQL = select 商品代號(hào),商品名稱,單價(jià),數(shù)量,金額,時(shí)間,收款員代號(hào) from 歷史銷售商品信息表 Set mrc = Execut

29、eSQL(txtSQL, MsgText) Do While Not mrc.EOF If mrc.Fields(商品代號(hào)) = Text1.Text Then With MSHFlexGrid1 將查詢內(nèi)容顯示在表格控件中 .Rows = .Rows + 1 .TextMatrix(.Rows - 1, 0) = mrc.Fields(0) & .TextMatrix(.Rows - 1, 1) = mrc.Fields(1) & .TextMatrix(.Rows - 1, 2) = mrc.Fields(2) & .TextMatrix(.Rows - 1, 3) = mrc.Field

30、s(3) & .TextMatrix(.Rows - 1, 4) = mrc.Fields(4) & .TextMatrix(.Rows - 1, 5) = mrc.Fields(5) & .TextMatrix(.Rows - 1, 6) = mrc.Fields(6) & .TextMatrix(1, 0) = 商品代號(hào) .TextMatrix(1, 1) = 商品名稱 .TextMatrix(1, 2) = 單價(jià) .TextMatrix(1, 3) = 數(shù)量 .TextMatrix(1, 4) = 金額 .TextMatrix(1, 5) = 時(shí)間 .TextMatrix(1, 6) =

31、 收款員代號(hào) End With End If mrc.MoveNextLoop mrc.CloseEnd Sub按單據(jù)號(hào)查詢表單如圖所示：圖24 按單據(jù)號(hào)查詢表單代碼：Private Sub Text1_Change() MSHFlexGrid1.Clear txtSQL = select 商品代號(hào),商品名稱,單價(jià),數(shù)量,金額,時(shí)間,單據(jù)號(hào) from 歷史銷售商品信息表 Set mrc = ExecuteSQL(txtSQL, MsgText) Do While Not mrc.EOF If mrc.Fields(單據(jù)號(hào)) = Text1.Text Then With MSHFlexGrid1

32、 將查詢內(nèi)容顯示在表格控件中 .Rows = .Rows + 1 .TextMatrix(.Rows - 1, 0) = mrc.Fields(0) & .TextMatrix(.Rows - 1, 1) = mrc.Fields(1) & .TextMatrix(.Rows - 1, 2) = mrc.Fields(2) & .TextMatrix(.Rows - 1, 3) = mrc.Fields(3) & .TextMatrix(.Rows - 1, 4) = mrc.Fields(4) & .TextMatrix(.Rows - 1, 5) = mrc.Fields(5) & .Te

33、xtMatrix(.Rows - 1, 6) = mrc.Fields(6) & .TextMatrix(1, 0) = 商品代號(hào) .TextMatrix(1, 1) = 商品名稱 .TextMatrix(1, 2) = 單價(jià) .TextMatrix(1, 3) = 數(shù)量 .TextMatrix(1, 4) = 金額 .TextMatrix(1, 5) = 時(shí)間 .TextMatrix(1, 6) = 單據(jù)號(hào) End With End If mrc.MoveNextLoop mrc.Close End Sub庫(kù)存管理模塊設(shè)計(jì)商品入庫(kù)圖25 商品入庫(kù)代碼：Private Sub cmdAdd_C

34、lick() Data1.Recordset.AddNewEnd SubPrivate Sub cmdDelete_Click() 如果刪除記錄集的最后一條記錄 記錄或記錄集中唯一的記錄 Data1.Recordset.Delete Data1.Recordset.MoveNextEnd SubPrivate Sub cmdRefresh_Click() 這僅對(duì)多用戶應(yīng)用程序才是需要的 Data1.RefreshEnd SubPrivate Sub cmdUpdate_Click() Data1.UpdateRecord Data1.Recordset.Bookmark = Data1.Rec

35、ordset.LastModifiedEnd SubPrivate Sub cmdClose_Click() Unload MeEnd SubPrivate Sub Data1_Error(DataErr As Integer, Response As Integer) 這就是放置錯(cuò)誤處理代碼的地方 如果想忽略錯(cuò)誤，注釋掉下一行代碼 如果想捕捉錯(cuò)誤，在這里添加錯(cuò)誤處理代碼 MsgBox 數(shù)據(jù)錯(cuò)誤事件命中錯(cuò)誤： & Error$(DataErr) Response = 0 忽略錯(cuò)誤End SubPrivate Sub Data1_Reposition() Screen.MousePointer

36、= vbDefault On Error Resume Next 這將顯示當(dāng)前記錄位置 為動(dòng)態(tài)集和快照 Data1.Caption = 記錄： & (Data1.Recordset.AbsolutePosition + 1) 對(duì)于 Table 對(duì)象，當(dāng)記錄集創(chuàng)建后并使用下面的行時(shí)， 必須設(shè)置 Index 屬性 Data1.Caption = 記錄： & (Data1.Recordset.RecordCount * (Data1.Recordset.PercentPosition * 0.01) + 1End SubPrivate Sub Data1_Validate(Action As Int

37、eger, Save As Integer) 這是放置驗(yàn)證代碼的地方 當(dāng)下面的動(dòng)作發(fā)生時(shí)，調(diào)用這個(gè)事件 Select Case Action Case vbDataActionMoveFirst Case vbDataActionMovePrevious Case vbDataActionMoveNext Case vbDataActionMoveLast Case vbDataActionAddNew Case vbDataActionUpdate Case vbDataActionDelete Case vbDataActionFind Case vbDataActionBookmark

38、Case vbDataActionClose End Select Screen.MousePointer = vbHourglassEnd Sub商品出庫(kù)圖26 商品出庫(kù)代碼：Private Sub cmdAdd_Click() Data1.Recordset.AddNewEnd SubPrivate Sub cmdDelete_Click() 如果刪除記錄集的最后一條記錄 記錄或記錄集中唯一的記錄 Data1.Recordset.Delete Data1.Recordset.MoveNextEnd SubPrivate Sub cmdRefresh_Click() 這僅對(duì)多用戶應(yīng)用程序才是

39、需要的 Data1.RefreshEnd SubPrivate Sub cmdUpdate_Click() Data1.UpdateRecord Data1.Recordset.Bookmark = Data1.Recordset.LastModifiedEnd SubPrivate Sub cmdClose_Click() Unload MeEnd SubPrivate Sub Data1_Error(DataErr As Integer, Response As Integer) 這就是放置錯(cuò)誤處理代碼的地方 如果想忽略錯(cuò)誤，注釋掉下一行代碼 如果想捕捉錯(cuò)誤，在這里添加錯(cuò)誤處理代碼 MsgBox 數(shù)據(jù)錯(cuò)誤事件命中錯(cuò)誤： & Error$(DataErr) Response = 0 忽略錯(cuò)誤End SubPrivate Sub Data1_Reposition() Screen.MousePointer = vbDefault On Error Resume Next 這將顯示當(dāng)前記