物流管理信息系統(tǒng)之訂單管理子系統(tǒng)設(shè)計(jì)范本(完整版)
【正文】 Static micount As Integer 39。用戶表屬性：用戶表：商品表屬性：商品表：管理員信息表屬性：管理員信息表：訂單信息表屬性：訂單信息表： 主體窗口Private Sub MDIForm_Load() Dim X0 As Long Dim Y0 As Long 39。 詳細(xì)設(shè)計(jì)class類：實(shí)現(xiàn)數(shù)據(jù)庫(kù)的連接字符串Register類：實(shí)現(xiàn)用戶注冊(cè)Login 類：登錄窗口類，用戶登錄時(shí)選擇用戶角色，進(jìn)入員工操作界面。(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ù)完整性約束。舉例來(lái)說(shuō)，如果客戶是單個(gè)人且需求很明確時(shí)，我們就不需要進(jìn)行“搞清誰(shuí)是誰(shuí)”與“頭腦風(fēng)暴”了。用戶權(quán)限管理。產(chǎn)品信息管理。商品銷售訂單管理系統(tǒng)正是在這種情況下誕生并逐漸發(fā)展起來(lái)的，它已成為我們進(jìn)行商品交易中不可缺少的部分。 指導(dǎo)教師簽字： _____年____月____日 37 / 41目 指導(dǎo)教師對(duì)課程設(shè)計(jì)的評(píng)語(yǔ)本系統(tǒng)是在分析了現(xiàn)行商品管理中存在的問(wèn)題的基礎(chǔ)上，結(jié)合信息管理系統(tǒng)開發(fā)的概念、結(jié)構(gòu)及系統(tǒng)開發(fā)的基本原理和方法，開發(fā)的一套企業(yè)商品訂單管理系統(tǒng)。管理訂單中所使用的產(chǎn)品信息，可以瀏覽、增加、修改和刪除產(chǎn)品信息。本系統(tǒng)中實(shí)現(xiàn)了簡(jiǎn)單的用戶權(quán)限管理，普通用戶僅能修改密碼，而管理員用戶則可以添加、修改、刪除用戶。當(dāng)客戶的數(shù)據(jù)需要保密時(shí)，我們就不能“嘗試客戶的工作”了。(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)限控制與審計(jì)方面的需求。管理員登錄時(shí)則進(jìn)入相應(yīng)的界面進(jì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(確定要修改當(dāng)前記錄嗎？, vbYesNo + vbQuestion, 確定)If x = vbYes Then (用戶名) = (商品號(hào)) = (數(shù)量) = (價(jià)格) = (ID) = (訂單號(hào)) = (聯(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(確定要修改當(dāng)前記錄嗎？, vbYesNo + vbQuestion, 確定)If x = vbYes Then(性別) = Text1(年齡) = Text2(工作) = Text3(聯(lián)系電話) = Text4(密碼) = 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 amp。 Text1 amp。因此系統(tǒng)的運(yùn)行可靠性的。這使得系統(tǒng)具備了很好的交互性和可操作性。 = strEnd SubPrivate Sub Command2_Click() Dim x As Integerx = MsgBox(確認(rèn)退出？, 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(確認(rèn)退出？, vbOKCancel
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1