物流管理信息系統(tǒng)之訂單管理子系統(tǒng)設(shè)計課程設(shè)計說明書-wenkub
2023-05-02 23:47:11 本頁面
【正文】 我們就不需要進行“搞清誰是誰”與“頭腦風暴”了。這個“翻譯”過程的第一步就是理解用戶的需求。用戶權(quán)限管理?？蛻粜畔g覽。產(chǎn)品信息管理。 課題研究的主要內(nèi)容企業(yè)訂單管理系統(tǒng)主要完成的內(nèi)容包括：系統(tǒng)登錄控制。商品銷售訂單管理系統(tǒng)正是在這種情況下誕生并逐漸發(fā)展起來的，它已成為我們進行商品交易中不可缺少的部分。 指導(dǎo)教師簽字： _____年____月____日 37 / 41目 指導(dǎo)教師對課程設(shè)計的評語課程設(shè)計說明書本系統(tǒng)是在分析了現(xiàn)行商品管理中存在的問題的基礎(chǔ)上，結(jié)合信息管理系統(tǒng)開發(fā)的概念、結(jié)構(gòu)及系統(tǒng)開發(fā)的基本原理和方法，開發(fā)的一套企業(yè)商品訂單管理系統(tǒng)。必須使用用戶名和密碼登錄后才能使用系統(tǒng)。管理訂單中所使用的產(chǎn)品信息，可以瀏覽、增加、修改和刪除產(chǎn)品信息。瀏覽系統(tǒng)中所有的客戶信息，可以使用指定的關(guān)鍵字查詢相應(yīng)的客戶，并且可以使用報表的形式將查詢結(jié)果輸出。本系統(tǒng)中實現(xiàn)了簡單的用戶權(quán)限管理，普通用戶僅能修改密碼，而管理員用戶則可以添加、修改、刪除用戶。設(shè)計最好的訂單處理系統(tǒng)對于需要一個電路設(shè)計工具的客戶來說毫無意義。當客戶的數(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)限控制與審計方面的需求。訂單管理是對商戶下達的各種指令進行管理、查詢、修改、打印等功能，同時將業(yè)務(wù)部門處理信息反饋至商戶。管理員登錄時則進入相應(yīng)的界面進行訂單信息操作。Main類：用戶操作界面，在此用戶可以查看訂單的信息，且可以訂單的提交和退訂。讓窗體居中 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。 39。用于記錄輸入密碼次數(shù)Dim sqlstr As Stringsqlstr = select * from 管理員信息表 where 管理員姓名=39。 = sqlstrIf Then 39。 Text1 amp。判斷兩次密碼是否一致If Text2 Text3 ThenMsgBox 兩次輸入密碼不一致，請重新輸入, vbExclamation, 檢驗密碼 Text2 = : Text3 = Exit SubElseIf Text2 = Then MsgBox 密碼不能為空, vbExclamation, 檢驗密碼 Else (用戶名) = Trim(Text1) (密碼) = 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(確認退出？, vbOKCancel, 提示)If x = vbOK Then Unload Me ElseIf x = vbCancel ThenUnload MeEnd IfEnd SubPrivate Sub Command1_Click()Dim str As Stringstr = Select 訂單信息表.* From 訂單信息表str = str amp。 39。 Text6 amp。 amp。 where = 39。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。 39。 Text1 amp。 amp。 where = 39。 = strEnd SubPrivate Sub Command1_Click()Dim str As Stringstr = select 訂單信息表.* From 訂單信息表str = str amp。 39。 Text1 amp。 amp。 where = 39。x = MsgBox(確定要修改當前記錄嗎？, vbYesNo + vbQuestion, 確定)If x = vbYes Then(性別) = Text1(年齡) = T
公司管理相關(guān)推薦
鄂ICP備17016276號-1