《數(shù)據(jù)庫原理與應(yīng)用》課程設(shè)計報告--倉庫管理系統(tǒng)

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

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

3、><p>　　任務(wù)設(shè)計與要求……………………………………………………1</p><p>　　需求分析……………………………………………………………2</p><p>　　系統(tǒng)總體設(shè)計………………………………………………………3</p><p>　　數(shù)據(jù)庫設(shè)計…………………………………………………………4</p><p>　

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

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

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

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

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

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

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

11、p><p><b>　　可以登記倉庫信息；</b></p><p>　　可以登記供應(yīng)商信息；</p><p>　　可以等級入庫經(jīng)辦人；</p><p>　　可以等級出庫經(jīng)辦人。</p><p><b>　　3 系統(tǒng)總體設(shè)計 </b></p><p>　　通

12、過前面的需求分析，對功能要求和性能要求有了大概了解，下面應(yīng)該確定系統(tǒng)的最終目標及初步的功能結(jié)構(gòu)。</p><p><b>　　系統(tǒng)目標</b></p><p>　　根據(jù)需求分析的描述及與用戶的溝通，最終確定系統(tǒng)要實現(xiàn)的目標如下。</p><p>　　界面簡潔、框架清晰、美觀大方；</p><p>　　領(lǐng)會、快速的填寫倉庫

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

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

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

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

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

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

19、　4.數(shù)據(jù)庫設(shè)計</b></p><p><b>　　4.1概念結(jié)構(gòu)設(shè)計</b></p><p>　　供應(yīng)商信息表：供應(yīng)商編號，供應(yīng)商地址，供應(yīng)商名稱，電話，聯(lián)系人姓名，聯(lián)系人職稱</p><p>　　貨物信息表：貨物編號，貨物名稱，貨物數(shù)量，類別，最低限量，最高限量</p><p>　　種類表：類別編號，類

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

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

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

23、稱，倉庫地址，用戶編號）</p><p>　　用戶（用戶名，用戶密碼，用戶權(quán)限）</p><p>　　庫存（庫存編號，貨物編號，庫存數(shù)量，倉庫編號）</p><p>　　入庫單（入庫單編號，貨物編號，經(jīng)辦人編號，入庫時間，貨物數(shù)量，倉庫編號，供應(yīng)商編號）</p><p>　　出庫單（出庫單編號，貨物編號，經(jīng)辦人編號，出庫時間，出庫單價，客戶編

24、號，倉庫編號）</p><p><b>　　4.3物理結(jié)構(gòu)設(shè)計</b></p><p><b>　　1.供應(yīng)商信息表</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 運行結(jié)果和測試</b></p><p>　?。?）倉庫管理系統(tǒng)運行界面和對應(yīng)原代碼（上面為運行界面，對應(yīng)原代碼在下面）如以下各圖所示：</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>　　'設(shè)置新密碼</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.單據(jù)管理</b></p><p><b>　　圖4.查詢統(tǒng)計</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 權(quán)限類別(15) <> 0 Then M查看日志_Click

39、</p><p><b>　　End Sub</b></p><p>　　Private Sub 查詢統(tǒng)計_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 權(quán)限類別(11) <> 0 Then M倉庫信息_Click</p><p><b>　　End Sub</b></p><p>　　Private Sub L單據(jù)查詢_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 權(quán)限類別(6) <> 0 Then M單據(jù)查詢_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 登記新供應(yīng)商_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 權(quán)限類別(4) <> 0 Then M供應(yīng)商_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 權(quán)限類別(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 權(quán)限類別(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 權(quán)限類別(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貨物出入統(tǒng)計_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 權(quán)限類別(6) <> 0 Then M貨物出入統(tǒng)計_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 權(quán)限類別(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 = "經(jīng)辦人" 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 = "供應(yīng)商" Then caption = "供應(yīng)商名稱"</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>　　'通過權(quán)限來初始化控件性質(zhì)</p><p>　　If 權(quán)限類別(0) = 0 Then B新增入庫單.Enabled = False</p><p>　　If 權(quán)限類別(1) = 0 Then DataGrid1.AllowUpdate = False</p><p>　　If 權(quán)限類別(2) = 0 Then&l

67、t;/p><p>　　退出入庫單.Enabled = False</p><p>　　刪除入庫單.Enabled = False</p><p><b>　　End If</b></p><p>　　If 權(quán)限類別(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 = "經(jīng)辦人" 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>　　'通過權(quán)限來初始化控件性質(zhì)</p>

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

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

78、;b>　　圖9.單據(jù)查詢</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、領(lǐng)走人,出庫單.出庫時間,出庫單.出庫單價,貨物信息.計量單位,出庫單.出庫數(shù)量,(出庫單.出庫單價*出庫單.出庫數(shù)量) as 金額,客戶.客戶名稱 as 部門,出庫單.定單狀況,出庫單.備注 as 工程名稱 from 出庫單,貨物信息,職員信息,客戶,倉庫 where 貨物信息.編號=出庫單.貨物編號 and 職員信息.編號=出庫單.經(jīng)辦人編號 and 客戶.編號=出庫單.經(jīng)辦人編號 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貨物數(shù)量.Text = "無限制"</p><p>　　T其它金額.Text = "無限制"</p><p><b>　　quit:</b></p>&

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

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

85、　　fMainForm.WriteLog ("更新供應(yīng)商")</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>　　'寫入系統(tǒng)日志

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) 對在調(diào)試中發(fā)現(xiàn)的問題進行說明。</p><p><