物流管理信息系統(tǒng)之訂單管理子系統(tǒng)設(shè)計(jì)課程設(shè)計(jì)說(shuō)明書(參考版)
2025-04-20 23:47本頁(yè)面
【正文】 1《現(xiàn)代物流信息系統(tǒng)》 牛東來(lái) 編著 清華大學(xué)出版社2《物流管理信息系統(tǒng)理論與案例》 李蘇劍 游戰(zhàn)清 鄭利強(qiáng)編著 電子工業(yè)出版社3《管理信息系統(tǒng)實(shí)用教程》王恩波 孫玉珊 岳樺 編著 電子工業(yè)出版社4《軟件工程》高誠(chéng) 車進(jìn)輝 曹哲 編著 中國(guó)水利水電出版社5《基于VB和SQL的數(shù)據(jù)庫(kù)編程技術(shù)》劉志嫵 張煥君 馬秀麗等 編著 清華大學(xué)出版社5《Visual FoxPro數(shù)據(jù)庫(kù)應(yīng)用實(shí)例完全解析》賈鳳波 楊樹青 楊玉順 編著人民郵電出版社2006年8月第1版6《數(shù)據(jù)庫(kù)應(yīng)用基礎(chǔ)Visual 》秦衛(wèi)平 耿植林 方嬌莉 鄭陵瀟 編著 重慶大學(xué)出版社。這使得系統(tǒng)具備了很好的交互性和可操作性。因此系統(tǒng)的運(yùn)行可靠性的。使得底層對(duì)數(shù)據(jù)庫(kù)的操作也因此而顯得更為合理和快捷。用戶名，用戶密碼，管理員姓名，管理員密碼均在數(shù)據(jù)庫(kù)中存放。 = 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。 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。 Text5 amp。 where = 39。 39。 amp。x = MsgBox(確實(shí)要?jiǎng)h除當(dāng)前記錄嗎？, vbYesNo + vbQuestion, 確定)If x = vbYes Then If Then End IfElse MsgBox (訂單已經(jīng)成功刪除)End IfEnd SubPrivate Sub Command3_Click() Dim x As Integerx = MsgBox(確認(rèn)退出？, vbOKCancel, 提示)If x = vbOK Then Unload glyjmElseIf x = vbCancel ThenEnd IfEnd SubPrivate Sub Command4_Click() End SubPrivate Sub Command5_Click()If = True Or = True Then MsgBox 請(qǐng)選擇要修改的行 Exit SubEnd IfDim str As Stringstr = Select 訂單信息表.* From 訂單信息表str = str amp。 Text1 amp。 where = 39。 39。 amp。 = strEnd SubPrivate Sub Command1_Click()Dim str As Stringstr = select 訂單信息表.* From 訂單信息表str = str amp。 Text6 amp。 where = 39。 39。 amp。 = 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 Command3_Click()End SubPrivate Sub Command1_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 (用戶名) = (商品號(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。 Text9 amp。 where = 39。 39。 amp。 = strEnd SubPrivate Sub Command1_Click()(用戶名) = (商
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1