訂單管理信息系統(tǒng)設(shè)計(jì)課程設(shè)計(jì)

1、<p>　　物流信息系統(tǒng)課程設(shè)計(jì)報告</p><p>　　題目：訂單管理信息系統(tǒng)設(shè)計(jì)</p><p>　　院(系)別 交通與物流工程學(xué)院 </p><p>　　專 業(yè) 物流工程專業(yè) </p><p>　　班 級 </p><p>　　學(xué)

2、 號 </p><p>　　姓 名 </p><p>　　指導(dǎo)教師 </p><p><b>　　二○一三年十二月</b></p><p><b>　　摘要</b><

3、/p><p>　　企業(yè)訂單管理系統(tǒng)，它是企業(yè)管理系統(tǒng)的一個主要組成部分，其作用是對客戶、訂單之間進(jìn)行行之有效的管理。本系統(tǒng)包括：管理員管理、客戶管理、定金管理、銷售管理、系統(tǒng)信息等模塊。本系統(tǒng)是用于企業(yè)內(nèi)部的專有系統(tǒng)，它加強(qiáng)了企業(yè)訂單處理的效率，減輕了人員工作量，減少了傳統(tǒng)方式帶來的出錯，從而降低了企業(yè)開銷。本文介紹了在Visual Basic 6.0環(huán)境下采用“自上而下地總體規(guī)劃，自下而上地應(yīng)用開發(fā)”的策略開發(fā)一個

4、企業(yè)訂單管理信息系統(tǒng)的過程，主要分析了企業(yè)訂單管理系統(tǒng)的一些基本功能和組成情況,企業(yè)的訂單管理是涉及企業(yè)生產(chǎn)、企業(yè)資金流和企業(yè)的經(jīng)營風(fēng)險的關(guān)鍵環(huán)節(jié)。訂單管理是企業(yè)管理中的源頭管理。實(shí)施了訂單管理信息系統(tǒng)后,企業(yè)的管理將邁上一個，達(dá)到了數(shù)據(jù)的一致性和安全性，且應(yīng)用程序功能完備，符合了作為典型的信息管理系統(tǒng)(MIS)的要求。</p><p>　　關(guān)鍵字:訂單信息管理系統(tǒng)、Visual Basic應(yīng)用、Acess數(shù)據(jù)庫

5、</p><p><b>　　目錄</b></p><p><b>　　摘要1</b></p><p><b>　　目錄1</b></p><p><b>　　1 概述2</b></p><p>　　1.1 設(shè)計(jì)的背景和意義

6、2</p><p>　　1.2 可行性分析2</p><p>　　1.3 設(shè)計(jì)任務(wù)分工說明3</p><p><b>　　2 系統(tǒng)分析4</b></p><p>　　2.1 系統(tǒng)功能分析4</p><p>　　2.2 系統(tǒng)流程分析4</p><p>　　2.2.1

7、 業(yè)務(wù)流程圖5</p><p>　　2.2.2 數(shù)據(jù)流程圖5</p><p>　　2.3 系統(tǒng)性能分析6</p><p><b>　　3 系統(tǒng)設(shè)計(jì)8</b></p><p>　　3.1 物理配置方案設(shè)計(jì)8</p><p>　　3.2 數(shù)據(jù)庫設(shè)計(jì)8</p><p>

8、;　　3.3 操作數(shù)據(jù)庫設(shè)計(jì)9</p><p>　　3.4 界面設(shè)計(jì)11</p><p>　　3.4.1用戶登錄11</p><p>　　3.4.2主窗體13</p><p>　　3.4.3訂單錄入15</p><p>　　3.4.4客戶信息管理18</p><p>　　3.4.5商

9、品信息查詢表21</p><p>　　3.4.6訂單信息查詢23</p><p><b>　　4 總結(jié)26</b></p><p><b>　　參考文獻(xiàn)27</b></p><p><b>　　1 概述</b></p><p>　　1.1 設(shè)計(jì)的

10、背景和意義</p><p>　　企業(yè)訂單管理系統(tǒng)是一個企業(yè)管理不可缺少的部分，它的功能對于企業(yè)的快速和高效的管理訂單信息及交貨信息致關(guān)重要，所以企業(yè)訂單管理系統(tǒng)應(yīng)該能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄?。但一直以來人們使用傳統(tǒng)人工的方式進(jìn)行管理，這種管理方式存在著許多缺點(diǎn)，如:效率低、時間長、易沖突、不完美。</p><p>　　作為計(jì)算機(jī)應(yīng)用的一部分，使用計(jì)算機(jī)對企業(yè)訂單信息進(jìn)行合理的

11、管理，具有手工管理所無法比擬的優(yōu)點(diǎn)。例如：排序速度快、查找方便、可靠性高、成本低等。這些優(yōu)點(diǎn)能夠極大地提高企業(yè)管理中的效率，也是學(xué)校的科學(xué)化、正規(guī)化、信息化管理，與世界接軌的重要條件。</p><p><b>　　1.2 可行性分析</b></p><p><b>　　1.可行性分析</b></p><p>　　可行性分析

12、是在進(jìn)行初步調(diào)查后所進(jìn)行的對系統(tǒng)開發(fā)必要性和可能性的研究，所以也稱為可行性研究。信息系統(tǒng)也應(yīng)從技術(shù)可行性，經(jīng)濟(jì)可行性和社會可行性三方面來論證。通過長時間的觀察與實(shí)踐，我認(rèn)為訂單管理系統(tǒng)的可行性分析如下：</p><p>　　（1）經(jīng)濟(jì)可行性分析</p><p>　　現(xiàn)在,計(jì)算機(jī)的價格已經(jīng)十分低廉,性能卻有了長足的進(jìn)步.而本系統(tǒng)的開發(fā),為企業(yè)的工作效率帶來了一個質(zhì)的飛躍,為此主要表現(xiàn)在以下幾

13、個方面:</p><p>　　本系統(tǒng)的運(yùn)行可以代替人工進(jìn)行許多繁雜的勞動；</p><p>　　本系統(tǒng)的運(yùn)行可以節(jié)省許多資源；</p><p>　　本系統(tǒng)的運(yùn)行可以大大的提高企業(yè)的工作效率；</p><p>　　本系統(tǒng)可以使敏感文檔更加安全，等等。</p><p>　　所以，本系統(tǒng)在經(jīng)濟(jì)上是可行的</p>

14、<p>　　（2）技術(shù)可行性分析</p><p>　　本系統(tǒng)采用面向?qū)ο蟮能浖_發(fā)辦法，以Microsoft公司的可視開發(fā)環(huán)境 Visual Basic6.0 作為主要開發(fā)工具，使用Microsoft Access 2000作為關(guān)系數(shù)據(jù)庫，并為VB編程語言中采用ADO數(shù)據(jù)庫編程模型，配合功能強(qiáng)大的SQL查詢語言實(shí)現(xiàn)建立關(guān)系數(shù)據(jù)庫，訪問數(shù)據(jù)庫，對數(shù)據(jù)庫的更新，較好地實(shí)現(xiàn)了預(yù)定的需求功能。利用其提供的各

15、種面向?qū)ο蟮拈_發(fā)工具，尤其是數(shù)據(jù)窗口這一功能方便而簡潔操縱數(shù)據(jù)庫的智能化對象，首先在短時間內(nèi)建立系統(tǒng)應(yīng)用原型，然后，對初始原型系統(tǒng)進(jìn)行需求迭代，不斷修正和改進(jìn)，直到形成較為完善的可行系統(tǒng)。</p><p>　　（3）操作可行性分析</p><p>　　由于現(xiàn)在的科技的飛速發(fā)展，計(jì)算機(jī)早已普及世界的方方面面，便利的科技條件，給人們帶來優(yōu)越的工作環(huán)境，這也使人們對工作效率及可操作性都有了更高的

16、要求。因此，管理形式的計(jì)算機(jī)是社會發(fā)展的必然趨勢，各種智能化的軟件層出不窮，減少了原來人工操作的費(fèi)時費(fèi)力的狀況，從而提高了工作效率和準(zhǔn)確度。本系統(tǒng)為一個小型的企業(yè)訂單信息管理系統(tǒng)，所耗費(fèi)的資源非常小，學(xué)校的電腦無論是硬件還是軟件都能夠滿足條件，因此，本系統(tǒng)在運(yùn)行上是可行的。</p><p>　　1.3 設(shè)計(jì)任務(wù)分工說明</p><p><b>　　文字整理：李玉鑫</b&g

17、t;</p><p><b>　　資料收集：林濤</b></p><p><b>　　程序設(shè)計(jì)：李鵬鵬</b></p><p><b>　　校正：李鵬鵬</b></p><p><b>　　2 系統(tǒng)分析</b></p><p>　　

18、2.1 系統(tǒng)功能分析</p><p>　　企業(yè)訂單管理系統(tǒng)是一個企事業(yè)單位不可缺少的一部分,它的內(nèi)容對于企業(yè)的管理來說都是至關(guān)重要的，因此，企業(yè)訂單管理系統(tǒng)應(yīng)該能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄?，但一直以來人們使用傳統(tǒng)的人工方式管理訂單，這種管理方式存在著許多缺點(diǎn)，諸如效率低，保密性差等，而且時間一長，將產(chǎn)生大量的文件和數(shù)據(jù)，這對于查找、更新和維護(hù)都帶來了不少的困難。隨著科學(xué)技術(shù)的不斷提高，計(jì)算機(jī)科學(xué)不斷發(fā)

19、展，其強(qiáng)大的功能已經(jīng)被人們深刻認(rèn)識，它已經(jīng)進(jìn)入了人類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。</p><p>　　2.2 系統(tǒng)流程分析</p><p>　　經(jīng)過仔細(xì)的需求分析，對訂單信息管理系統(tǒng)業(yè)務(wù)流程作出以下描述：管理員登錄系統(tǒng)后管理系統(tǒng)，如訂單信息，客戶信息，商品信息等。負(fù)責(zé)將訂單的基本信息錄入系統(tǒng)中，并且根據(jù)需求進(jìn)行增加、刪減以及修改。</p><p>　　2

20、.2.1 業(yè)務(wù)流程圖</p><p>　　圖2.1 業(yè)務(wù)流程圖</p><p>　　2.2.2 數(shù)據(jù)流程圖</p><p>　　數(shù)據(jù)流程圖主要是使整個流程簡單明了的展現(xiàn)出來，首先是管理員登陸，輸入登陸賬號以及密碼即可進(jìn)入訂單信息管理系統(tǒng)。在主窗體里可查詢客戶信息，添加客戶信息，刪除客戶信息；添加訂單信息，刪除訂單信息，修改訂單信息；添加商品信息，修改商品信息，刪除商

21、品信息以及做訂單錄入工作。最后這些信息全都展現(xiàn)給用戶及管理員。</p><p><b>　　客戶信息</b></p><p><b>　　訂單信息</b></p><p>　　用戶登錄信息商品信息</p><p><b>　　訂單錄入</b></p><p

22、><b>　　訂單查詢</b></p><p><b>　　圖2.2</b></p><p><b>　　圖2.3</b></p><p>　　2.3 系統(tǒng)性能分析</p><p>　　訂單管理系統(tǒng)主要是對訂單執(zhí)行的管理，即對訂單情況的記錄、跟蹤和控制，包括針對合同的執(zhí)行

23、，控制訂貨價格、數(shù)量和客戶、業(yè)務(wù)員信用管理、隨時對訂單完成情況進(jìn)行跟蹤、控制訂單的實(shí)際執(zhí)行。通過這個系統(tǒng)，工作人員可以更加方便快捷的實(shí)現(xiàn)對訂單的一系列管理。</p><p><b>　　3 系統(tǒng)設(shè)計(jì)</b></p><p>　　3.1 物理配置方案設(shè)計(jì)</p><p>　　本系統(tǒng)采用面向?qū)ο蟮能浖_發(fā)辦法，以Microsoft公司的可視開發(fā)環(huán)境

24、 Visual Basic6.0 作為主要開發(fā)工具，使用Microsoft Access 2000作為關(guān)系數(shù)據(jù)庫，并為VB編程語言中采用ADO數(shù)據(jù)庫編程模型，配合功能強(qiáng)大的SQL查詢語言實(shí)現(xiàn)建立關(guān)系數(shù)據(jù)庫，放問數(shù)據(jù)庫，對數(shù)據(jù)庫的更新，較好地實(shí)現(xiàn)了預(yù)定的需求功能。</p><p><b>　　3.2 數(shù)據(jù)庫設(shè)計(jì)</b></p><p><b>　　圖3.1訂

25、單信息表</b></p><p><b>　　圖3.2客戶信息表</b></p><p><b>　　圖3.3商品信息表</b></p><p>　　圖3.4管理員信息表</p><p>　　3.3 操作數(shù)據(jù)庫設(shè)計(jì)</p><p>　　1、使用DATA控件連接數(shù)據(jù)

26、庫</p><p>　　在硬盤的用戶盤上建立一個用戶目錄（如E:\WORK），用于保存所有實(shí)驗(yàn)文件。啟動ACCESS，找到數(shù)據(jù)庫WLGL,確認(rèn)有貨物表，并已經(jīng)錄入了多條數(shù)據(jù)。將WLGL數(shù)據(jù)庫打開，轉(zhuǎn)化97格式的數(shù)據(jù)庫，取名WLGL-97，復(fù)制到用戶目錄下。</p><p>　　啟動VB，在窗體上加入DATA控件data1，文本框控件text1，保存文件和工程到用戶目錄下。</p>

27、;<p>　　設(shè)置DATA控件的databasename屬性為WLGL-97，設(shè)置DATA控件的Recordsource屬性為貨物表。設(shè)置文本框控件的datasource屬性為data1,設(shè)置文本框控件的datafield屬性為貨物名稱。</p><p>　　運(yùn)行程序，查看結(jié)果。修改上述文本框控件的datafield屬性，查看結(jié)果。添加其他文本框控件，設(shè)置屬性，顯示更多的貨物表內(nèi)容。</p&g

28、t;<p>　　2、使用ADODC控件連接數(shù)據(jù)庫</p><p>　　在硬盤的用戶盤上建立一個用戶目錄（如E:\WORK），用于保存所有實(shí)驗(yàn)文件。啟動ACCESS，找到數(shù)據(jù)庫WLGL,確認(rèn)有貨物表，并已經(jīng)錄入了多條數(shù)據(jù)。復(fù)制到用戶目錄下。</p><p>　　啟動VB,通過菜單 工程—部件—控件添加控件Microsoft ADO DATA CONTROL 6.0 和Micro

29、soft DATAgrid CONTROL 6.0。通過工具箱加兩個控件到窗體上。</p><p>　　設(shè)置ADODC的屬性，生成—提供程序—Microsoft JET 4.0 OLE DB；連接—WLGL—測試連接成功；記錄源—命令類型：2—表名稱：貨物表。設(shè)置datagrid控件屬性datasource為ADODC1.：</p><p>　　3、使用數(shù)據(jù)窗體設(shè)計(jì)器操作數(shù)據(jù)庫</p

30、><p>　　在硬盤的用戶盤上建立一個用戶目錄（如E:\WORK），用于保存所有實(shí)驗(yàn)文件。啟動ACCESS，找到數(shù)據(jù)庫WLGL,確認(rèn)有貨物表，并已經(jīng)錄入了多條數(shù)據(jù)。將WLGL數(shù)據(jù)庫打開，轉(zhuǎn)化97格式的數(shù)據(jù)庫，取名WLGL-97，復(fù)制到用戶目錄下。</p><p>　　啟動VB,通過菜單 外接程序—可視化數(shù)據(jù)管理器，在visdata界面上文件--打開數(shù)據(jù)庫—Microsoft ACCESS- W

31、LGL-97,實(shí)用程序--數(shù)據(jù)窗體設(shè)計(jì)器—窗體名稱:huowu—記錄源：貨物表—添加使用的多個字段到右側(cè)—生成窗體—關(guān)閉。</p><p>　　對自動生成的窗體，重新排列位置、設(shè)置字體大小，顏色，控件長度等，調(diào)整界面美觀大方，不留空白，不顯擁擠。</p><p>　　4、使用ADO對象訪問數(shù)據(jù)庫</p><p>　　在硬盤的用戶盤上建立一個用戶目錄（如E:\WORK

32、），用于保存所有實(shí)驗(yàn)文件。啟動ACCESS，找到數(shù)據(jù)庫WLGL,確認(rèn)有貨物表，并已經(jīng)錄入了多條數(shù)據(jù)。復(fù)制到用戶目錄下。</p><p>　　啟動VB,通過菜單 工程—引用 添加Microsoft ActiveX DATA Objects2.5.窗體上添加按鈕控件，添加list控件list1,編寫單擊事件如下：</p><p>　　Dim i%, j%</p><p>

33、;　　Dim ans1 As New ADODB.Connection</p><p>　　Dim com1 As New ADODB.Command</p><p>　　Dim rst1 As New ADODB.Recordset</p><p>　　ans1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist

34、 Security Info=False;Data Source= E:\WORK\WLGL.mdb"</p><p>　　Set com1.ActiveConnection = ans1</p><p>　　com1.CommandText = "select * from 貨物表"</p><p>　　rst1.Open com1,

35、 , adOpenDynamic, adLockOptimistic</p><p>　　rst1.MoveFirst</p><p>　　i = rst1.RecordCount</p><p>　　For i = 0 To 15</p><p>　　List1.AddItem rst1.Fields(1).Value</p>

36、<p>　　For j = 0 To 6</p><p>　　Print rst1.Fields(j);</p><p><b>　　Next j</b></p><p>　　rst1.MoveNext</p><p><b>　　Print</b></p><p&g

37、t;<b>　　Next i</b></p><p><b>　　3.4 界面設(shè)計(jì)</b></p><p><b>　　3.4.1用戶登錄</b></p><p>　　系統(tǒng)登錄控制，必須使用用戶名和密碼登錄后才能使用系統(tǒng)</p><p><b>　　代碼如下</

38、b></p><p>　　Option Explicit</p><p>　　Public LoginSucceeded As Boolean</p><p>　　Private Sub cmdcancel_Click()</p><p>　　'設(shè)置全局變量為 false</p><p><b>

39、;　　'不提示失敗的登錄</b></p><p>　　LoginSucceeded = False</p><p><b>　　Me.Hide</b></p><p><b>　　End</b></p><p><b>　　End Sub</b></p

40、><p>　　Private Sub cmdOK_Click()</p><p>　　Dim cn As New ADODB.Connection</p><p>　　Dim rs As New ADODB.Recordset</p><p>　　Dim constr As String</p><p>　　cn.Open

41、 "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\ddgl.mdb;Persist Security Info=False"</p><p>　　If Trim(txtUserName.Text) = "" Then</p><p>　　

42、MsgBox ("請輸入用戶名")</p><p>　　txtUserName.SetFocus</p><p><b>　　Else</b></p><p>　　rs.Open "select * from 用戶管理 where id='" & Trim(txtUserName.Text

43、) & "'", cn, adOpenDynamic, adLockOptimistic</p><p>　　If rs.BOF And rs.EOF Then</p><p>　　MsgBox ("不存在該用戶，請重新輸入用戶名")</p><p>　　txtUserName.SetFocus</p&g

44、t;<p>　　Else ' 若用戶未指定列名</p><p>　　If txtPassword = rs.Fields("mima") Then</p><p>　　LoginSucceeded = True</p><p><b>　　Me.Hide<

45、/b></p><p>　　MDIForm1.Show</p><p><b>　　Else</b></p><p>　　MsgBox "密碼錯誤，請重試!", , "登錄"</p><p>　　txtPassword.SetFocus</p><p>

46、;　　SendKeys "{Home}+{End}"</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End Sub&

47、lt;/b></p><p>　　Private Sub Form_Load()</p><p>　　Me.Picture = LoadPicture(App.Path & "\11.jpg")</p><p><b>　　End Sub</b></p><p><b>　　3

48、.4.2主窗體</b></p><p><b>　　代碼如下：</b></p><p>　　Private Sub gbxt_Click()</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p>

49、;<p>　　Private Sub gzryjbxxcx_Click()</p><p><b>　　End Sub</b></p><p>　　Private Sub gzryjbxxsr_Click()</p><p><b>　　End Sub</b></p><p>　　Pr

50、ivate Sub kcbdjxgxxcx_Click()</p><p>　　frkccx.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub kcbdjxgxxsr_Click()</p><p><b>　　End Sub</b></

51、p><p>　　Private Sub Picture1_Click()</p><p><b>　　End Sub</b></p><p>　　Private Sub ddlr_Click()</p><p>　　fxsddlr.Show</p><p><b>　　End Sub<

52、/b></p><p>　　Private Sub ddxxcx_Click()</p><p>　　fxsddxxcx.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub khxxgl_Click()</p><p>　　fxskhxx

53、gl.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub MDIForm_Load()</p><p><b>　　End Sub</b></p><p>　　Private Sub qxjmmsz_Click()</p><

54、p>　　frmmxg.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub xscjc_Click()</p><p>　　fxskhxxgl.Show</p><p><b>　　End Sub</b></p><p&g

55、t;　　Private Sub yspsxxcx_Click()</p><p>　　frysxxcx.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub xsyjbxxsr_Click()</p><p>　　fxsddlr.Show</p><

56、p><b>　　End Sub</b></p><p>　　Private Sub xxzyxxb_Click()</p><p>　　fxsddxxcx.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub spxxcx_Click()&l

57、t;/p><p>　　fxsspxxcxb.Show</p><p><b>　　End Sub</b></p><p><b>　　3.4.3訂單錄入</b></p><p>　　訂單信息管理，管理訂單信息，可以添加、修改和刪除訂單信息，在增加訂單時需要使用的產(chǎn)品信息和經(jīng)銷商信息必須首先通過產(chǎn)品信息管

58、理和經(jīng)銷商信息管理功能添加； </p><p><b>　　代碼如下</b></p><p>　　Private Sub cmdadd_Click() '添加記錄</p><p>　　Adodc1.Recordset.AddNew</p><p>　　For i = 0 To 8</p>

59、<p>　　Text1(i).Enabled = True</p><p>　　Text1(i).Text = ""</p><p><b>　　Next i</b></p><p>　　Text1(0).SetFocus</p><p>　　cmdadd.Enabled = False&l

60、t;/p><p>　　cmddelete.Enabled = False</p><p>　　cmdedit.Enabled = False</p><p>　　cmdsave.Enabled = True</p><p>　　cmdcancel.Enabled = True</p><p><b>　　End

61、Sub</b></p><p>　　Private Sub cmdcancel_Click() '放棄修改</p><p>　　Adodc1.Recordset.CancelUpdate</p><p>　　For i = 0 To 8</p><p>　　Text1(i).Enabled = False</p

62、><p><b>　　Next i</b></p><p>　　cmdsave.Enabled = False</p><p>　　cmdcancel.Enabled = False</p><p>　　cmdadd.Enabled = True</p><p>　　cmdedit.Enabled =

63、 True</p><p>　　cmddelete.Enabled = True</p><p><b>　　End Sub</b></p><p>　　Private Sub cmddelete_Click()</p><p>　　Dim myval As String</p><p>　　my

64、val = MsgBox("是否要刪除該記錄？", vbYesNo)</p><p>　　If myval = vbYes Then</p><p>　　Adodc1.Recordset.Delete</p><p>　　Adodc1.Recordset.MoveNext</p><p>　　If Adodc1.Recor

65、dset.EOF Then</p><p>　　Adodc1.Recordset.MoveLast</p><p>　　For i = 0 To 8</p><p>　　Text1(i).Enabled = False</p><p><b>　　Next i</b></p><p><b&

66、gt;　　End If</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub cmdedit_Click()</p><p>　　If Adodc1.Recordset.RecordCou

67、nt <> 0 Then</p><p>　　For i = 0 To 8</p><p>　　Text1(i).Enabled = True</p><p><b>　　Next i</b></p><p>　　cmdsave.Enabled = True</p><p>　　cmd

68、cancel.Enabled = True</p><p>　　cmdadd.Enabled = False</p><p>　　cmdedit.Enabled = False</p><p>　　cmddelete.Enabled = False</p><p><b>　　Else</b></p>&l

69、t;p>　　MsgBox ("沒有要修改的記錄！")</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub cmdsave_Click() '保存記錄</p><p>

70、;　　If Text1(0).Text = "" Then</p><p>　　MsgBox "姓名不能為空！"</p><p>　　Text1(0).SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If<

71、/b></p><p>　　Adodc1.Recordset.Update</p><p>　　For i = 0 To 8</p><p>　　Text1(i).Enabled = False</p><p><b>　　Next i</b></p><p>　　cmdsave.Enabl

72、ed = False</p><p>　　cmdcancel.Enabled = False</p><p>　　cmdadd.Enabled = True</p><p>　　cmdedit.Enabled = True</p><p>　　cmddelete.Enabled = True</p><p><b

73、>　　End Sub</b></p><p>　　Private Sub cmdExit_Click() '退出</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　Private Sub F

74、orm_Load()</p><p>　　Me.Picture = LoadPicture(App.Path & "\12.jpg")</p><p><b>　　End Sub</b></p><p>　　3.4.4客戶信息管理</p><p>　　.經(jīng)銷商信息管理，管理訂單中的經(jīng)銷商信息，

75、可以查詢、添加、修改和刪除客戶信息。 </p><p><b>　　代碼如下</b></p><p>　　Private Sub cmdadd_Click() '添加記錄</p><p>　　Adodc1.Recordset.AddNew</p><p>　　For i = 0 To 6</p&g

76、t;<p>　　Text1(i).Enabled = True</p><p>　　Text1(i).Text = ""</p><p><b>　　Next i</b></p><p>　　Text1(0).SetFocus</p><p>　　cmdadd.Enabled = Fal

77、se</p><p>　　cmddelete.Enabled = False</p><p>　　cmdedit.Enabled = False</p><p>　　cmdsave.Enabled = True</p><p>　　cmdcancel.Enabled = True</p><p><b>　　

78、End Sub</b></p><p>　　Private Sub cmdcancel_Click() '放棄修改</p><p>　　Adodc1.Recordset.CancelUpdate</p><p>　　For i = 0 To 6</p><p>　　Text1(i).Enabled = False&l

79、t;/p><p><b>　　Next i</b></p><p>　　cmdsave.Enabled = False</p><p>　　cmdcancel.Enabled = False</p><p>　　cmdadd.Enabled = True</p><p>　　cmdedit.Enabl

80、ed = True</p><p>　　cmddelete.Enabled = True</p><p><b>　　End Sub</b></p><p>　　Private Sub cmddelete_Click()</p><p>　　Dim myval As String</p><p>

81、　　myval = MsgBox("是否要刪除該記錄？", vbYesNo)</p><p>　　If myval = vbYes Then</p><p>　　Adodc1.Recordset.Delete</p><p>　　Adodc1.Recordset.MoveNext</p><p>　　If Adodc1.R

82、ecordset.EOF Then</p><p>　　Adodc1.Recordset.MoveLast</p><p>　　For i = 0 To 6</p><p>　　Text1(i).Enabled = False</p><p><b>　　Next i</b></p><p>&l

83、t;b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub cmdedit_Click()</p><p>　　If Adodc1.Recordset.Recor

84、dCount <> 0 Then</p><p>　　For i = 0 To 6</p><p>　　Text1(i).Enabled = True</p><p><b>　　Next i</b></p><p>　　cmdsave.Enabled = True</p><p>　

85、　cmdcancel.Enabled = True</p><p>　　cmdadd.Enabled = False</p><p>　　cmdedit.Enabled = False</p><p>　　cmddelete.Enabled = False</p><p><b>　　Else</b></p>

86、<p>　　MsgBox ("沒有要修改的記錄！")</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub cmdsave_Click() '保存記錄</p><

87、p>　　If Text1(0).Text = "" Then</p><p>　　MsgBox "姓名不能為空！"</p><p>　　Text1(0).SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If

88、</b></p><p>　　Adodc1.Recordset.Update</p><p>　　For i = 0 To 6</p><p>　　Text1(i).Enabled = False</p><p><b>　　Next i</b></p><p>　　cmdsave.E

89、nabled = False</p><p>　　cmdcancel.Enabled = False</p><p>　　cmdadd.Enabled = True</p><p>　　cmdedit.Enabled = True</p><p>　　cmddelete.Enabled = True</p><p>&

90、lt;b>　　End Sub</b></p><p>　　Private Sub cmdExit_Click() '退出</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　Private S

91、ub Form_Load()</p><p>　　Me.Picture = LoadPicture(App.Path & "\12.jpg")</p><p><b>　　End Sub</b></p><p>　　3.4.5商品信息查詢表</p><p>　　用戶查詢，查詢系統(tǒng)中的商品信息，

92、可以選擇查詢方式，使用指定的方式查詢相應(yīng)的信息，并且以列表的形式顯示出來。</p><p><b>　　代碼如下：</b></p><p>　　Private Sub Command1_Click()</p><p>　　If Text1.Text = "" Then</p><p>　　MsgBox

93、 "請準(zhǔn)確輸入查詢內(nèi)容"</p><p><b>　　End If</b></p><p>　　If Combo1.Text = "商品名稱" Then</p><p>　　Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;D

94、ata Source=C:\Users\dell\Desktop\訂單管理系統(tǒng)\ddgl.mdb;Persist Security Info=False"</p><p>　　Adodc2.RecordSource = "select * from 商品信息管理 where 商品名稱 like '%" & Text1.Text & "%'&q

95、uot;</p><p>　　Adodc2.CommandType = adCmdText</p><p>　　Adodc2.Refresh</p><p>　　If Not Adodc2.Recordset.EOF Then</p><p>　　Text2.Text = Adodc2.Recordset.Fields("商品名稱&

96、quot;)</p><p>　　Text3.Text = Adodc2.Recordset.Fields("商品類型")</p><p>　　Text4.Text = Adodc2.Recordset.Fields("商品單價")</p><p>　　Text5.Text = Adodc2.Recordset.Fields(

97、"商品庫存")</p><p>　　Text6.Text = Adodc2.Recordset.Fields("所在倉庫")</p><p>　　Else: MsgBox "您所要查詢的內(nèi)容不存在！"</p><p><b>　　End If</b></p><p&

98、gt;<b>　　End If</b></p><p>　　If Combo1.Text = "商品類型" Then</p><p>　　Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\dell\Desktop\訂單管理系統(tǒng)\

99、ddgl.mdb;Persist Security Info=False"</p><p>　　Adodc2.RecordSource = "select * from 商品信息管理 where 商品類型 like '%" & Text1.Text & "%'"</p><p>　　Adodc2.Comman

100、dType = adCmdText</p><p>　　Adodc2.Refresh</p><p>　　If Not Adodc2.Recordset.EOF Then</p><p>　　Text2.Text = Adodc2.Recordset.Fields("商品名稱")</p><p>　　Text3.Text

101、= Adodc2.Recordset.Fields("商品類型")</p><p>　　Text4.Text = Adodc2.Recordset.Fields("商品單價")</p><p>　　Text5.Text = Adodc2.Recordset.Fields("商品庫存")</p><p>　　

102、Text6.Text = Adodc2.Recordset.Fields("所在倉庫")</p><p>　　Else: MsgBox "您所要查詢的內(nèi)容不存在！"</p><p><b>　　End If</b></p><p><b>　　End If</b></p>

103、<p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p>　　MDIForm1.Show</p><p>　　fryfxskhxxcxb.Hide</p><p><b>　　End Sub</b><

104、/p><p>　　Private Sub Form_Load()</p><p>　　Combo1.AddItem ("商品名稱")</p><p>　　Combo1.AddItem ("商品類型")</p><p>　　Me.Picture = LoadPicture(App.Path & &qu

105、ot;\12.jpg")</p><p><b>　　End Sub</b></p><p>　　3.4.6訂單信息查詢</p><p>　　用戶查詢，查詢系統(tǒng)中的訂單信息，可以選擇查詢方式，使用指定的方式查詢相應(yīng)的信息，并且以列表的形式顯示出來Private Sub Command1_Click()</p><p

106、><b>　　代碼如下：</b></p><p>　　If Text1.Text = "" Then</p><p>　　MsgBox "請準(zhǔn)確輸入查詢內(nèi)容"</p><p><b>　　End If</b></p><p>　　If Combo1.Te

107、xt = "訂單日期" Then</p><p>　　Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\dell\Desktop\訂單管理系統(tǒng)\ddgl.mdb;Persist Security Info=False"</p><p>　　

108、Adodc2.RecordSource = "select * from 訂單信息表 where 訂單日期 like '%" & Text1.Text & "%'"</p><p>　　Adodc2.CommandType = adCmdText</p><p>　　Adodc2.Refresh</p>

109、<p>　　If Not Adodc2.Recordset.EOF Then</p><p>　　Text2.Text = Adodc2.Recordset.Fields("下單日期")</p><p>　　Text3.Text = Adodc2.Recordset.Fields("下單公司")</p><p>　　

110、Text4.Text = Adodc2.Recordset.Fields("訂單號")</p><p>　　Text5.Text = Adodc2.Recordset.Fields("交貨日期")</p><p>　　Text6.Text = Adodc2.Recordset.Fields("訂單類型")</p>&

111、lt;p>　　Text7.Text = Adodc2.Recordset.Fields("訂單貨物")</p><p>　　Text8.Text = Adodc2.Recordset.Fields("訂單數(shù)量")</p><p>　　Text9.Text = Adodc2.Recordset.Fields("貨物單位")&l

112、t;/p><p>　　Text10.Text = Adodc2.Recordset.Fields("所在倉庫")</p><p>　　Else: MsgBox "您所要查詢的內(nèi)容不存在！"</p><p><b>　　End If</b></p><p><b>　　End

113、If</b></p><p>　　If Combo1.Text = "訂單號" Then</p><p>　　Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\dell\Desktop\訂單管理系統(tǒng)\ddgl.mdb;Persist Se

114、curity Info=False"</p><p>　　Adodc2.RecordSource = "select * from 訂單信息表 where 訂單號 like '%" & Text1.Text & "%'"</p><p>　　Adodc2.CommandType = adCmdText<

115、/p><p>　　Adodc2.Refresh</p><p>　　If Not Adodc2.Recordset.EOF Then</p><p>　　Text2.Text = Adodc2.Recordset.Fields("下單日期")</p><p>　　Text3.Text = Adodc2.Recordset.Fi

116、elds("下單公司")</p><p>　　Text4.Text = Adodc2.Recordset.Fields("訂單號")</p><p>　　Text5.Text = Adodc2.Recordset.Fields("交貨日期")</p><p>　　Text6.Text = Adodc2.Re

117、cordset.Fields("訂單類型")</p><p>　　Text7.Text = Adodc2.Recordset.Fields("訂單貨物")</p><p>　　Text8.Text = Adodc2.Recordset.Fields("訂單數(shù)量")</p><p>　　Text9.Text

118、= Adodc2.Recordset.Fields("貨物單位")</p><p>　　Text10.Text = Adodc2.Recordset.Fields("所在倉庫")</p><p>　　Else: MsgBox "您所要查詢的內(nèi)容不存在！"</p><p><b>　　End If&

119、lt;/b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p>　　MDIForm1.Show</p><p>　　fxsd

120、dxxcx.Hide</p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　Combo1.AddItem ("訂單日期")</p><p>　　Combo1.AddItem ("訂單號")<

121、/p><p>　　Me.Picture = LoadPicture(App.Path & "\12.jpg")</p><p><b>　　End Sub</b></p><p><b>　　4 總結(jié)</b></p><p>　　在本系統(tǒng)的開發(fā)過程中，由于我們是初次開發(fā)軟件，

122、在知識、經(jīng)驗(yàn)方面都存在著不足。因此，該系統(tǒng)必然會存在一些缺陷和不足。因?yàn)閷τ唵喂芾淼恼麄€流程不夠熟悉，在需求分析時未能做到完全滿足用戶的需求。而且在本次開發(fā)過程由于硬件的限制，未能實(shí)現(xiàn)網(wǎng)絡(luò)功能，因此在以后的系統(tǒng)更新過程中可能會造成一些不必要的數(shù)據(jù)損失。通過開發(fā)這個系統(tǒng)，我們掌握了項(xiàng)目的基本開發(fā)過程，了解了的基本知識鞏固了我對 Visual Basic 的學(xué)習(xí)，但在這次設(shè)計(jì)中的最大收獲并不是掌握這幾門開發(fā)工具的應(yīng)用，而是學(xué)會了設(shè)計(jì)系統(tǒng)的思

123、維方法，以及與同學(xué)們之間相互幫助的精神。</p><p><b>　　參考文獻(xiàn)</b></p><p>　　【1】高林，周海燕 .《管理信息系統(tǒng)與案例分析》 .2004版 .北京:人民郵電出版社,2004年11月:220頁.</p><p>　　【2】羅榜圣.《管理信息系統(tǒng)》.2005版.重慶:重慶大學(xué)出版社,2005年9月:323頁.<

124、/p><p>　　【3】陳佳編著.《信息系統(tǒng)開發(fā)方法教程》.2000版.北京：清華大學(xué)出版社，2000年3月：339頁</p><p>　　【4】薩師煊、王珊．《數(shù)據(jù)庫系統(tǒng)概論》[M]．北京高等教育出版社．2000．2</p><p>　　【5】明日科技．《Visual Basic數(shù)據(jù)庫開發(fā)關(guān)鍵技術(shù)與實(shí)例應(yīng)用》．人民郵電出版社．2004.5</p><

125、;p>　　【6】師向麗．面向自動化立體倉庫的倉儲管理系統(tǒng)的研究．華北工學(xué)院 中北大學(xué)：計(jì)算機(jī)應(yīng)用技術(shù).2004</p><p>　　【7】潘尤興．物流理論在物流信息系統(tǒng)開發(fā)過程中的應(yīng)用．北京物資學(xué)院：管理科學(xué)與工程．2005</p><p>　　【8】賀春婷．基于VB+ACCESS的汽車正向設(shè)計(jì)客戶需求分析系統(tǒng)．華中科技大學(xué)：電氣信息檢測技術(shù)．2008 </p><