【正文】 Static micount As Integer 39。用戶表屬性：用戶表：商品表屬性：商品表：管理員信息表屬性：管理員信息表：訂單信息表屬性：訂單信息表： 主體窗口Private Sub MDIForm_Load() Dim X0 As Long Dim Y0 As Long 39。 詳細設計class類：實現(xiàn)數(shù)據(jù)庫的連接字符串Register類：實現(xiàn)用戶注冊Login 類：登錄窗口類，用戶登錄時選擇用戶角色，進入員工操作界面。(1).系統(tǒng)界面上需要展現(xiàn)哪些數(shù)據(jù)(2).這些數(shù)據(jù)應該由誰來提供(3).這些數(shù)據(jù)是如何關(guān)聯(lián)的(4).這些工作現(xiàn)在是如何處理的?數(shù)據(jù)來自哪里?(5).數(shù)據(jù)完整性：3）數(shù)據(jù)庫完整性約束。舉例來說，如果客戶是單個人且需求很明確時，我們就不需要進行“搞清誰是誰”與“頭腦風暴”了。用戶權(quán)限管理。產(chǎn)品信息管理。商品銷售訂單管理系統(tǒng)正是在這種情況下誕生并逐漸發(fā)展起來的，它已成為我們進行商品交易中不可缺少的部分。 指導教師簽字：　　　　　 _____年____月____日　37 / 41目指導教師對課程設計的評語本系統(tǒng)是在分析了現(xiàn)行商品管理中存在的問題的基礎上，結(jié)合信息管理系統(tǒng)開發(fā)的概念、結(jié)構(gòu)及系統(tǒng)開發(fā)的基本原理和方法，開發(fā)的一套企業(yè)商品訂單管理系統(tǒng)。管理訂單中所使用的產(chǎn)品信息，可以瀏覽、增加、修改和刪除產(chǎn)品信息。本系統(tǒng)中實現(xiàn)了簡單的用戶權(quán)限管理，普通用戶僅能修改密碼，而管理員用戶則可以添加、修改、刪除用戶。當客戶的數(shù)據(jù)需要保密時，我們就不能“嘗試客戶的工作”了。(1).哪些數(shù)據(jù)是必須填寫的(一條客戶記錄必須有電話信息嗎)(2).數(shù)據(jù)的有效域是什么?(電話號碼是否有格式規(guī)定?地址數(shù)據(jù)應有多長) (3).系統(tǒng)中是否必須在定義了客戶之后才能下訂單(4).系統(tǒng)要求多高的可用性等級(系統(tǒng)需要724的可用性嗎?數(shù)據(jù)的備份頻率要多高)4）安全性：這些問題能幫助我們了解客戶對權(quán)限控制與審計方面的需求。管理員登錄時則進入相應的界面進行訂單信息操作。讓窗體居中 X0 = Y0 = X0 = (X0 ) / 2 Y0 = (Y0 ) / 2 X0, Y0End SubPrivate Sub mfdljm_Click() Unload MeEnd SubPrivate Sub mfexit_Click()EndEnd SubPrivate Sub Command1_Click()Static micount As Integer 39。用于記錄輸入密碼次數(shù)Dim sqlstr As Stringsqlstr = select * from 管理員信息表 where 管理員姓名=39。 Text1 amp。 39。 amp。x = MsgBox(確定要修改當前記錄嗎？, vbYesNo + vbQuestion, 確定)If x = vbYes Then (用戶名) = (商品號) = (數(shù)量) = (價格) = (ID) = (訂單號) = (聯(lián)系電話) = MsgBox 成功修改數(shù)據(jù)!!End IfEnd SubPrivate Sub Command5_Click()Dim str As Stringstr = Select 訂單信息表.* From 訂單信息表str = str amp。 Text1 amp。 where = 39。 39。 amp。x = MsgBox(確定要修改當前記錄嗎？, vbYesNo + vbQuestion, 確定)If x = vbYes Then(性別) = Text1(年齡) = Text2(工作) = Text3(聯(lián)系電話) = Text4(密碼) = Text5End IfEnd SubPrivate Sub Command2_Click()Dim x As Integerx = MsgBox(確認退出？, vbOKCancel, 提示)If x = vbOK Then Unload MeElseIf x = vbCancel ThenEnd IfEnd SubPrivate Sub Command3_Click()Dim str As Stringstr = select 管理員信息表.* From 管理員信息表str = str amp。 Text1 amp。因此系統(tǒng)的運行可靠性的。這使得系統(tǒng)具備了很好的交互性和可操作性。 = strEnd SubPrivate Sub Command2_Click() Dim x As Integerx = MsgBox(確認退出？, vbOKCancel, 提示)If x = vbOK Then Unload MeElseIf x = vbCancel ThenEnd IfEnd SubPrivate Sub Form_Load() Dim X0 As Long Dim Y0 As Long 39。 amp。 39。 where = 39。 Text6 amp。 = strEnd SubPrivate Sub Command2_Click() Dim x As Integerx = MsgBox(確認退出？, vbOKCancel