管理信息系統(tǒng)課程設計報告-超市門店進銷存管理系統(tǒng)

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

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

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

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

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

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

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

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

9、施（1）系統(tǒng)運行環(huán)境說明操作系統(tǒng)：Windows 2000/XP/Vista數(shù)據(jù)管理系統(tǒng)：ACCESS 2000編程語言：VB 6.0（2）系統(tǒng)主要功能模塊界面和代碼總控制模塊程序設計系統(tǒng)總控模塊程序1）窗體對象 FrmInit屬性：Name: FrmInitBorderstyle:0-ZonePicture:D：Pos System享受大自然風景寬屏壁紙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）計時器對象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)封面表單設計系統(tǒng)封面表單界面，如圖所示，運行時字幕由下向上慢慢上升。圖14 系統(tǒng)封面系統(tǒng)登錄表單設計系統(tǒng)登錄表單界面，如圖所示：圖15 系統(tǒng)登

12、錄界面代碼：Option Explicit 強制變量聲明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 沒有這個用戶，請重新輸入

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(收款員代號) mrc.Close Else MsgBox 輸入密碼不正確，請重新輸入！, 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)菜單設計系統(tǒng)菜單采用菜單編輯器來完成：圖16-1 系統(tǒng)菜單編輯器圖16-2 系統(tǒng)菜單代碼：Private Sub MDIForm_Load()StatusBar1.Panels.Item(1) = 正在運行中End SubPrivate Sub munbasic_Click()基本信息庫.ShowEnd SubPrivate Sub munbillque

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

17、ivate Sub 出庫表_Click()frm出庫表.ShowEnd SubPrivate Sub 庫存查詢_Click()Form1.ShowEnd SubPrivate Sub 入庫表_Click()frm入庫表.ShowEnd Sub初始化模塊設計基本信息表單運行界面，如圖所示：圖17 基本信息表收款員表單運行界面如圖所示：圖18 收款員表商品詞典表單運行界面如圖所示：圖19 商品詞典表運行參數(shù)表單運行界面如圖20所示：圖20 運行參數(shù)表商品銷售模塊設計商品銷售表單商品銷售表單如圖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 商品代號 = & 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 實收不能為空!, vbOKOnly, 提示 Text5.SetFocus Exit Sub End If If Text1 = Then MsgBox 總計不能為空!, vbOKOnly, 提示 Exi

20、t Sub End If txtSQL = select 單據(jù)號 from 運行參數(shù)表 Set mrc = ExecuteSQL(txtSQL, MsgText) mrc.MoveLast Order = mrc.Fields(單據(jù)號) mrc.AddNew mrc.Fields(0) = Order + 1 Order = mrc.Fields(0) mrc.Update mrc.Close txtSQL = select 商品代號,商品名稱,單價,數(shù)量,金額,總計,實收,找零,時間,收款員代號,單據(jù)號 from 當前銷售商品信息表 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 將當前銷售商品信息表復制到歷史銷售商品信息表 txtSQL = select 商品代號,商品名稱,單價,數(shù)量,金額,總計,實收,找零,時間,收款員代號,單據(jù)號 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ù)報表 DataReport1.Show 清空當前銷售商品信息表 txtSQL = select 商品代號,商品名稱,單價,數(shù)量,金額,總計,實收,找零,時間,收款員代號,單據(jù)號 from 當前銷售商品信息表 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(商品代號) 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) = 商品代號 .TextMatrix(1, 1) = 商品名稱 .TextMatrix(1, 2) = 單價 .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ù)表單銷售商品信息查詢模塊設計按商品代號查詢表單如圖所示：圖23 按商品代號查詢表單代碼：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 商品代號,商品名稱,單價,數(shù)量,金額,時間,收款員代號 from 歷史銷售商品信息表 Set mrc = Execut

29、eSQL(txtSQL, MsgText) Do While Not mrc.EOF If mrc.Fields(商品代號) = 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) = 商品代號 .TextMatrix(1, 1) = 商品名稱 .TextMatrix(1, 2) = 單價 .TextMatrix(1, 3) = 數(shù)量 .TextMatrix(1, 4) = 金額 .TextMatrix(1, 5) = 時間 .TextMatrix(1, 6) =

31、 收款員代號 End With End If mrc.MoveNextLoop mrc.CloseEnd Sub按單據(jù)號查詢表單如圖所示：圖24 按單據(jù)號查詢表單代碼：Private Sub Text1_Change() MSHFlexGrid1.Clear txtSQL = select 商品代號,商品名稱,單價,數(shù)量,金額,時間,單據(jù)號 from 歷史銷售商品信息表 Set mrc = ExecuteSQL(txtSQL, MsgText) Do While Not mrc.EOF If mrc.Fields(單據(jù)號) = 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) = 商品代號 .TextMatrix(1, 1) = 商品名稱 .TextMatrix(1, 2) = 單價 .TextMatrix(1, 3) = 數(shù)量 .TextMatrix(1, 4) = 金額 .TextMatrix(1, 5) = 時間 .TextMatrix(1, 6) = 單據(jù)號 End With End If mrc.MoveNextLoop mrc.Close End Sub庫存管理模塊設計商品入庫圖25 商品入庫代碼：Private Sub cmdAdd_C

34、lick() Data1.Recordset.AddNewEnd SubPrivate Sub cmdDelete_Click() 如果刪除記錄集的最后一條記錄 記錄或記錄集中唯一的記錄 Data1.Recordset.Delete Data1.Recordset.MoveNextEnd SubPrivate Sub cmdRefresh_Click() 這僅對多用戶應用程序才是需要的 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) 這就是放置錯誤處理代碼的地方 如果想忽略錯誤，注釋掉下一行代碼 如果想捕捉錯誤，在這里添加錯誤處理代碼 MsgBox 數(shù)據(jù)錯誤事件命中錯誤： & Error$(DataErr) Response = 0 忽略錯誤End SubPrivate Sub Data1_Reposition() Screen.MousePointer

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

37、eger, Save As Integer) 這是放置驗證代碼的地方 當下面的動作發(fā)生時，調(diào)用這個事件 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商品出庫圖26 商品出庫代碼：Private Sub cmdAdd_Click() Data1.Recordset.AddNewEnd SubPrivate Sub cmdDelete_Click() 如果刪除記錄集的最后一條記錄 記錄或記錄集中唯一的記錄 Data1.Recordset.Delete Data1.Recordset.MoveNextEnd SubPrivate Sub cmdRefresh_Click() 這僅對多用戶應用程序才是

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) 這就是放置錯誤處理代碼的地方 如果想忽略錯誤，注釋掉下一行代碼 如果想捕捉錯誤，在這里添加錯誤處理代碼 MsgBox 數(shù)據(jù)錯誤事件命中錯誤： & Error$(DataErr) Response = 0 忽略錯誤End SubPrivate Sub Data1_Reposition() Screen.MousePointer = vbDefault On Error Resume Next 這將顯示當前記