物流管理信息系統(tǒng)之訂單管理子系統(tǒng)設(shè)計-課程設(shè)計說明書

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

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

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

4、竅不通也可以熟練使用該系統(tǒng)，一用就會。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)品，并通過報表的形式將查詢結(jié)果輸出。產(chǎn)品信息管理。管理訂單中所使用的產(chǎn)品信息，可以瀏覽、增加、修改和刪除產(chǎn)品信息。訂單信息管理。管理訂單信息，可以瀏覽、增加、修改和刪除訂單信息，在增加訂單時需要使用的產(chǎn)品信息和客戶信息必須首先通過產(chǎn)品信息管理和客戶信息管理功能添加?？蛻粜畔g覽。瀏覽系統(tǒng)中所有的客戶信息，可以使用指定的關(guān)鍵字查詢相應(yīng)的客戶，并且可以使用報表的形式將查詢結(jié)果

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

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

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

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

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

10、作界面。管理員登錄時則進(jìn)入相應(yīng)的界面進(jìn)行訂單信息操作。main類：實現(xiàn)系統(tǒng)功能的類，實現(xiàn)各模塊的功能。如訂單基本信息錄入，訂單提交，訂單退訂。刪除訂單信息，修改訂單信息，查看訂單信息。Main類：用戶操作界面，在此用戶可以查看訂單的信息，且可以訂單的提交和退訂。Adm 類：管理員操作頁面，在此管理員可以查看和處理所有客戶訂單信息，可以查看客戶基本信息以及個人信息。UserInfo 類：顯示用戶信息、用于管理員對客戶的信息查詢和處理。用戶表屬性：用戶表：商品表屬性：商品表：管理員信息表屬性：管理員信息表：訂單信息表屬性：訂單信息表：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 若沒有找到符合where條件的記錄 MsgBox 姓名錯誤，重新輸入, vbExclamation, 警告 Text1.Text = Text1.SetFocus text1獲得焦點Else If Adodc1.Recordset.Fields(密碼) = Text2 Then Unload Me Else MsgBox 密碼錯誤，重新輸入, 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 若沒有找到符

14、合where條件的記錄 MsgBox 用戶名錯誤，重新輸入, vbExclamation, 警告 Text1.Text = Text1.SetFocus text1獲得焦點Else If Adodc2.Recordset.Fields(密碼) = Text2 Then Unload Me Else MsgBox 密碼錯誤，重新輸入, 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 請輸入用戶名！, vbExclamation, 確認(rèn)密碼 Exit SubElse sqlstr = select * from 用戶信息表 where 用戶名= & T

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

17、, vbExclamation, 檢驗密碼Else Adodc1.Recordset.Fields(用戶名) = Trim(Text1) Adodc1.Recordset.Fields(密碼) = Trim(Text2) MsgBox 注冊已成功，請盡快完善個人信息 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 請選擇要修改的行 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(確實要刪除當(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(確實要刪除當(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 請選擇要修改的行 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