物流管理信息系統(tǒng)之訂單管理子系統(tǒng)設(shè)計(jì)范本-閱讀頁(yè)
2025-05-02 23:47本頁(yè)面
【正文】 gstr = select 用戶信息表.* From 用戶信息表str = str amp。 amp。 39。 where = 39。 Text9 amp。 = strEnd SubPrivate Sub Command3_Click() = = = = = = = End SubPrivate Sub Command4_Click()If = True Or = True Then MsgBox 請(qǐng)選擇要修改的行 Exit SubEnd IfDim str As Stringstr = Select 訂單信息表.* From 訂單信息表str = str amp。 amp。 39。 where = 39。 Text9 amp。x = MsgBox(確實(shí)要?jiǎng)h除當(dāng)前記錄嗎？, vbYesNo + vbQuestion, 確定)If x = vbYes Then ElseIf Then Else MsgBox (訂單已經(jīng)成功刪除)End IfEnd SubPrivate Sub Command6_Click() End SubPrivate Sub Command7_Click() Dim x As Integerx = MsgBox(確認(rèn)退出？, vbOKCancel, 提示)If x = vbOK Then Unload yhjmElseIf x = vbCancel ThenEnd IfEnd SubPrivate Sub Command1_Click()Dim str As Stringstr = Select 用戶信息表.* From 用戶信息表str = str amp。 amp。 39。 where = 39。 Text5 amp。x = MsgBox(確定要修改當(dāng)前記錄嗎？, vbYesNo + vbQuestion, 確定)If x = vbYes Then(性別) = Text1(年齡) = Text2(工作) = Text3(聯(lián)系電話) = Text4(密碼) = Text5End IfMsgBox 修改成功End SubPrivate Sub Command2_Click()x = MsgBox(修改未成功, 0, 提示)Unload xgyhxxExit SubEnd SubPrivate Sub Command3_Click()Dim str As Stringstr = select 用戶信息表.* From 用戶信息表str = str amp。 amp。 39。 where = 39。 Text1 amp。 = strEnd SubPrivate Sub Command2_Click()Dim str As Stringstr = Select 訂單信息表.* From 訂單信息表str = str amp。 amp。 39。 where = 39。 Text5 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 Command6_Click()(用戶名) = (商品號(hào)) = (數(shù)量) = (價(jià)格) = (ID) = (訂單號(hào)) = (聯(lián)系電話) = MsgBox (訂單已經(jīng)成功添加)End SubPrivate Sub Command7_Click()Text2 = Text3 = Text4 = Text5 = Text6 = Text7 = Text8 = End SubPrivate Sub Command8_Click()End SubPrivate Sub Command1_Click()Dim str As Stringstr = Select 訂單信息表.* From 訂單信息表str = str amp。 amp。 39。 where = 39。 Text6 amp。 = strEnd SubPrivate Sub Command4_Click()Text2 = Text3 = Text4 = Text5 = Text1 = End SubPrivate Sub Command1_Click()Dim str As Stringstr = Select 用戶信息表.* From 用戶信息表str = str amp。 amp。 39。讓窗體居中 X0 = Y0 = X0 = (X0 ) / 2 Y0 = (Y0 ) / 2 X0, Y0End Sub該系統(tǒng)在安全性方面的控制管理員登陸窗口，必須使用合法密碼才能進(jìn)入系統(tǒng)，使非管理人員不能進(jìn)入，從而保證了系統(tǒng)的安全性。系統(tǒng)實(shí)現(xiàn)對(duì)企業(yè)訂單信息的經(jīng)營(yíng)管理的維護(hù)，主要實(shí)現(xiàn)了數(shù)據(jù)的輸入、查詢、修改、刪除和打印等一系列功能，再功能方面，包括添加或刪除用戶，保存信息，更新信息、打印信息等系統(tǒng)數(shù)據(jù)具備了很強(qiáng)的穩(wěn)定性、移植性、擴(kuò)充性和安全性。系統(tǒng)的運(yùn)行效率大為提高。系統(tǒng)完全采用圖形戶用戶操作界面，能讓用戶很容易了解和掌握系統(tǒng)的使用方法。在功能的界面實(shí)現(xiàn)方面，系統(tǒng)采用菜單式操作和命令按鈕操作相結(jié)合的方式，使操作非常的簡(jiǎn)單、
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1