《數據庫原理與應用》課程設計報告--倉庫管理系統

1、<p>　　《數據庫原理與應用》</p><p><b>　　課程設計</b></p><p><b>　　分析與設計報告</b></p><p>　　題 目 倉庫管理系統 </p><p>　　專業(yè)班級 網絡0801 &l

2、t;/p><p>　　學 號 </p><p>　　姓 名 </p><p>　　指導老師 </p><p>　　完成時間 2011.1.14 </p><p><b>　　目 錄</b></p

3、><p>　　任務設計與要求……………………………………………………1</p><p>　　需求分析……………………………………………………………2</p><p>　　系統總體設計………………………………………………………3</p><p>　　數據庫設計…………………………………………………………4</p><p>　

4、　運行結果與測試……………………………………………………5</p><p>　　6.參考資料……………………………………………………………16 </p><p>　　一． 設計任務與要求</p><p>　　1.1任務設計與要求</p><p>　　隨著科學技術的不斷發(fā)展和完善，計算機逐漸地應用與各個領域。當然，現代化的辦公也離不開計算機這門

5、先進的技術地參與，從而實現高效率的辦公目的。著眼于現實生活中的倉庫管理系統，我們選擇了倉庫管理這個題目作為本次課程設計的主題，為的是能從實踐中真正的考量自己對課本知識的掌握程度和靈活應用的能力，以便在以后的工作中能夠游刃有余。 倉庫管理系統的主要任務就是能夠實現對貨物信息的錄入、修改和查詢的功能，以及對貨物資料、庫存資料進行簡單的管理，并且能夠實現倉庫出庫表、入庫表的打印等功能。我們通過vb編程建立數據庫，數據表，表單，視圖，報表等類，

6、建立一個倉庫基本信息管理及查詢的系統。這樣做的意義，就是能夠為倉庫和管理者提供便捷的服務，以便創(chuàng)造更大的社會價值。</p><p><b>　　二.需求分析</b></p><p>　　通過與多個中小企業(yè)后勤倉庫負責人進行溝通，詳細了解了企業(yè)的需求，得到該系統需要具備的功能，具體如下。</p><p><b>　　1.系統管理<

7、/b></p><p>　　可以將管理操作員，如增加操作員，設置修改操作員密碼；</p><p><b>　　可以備份數據庫；</b></p><p><b>　　可以恢復工資數據。</b></p><p><b>　　2.數據管理</b></p><

8、p><b>　　可以新增入庫單；</b></p><p><b>　　可以新增出庫單；</b></p><p>　　可以對入庫單進行管理；</p><p>　　可以對出庫單進行管理；</p><p>　　設置系統使用的輔助數據，如部門、職稱、職務等參照數據。</p><p&

9、gt;<b>　　3.查詢統計</b></p><p>　　可以查詢在制定期間的庫存信息；</p><p>　　可以對指定期間內的單據進行查詢；</p><p>　　可以統計在指定期間內的貨物信息；</p><p>　　可以對貨物在制定期間內進行出入統計</p><p><b>　　4.

10、打印票據</b></p><p><b>　　可以打印出庫票據；</b></p><p><b>　　可以打印入庫票據。</b></p><p><b>　　4.登記信息</b></p><p><b>　　可以登記貨物信息；</b></

11、p><p><b>　　可以登記倉庫信息；</b></p><p>　　可以登記供應商信息；</p><p>　　可以等級入庫經辦人；</p><p>　　可以等級出庫經辦人。</p><p><b>　　3 系統總體設計 </b></p><p>　　通

12、過前面的需求分析，對功能要求和性能要求有了大概了解，下面應該確定系統的最終目標及初步的功能結構。</p><p><b>　　系統目標</b></p><p>　　根據需求分析的描述及與用戶的溝通，最終確定系統要實現的目標如下。</p><p>　　界面簡潔、框架清晰、美觀大方；</p><p>　　領會、快速的填寫倉庫

13、信息、入庫、出庫資料；</p><p>　　對用戶輸入的數據，系統進行嚴格的數據檢驗，盡可能排除人為輸入錯誤；</p><p>　　實現查詢統計功能，用來查詢統計員工工資數據；</p><p>　　最大限度地實現系統的易維護性和易操作性；</p><p><b>　　確保系統數據安全。</b></p>&l

14、t;p><b>　　系統功能結構</b></p><p>　　本系統主要包括倉庫基本信息管理，數據處理，貨物信息錄入、查詢、修改，庫存信息的查詢統計，系統管理等部分其系統結構如圖所示。 </p><p><b>　　構建開發(fā)環(huán)境</b></p><p>　　本項目開發(fā)環(huán)境如下：</p>

15、<p>　　Microsoft Visual Basic 6.0中文版；</p><p>　　Access數據庫。Access是運行在Windows系列平臺之上的具備了多媒體與開放性的數據庫系統。它的直觀性、易用性、開放性及功能強大的特點，使其成為目前最受歡迎的PC數據庫軟件。</p><p><b>　　系統特色介紹</b></p><

16、p><b>　　本系統特色有：</b></p><p>　　操作簡單，符合Windows的風格的操作界面，使用戶容易上手；</p><p>　　減少數據重復錄入，大部分數據都只需錄入一次，即可在其他模塊中引用。如供應商、貨物資料、庫存等信息，都只需錄入一次。</p><p><b>　　處理流程</b></p&

17、gt;<p>　　以“判斷能否錄入貨物信息”為例，可描述如下：</p><p>　　處理過程：“判斷能否錄入貨物信息”；</p><p>　　說明：根據貨物編號判斷是否屬于有效貨物；</p><p>　　輸入：貨物編號、貨物貨物名稱、類別等有效信息；</p><p>　　輸出：能否錄入貨物信息；</p><p

18、>　　處理：如果屬于有效貨物編號，即可錄入，否則不可錄入。</p><p><b>　　主要功能的原理</b></p><p>　　用戶管理主要采用MicrosoftVisualBasic6.0制作的登錄界面和Access制作的數據庫對員工的基本信息進行管理；應用VB對用戶的添加、刪除、修改進行操作。</p><p><b>　

19、　4.數據庫設計</b></p><p><b>　　4.1概念結構設計</b></p><p>　　供應商信息表：供應商編號，供應商地址，供應商名稱，電話，聯系人姓名，聯系人職稱</p><p>　　貨物信息表：貨物編號，貨物名稱，貨物數量，類別，最低限量，最高限量</p><p>　　種類表：類別編號，類

20、別名稱</p><p>　　客戶信息表：客戶編號，客戶名稱，聯系人，客戶電話</p><p>　　倉庫信息表：倉庫編號，倉庫名稱，倉庫地址，用戶編號</p><p>　　用戶信息表：用戶名，用戶密碼，用戶權限</p><p>　　庫存信息表：庫存編號，貨物編號，庫存數量，倉庫編號</p><p>　　入庫單：入庫單編號

21、，貨物編號，經辦人編號，入庫時間，貨物數量，倉庫編號，供應商編號</p><p>　　出庫單：出庫單編號，貨物編號，經辦人編號，出庫時間，出庫單價，客戶編號，倉庫編號</p><p><b>　　4.2邏輯結構設計</b></p><p>　　根據關系規(guī)范化理論和E-R轉換成關系模型的規(guī)則，整體E-R圖可轉換得到下列關系模式：</p>

22、;<p>　　供應商（供應商編號，供應商地址，供應商名稱，電話，聯系人姓名，聯系人職稱）</p><p>　　貨物（貨物編號，貨物名稱，貨物數量，類別，最低限量，最高限量）</p><p>　　種類（類別編號，類別名稱）</p><p>　　客戶（客戶編號，客戶名稱，聯系人，客戶電話）</p><p>　　倉庫（倉庫編號，倉庫名

23、稱，倉庫地址，用戶編號）</p><p>　　用戶（用戶名，用戶密碼，用戶權限）</p><p>　　庫存（庫存編號，貨物編號，庫存數量，倉庫編號）</p><p>　　入庫單（入庫單編號，貨物編號，經辦人編號，入庫時間，貨物數量，倉庫編號，供應商編號）</p><p>　　出庫單（出庫單編號，貨物編號，經辦人編號，出庫時間，出庫單價，客戶編

24、號，倉庫編號）</p><p><b>　　4.3物理結構設計</b></p><p><b>　　1.供應商信息表</b></p><p><b>　　2.客戶信息表</b></p><p><b>　　3.貨物信息表</b></p>&l

25、t;p><b>　　4.倉庫信息表</b></p><p><b>　　5.用戶信息表</b></p><p><b>　　6.種類信息表</b></p><p><b>　　7.入庫單信息表</b></p><p><b>　　8.出庫單

26、編號</b></p><p><b>　　5 運行結果和測試</b></p><p>　　（1）倉庫管理系統運行界面和對應原代碼（上面為運行界面，對應原代碼在下面）如以下各圖所示：</p><p><b>　　圖1. 登陸界面</b></p><p>　　Private Sub Form

27、_Load()</p><p>　　On Error Resume Next</p><p>　　Adodc1.ConnectionString = DataConnectString</p><p>　　Adodc1.RecordSource = "select * from 用戶管理 where 用戶名='username'"

28、</p><p>　　Adodc1.Refresh</p><p><b>　　End Sub</b></p><p>　　Private Sub Modify_Click()</p><p>　　If OldPas.Text <> UserPas Then</p><p>　　Msg

29、Box "原密碼錯誤!"</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If NewPas1.Text <> NewPas2.Text Then</p><p>　　MsgBox "

30、;兩次密碼不一致!"</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　On Error Resume Next</p><p><b>　　'查找用戶名</b></p>

31、<p>　　If Adodc1.Recordset.Fields("用戶名") = UserName Then</p><p><b>　　'設置新密碼</b></p><p>　　Set adoRs = adoCon.Execute("UPDATE 用戶管理 SET 用戶密碼= '" + NewPas

32、1.Text + "' where 用戶名='" + UserName + "'")</p><p>　　Adodc1.Refresh</p><p>　　MsgBox "修改成功!"</p><p><b>　　End If</b></p>&l

33、t;p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　Private Sub NewPas1_KeyDown(KeyCode As Integer, Shift As Integer)</p><p>　　If KeyCode = 13 Then

34、 '如果按下的是回車鍵，則光標落到文本框當中</p><p>　　NewPas2.SetFocus</p><p><b>　　End If</b></p><p>　　End Sub </p><p><b>　　圖2. 登記信息</b></p>

35、<p><b>　　圖3.單據管理</b></p><p><b>　　圖4.查詢統計</b></p><p>　　圖2.圖3.圖4的原代碼如下所示：</p><p>　　Private Sub 操作信息_Resize()</p><p>　　Shape1.left = 0</p&g

36、t;<p>　　Shape1.width = 操作信息.width</p><p>　　Shape2.left = 0</p><p>　　Shape2.width = 操作信息.width</p><p><b>　　End Sub</b></p><p>　　Private Sub 查看庫存狀況_Mou

37、seDown(Button As Integer, Shift As Integer, X As Single, Y As Single)</p><p>　　If Button <> 1 Then Exit Sub</p><p>　　M庫存狀況_Click</p><p><b>　　End Sub</b></p>

38、<p>　　Private Sub 查看日志_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)</p><p>　　If Button <> 1 Then Exit Sub</p><p>　　If 權限類別(15) <> 0 Then M查看日志_Click

39、</p><p><b>　　End Sub</b></p><p>　　Private Sub 查詢統計_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)</p><p>　　If Button <> 1 Then Exit Sub&l

40、t;/p><p><b>　　End Sub</b></p><p>　　Private Sub 創(chuàng)建新倉庫_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)</p><p>　　If Button <> 1 Then Exit Sub<

41、;/p><p>　　If 權限類別(11) <> 0 Then M倉庫信息_Click</p><p><b>　　End Sub</b></p><p>　　Private Sub L單據查詢_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single

42、)</p><p>　　If Button <> 1 Then Exit Sub</p><p>　　If 權限類別(6) <> 0 Then M單據查詢_Click</p><p><b>　　End Sub</b></p><p>　　Private Sub 當前日期_Click()</

43、p><p>　　表.Show vbModal</p><p><b>　　End Sub</b></p><p>　　Private Sub 登記新供應商_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)</p><p>　　If

44、 Button <> 1 Then Exit Sub</p><p>　　If 權限類別(4) <> 0 Then M供應商_Click</p><p><b>　　End Sub</b></p><p>　　Private Sub 登記新貨物_MouseDown(Button As Integer, Shift As

45、Integer, X As Single, Y As Single)</p><p>　　If Button <> 1 Then Exit Sub</p><p>　　If 權限類別(12) <> 0 Then M貨物信息_Click</p><p><b>　　End Sub</b></p><p&

46、gt;　　Private Sub 登記新客戶_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)</p><p>　　If Button <> 1 Then Exit Sub</p><p>　　If 權限類別(5) <> 0 Then M往來客戶_Click</p&

47、gt;<p><b>　　End Sub</b></p><p>　　Private Sub 登記新職員_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)</p><p>　　If Button <> 1 Then Exit Sub</p&g

48、t;<p>　　If 權限類別(10) <> 0 Then 職員信息.Show vbModal</p><p><b>　　End Sub</b></p><p>　　Private Sub 給作者寫信_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Singl

49、e)</p><p>　　If Button <> 1 Then Exit Sub</p><p>　　ShellExecute 0, "", "mailto:smmhLiu@163.com", "", "", 5</p><p><b>　　End Sub<

50、/b></p><p>　　Private Sub 更換用戶登陸_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)</p><p>　　If Button <> 1 Then Exit Sub</p><p>　　frmLogin.Show vbModa

51、l</p><p><b>　　End Sub</b></p><p>　　Private Sub L貨物出入統計_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)</p><p>　　If Button <> 1 Then Exit S

52、ub</p><p>　　If 權限類別(6) <> 0 Then M貨物出入統計_Click</p><p><b>　　End Sub</b></p><p>　　Private Sub L庫存查詢_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As

53、Single)</p><p>　　If Button <> 1 Then Exit Sub</p><p>　　If 權限類別(6) <> 0 Then M庫存查詢_Click</p><p><b>　　End Sub</b></p><p><b>　　圖6.庫存狀況</b&

54、gt;</p><p>　　Private Sub DataGrid1_Click()</p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　Adodc1.ConnectionString = DataConnectString<

55、/p><p>　　SQL = Adodc1.RecordSource</p><p>　　Set DataGrid1.DataSource = Adodc1</p><p>　　Adodc1.Refresh</p><p>　　Adodc1.Visible = False</p><p>　　Adodc2.Connecti

56、onString = DataConnectString</p><p>　　Set DataCombo1.RowSource = Adodc2</p><p>　　DataCombo1.ListField = "倉庫名稱"</p><p>　　Adodc2.Refresh</p><p>　　Adodc2.Visible

57、 = False</p><p>　　Adodc3.ConnectionString = DataConnectString</p><p>　　Set DataGrid1.DataSource = Adodc1</p><p>　　Adodc1.Refresh</p><p>　　Adodc1.Visible = False</p&g

58、t;<p>　　initdatagrid1</p><p><b>　　End Sub</b></p><p><b>　　圖7.入庫單</b></p><p>　　rivate Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)</p><

59、;p>　　On Error Resume Next</p><p>　　Dim caption As String</p><p>　　caption = DataGrid1.Columns(ColIndex).caption</p><p>　　If caption = "經辦人" Then caption = "姓名"

60、;</p><p>　　If caption = "金額" Then Exit Sub</p><p>　　If caption = "備注" Then caption = "入庫單.備注"</p><p>　　If caption = "編號" Then caption = "

61、;入庫單.編號"</p><p>　　If caption = "供應商" Then caption = "供應商名稱"</p><p>　　If caption = "存放倉庫" Then caption = "倉庫名稱"</p><p>　　Adodc1.RecordSou

62、rce = SQL + " order by " + caption</p><p>　　order(ColIndex) = True - order(ColIndex)</p><p>　　If order(ColIndex) = True Then</p><p>　　Adodc1.RecordSource = Adodc1.RecordSo

63、urce + " ASC"</p><p><b>　　Else</b></p><p>　　Adodc1.RecordSource = Adodc1.RecordSource + " DESC"</p><p><b>　　End If</b></p><p&g

64、t;<b>　　SaveInit</b></p><p>　　Adodc1.Refresh</p><p>　　ResumeInit</p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　A

65、dodc1.ConnectionString = DataConnectString</p><p>　　SQL = Adodc1.RecordSource</p><p>　　Set DataGrid1.DataSource = Adodc1</p><p>　　Adodc1.Refresh</p><p>　　initdatagrid1&

66、lt;/p><p>　　'通過權限來初始化控件性質</p><p>　　If 權限類別(0) = 0 Then B新增入庫單.Enabled = False</p><p>　　If 權限類別(1) = 0 Then DataGrid1.AllowUpdate = False</p><p>　　If 權限類別(2) = 0 Then&l

67、t;/p><p>　　退出入庫單.Enabled = False</p><p>　　刪除入庫單.Enabled = False</p><p><b>　　End If</b></p><p>　　If 權限類別(8) = 0 Then 打印入庫單.Enabled = False</p><p>&

68、lt;b>　　End Sub</b></p><p><b>　　圖8.出庫單</b></p><p>　　Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)</p><p>　　On Error Resume Next</p><p>

69、　　Dim caption As String</p><p>　　caption = DataGrid1.Columns(ColIndex).caption</p><p>　　If caption = "經辦人" Then caption = "姓名"</p><p>　　If caption = "金額&quo

70、t; Then Exit Sub</p><p>　　If caption = "備注" Then caption = "出庫單.備注"</p><p>　　If caption = "編號" Then caption = "出庫單.編號"</p><p>　　If caption =

71、"客戶" Then caption = "客戶名稱"</p><p>　　If caption = "存放倉庫" Then caption = "倉庫名稱"</p><p>　　Adodc1.RecordSource = SQL + " order by " + caption</p&

72、gt;<p>　　order(ColIndex) = True - order(ColIndex)</p><p>　　If order(ColIndex) = True Then</p><p>　　Adodc1.RecordSource = Adodc1.RecordSource + " ASC"</p><p><b&g

73、t;　　Else</b></p><p>　　Adodc1.RecordSource = Adodc1.RecordSource + " DESC"</p><p><b>　　End If</b></p><p><b>　　SaveInit</b></p><p>

74、;　　Adodc1.Refresh</p><p>　　ResumeInit</p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　Adodc1.ConnectionString = DataConnectString</p>

75、;<p>　　SQL = Adodc1.RecordSource</p><p>　　Set DataGrid1.DataSource = Adodc1</p><p>　　Adodc1.Refresh</p><p>　　initdatagrid1</p><p>　　'通過權限來初始化控件性質</p>

76、<p>　　If 權限類別(0) = 0 Then B新增出庫單.Enabled = False</p><p>　　If 權限類別(1) = 0 Then DataGrid1.AllowUpdate = False</p><p>　　If 權限類別(2) = 0 Then</p><p>　　退出出庫單.Enabled = False</p>

77、;<p>　　刪除出庫單.Enabled = False</p><p><b>　　End If</b></p><p>　　If 權限類別(8) = 0 Then 打印出庫單.Enabled = False</p><p><b>　　End Sub</b></p><p><

78、;b>　　圖9.單據查詢</b></p><p>　　Private Sub Form_Load()</p><p>　　On Error GoTo quit</p><p>　　Adodc1.ConnectionString = DataConnectString</p><p>　　Adodc1.Visible = Fa

79、lse</p><p>　　Adodc2.ConnectionString = DataConnectString</p><p>　　Adodc2.Visible = False</p><p>　　Adodc1.RecordSource = "select 出庫單.編號,貨物信息.貨物名稱,貨物信息.貨物類別,貨物信息.貨物規(guī)格,職員信息.姓名 as

80、領走人,出庫單.出庫時間,出庫單.出庫單價,貨物信息.計量單位,出庫單.出庫數量,(出庫單.出庫單價*出庫單.出庫數量) as 金額,客戶.客戶名稱 as 部門,出庫單.定單狀況,出庫單.備注 as 工程名稱 from 出庫單,貨物信息,職員信息,客戶,倉庫 where 貨物信息.編號=出庫單.貨物編號 and 職員信息.編號=出庫單.經辦人編號 and 客戶.編號=出庫單.經辦人編號 and 倉庫.編號=出庫單.倉庫編號"&

81、lt;/p><p>　　Set DataGrid1.DataSource = Adodc1</p><p>　　Adodc1.Refresh</p><p>　　制單時間.Year = Year(Date)</p><p>　　制單時間.Month = Month(Date)</p><p>　　制單時間.Day = Da

82、y(Date)</p><p>　　T制單時間.Text = "無限制"</p><p>　　T貨物數量.Text = "無限制"</p><p>　　T其它金額.Text = "無限制"</p><p><b>　　quit:</b></p>&

83、lt;p><b>　　End Sub</b></p><p><b>　　圖10.供應商信息</b></p><p>　　Private Sub DataGrid1_AfterDelete()</p><p><b>　　'寫入系統日志</b></p><p>　

84、　fMainForm.WriteLog ("刪除供應商")</p><p><b>　　End Sub</b></p><p>　　Private Sub DataGrid1_AfterUpdate()</p><p><b>　　'寫入系統日志</b></p><p>

85、　　fMainForm.WriteLog ("更新供應商")</p><p><b>　　End Sub</b></p><p><b>　　圖11.增加新貨物</b></p><p>　　Private Sub 增加新貨物_Click()</p><p>　　If 貨物編號.T

86、ext = "" Then MsgBox "請?zhí)顚懾浳锞幪?", vbQuestion: Exit Sub</p><p>　　If 貨物名稱.Text = "" Then MsgBox "請?zhí)顚懾浳锩Q!", vbQuestion: Exit Sub</p><p>　　If 最低限量.Text = &quo

87、t;" Then MsgBox "請?zhí)顚懽畹拖蘖?", vbQuestion: Exit Sub</p><p>　　If 最高限量.Text = "" Then MsgBox "請?zhí)顚懽罡呦蘖?", vbQuestion: Exit Sub</p><p>　　If 計量單位.Text = "" T

88、hen MsgBox "請?zhí)顚懹嬃繂挝?", vbQuestion: Exit Sub</p><p>　　On Error Resume Next</p><p><b>　　SaveInit</b></p><p>　　Adodc2.Recordset.AddNew</p><p>　　Adodc

89、2.Recordset.Fields("編號") = 貨物編號.Text</p><p>　　Adodc2.Recordset.Fields("貨物名稱") = 貨物名稱.Text</p><p>　　Adodc2.Recordset.Fields("貨物類別") = DataGrid1.Columns(0).Text</p

90、><p>　　Adodc2.Recordset.Fields("貨物規(guī)格") = 貨物規(guī)格.Text</p><p>　　Adodc2.Recordset.Fields("計量單位") = 計量單位.Text</p><p>　　Adodc2.Recordset.Fields("最低限量") = 最低限量.Te

91、xt</p><p>　　Adodc2.Recordset.Fields("最高限量") = 最高限量.Text</p><p>　　Adodc2.Recordset.Fields("備注") = 備注.Text</p><p>　　Adodc2.Recordset.update</p><p>　　A

92、dodc2.Recordset.Requery</p><p>　　InitDataGrid3</p><p>　　Adodc2.Refresh</p><p>　　ResumeInit</p><p>　　貨物編號.Text = 貨物編號.Text + 1</p><p><b>　　'寫入系統日志

93、</b></p><p>　　fMainForm.WriteLog ("增加新貨物")</p><p>　　MsgBox "保存成功", vbOKOnly, ""</p><p>　　'同時把文本清空，以便填寫下一個</p><p>　　貨物名稱.Text = &

94、quot;"</p><p>　　計量單位.Text = ""</p><p>　　貨物規(guī)格.Text = ""</p><p><b>　　End Sub</b></p><p>　　(2) 對在調試中發(fā)現的問題進行說明。</p><p><