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

1、課程設(shè)計(jì)說明書      設(shè)計(jì)題目： 物流管理信息系統(tǒng)之訂單管理子系統(tǒng)設(shè)計(jì) 專 業(yè)： 設(shè) 計(jì) 人： _ _   山東科技大學(xué)2014年 月 日課程設(shè)計(jì)任務(wù)書 學(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)解決主要問題：（1）主窗體與各個(gè)分窗

2、體結(jié)構(gòu)設(shè)計(jì)_ _（2）程序與數(shù)據(jù)庫的連接_（3）各窗體具體代碼編寫_ _四、課程設(shè)計(jì)相關(guān)附件（如：圖紙、軟件等）（1）課程設(shè)計(jì)說明書一份 （2）存有設(shè)計(jì)內(nèi)容的光盤一張_五、任務(wù)發(fā)出日期： 2013-12-23 _ 課程設(shè)計(jì)完成日期： 2014-1-4 指導(dǎo)教師簽字：_ 系主任簽字：_ 指導(dǎo)教師對(duì)課程設(shè)計(jì)的評(píng)語         指導(dǎo)教師簽字： _年_月_日山東科技大學(xué)學(xué)生課程設(shè)計(jì)目      錄 1課題簡(jiǎn)介31.1 課題研究目的和意義31.2 課題

3、主要研究?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 登錄界面 114.3新用戶注冊(cè)界面134.4提示完善個(gè)人信息界面154.5用戶完善個(gè)人信息界面174.6用戶登錄界面194.7用戶查看個(gè)人信息界面244.8用戶完善個(gè)人信息界面264.9管理員登錄界面284.10 管理員信息修改界面 334.11 管理員查看用戶信息界面 356使用說明377參考資料371.課題簡(jiǎn)介1.1課題研究目的和意義  在科學(xué)技術(shù)日新月異的今天，計(jì)算機(jī)已逐步滲入各個(gè)

4、領(lǐng)域，隨著互聯(lián)網(wǎng)的普及，我們進(jìn)入了信息化的時(shí)代，人們只要在家中輕點(diǎn)幾下鼠標(biāo)就能輕松獲得各種信息，并且能夠購買到自己需要的商品，既擺脫了時(shí)間和空間的限制又節(jié)約了大量的時(shí)間。商品銷售訂單管理系統(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)目的在于同時(shí)滿足銷售方與用戶進(jìn)行訂單管理，進(jìn)而滿足經(jīng)營管理運(yùn)作流程。并且操作方便、功能強(qiáng)大，即便操作者對(duì)計(jì)算機(jī)知識(shí)一竅不通也可以熟練使用該系統(tǒng)，一用就會(huì)。1.2 課題研究的主要內(nèi)容企

5、業(yè)訂單管理系統(tǒng)主要完成的內(nèi)容包括：系統(tǒng)登錄控制。必須使用用戶名和密碼登錄后才能使用系統(tǒng)。產(chǎn)品信息瀏覽。瀏覽系統(tǒng)中所有的產(chǎn)品信息，可以使用指定的關(guān)鍵詞查詢相應(yīng)的產(chǎn)品，并通過報(bào)表的形式將查詢結(jié)果輸出。產(chǎn)品信息管理。管理訂單中所使用的產(chǎn)品信息，可以瀏覽、增加、修改和刪除產(chǎn)品信息。訂單信息管理。管理訂單信息，可以瀏覽、增加、修改和刪除訂單信息，在增加訂單時(shí)需要使用的產(chǎn)品信息和客戶信息必須首先通過產(chǎn)品信息管理和客戶信息管理功能添加。客戶信息瀏覽。瀏覽系統(tǒng)中所有的客戶信息，可以使用指定的關(guān)鍵字查詢相應(yīng)的客戶，并且可以使用報(bào)表的形式將查詢結(jié)果輸出?？蛻粜畔⒐芾怼９芾硐掠唵螘r(shí)客戶信息，可以瀏覽、增加、修改和刪

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

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

8、4).需要些什么報(bào)表(5).用戶需要自己定義新報(bào)表嗎(6).系統(tǒng)的操作者會(huì)是誰2）數(shù)據(jù)需求：這些問題是為了弄清項(xiàng)目的數(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ù)的有效域是什么?(電話號(hào)碼是否有格式規(guī)定?地址數(shù)據(jù)應(yīng)有多長(zhǎng)) (3).系統(tǒng)中是否必須在定義了客戶之后才能下訂單(4).系統(tǒng)要求多高的可用性等級(jí)(系統(tǒng)需要7×24的可用性嗎?數(shù)據(jù)的備份頻率要多高)4）安全性：這些

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

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

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

12、reen.Width Y0 = Screen.Height X0 = (X0 - Me.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 = &quo

13、t;select * from 用戶信息表 where 用戶名='" & Text1 & " '"Adodc1.RecordSource = sqlstrAdodc1.RefreshIf Adodc1.Recordset.BOF Then '若沒有找到符合where條件的記錄 MsgBox "姓名錯(cuò)誤，重新輸入", vbExclamation, "警告" Text1.Text = "" Text1.SetFocus 'text1獲得焦點(diǎn)Else If Ado

14、dc1.Recordset.Fields("密碼") = Text2 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 S

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

16、 vbExclamation, "警告" Text1.Text = "" 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 = mico

17、unt + 1If micount = 3 Then Unload MeEnd SubPrivate 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.新用戶注冊(cè)界面Private Sub

18、Command1_Click()Dim sqlstr As StringIf Text1 = " " Then MsgBox "請(qǐng)輸入用戶名！", vbExclamation, "確認(rèn)密碼" Text1.SetFocus Exit SubElse sqlstr = "select * from 用戶信息表 where 用戶名='" & Text1 & "'" Adodc1.RecordSource = sqlstr Adodc1.Refresh '判斷用戶

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

20、xt3 = "" Text2.SetFocus Exit SubElseIf Text2 = "" Then MsgBox "密碼不能為空", vbExclamation, "檢驗(yàn)密碼" Text2.SetFocusElse Adodc1.Recordset.AddNew Adodc1.Recordset.Fields("用戶名") = Trim(Text1) Adodc1.Recordset.Fields("密碼") = Trim(Text2) Adodc1.Records

21、et.Update Me.Hide MsgBox "注冊(cè)已成功，請(qǐng)盡快完善個(gè)人信息" 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, "提示&q

22、uot;)If x = vbOK Then Unload Me dljm.ShowElseIf x = vbCancel ThenUnload Metswsyhxx.ShowEnd IfEnd Sub4.5.用戶完善個(gè)人信息界面Private Sub Command1_Click()Dim str As Stringstr = "Select 訂單信息表.* From 訂單信息表"str = str & " where 訂單信息表.ID = '" & Text5 & "'"x = MsgBox(

23、"確定要修改當(dāng)前記錄嗎？", vbYesNo + vbQuestion, "確定")If x = vbYes Thenwsyhxx.Adodc1.Recordset.Fields("性別") = Text1wsyhxx.Adodc1.Recordset.Fields("年齡") = Text2wsyhxx.Adodc1.Recordset.Fields("工作") = Text3wsyhxx.Adodc1.Recordset.Fields("聯(lián)系電話") = Text4wsy

24、hxx.Adodc1.Recordset.Fields("密碼") = Text5wsyhxx.Adodc1.Recordset.Fields("用戶名") = Text7wsyhxx.Adodc1.Recordset.Updatewsyhxx.Adodc1.RefreshEnd IfMsgBox "修改成功"End SubPrivate Sub Command2_Click()x = MsgBox("未完善信息，現(xiàn)在退出？", vbOKCancel + vbDefaultButton2, "提示&quo

25、t;)If x = vbOK Then Unload wsyhxxElseIf x = Cancel Thenwsyhxx.ShowEnd IfExit SubEnd SubPrivate Sub Command3_Click()Dim str As Stringstr = "select 用戶信息表.* From 用戶信息表"str = str & " where 用戶信息表.用戶名 = '" & Text6 & "'"Adodc1.RecordSource = strAdodc1.Refre

26、shEnd Sub4.6.用戶登錄界面Private Sub Command1_Click()Adodc2.Recordset.AddNewAdodc2.Recordset.Fields("用戶名") = Text11.TextAdodc2.Recordset.Fields("商品號(hào)") = Text1.TextAdodc2.Recordset.Fields("數(shù)量") = Text2.TextAdodc2.Recordset.Fields("價(jià)格") = Text3.TextAdodc2.Recordset.Fi

27、elds("ID") = Text10.TextAdodc2.Recordset.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 & &quo

28、t; where 訂單信息表.ID = '" & Text9 & "'"Adodc2.RecordSource = strAdodc2.RefreshEnd SubPrivate Sub Command3_Click()Text11.Text = ""Text1.Text = ""Text2.Text = ""Text3.Text = ""Text10.Text = ""Text12.Text = ""Text4.

29、Text = ""End SubPrivate Sub Command4_Click()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 & "&

30、#39;"x = MsgBox("確定要修改當(dāng)前記錄嗎？", vbYesNo + vbQuestion, "確定")If x = vbYes Then yhjm.Adodc2.Recordset.Fields("用戶名") = Text11.Text yhjm.Adodc2.Recordset.Fields("商品號(hào)") = Text1.Text yhjm.Adodc2.Recordset.Fields("數(shù)量") = Text2.Text yhjm.Adodc2.Recordset.

31、Fields("價(jià)格") = Text3.Text yhjm.Adodc2.Recordset.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

32、SubPrivate Sub Command5_Click()Dim str As Stringstr = "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.

33、Recordset.MoveNextElseIf Adodc2.Recordset.EOF Then Adodc2.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 Th

34、en dljm.ShowUnload yhjmElseIf x = vbCancel Thenyhjm.ShowEnd IfEnd Sub4.7.用戶查看個(gè)人信息界面Private Sub Command1_Click()Dim str As Stringstr = "Select 用戶信息表.* From 用戶信息表"str = str & " where 用戶信息表.用戶名 = '" & Text1 & "'"Adodc1.RecordSource = strAdodc1.RefreshEn

35、d SubPrivate Sub Command2_Click() Dim x As Integerx = 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.用戶完善個(gè)人信息界面Private Sub Command1_Click()Dim str As Stringstr

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

37、("年齡") = Text2wsyhxx.Adodc1.Recordset.Fields("工作") = Text3wsyhxx.Adodc1.Recordset.Fields("聯(lián)系電話") = Text4wsyhxx.Adodc1.Recordset.Fields("密碼") = Text5wsyhxx.Adodc1.Recordset.Updatewsyhxx.Adodc1.RefreshEnd IfMsgBox "修改成功"End SubPrivate Sub Command2_Clic

38、k()x = MsgBox("修改未成功", 0, "提示")Unload xgyhxxExit SubEnd SubPrivate Sub Command3_Click()Dim str As Stringstr = "select 用戶信息表.* From 用戶信息表"str = str & " where 用戶信息表.用戶名 = '" & Text6 & "'"Adodc1.RecordSource = strAdodc1.RefreshEnd Su

39、b4.9.管理員登錄界面Private Sub Command1_Click()Dim str As Stringstr = "select 訂單信息表.* From 訂單信息表"str = str & " where 訂單信息表.ID = '" & Text1 & "'"Adodc1.RecordSource = strAdodc1.RefreshEnd SubPrivate Sub Command2_Click()Dim str As Stringstr = "Select 訂單信

40、息表.* From 訂單信息表"str = str & " where 訂單信息表.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.MoveLa

41、stEnd IfElse Adodc1.RefreshMsgBox ("訂單已經(jīng)成功刪除")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

42、 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 訂單信息表.* From 訂單信息表"str = str & " where 訂單信息表.ID = '" & Text5 & "'"x = MsgBox(&

43、quot;確定要修改當(dāng)前記錄嗎？", vbYesNo + vbQuestion, "確定")If x = vbYes Then glyjm.Adodc1.Recordset.Fields("用戶名") = Text2.Text glyjm.Adodc1.Recordset.Fields("商品號(hào)") = Text3.Text glyjm.Adodc1.Recordset.Fields("數(shù)量") = Text4.Text glyjm.Adodc1.Recordset.Fields("價(jià)格&quo

44、t;) = Text5.Text glyjm.Adodc1.Recordset.Fields("ID") = 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 C

45、ommand6_Click()Adodc1.Recordset.AddNewAdodc1.Recordset.Fields("用戶名") = Text2.TextAdodc1.Recordset.Fields("商品號(hào)") = Text3.TextAdodc1.Recordset.Fields("數(shù)量") = Text4.TextAdodc1.Recordset.Fields("價(jià)格") = Text5.TextAdodc1.Recordset.Fields("ID") = Text6.Text

46、Adodc1.Recordset.Fields("訂單號(hào)") = Text7.TextAdodc1.Recordset.Fields("聯(lián)系電話") = Text8.TextAdodc1.Recordset.UpdateAdodc1.RefreshMsgBox ("訂單已經(jīng)成功添加")End SubPrivate Sub Command7_Click()Text2 = ""Text3 = ""Text4 = ""Text5 = ""Text6 = &quo

47、t;"Text7 = ""Text8 = ""End SubPrivate Sub Command8_Click()xgglyxx.ShowEnd Sub4.10.管理員信息修改界面Private Sub Command1_Click()Dim str As Stringstr = "Select 訂單信息表.* From 訂單信息表"str = str & " where 訂單信息表.ID = '" & Text5 & "'"x = MsgBo

48、x("確定要修改當(dāng)前記錄嗎？", vbYesNo + vbQuestion, "確定")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 Thenxgglyxx.ShowEnd IfEnd SubPrivate Sub Comman