物流管理信息系統(tǒng)之訂單管理子系統(tǒng)設(shè)計(jì)課程設(shè)計(jì)說明書(存儲(chǔ)版)
【正文】 Box 姓名錯(cuò)誤，重新輸入, vbExclamation, 警告 = 39。text1獲得焦點(diǎn)Else If (密碼) = Text2 Then Unload Me Else MsgBox 密碼錯(cuò)誤，重新輸入, vbExclamation, 警告 = End IfEnd Ifmicount = micount + 1If micount = 3 Then Unload MeEnd SubPrivate Sub Command3_Click() End SubPrivate Sub Command4_Click() Dim x As Integerx = MsgBox(確認(rèn)退出？, vbOKCancel, 提示)If x = vbOK Then Unload Me ElseIf x = vbCancel ThenEnd IfEnd SubPrivate Sub Command1_Click()Dim sqlstr As StringIf Text1 = Then MsgBox 請(qǐng)輸入用戶名！, vbExclamation, 確認(rèn)密碼 Exit SubElse sqlstr = select * from 用戶信息表 where 用戶名=39。 amp。 = strEnd SubPrivate Sub Command1_Click()(用戶名) = (商品號(hào)) = (數(shù)量) = (價(jià)格) = (ID) = (訂單號(hào)) = (聯(lián)系電話) = MsgBox (訂單已經(jīng)成功添加)End SubPrivate Sub Command2_Click()Dim str As Stringstr = select 訂單信息表.* From 訂單信息表str = str amp。 Text9 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。 Text5 amp。 where = 39。使得底層對(duì)數(shù)據(jù)庫的操作也因此而顯得更為合理和快捷。1《現(xiàn)代物流信息系統(tǒng)》 牛東來 編著 清華大學(xué)出版社2《物流管理信息系統(tǒng)理論與案例》 李蘇劍 游戰(zhàn)清 鄭利強(qiáng)編著 電子工業(yè)出版社3《管理信息系統(tǒng)實(shí)用教程》王恩波 孫玉珊 岳樺 編著 電子工業(yè)出版社4《軟件工程》高誠 車進(jìn)輝 曹哲 編著 中國水利水電出版社5《基于VB和SQL的數(shù)據(jù)庫編程技術(shù)》劉志嫵 張煥君 馬秀麗等 編著 清華大學(xué)出版社5《Visual FoxPro數(shù)據(jù)庫應(yīng)用實(shí)例完全解析》賈鳳波 楊樹青 楊玉順 編著人民郵電出版社2006年8月第1版6《數(shù)據(jù)庫應(yīng)用基礎(chǔ)Visual 》秦衛(wèi)平 耿植林 方嬌莉 鄭陵瀟 編著 重慶大學(xué)出版社。用戶名，用戶密碼，管理員姓名，管理員密碼均在數(shù)據(jù)庫中存放。 39。 where = 39。 Text1 amp。 = strEnd SubPrivate Sub Command1_Click()Dim str As Stringstr = select 訂單信息表.* From 訂單信息表str = str amp。 amp。 39。 where = 39。 Text6 amp。判斷兩次密碼是否一致If Text2 Text3 ThenMsgBox 兩次輸入密碼不一致，請(qǐng)重新輸入, vbExclamation, 檢驗(yàn)密碼 Text2 = : Text3 = Exit SubElseIf Text2 = Then MsgBox 密碼不能為空, vbExclamation, 檢驗(yàn)密碼 Else (用戶名) = Trim(Text1) (密碼) = Trim(Text2) MsgBox 注冊(cè)已成功，請(qǐng)盡快完善個(gè)人信息 End IfEnd SubPrivate Sub Command2_Click()End SubPrivate Sub Command1_Click()Unload MeEnd SubPrivate Sub Command2_Click() Dim x As Integerx = MsgBox(確認(rèn)退出？, vbOKCancel, 提示)If x = vbOK Then Unload Me ElseIf x = vbCancel ThenUnload MeEnd IfEnd SubPrivate Sub
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1