訂單管理信息系統(tǒng)論文-在線瀏覽
2024-11-13 13:32本頁面
【正文】 使用的產(chǎn)品信 息也應(yīng)該及時(shí)的刪除，在適當(dāng)?shù)臅r(shí)候，對某些商品信息可以添加、修改和刪除， 選擇“產(chǎn)品信息管理”→“商品信息查詢”菜單，可以有三種方式進(jìn)行查詢，分別為：按款號(hào)查詢；按產(chǎn)品名稱查詢；按產(chǎn)品類別查詢，再次， 在生成訂單的所有基本信息都具備的情況下，就可以直接調(diào)用客戶信息和產(chǎn)品信息來生成訂單，訂單生成后可以保存在數(shù)據(jù)庫中，在還沒有結(jié)算之前，還可以對訂單進(jìn)行適當(dāng)?shù)男薷?、刪除、查詢。如果用戶 3 次輸入密碼錯(cuò)誤，將退出程序。 客戶信息管理 客戶信息添加 客戶信息修改 客戶信息查詢 信息查看 信息修改 信息刪除 商品信息管理 商品信息添加 商品信息修改 商品信息查詢 信息查看 信息修改 信息刪除 訂單信息管理 生成訂單 訂單信息修改 訂單信息查詢 信息查看 信息修改 信息刪除 訂單信息管理系統(tǒng) 遼 寧 工 業(yè) 大 學(xué) 課 程 設(shè) 計(jì) 說 明 書（論 文） 4 表 控件 屬性 屬性取值 frmlogin(form) name frmlogin caption 登陸 startupposition centerscreen windowstate Normal txtUsername name txtUsername txt password name txt password Password char * CmdOK name CmdOK caption 確定 Cmdcancel name Cmdcancel caption 確定 Labal 1 caption 訂單信息管理系統(tǒng) Labal 2 caption 用戶名 Labal 3 caption 密碼 為窗體定義全局變量為 OK，用來判斷登陸是否成功；定義 micount,用來記載輸入密碼的次數(shù) ， 并且在載入窗體時(shí)初始化這兩個(gè)全局變量 。 下排按鈕用來方便的瀏覽數(shù)據(jù)庫中的各條記錄，右排按鈕用來修改記錄，由于記錄集為整個(gè)窗口公用，需要將記錄及對象定義為全局變量。 表 控件 屬性 屬性取值 frmproduct name frmkehu caption 添加商品信息 MDIChild True Txtproductid name txtitem(0) Txtproductname name txtitem(1) Txtunit name txtitem(2) Txtproductspec name txtitem(3) Txtcount name txtitem(4) Txtprice name txtitem(5) Txtstore name txtitem(6) Txtorderdate name txtitem(7) Txtprovidername name txtitem(8) Txtmeno name txtitem(9) CmdOK name CmdOK caption 確定 Cmdsaveagain name cmdsaveagain Caption 重新添加 Cmdcancel name Cmdcancel caption 取消 Label1 caption 款號(hào) Label2 caption 商品名稱 遼 寧 工 業(yè) 大 學(xué) 課 程 設(shè) 計(jì) 說 明 書（論 文） 7 Label3 caption 計(jì)量單位 Label4 caption 商品類別 Label5 caption 商品數(shù)量 Label6 caption 商品單價(jià) Label7 caption 所在倉庫 Label8 caption 入庫時(shí)間 Label9 caption 生產(chǎn)廠家 Label10 caption 備注信息 圖 窗體功能 ：該模塊主要是對已經(jīng)添加的產(chǎn)品信 息進(jìn)行修改，查看記錄框中的各個(gè)按鈕來移動(dòng)記錄，可以選擇對哪條記錄進(jìn)行修改和刪除操作；如果要對選定的記錄進(jìn)行修改，再顯示修改記錄時(shí)點(diǎn)擊修改記錄按鈕，個(gè)個(gè)文本框成為有效狀態(tài)，修改完成后，點(diǎn)擊確定修改即可如果點(diǎn)擊確定修改之前想取消所做的修改，可以取消修改記錄按鈕，該記錄返回原來的形式。 圖 查詢 窗體 窗體功能：選擇“產(chǎn)品信息管理－產(chǎn)品信息查詢”，可以有三種方式進(jìn)行查詢，分別遼 寧 工 業(yè) 大 學(xué) 課 程 設(shè) 計(jì) 說 明 書（論 文） 8 為：按款號(hào)查詢、 產(chǎn)品名稱查詢和產(chǎn)品類別查詢，首先選擇查詢方式，然后輸入內(nèi)容，單擊“查詢”按鈕，觸發(fā) Click 事件進(jìn)行查詢。 ) = Then Select Case intcount Case 0 semg = 公司名稱 Case 1 semg = 聯(lián)系人姓名 Case 2 semg = 聯(lián)系地址 Case 3 semg = 城市名稱 遼 寧 工 業(yè) 大 學(xué) 課 程 設(shè) 計(jì) 說 明 書（論 文） 9 Case 4 semg = 地區(qū)名稱 Case 5 semg = 郵政編碼 Case 6 semg = 聯(lián)系電話 Case 7 semg = 傳真號(hào)碼 Case 8 semg = 公司主頁 Case 9 smeg = 備注信息 End Select smeg = smeg amp。 請輸入數(shù)字 ! MsgBox smeg, vbOKOnly + vbExclamation, 警告 txtitem(intcount).SetFocus Exit Sub End If If Not IsNumeric(Trim(txtitem(6))) Then smeg = 電話號(hào)碼 smeg = smeg amp。 請輸入數(shù)字 ! MsgBox smeg, vbOKOnly + vbExclamation, 警告 txtitem(intcount).SetFocus Exit Sub End If ‘判斷是否有重復(fù)記錄 遼 寧 工 業(yè) 大 學(xué) 課 程 設(shè) 計(jì) 說 明 書（論 文） 10 txtsql = select * from customer where panyname=39。 Trim(txtitem(0)) amp。 Set mrc = ExecuteSQL(txtsql, msgtext) If = False Then MsgBox 已經(jīng)存在此客戶的記錄！ , vbOKOnly + vbExclamation, 警告 txtitem(0).SetFocus Exit Sub End If txtsql = select * from customer ‘執(zhí)行查詢操作 Set mrc = ExecuteSQL(txtsql, msgtext) ‘添加記錄 Next intcount ‘給每個(gè)字段賦
研究報(bào)告相關(guān)推薦
鄂ICP備17016276號(hào)-1