1、課程設(shè)計(jì)說(shuō)明書(shū)設(shè)計(jì)題目： 物流管理信息系統(tǒng)之訂單管理子系統(tǒng)設(shè)計(jì) 專 業(yè)： 設(shè) 計(jì) 人： _ _山東科技大學(xué)2014年 月 日課程設(shè)計(jì)任務(wù)書(shū)學(xué)院 機(jī)械電子工程學(xué)院 專業(yè) 班級(jí) 2011-2 姓名 一、課程設(shè)計(jì)題目：物流管理信息系統(tǒng)之訂單管理子系統(tǒng)設(shè)計(jì)二、課程設(shè)計(jì)內(nèi)容與要求：（1）設(shè)計(jì)一套訂單管理系統(tǒng)，要求能完成基本的訂單錄入、修改、刪除 （2）系統(tǒng)分為管理員登錄與用戶登錄兩大方向_（3）可注冊(cè)新用戶，用戶信息，管理員信息可修改_三、課程設(shè)計(jì)應(yīng)解決主要問(wèn)題：（1）主窗體與各個(gè)分窗體結(jié)構(gòu)設(shè)計(jì)_ _（2）程序與數(shù)據(jù)庫(kù)的連接_（3）各窗體具體代碼編寫_ _四、課程設(shè)計(jì)相關(guān)附件（如：圖紙、軟件等）（1）課

2、程設(shè)計(jì)說(shuō)明書(shū)一份 （2）存有設(shè)計(jì)內(nèi)容的光盤一張_五、任務(wù)發(fā)出日期： 2013-12-23 _ 課程設(shè)計(jì)完成日期： 2014-1-4 指導(dǎo)教師簽字：_ 系主任簽字：_指導(dǎo)教師對(duì)課程設(shè)計(jì)的評(píng)語(yǔ) 指導(dǎo)教師簽字： _年_月_日目錄 1課題簡(jiǎn)介31.1 課題研究目的和意義31.2 課題主要研究?jī)?nèi)容32系統(tǒng)分析42.1 業(yè)務(wù)流程圖42.2 用戶需求分析42.3 系統(tǒng)功能設(shè)計(jì)63系統(tǒng)設(shè)計(jì)63.1 總體設(shè)計(jì)63.2 詳細(xì)設(shè)計(jì)73.3 數(shù)據(jù)結(jié)構(gòu)設(shè)計(jì)74系統(tǒng)實(shí)施94.1 系統(tǒng)首界面94.2 登錄界面 11131517192426284.10 管理員信息修改界面 334.11 管理員查看用戶信息界面 356使用說(shuō)明

3、377參考資料37 在科學(xué)技術(shù)日新月異的今天，計(jì)算機(jī)已逐步滲入各個(gè)領(lǐng)域，隨著互聯(lián)網(wǎng)的普及，我們進(jìn)入了信息化的時(shí)代，人們只要在家中輕點(diǎn)幾下鼠標(biāo)就能輕松獲得各種信息，并且能夠購(gòu)買到自己需要的商品，既擺脫了時(shí)間和空間的限制又節(jié)約了大量的時(shí)間。商品銷售訂單管理系統(tǒng)正是在這種情況下誕生并逐漸發(fā)展起來(lái)的，它已成為我們進(jìn)行商品交易中不可缺少的部分。本系統(tǒng)是在分析了現(xiàn)行商品管理中存在的問(wèn)題的基礎(chǔ)上，結(jié)合信息管理系統(tǒng)開(kāi)發(fā)的概念、結(jié)構(gòu)及系統(tǒng)開(kāi)發(fā)的基本原理和方法，開(kāi)發(fā)的一套企業(yè)商品訂單管理系統(tǒng)。該系統(tǒng)目的在于同時(shí)滿足銷售方與用戶進(jìn)行訂單管理，進(jìn)而滿足經(jīng)營(yíng)管理運(yùn)作流程。并且操作方便、功能強(qiáng)大，即便操作者對(duì)計(jì)算機(jī)知識(shí)一

4、竅不通也可以熟練使用該系統(tǒng)，一用就會(huì)。1.2 課題研究的主要內(nèi)容企業(yè)訂單管理系統(tǒng)主要完成的內(nèi)容包括：系統(tǒng)登錄控制。必須使用用戶名和密碼登錄后才能使用系統(tǒng)。產(chǎn)品信息瀏覽。瀏覽系統(tǒng)中所有的產(chǎn)品信息，可以使用指定的關(guān)鍵詞查詢相應(yīng)的產(chǎn)品，并通過(guò)報(bào)表的形式將查詢結(jié)果輸出。產(chǎn)品信息管理。管理訂單中所使用的產(chǎn)品信息，可以瀏覽、增加、修改和刪除產(chǎn)品信息。訂單信息管理。管理訂單信息，可以瀏覽、增加、修改和刪除訂單信息，在增加訂單時(shí)需要使用的產(chǎn)品信息和客戶信息必須首先通過(guò)產(chǎn)品信息管理和客戶信息管理功能添加?？蛻粜畔g覽。瀏覽系統(tǒng)中所有的客戶信息，可以使用指定的關(guān)鍵字查詢相應(yīng)的客戶，并且可以使用報(bào)表的形式將查詢結(jié)果

5、輸出?？蛻粜畔⒐芾?。管理下訂單時(shí)客戶信息，可以瀏覽、增加、修改和刪除客戶信息。用戶權(quán)限管理。本系統(tǒng)中實(shí)現(xiàn)了簡(jiǎn)單的用戶權(quán)限管理，普通用戶僅能修改密碼，而管理員用戶則可以添加、修改、刪除用戶。利用系統(tǒng)分析和設(shè)計(jì)原理，采用面向?qū)ο蟮木幊谭椒?，通過(guò)用編寫企業(yè)訂單管理系統(tǒng)，用SQL Server 2000進(jìn)行數(shù)據(jù)庫(kù)建設(shè)與管理，實(shí)現(xiàn)了企業(yè)訂單管理的自動(dòng)化和信息化. 設(shè)計(jì)任何定制化產(chǎn)品都是一個(gè)“翻譯”的過(guò)程。我們需要把浮現(xiàn)在客戶腦海中的模糊想法、愿望挖掘出來(lái)，并“翻譯”成滿足他們需求的現(xiàn)實(shí)產(chǎn)品。這個(gè)“翻譯”過(guò)程的第一步就是理解用戶的需求。設(shè)計(jì)最好的訂單處理系統(tǒng)對(duì)于需要一個(gè)電路設(shè)計(jì)工具的客戶來(lái)說(shuō)毫無(wú)意義。我們

6、首先制定了一個(gè)計(jì)劃，其中包含挖掘客戶需求的一系列步驟。遵循這些步驟能更好地理解客戶需求，但在一些項(xiàng)目中我們不需要遵循所有的步驟。舉例來(lái)說(shuō)，如果客戶是單個(gè)人且需求很明確時(shí)，我們就不需要進(jìn)行“搞清誰(shuí)是誰(shuí)”與“頭腦風(fēng)暴”了。當(dāng)客戶的數(shù)據(jù)需要保密時(shí)，我們就不能“嘗試客戶的工作”了。在另一些項(xiàng)目中，調(diào)整這些步驟的順序會(huì)更為合適。例如我們可能在去拜訪客戶和觀察他們工作之前先進(jìn)行“頭腦風(fēng)暴”。 我們需要思考，向客戶問(wèn)些什么問(wèn)題可以幫助我們了解項(xiàng)目的目標(biāo)和要求。 以下幾個(gè)方面的問(wèn)題可以作為起始點(diǎn)。 1）功能與目標(biāo)。(1).系統(tǒng)應(yīng)該做些什么(2）.為什么你想建這個(gè)系統(tǒng)(3).系統(tǒng)看上去應(yīng)該是怎樣的(4).需要些

7、什么報(bào)表(5).用戶需要自己定義新報(bào)表嗎(6).系統(tǒng)的操作者會(huì)是誰(shuí)2）數(shù)據(jù)需求：這些問(wèn)題是為了弄清項(xiàng)目的數(shù)據(jù)需求。(1).系統(tǒng)界面上需要展現(xiàn)哪些數(shù)據(jù)(2).這些數(shù)據(jù)應(yīng)該由誰(shuí)來(lái)提供(3).這些數(shù)據(jù)是如何關(guān)聯(lián)的(4).這些工作現(xiàn)在是如何處理的?數(shù)據(jù)來(lái)自哪里?(5).數(shù)據(jù)完整性：3）數(shù)據(jù)庫(kù)完整性約束。(1).哪些數(shù)據(jù)是必須填寫的(一條客戶記錄必須有 信息嗎)(2).數(shù)據(jù)的有效域是什么?( 號(hào)碼是否有格式規(guī)定?地址數(shù)據(jù)應(yīng)有多長(zhǎng)) (3).系統(tǒng)中是否必須在定義了客戶之后才能下訂單(4).系統(tǒng)要求多高的可用性等級(jí)(系統(tǒng)需要724的可用性嗎?數(shù)據(jù)的備份頻率要多高)4）安全性：這些問(wèn)題能幫助我們了解客戶對(duì)權(quán)限

8、控制與審計(jì)方面的需求。(1).是否每個(gè)用戶都需要一個(gè)不同的密碼(2).是否需要控制不同的用戶所能訪問(wèn)的數(shù)據(jù)( 銷售代表有權(quán)限看到客戶的信用卡賬號(hào)，但訂單錄入專員卻不能) (3).存儲(chǔ)在數(shù)據(jù)庫(kù)中的數(shù)據(jù)是否需要加密(4).誰(shuí)做了什么操作是否需要記錄以便于審計(jì)( 記錄銷售代表提高客戶級(jí)別的操作，在需要時(shí)可以追溯操作的原因) 主要功能就是給用戶帶來(lái)信息的溝通，交流的便捷。訂單管理系統(tǒng)的主要功能是通過(guò)統(tǒng)一訂單提供用戶整合的一站式員工供應(yīng)鏈服務(wù)。訂單管理系統(tǒng)物流管理鏈條中的不可或缺的部分，通過(guò)對(duì)訂單的管理和分配，使 HYPERLINK :/baike.baidu /view/1367069.htm t _

9、blank 倉(cāng)儲(chǔ)管理和運(yùn)輸管理有機(jī)的結(jié)合，穩(wěn)定有效地實(shí)現(xiàn)物流管理中各個(gè)環(huán)節(jié)充分發(fā)揮作用，使倉(cāng)儲(chǔ)、運(yùn)輸、訂單成為一個(gè)有機(jī)整體，滿足 HYPERLINK :/baike.baidu /view/153887.htm t _blank 物流系統(tǒng)信息化的需求。訂單管理是對(duì)商戶下達(dá)的各種指令進(jìn)行管理、查詢、修改、打印等功能，同時(shí)將業(yè)務(wù)部門處理信息反饋至商戶。訂單管理系統(tǒng)一般包括：訂單處理，訂單確認(rèn)等。 該系統(tǒng)為了兩大部分：用戶登錄后的界面，管理員登錄后的界面。3.2 詳細(xì)設(shè)計(jì)class類：實(shí)現(xiàn)數(shù)據(jù)庫(kù)的連接字符串Register類：實(shí)現(xiàn)用戶注冊(cè)Login 類：登錄窗口類，用戶登錄時(shí)選擇用戶角色，進(jìn)入員工操

10、作界面。管理員登錄時(shí)則進(jìn)入相應(yīng)的界面進(jìn)行訂單信息操作。main類：實(shí)現(xiàn)系統(tǒng)功能的類，實(shí)現(xiàn)各模塊的功能。如訂單基本信息錄入，訂單提交，訂單退訂。刪除訂單信息，修改訂單信息，查看訂單信息。Main類：用戶操作界面，在此用戶可以查看訂單的信息，且可以訂單的提交和退訂。Adm 類：管理員操作頁(yè)面，在此管理員可以查看和處理所有客戶訂單信息，可以查看客戶基本信息以及個(gè)人信息。UserInfo 類：顯示用戶信息、用于管理員對(duì)客戶的信息查詢和處理。用戶表屬性：用戶表：商品表屬性：商品表：管理員信息表屬性：管理員信息表：訂單信息表屬性：訂單信息表：4.1 主體窗口Private Sub MDIForm_Load

11、() Dim X0 As Long Dim Y0 As Long 讓窗體居中 X0 = (X0 - Me.Width) / 2 Y0 = (Y0 - Me.Height) / 2 Me.Move X0, Y0End SubPrivate Sub mfdljm_Click() Unload MeEnd SubPrivate Sub mfexit_Click()EndEnd SubPrivate Sub Command1_Click()Static micount As Integer 用于記錄輸入密碼次數(shù)Dim sqlstr As Stringsqlstr = select * from 用戶信

12、息表 where 用戶名= & Text1 & Adodc1.RecordSource = sqlstrIf Adodc1.Recordset.BOF Then 若沒(méi)有找到符合where條件的記錄 MsgBox 姓名錯(cuò)誤，重新輸入, vbExclamation, 警告 Text1.Text = Text1.SetFocus text1獲得焦點(diǎn)Else If Adodc1.Recordset.Fields(密碼) = Text2 Then Unload Me Else MsgBox 密碼錯(cuò)誤，重新輸入, vbExclamation, 警告 Text2.Text = End IfEnd Ifmic

13、ount = micount + 1If micount = 3 Then Unload MeEnd SubPrivate Sub cmdcancel_click() Unload MeEnd SubPrivate Sub Command2_Click()Static micount As Integer 用于記錄輸入密碼次數(shù)Dim sqlstr As Stringsqlstr = select * from 管理員信息表 where 管理員姓名= & Text1 & Adodc2.RecordSource = sqlstrIf Adodc2.Recordset.BOF Then 若沒(méi)有找到符

14、合where條件的記錄 MsgBox 用戶名錯(cuò)誤，重新輸入, vbExclamation, 警告 Text1.Text = Text1.SetFocus text1獲得焦點(diǎn)Else If Adodc2.Recordset.Fields(密碼) = Text2 Then Unload Me Else MsgBox 密碼錯(cuò)誤，重新輸入, vbExclamation, 警告 Text2.Text = End IfEnd Ifmicount = micount + 1If micount = 3 Then Unload MeEnd SubPrivate Sub Command3_Click()End

15、SubPrivate Sub Command4_Click() Dim x As Integerx = MsgBox(確認(rèn)退出？, vbOKCancel, 提示)If x = vbOK Then Unload MeElseIf x = vbCancel ThenEnd IfEnd SubPrivate Sub Command1_Click()Dim sqlstr As StringIf Text1 = Then MsgBox 請(qǐng)輸入用戶名！, vbExclamation, 確認(rèn)密碼 Exit SubElse sqlstr = select * from 用戶信息表 where 用戶名= & T

16、ext1 & Adodc1.RecordSource = sqlstr Adodc1.Refresh 判斷用戶名是否已存在 If Adodc1.Recordset.EOF = False Then MsgBox 用戶已存在，請(qǐng)重新輸入, vbExclamation, 檢驗(yàn)用戶名 Text1 = Exit SubEnd IfEnd If判斷兩次密碼是否一致If Text2 Text3 ThenMsgBox 兩次輸入密碼不一致，請(qǐng)重新輸入, vbExclamation, 檢驗(yàn)密碼 Text2 = : Text3 = Exit SubElseIf Text2 = Then MsgBox 密碼不能為空

17、, vbExclamation, 檢驗(yàn)密碼Else Adodc1.Recordset.Fields(用戶名) = Trim(Text1) Adodc1.Recordset.Fields(密碼) = Trim(Text2) MsgBox 注冊(cè)已成功，請(qǐng)盡快完善個(gè)人信息 End IfEnd SubPrivate Sub Command2_Click()End SubPrivate Sub Command1_Click()Unload MeEnd SubPrivate Sub Command2_Click() Dim x As Integerx = MsgBox(確認(rèn)退出？, vbOKCancel,

18、 提示)If x = vbOK Then Unload MeElseIf x = vbCancel ThenUnload MeEnd IfEnd SubPrivate Sub Command1_Click()Dim str As Stringstr = Select 訂單信息表.* From 訂單信息表str = str & where 訂單信息表.ID = & Text5 & x = MsgBox(確定要修改當(dāng)前記錄嗎？, vbYesNo + vbQuestion, 確定)If x = vbYes Thenwsyhxx.Adodc1.Recordset.Fields(性別) = Text1w

19、syhxx.Adodc1.Recordset.Fields(年齡) = Text2wsyhxx.Adodc1.Recordset.Fields(工作) = Text3wsyhxx.Adodc1.Recordset.Fields(聯(lián)系 ) = Text4wsyhxx.Adodc1.Recordset.Fields(密碼) = Text5wsyhxx.Adodc1.Recordset.Fields(用戶名) = Text7End IfMsgBox 修改成功End SubPrivate Sub Command2_Click()x = MsgBox(未完善信息，現(xiàn)在退出？, vbOKCancel +

20、vbDefaultButton2, 提示)If x = vbOK Then Unload wsyhxxElseIf x = Cancel ThenEnd IfExit SubEnd SubPrivate Sub Command3_Click()Dim str As Stringstr = select 用戶信息表.* From 用戶信息表str = str & where 用戶信息表.用戶名 = & Text6 & Adodc1.RecordSource = strEnd SubPrivate Sub Command1_Click()MsgBox (訂單已經(jīng)成功添加)End SubPrivat

21、e Sub Command2_Click()Dim str As Stringstr = select 訂單信息表.* From 訂單信息表str = str & where 訂單信息表.ID = & Text9 & Adodc2.RecordSource = strEnd SubPrivate Sub Command3_Click()Text11.Text = Text1.Text = Text2.Text = Text3.Text = Text10.Text = Text12.Text = Text4.Text = End SubPrivate Sub Command4_Click()If

22、 Adodc2.Recordset.EOF = True Or Adodc2.Recordset.BOF = True Then MsgBox 請(qǐng)選擇要修改的行 Exit SubEnd IfDim str As Stringstr = Select 訂單信息表.* From 訂單信息表str = str & where 訂單信息表.ID = & Text9 & x = MsgBox(確定要修改當(dāng)前記錄嗎？, vbYesNo + vbQuestion, 確定)If x = vbYes Then MsgBox 成功修改數(shù)據(jù)!End IfEnd SubPrivate Sub Command5_Cli

23、ck()Dim str As Stringstr = Select 訂單信息表.* From 訂單信息表str = str & where 訂單信息表.ID = & Text9 & x = MsgBox(確實(shí)要?jiǎng)h除當(dāng)前記錄嗎？, vbYesNo + vbQuestion, 確定)If x = vbYes ThenElseIf Adodc2.Recordset.EOF ThenElseMsgBox (訂單已經(jīng)成功刪除)End IfEnd SubPrivate Sub Command6_Click()End SubPrivate Sub Command7_Click() Dim x As Inte

24、gerx = MsgBox(確認(rèn)退出？, vbOKCancel, 提示)If x = vbOK ThenUnload yhjmElseIf x = vbCancel ThenEnd IfEnd SubPrivate Sub Command1_Click()Dim str As Stringstr = Select 用戶信息表.* From 用戶信息表str = str & where 用戶信息表.用戶名 = & Text1 & Adodc1.RecordSource = strEnd SubPrivate Sub Command2_Click() Dim x As Integerx = Msg

25、Box(確認(rèn)退出？, vbOKCancel, 提示)If x = vbOK Then Unload MeElseIf x = vbCancel ThenEnd IfEnd SubPrivate Sub Command3_Click()End SubPrivate Sub Command1_Click()Dim str As Stringstr = Select 訂單信息表.* From 訂單信息表str = str & where 訂單信息表.ID = & Text5 & x = MsgBox(確定要修改當(dāng)前記錄嗎？, vbYesNo + vbQuestion, 確定)If x = vbYes

26、 Thenwsyhxx.Adodc1.Recordset.Fields(性別) = Text1wsyhxx.Adodc1.Recordset.Fields(年齡) = Text2wsyhxx.Adodc1.Recordset.Fields(工作) = Text3wsyhxx.Adodc1.Recordset.Fields(聯(lián)系 ) = Text4wsyhxx.Adodc1.Recordset.Fields(密碼) = Text5End IfMsgBox 修改成功End SubPrivate Sub Command2_Click()x = MsgBox(修改未成功, 0, 提示)Unload x

27、gyhxxExit SubEnd SubPrivate Sub Command3_Click()Dim str As Stringstr = select 用戶信息表.* From 用戶信息表str = str & where 用戶信息表.用戶名 = & Text6 & Adodc1.RecordSource = strEnd SubPrivate Sub Command1_Click()Dim str As Stringstr = select 訂單信息表.* From 訂單信息表str = str & where 訂單信息表.ID = & Text1 & Adodc1.RecordSour

28、ce = strEnd SubPrivate Sub Command2_Click()Dim str As Stringstr = Select 訂單信息表.* From 訂單信息表str = str & where 訂單信息表.ID = & Text1 & x = MsgBox(確實(shí)要?jiǎng)h除當(dāng)前記錄嗎？, vbYesNo + vbQuestion, 確定)If x = vbYes ThenIf Adodc1.Recordset.EOF ThenEnd IfElseMsgBox (訂單已經(jīng)成功刪除)End IfEnd SubPrivate Sub Command3_Click() Dim x A

29、s Integerx = MsgBox(確認(rèn)退出？, vbOKCancel, 提示)If x = vbOK Then Unload glyjmElseIf x = vbCancel ThenEnd IfEnd SubPrivate Sub Command4_Click()End SubPrivate Sub Command5_Click()If Adodc1.Recordset.EOF = True Or Adodc1.Recordset.BOF = True Then MsgBox 請(qǐng)選擇要修改的行 Exit SubEnd IfDim str As Stringstr = Select 訂單

30、信息表.* From 訂單信息表str = str & where 訂單信息表.ID = & Text5 & x = MsgBox(確定要修改當(dāng)前記錄嗎？, vbYesNo + vbQuestion, 確定)If x = vbYes Then MsgBox 成功修改數(shù)據(jù)!End IfEnd SubPrivate Sub Command6_Click()MsgBox (訂單已經(jīng)成功添加)End SubPrivate Sub Command7_Click()Text2 = Text3 = Text4 = Text5 = Text6 = Text7 = Text8 = End SubPrivate

31、Sub Command8_Click()End SubPrivate Sub Command1_Click()Dim str As Stringstr = Select 訂單信息表.* From 訂單信息表str = str & where 訂單信息表.ID = & Text5 & x = MsgBox(確定要修改當(dāng)前記錄嗎？, vbYesNo + vbQuestion, 確定)If x = vbYes ThenAdodc1.Recordset.Fields(性別) = Text1Adodc1.Recordset.Fields(年齡) = Text2Adodc1.Recordset.Field

32、s(工作) = Text3Adodc1.Recordset.Fields(聯(lián)系 ) = Text4Adodc1.Recordset.Fields(密碼) = Text5End IfEnd SubPrivate Sub Command2_Click()Dim x As Integerx = MsgBox(確認(rèn)退出？, vbOKCancel, 提示)If x = vbOK Then Unload MeElseIf x = vbCancel ThenEnd IfEnd SubPrivate Sub Command3_Click()Dim str As Stringstr = select 管理員信息表.* From 管理員信息表str = str & where 管理員信息表.ID = & Text6 & Adodc1.RecordSource = strEnd SubPrivate Sub Command4_Click()Text