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

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

2、與數(shù)據(jù)庫(kù)的連接_（3）各窗體具體代碼編寫(xiě)_四、課程設(shè)計(jì)相關(guān)附件（如：圖紙、軟件等）（1）課程設(shè)計(jì)說(shuō)明書(shū)一份 （2）存有設(shè)計(jì)容的光盤(pán)一_五、任務(wù)發(fā)出日期： 2013-12-23 _ 課程設(shè)計(jì)完成日期： 2014-1-4 指導(dǎo)教師簽字：_ 系主任簽字：_ 指導(dǎo)教師對(duì)課程設(shè)計(jì)的評(píng)語(yǔ)        指導(dǎo)教師簽字： _年_月_日36 / 40目      錄 1課題簡(jiǎn)介31.1 課題研究目的和意義31.2 課題主要研究容32系統(tǒng)分析42.1 業(yè)務(wù)流程圖42

3、.2 用戶(hù)需求分析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 登錄界面 114.3新用戶(hù)注冊(cè)界面134.4提示完善個(gè)人信息界面154.5用戶(hù)完善個(gè)人信息界面174.6用戶(hù)登錄界面194.7用戶(hù)查看個(gè)人信息界面244.8用戶(hù)完善個(gè)人信息界面264.9管理員登錄界面284.10 管理員信息修改界面 334.11 管理員查看用戶(hù)信息界面 356使用說(shuō)明377參考資料371.課題簡(jiǎn)介1.1課題研究目的和意義 在科學(xué)技術(shù)日新月異的今天，計(jì)算機(jī)已逐步滲入各個(gè)領(lǐng)域，隨著互聯(lián)網(wǎng)的普與，我們進(jìn)入了信息化的時(shí)代，人

4、們只要在家中輕點(diǎn)幾下鼠標(biāo)就能輕松獲得各種信息，并且能夠購(gòu)買(mǎi)到自己需要的商品，既擺脫了時(shí)間和空間的限制又節(jié)約了大量的時(shí)間。商品銷(xiāo)售訂單管理系統(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í)滿(mǎn)足銷(xiāo)售方與用戶(hù)進(jìn)行訂單管理，進(jìn)而滿(mǎn)足經(jīng)營(yíng)管理運(yùn)作流程。并且操作方便、功能強(qiáng)大，即便操作者對(duì)計(jì)算機(jī)知識(shí)一竅不通也可以熟練使用該系統(tǒng)，一用就會(huì)。1.2 課題研究的主要容企業(yè)訂單管理系統(tǒng)主要完成的容包括：系統(tǒng)登錄控制。必須使

5、用用戶(hù)名和密碼登錄后才能使用系統(tǒng)。產(chǎn)品信息瀏覽。瀏覽系統(tǒng)中所有的產(chǎn)品信息，可以使用指定的關(guān)鍵詞查詢(xún)相應(yīng)的產(chǎn)品，并通過(guò)報(bào)表的形式將查詢(xún)結(jié)果輸出。產(chǎn)品信息管理。管理訂單中所使用的產(chǎn)品信息，可以瀏覽、增加、修改和刪除產(chǎn)品信息。訂單信息管理。管理訂單信息，可以瀏覽、增加、修改和刪除訂單信息，在增加訂單時(shí)需要使用的產(chǎn)品信息和客戶(hù)信息必須首先通過(guò)產(chǎn)品信息管理和客戶(hù)信息管理功能添加。客戶(hù)信息瀏覽。瀏覽系統(tǒng)中所有的客戶(hù)信息，可以使用指定的關(guān)鍵字查詢(xún)相應(yīng)的客戶(hù)，并且可以使用報(bào)表的形式將查詢(xún)結(jié)果輸出。客戶(hù)信息管理。管理下訂單時(shí)客戶(hù)信息，可以瀏覽、增加、修改和刪除客戶(hù)信息。用戶(hù)權(quán)限管理。本系統(tǒng)中實(shí)現(xiàn)了簡(jiǎn)單的用戶(hù)權(quán)限

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

7、系列步驟。遵循這些步驟能更好地理解客戶(hù)需求，但在一些項(xiàng)目中我們不需要遵循所有的步驟。舉例來(lái)說(shuō)，如果客戶(hù)是單個(gè)人且需求很明確時(shí)，我們就不需要進(jìn)行“搞清誰(shuí)是誰(shuí)”與“頭腦風(fēng)暴”了。當(dāng)客戶(hù)的數(shù)據(jù)需要時(shí)，我們就不能“嘗試客戶(hù)的工作”了。在另一些項(xiàng)目中，調(diào)整這些步驟的順序會(huì)更為合適。例如我們可能在去拜訪(fǎng)客戶(hù)和觀(guān)察他們工作之前先進(jìn)行“頭腦風(fēng)暴”。我們需要思考，向客戶(hù)問(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).需要些什么報(bào)表(5).用戶(hù)需要自己定義新報(bào)表嗎(6).系統(tǒng)

8、的操作者會(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ù)是必須填寫(xiě)的(一條客戶(hù)記錄必須有信息嗎)(2).數(shù)據(jù)的有效域是什么?(是否有格式規(guī)定?地址數(shù)據(jù)應(yīng)有多長(zhǎng)) (3).系統(tǒng)中是否必須在定義了客戶(hù)之后才能下訂單(4).系統(tǒng)要求多高的可用性等級(jí)(系統(tǒng)需要7×24的可用性嗎?數(shù)據(jù)的備份頻率要多高)4）安全性：這些問(wèn)題能幫助我們了解客戶(hù)對(duì)權(quán)限控制與審計(jì)方面的需求。(1).是否每個(gè)用戶(hù)都需要

9、一個(gè)不同的密碼(2).是否需要控制不同的用戶(hù)所能訪(fǎng)問(wèn)的數(shù)據(jù)( 銷(xiāo)售代表有權(quán)限看到客戶(hù)的信用卡賬號(hào)，但訂單錄入專(zhuān)員卻不能)(3).存儲(chǔ)在數(shù)據(jù)庫(kù)中的數(shù)據(jù)是否需要加密(4).誰(shuí)做了什么操作是否需要記錄以便于審計(jì)( 記錄銷(xiāo)售代表提高客戶(hù)級(jí)別的操作，在需要時(shí)可以追溯操作的原因)2.3系統(tǒng)功能設(shè)計(jì)主要功能就是給用戶(hù)帶來(lái)信息的溝通，交流的便捷。訂單管理系統(tǒng)的主要功能是通過(guò)統(tǒng)一訂單提供用戶(hù)整合的一站式員工供應(yīng)鏈服務(wù)。訂單管理系統(tǒng)物流管理鏈條中的不可或缺的部分，通過(guò)對(duì)訂單的管理和分配，使倉(cāng)儲(chǔ)管理和運(yùn)輸管理有機(jī)的結(jié)合，穩(wěn)定有效地實(shí)現(xiàn)物流管理中各個(gè)環(huán)節(jié)充分發(fā)揮作用，使倉(cāng)儲(chǔ)、運(yùn)輸、訂單成為一個(gè)有機(jī)整體，滿(mǎn)足物流系統(tǒng)信

10、息化的需求。訂單管理是對(duì)商戶(hù)下達(dá)的各種指令進(jìn)行管理、查詢(xún)、修改、打印等功能，同時(shí)將業(yè)務(wù)部門(mén)處理信息反饋至商戶(hù)。訂單管理系統(tǒng)一般包括：訂單處理，訂單確認(rèn)等。3.系統(tǒng)設(shè)計(jì)3.1總體設(shè)計(jì)該系統(tǒng)為了兩大部分：用戶(hù)登錄后的界面，管理員登錄后的界面。3.2 詳細(xì)設(shè)計(jì)class類(lèi)：實(shí)現(xiàn)數(shù)據(jù)庫(kù)的連接字符串Register類(lèi)：實(shí)現(xiàn)用戶(hù)注冊(cè)Login 類(lèi)：登錄窗口類(lèi)，用戶(hù)登錄時(shí)選擇用戶(hù)角色，進(jìn)入員工操作界面。管理員登錄時(shí)則進(jìn)入相應(yīng)的界面進(jìn)行訂單信息操作。main類(lèi)：實(shí)現(xiàn)系統(tǒng)功能的類(lèi)，實(shí)現(xiàn)各模塊的功能。如訂單基本信息錄入，訂單提交，訂單退訂。刪除訂單信息，修改訂單信息，查看訂單信息。Main類(lèi)：用戶(hù)操作界面，在此用

11、戶(hù)可以查看訂單的信息，且可以訂單的提交和退訂。Adm 類(lèi)：管理員操作頁(yè)面，在此管理員可以查看和處理所有客戶(hù)訂單信息，可以查看客戶(hù)基本信息以與個(gè)人信息。UserInfo 類(lèi)：顯示用戶(hù)信息、用于管理員對(duì)客戶(hù)的信息查詢(xún)和處理。3.3數(shù)據(jù)結(jié)構(gòu)設(shè)計(jì)用戶(hù)表屬性：用戶(hù)表：商品表屬性：商品表：管理員信息表屬性：管理員信息表：訂單信息表屬性：訂單信息表：4.程序?qū)嵤?.1 主體窗口Private Sub MDIForm_Load() Dim X0 As Long Dim Y0 As Long '讓窗體居中 X0 = Screen.Width Y0 = Screen.Height X0 = (X0 - M

12、e.Width) / 2 Y0 = (Y0 - Me.Height) / 2 Me.Move X0, Y0End SubPrivate Sub mfdljm_Click() dljm.Show Unload MeEnd SubPrivate Sub mfexit_Click()EndEnd Sub4.2登錄界面Private Sub Command1_Click()Static micount As Integer '用于記錄輸入密碼次數(shù)Dim sqlstr As Stringsqlstr = "select * from 用戶(hù)信息表 where 用戶(hù)名='"

13、; & Text1 & " '"Adodc1.RecordSource = sqlstrAdodc1.RefreshIf Adodc1.Recordset.BOF Then '若沒(méi)有找到符合where條件的記錄 MsgBox "錯(cuò)誤，重新輸入", vbExclamation, "警告" Text1.Text = "" Text1.SetFocus 'text1獲得焦點(diǎn)Else If Adodc1.Recordset.Fields("密碼") = Text2

14、 Then yhjm.Show Unload Me Else MsgBox "密碼錯(cuò)誤，重新輸入", vbExclamation, "警告" Text2.Text = "" Text2.SetFocus End IfEnd Ifmicount = micount + 1If micount = 3 Then Unload MeEnd SubPrivate Sub cmdcancel_click() Unload MeEnd SubPrivate Sub Command2_Click()Static micount As Integer

15、 '用于記錄輸入密碼次數(shù)Dim sqlstr As Stringsqlstr = "select * from 管理員信息表 where 管理員='" & Text1 & " '"Adodc2.RecordSource = sqlstrAdodc2.RefreshIf Adodc2.Recordset.BOF Then '若沒(méi)有找到符合where條件的記錄 MsgBox "用戶(hù)名錯(cuò)誤，重新輸入", vbExclamation, "警告" Text1.Text = &q

16、uot;" Text1.SetFocus 'text1獲得焦點(diǎn)Else If Adodc2.Recordset.Fields("密碼") = Text2 Then glyjm.Show Unload Me Else MsgBox "密碼錯(cuò)誤，重新輸入", vbExclamation, "警告" Text2.Text = "" Text2.SetFocus End IfEnd Ifmicount = micount + 1If micount = 3 Then Unload MeEnd SubPri

17、vate Sub Command3_Click() zcxyh.ShowEnd SubPrivate Sub Command4_Click() Dim x As Integerx = MsgBox("確認(rèn)退出？", vbOKCancel, "提示")If x = vbOK Then Unload Me MDIForm1.ShowElseIf x = vbCancel Thendljm.ShowEnd IfEnd Sub4.3.新用戶(hù)注冊(cè)界面Private Sub Command1_Click()Dim sqlstr As StringIf Text1 =

18、 " " Then MsgBox "請(qǐng)輸入用戶(hù)名！", vbExclamation, "確認(rèn)密碼" Text1.SetFocus Exit SubElse sqlstr = "select * from 用戶(hù)信息表 where 用戶(hù)名='" & Text1 & "'" Adodc1.RecordSource = sqlstr Adodc1.Refresh '判斷用戶(hù)名是否已存在 If Adodc1.Recordset.EOF = False Then Ms

19、gBox "用戶(hù)已存在，請(qǐng)重新輸入", vbExclamation, "檢驗(yàn)用戶(hù)名" Text1 = "" Text1.SetFocus Exit SubEnd IfEnd If'判斷兩次密碼是否一致If Text2 <> Text3 ThenMsgBox "兩次輸入密碼不一致，請(qǐng)重新輸入", vbExclamation, "檢驗(yàn)密碼" Text2 = "": Text3 = "" Text2.SetFocus Exit SubElse

20、If Text2 = "" Then MsgBox "密碼不能為空", vbExclamation, "檢驗(yàn)密碼" Text2.SetFocusElse Adodc1.Recordset.AddNew Adodc1.Recordset.Fields("用戶(hù)名") = Trim(Text1) Adodc1.Recordset.Fields("密碼") = Trim(Text2) Adodc1.Recordset.Update Me.Hide MsgBox "注冊(cè)已成功，請(qǐng)盡快完善個(gè)人信息

21、" tswsyhxx.Show End IfEnd SubPrivate Sub Command2_Click()zcxyh.Hidedljm.ShowEnd Sub4.4.提示完善個(gè)人信息界面Private Sub Command1_Click()wsyhxx.ShowUnload MeEnd SubPrivate Sub Command2_Click() Dim x As Integerx = MsgBox("確認(rèn)退出？", vbOKCancel, "提示")If x = vbOK Then Unload Me dljm.ShowElseI

22、f x = vbCancel ThenUnload Metswsyhxx.ShowEnd IfEnd Sub4.5.用戶(hù)完善個(gè)人信息界面Private Sub Command1_Click()Dim str As Stringstr = "Select 訂單信息表.* From 訂單信息表"str = str & " where 訂單信息表.ID = '" & Text5 & "'"x = MsgBox("確定要修改當(dāng)前記錄嗎？", vbYesNo + vbQuestion,

23、 "確定")If x = vbYes Thenwsyhxx.Adodc1.Recordset.Fields("性別") = Text1wsyhxx.Adodc1.Recordset.Fields("年齡") = Text2wsyhxx.Adodc1.Recordset.Fields("工作") = Text3wsyhxx.Adodc1.Recordset.Fields("聯(lián)系") = Text4wsyhxx.Adodc1.Recordset.Fields("密碼") = Te

24、xt5wsyhxx.Adodc1.Recordset.Fields("用戶(hù)名") = Text7wsyhxx.Adodc1.Recordset.Updatewsyhxx.Adodc1.RefreshEnd IfMsgBox "修改成功"End SubPrivate Sub Command2_Click()x = MsgBox("未完善信息，現(xiàn)在退出？", vbOKCancel + vbDefaultButton2, "提示")If x = vbOK Then Unload wsyhxxElseIf x = Canc

25、el Thenwsyhxx.ShowEnd IfExit SubEnd SubPrivate Sub Command3_Click()Dim str As Stringstr = "select 用戶(hù)信息表.* From 用戶(hù)信息表"str = str & " where 用戶(hù)信息表.用戶(hù)名 = '" & Text6 & "'"Adodc1.RecordSource = strAdodc1.RefreshEnd Sub4.6.用戶(hù)登錄界面Private Sub Command1_Click()A

26、dodc2.Recordset.AddNewAdodc2.Recordset.Fields("用戶(hù)名") = Text11.TextAdodc2.Recordset.Fields("商品號(hào)") = Text1.TextAdodc2.Recordset.Fields("數(shù)量") = Text2.TextAdodc2.Recordset.Fields("價(jià)格") = Text3.TextAdodc2.Recordset.Fields("ID") = Text10.TextAdodc2.Records

27、et.Fields("訂單號(hào)") = Text12.TextAdodc2.Recordset.Fields("聯(lián)系") = Text4.TextAdodc2.RefreshMsgBox ("訂單已經(jīng)成功添加")End SubPrivate Sub Command2_Click()Dim str As Stringstr = "select 訂單信息表.* From 訂單信息表"str = str & " where 訂單信息表.ID = '" & Text9 &

28、"'"Adodc2.RecordSource = strAdodc2.RefreshEnd SubPrivate Sub Command3_Click()Text11.Text = ""Text1.Text = ""Text2.Text = ""Text3.Text = ""Text10.Text = ""Text12.Text = ""Text4.Text = ""End SubPrivate Sub Command4_Cli

29、ck()If 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)前記錄嗎？", vbYe

30、sNo + vbQuestion, "確定")If x = vbYes Then yhjm.Adodc2.Recordset.Fields("用戶(hù)名") = Text11.Text yhjm.Adodc2.Recordset.Fields("商品號(hào)") = Text1.Text yhjm.Adodc2.Recordset.Fields("數(shù)量") = Text2.Text yhjm.Adodc2.Recordset.Fields("價(jià)格") = Text3.Text yhjm.Adodc2.Re

31、cordset.Fields("ID") = Text10.Text yhjm.Adodc2.Recordset.Fields("訂單號(hào)") = Text12.Text yhjm.Adodc2.Recordset.Fields("聯(lián)系") = Text4.Text yhjm.Adodc2.Recordset.Update yhjm.Adodc2.Refresh MsgBox "成功修改數(shù)據(jù)!"End IfEnd SubPrivate Sub Command5_Click()Dim str As Stringstr

32、= "Select 訂單信息表.* From 訂單信息表"str = str & " where 訂單信息表.ID = '" & Text9 & "'"x = MsgBox("確實(shí)要?jiǎng)h除當(dāng)前記錄嗎？", vbYesNo + vbQuestion, "確定")If x = vbYes Then Adodc2.Recordset.Delete Adodc2.Recordset.MoveNextElseIf Adodc2.Recordset.EOF Then A

33、dodc2.Recordset.MoveLastElse Adodc2.RefreshMsgBox ("訂單已經(jīng)成功刪除")End IfEnd SubPrivate Sub Command6_Click() cxyhxx.ShowEnd SubPrivate Sub Command7_Click() Dim x As Integerx = MsgBox("確認(rèn)退出？", vbOKCancel, "提示")If x = vbOK Then dljm.ShowUnload yhjmElseIf x = vbCancel Thenyhjm.

34、ShowEnd IfEnd Sub4.7.用戶(hù)查看個(gè)人信息界面Private Sub Command1_Click()Dim str As Stringstr = "Select 用戶(hù)信息表.* From 用戶(hù)信息表"str = str & " where 用戶(hù)信息表.用戶(hù)名 = '" & Text1 & "'"Adodc1.RecordSource = strAdodc1.RefreshEnd SubPrivate Sub Command2_Click() Dim x As Integerx

35、= MsgBox("確認(rèn)退出？", vbOKCancel, "提示")If x = vbOK Then yhjm.Show Unload MeElseIf x = vbCancel Thencxyhxx.ShowEnd IfEnd SubPrivate Sub Command3_Click()xgyhxx.ShowEnd Sub4.8.用戶(hù)完善個(gè)人信息界面Private Sub Command1_Click()Dim str As Stringstr = "Select 訂單信息表.* From 訂單信息表"str = str &am

36、p; " where 訂單信息表.ID = '" & Text5 & "'"x = MsgBox("確定要修改當(dāng)前記錄嗎？", vbYesNo + vbQuestion, "確定")If x = vbYes Thenwsyhxx.Adodc1.Recordset.Fields("性別") = Text1wsyhxx.Adodc1.Recordset.Fields("年齡") = Text2wsyhxx.Adodc1.Recordset.Fiel

37、ds("工作") = Text3wsyhxx.Adodc1.Recordset.Fields("聯(lián)系") = Text4wsyhxx.Adodc1.Recordset.Fields("密碼") = Text5wsyhxx.Adodc1.Recordset.Updatewsyhxx.Adodc1.RefreshEnd IfMsgBox "修改成功"End SubPrivate Sub Command2_Click()x = MsgBox("修改未成功", 0, "提示")Unl

38、oad xgyhxxExit SubEnd SubPrivate Sub Command3_Click()Dim str As Stringstr = "select 用戶(hù)信息表.* From 用戶(hù)信息表"str = str & " where 用戶(hù)信息表.用戶(hù)名 = '" & Text6 & "'"Adodc1.RecordSource = strAdodc1.RefreshEnd Sub4.9.管理員登錄界面Private Sub Command1_Click()Dim str As Str

39、ingstr = "select 訂單信息表.* From 訂單信息表"str = str & " where 訂單信息表.ID = '" & Text1 & "'"Adodc1.RecordSource = strAdodc1.RefreshEnd SubPrivate Sub Command2_Click()Dim str As Stringstr = "Select 訂單信息表.* From 訂單信息表"str = str & " where 訂單信息

40、表.ID = '" & Text1 & "'"x = MsgBox("確實(shí)要?jiǎng)h除當(dāng)前記錄嗎？", vbYesNo + vbQuestion, "確定")If x = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLastEnd IfElse Adodc1.RefreshMsgBox ("訂單已經(jīng)成功刪除"

41、;)End IfEnd SubPrivate Sub Command3_Click() Dim x As Integerx = MsgBox("確認(rèn)退出？", vbOKCancel, "提示")If x = vbOK Then dljm.Show Unload glyjmElseIf x = vbCancel Thenglyjm.ShowEnd IfEnd SubPrivate Sub Command4_Click() yhxxcx.ShowEnd SubPrivate Sub Command5_Click()If Adodc1.Recordset.EO

42、F = True Or Adodc1.Recordset.BOF = True Then MsgBox "請(qǐng)選擇要修改的行" Exit SubEnd IfDim str As Stringstr = "Select 訂單信息表.* From 訂單信息表"str = str & " where 訂單信息表.ID = '" & Text5 & "'"x = MsgBox("確定要修改當(dāng)前記錄嗎？", vbYesNo + vbQuestion, "確定

43、")If x = vbYes Then glyjm.Adodc1.Recordset.Fields("用戶(hù)名") = Text2.Text glyjm.Adodc1.Recordset.Fields("商品號(hào)") = Text3.Text glyjm.Adodc1.Recordset.Fields("數(shù)量") = Text4.Text glyjm.Adodc1.Recordset.Fields("價(jià)格") = Text5.Text glyjm.Adodc1.Recordset.Fields("I

44、D") = Text6.Text glyjm.Adodc1.Recordset.Fields("訂單號(hào)") = Text7.Text glyjm.Adodc1.Recordset.Fields("聯(lián)系") = Text8.Text glyjm.Adodc1.Recordset.Update glyjm.Adodc1.Refresh MsgBox "成功修改數(shù)據(jù)!"End IfEnd SubPrivate Sub Command6_Click()Adodc1.Recordset.AddNewAdodc1.Recordset.F

45、ields("用戶(hù)名") = Text2.TextAdodc1.Recordset.Fields("商品號(hào)") = Text3.TextAdodc1.Recordset.Fields("數(shù)量") = Text4.TextAdodc1.Recordset.Fields("價(jià)格") = Text5.TextAdodc1.Recordset.Fields("ID") = Text6.TextAdodc1.Recordset.Fields("訂單號(hào)") = Text7.TextAdo

46、dc1.Recordset.Fields("聯(lián)系") = Text8.TextAdodc1.Recordset.UpdateAdodc1.RefreshMsgBox ("訂單已經(jīng)成功添加")End SubPrivate Sub Command7_Click()Text2 = ""Text3 = ""Text4 = ""Text5 = ""Text6 = ""Text7 = ""Text8 = ""End SubPri

47、vate Sub Command8_Click()xgglyxx.ShowEnd Sub4.10.管理員信息修改界面Private Sub Command1_Click()Dim str As Stringstr = "Select 訂單信息表.* From 訂單信息表"str = str & " where 訂單信息表.ID = '" & Text5 & "'"x = MsgBox("確定要修改當(dāng)前記錄嗎？", vbYesNo + vbQuestion, "確定&

48、quot;)If x = vbYes ThenAdodc1.Recordset.Fields("性別") = Text1Adodc1.Recordset.Fields("年齡") = Text2Adodc1.Recordset.Fields("工作") = Text3Adodc1.Recordset.Fields("聯(lián)系") = Text4Adodc1.Recordset.Fields("密碼") = Text5Adodc1.Recordset.UpdateAdodc1.RefreshEnd IfEnd SubPrivate Sub Command2_Click()Dim x As Integerx = MsgBox("確認(rèn)退出？", vbOKCancel, "提示")If x = vbOK Then glyjm.Show Unload MeElseIf x = vbCancel Thenx