【正文】 Box (沒有要修 改的記錄！ ) End If End Sub Private Sub cmdsave_Click() 39。保存記錄 If Text1(0).Text = Then MsgBox 姓名不能為空！ Text1(0).SetFocus Exit Sub End If 山東交通學院課程設計報告 21 For i = 0 To 6 Text1(i).Enabled = False Next i = False = False = True = True = True End Sub Private Sub cmdExit_Click() 39。退出 Unload Me End Sub Private Sub Form_Load() = LoadPicture( amp。 \) End Sub 商品信息查詢表 用戶查詢，查詢系統(tǒng)中的商品信息，可以選擇查詢 方式，使用指定的方式查詢相應的信息，并且以列表的形式顯示出來。 山東交通學院課程設計報告 22 代碼如下： Private Sub Command1_Click() If = Then MsgBox 請準確輸入查詢內容 End If If = 商品名稱 Then = Provider=。Data Source=C:\Users\dell\Desktop\訂單管理系統(tǒng) \。Persist Security Info=False = select * from 商品信息管理 where 商品名稱 like 39。% amp。 amp。 %39。 = adCmdText If Not Then = (商品名稱 ) = (商品類型 ) = (商品單價 ) = (商品庫存 ) = (所在倉庫 ) Else: MsgBox 您所要查詢的內容不存在！ 山東交通學院課程設計報告 23 End If End If If = 商品類型 Then = Provider=。Data Source=C:\Users\dell\Desktop\訂單管理系統(tǒng) \。Persist Security Info=False = select * from 商品信息管理 where 商品類型 like 39。% amp。 amp。 %39。 = adCmdText If Not Then = (商品名稱 ) = (商品類型 ) = (商品單價 ) = (商品庫存 ) = (所 在倉庫 ) Else: MsgBox 您所要查詢的內容不存在！ End If End If End Sub Private Sub Command2_Click() End Sub Private Sub Form_Load() (商品名稱 ) (商品類型 ) = LoadPicture( amp。 \) End Sub 訂單信息查詢 用戶查詢，查詢系統(tǒng)中的訂單信息，可以選擇查詢方式，使用指定的方式查詢相應的信息，并且以列表的形式顯示出來 Private Sub Command1_Click() 山東交通學院課程設計報告 24 代碼如下： If = Then MsgBox 請準確輸入查詢內容 End If If = 訂單日期 Then = Provider=。Data Source=C:\Users\dell\Desktop\訂單管理系統(tǒng) \。Persist Security Info=False = select * from 訂單信息表 where 訂單日期 like 39。% amp。 amp。 %39。 = adCmdText If Not Then = (下單日期 ) = (下單公司 ) = (訂單號 ) = (交貨日期 ) = (訂單類型 ) = (訂單貨物 ) = (訂單數(shù)量 ) = (貨物單位 ) = (所在倉庫 ) Else: MsgBox 您所要查詢的內容不存在！ 山東交通學院課程設計報告 25 End If End If If = 訂單號 Then = Provider=。Data Source=C:\Users\dell\Desktop\訂單管理系統(tǒng) \。Persist Security Info=False = select * from 訂單信息表 where 訂單號 like 39。% amp。 amp。 %39。 = adCmdText If Not Then = (下單日期 ) = (下單公司 ) = (訂單號 ) = (交貨日期 ) = (訂單類型 ) = (訂單貨物 ) = (訂單數(shù)量 ) = (貨物單位 ) = (所在倉庫 ) Else: MsgBox 您所要查詢的內容不存在！ End If End If End Sub Private Sub Command2_Click() End Sub Private Sub Form_Load() (訂單日期 ) (訂單號 ) = LoadPicture( amp。 \) End Sub 山東交通學院課程設計報告 26 4 總結 在本系統(tǒng)的開發(fā)過程中，由于我們是初次開發(fā)軟件，在知識、經(jīng)驗方面都存在著不足。因此，該系統(tǒng)必然會存在一些缺陷和不足。因為對訂單管理的整個流程不夠熟悉，在需求分析時未能做到完全滿足用戶的需求。而且在本次開發(fā)過程由于硬件的限制，未能實現(xiàn)網(wǎng)絡功能， 因此在以后的系統(tǒng)更新過程中可能會造成一些不必要的數(shù)據(jù)損失。通過開發(fā)這個系統(tǒng)，我們掌握了項目的基本開發(fā)過程，了解了的基本知識鞏固了我對 Visual Basic 的學習，但在這次設計中的最大收獲并不是掌握這幾門開發(fā)工具的應用，而是學會了設計系統(tǒng)的思維方法，以及與同學們之間相互幫助的精神。 山東交通學院課程設計報告 27 參考文獻 【 1】高林，周海燕 .《管理信息系統(tǒng)與案例分析》 .2021 版 .北京 :人民郵電出版社 ,2021 年 11 月 :220 頁 . 【 2】羅榜圣 .《管理信息系統(tǒng)》 .2021 版 .重慶 :重慶大學出版社 ,2021 年 9 月 :323頁 . 【 3】 陳佳編著 .《 信息系統(tǒng)開發(fā)方法教程 》 .2021 版 .北京 ： 清華大學出版社 ， 2021年 3 月： 339 頁 【 4】薩師煊、王珊．《數(shù)據(jù)庫系統(tǒng)概論》 [M]．北京高等教育出版社． 2021． 2 【 5】明日科技．《 Visual Basic 數(shù)據(jù)庫開發(fā)關鍵技術與實例應用》．人民郵電出版社． 【 6】 師向麗 ． 面向自動化立體倉庫的倉儲管理系統(tǒng)的研究 ． 華北工學院 中北大學：計算機應用技術 .2021 【 7】 潘尤興 ． 物流理論在物流信息系統(tǒng)開發(fā)過程中的應用 ． 北京物資學院：管理科學與工程 ． 2021 【 8】 賀春婷 ． 基于 VB+ACCESS 的汽車正向設計客戶需求分析系統(tǒng) ． 華中科技大學：電氣信息檢測技術 ． 2021 【 9】初玲玲． 基于 Visual Basic 的倉儲管理系統(tǒng)的開發(fā)與研究 ．東華大學：機械制造及其自動化． 2021