物流管理信息系統(tǒng)之訂單管理子系統(tǒng)設(shè)計(jì)范本(編輯修改稿)
2025-01-16 22:07 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 here條件的記錄 MsgBox 姓名錯(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 cmdcancel_click() Unload MeEnd SubPrivate Sub Command2_Click()Static micount As Integer 39。用于記錄輸入密碼次數(shù)Dim sqlstr As Stringsqlstr = select * from 管理員信息表 where 管理員姓名=39。 amp。 Text1 amp。 39。 = sqlstrIf Then 39。若沒(méi)有找到符合where條件的記錄 MsgBox 用戶名錯(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。 Text1 amp。 39。 = sqlstr 39。判斷用戶名是否已存在 If = False Then MsgBox 用戶已存在，請(qǐng)重新輸入, vbExclamation, 檢驗(yàn)用戶名 Text1 = Exit SubEnd IfEnd If39。判斷兩次密碼是否一致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 Command1_Click()Dim str As Stringstr = Select 訂單信息表.* From 訂單信息表str = str amp。 where = 39。 amp。 Text5 amp。 39。x = MsgBox(確定要修改當(dāng)前記錄嗎？, vbYesNo + vbQuestion, 確定)If x = vbYes Then(性別) = Text1(年齡) = Text2(工作) = Text3(聯(lián)系電話) = Text4(密碼) = Text5(用戶名) = Text7End IfMsgBox 修改成功End SubPrivate Sub Command2_Click()x = MsgBox(未完善信息，現(xiàn)在退出？, vbOKCancel + vbDefaultButton2, 提示)If x = vbOK Then Unload wsyhxxElseIf x = Cancel ThenEnd IfExit SubEnd SubPrivate Sub Command3_Click()Dim str As Stringstr = select 用戶信息表.* From 用戶信息表str = str amp。 where = 39。 amp。 Text6 amp。 39。 = strEnd SubPrivate Sub Command1_Click()(用戶名) = (商品號(hào))
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1