物流管理信息系統之訂單管理子系統設計范本(編輯修改稿)
2025-01-16 22:07 本頁面
【文章內容簡介】 here條件的記錄 MsgBox 姓名錯誤，重新輸入, vbExclamation, 警告 = 39。text1獲得焦點Else If (密碼) = Text2 Then Unload Me Else MsgBox 密碼錯誤，重新輸入, 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。用于記錄輸入密碼次數Dim sqlstr As Stringsqlstr = select * from 管理員信息表 where 管理員姓名=39。 amp。 Text1 amp。 39。 = sqlstrIf Then 39。若沒有找到符合where條件的記錄 MsgBox 用戶名錯誤，重新輸入, vbExclamation, 警告 = 39。text1獲得焦點Else If (密碼) = Text2 Then Unload Me Else MsgBox 密碼錯誤，重新輸入, 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(確認退出？, vbOKCancel, 提示)If x = vbOK Then Unload Me ElseIf x = vbCancel ThenEnd IfEnd SubPrivate Sub Command1_Click()Dim sqlstr As StringIf Text1 = Then MsgBox 請輸入用戶名！, vbExclamation, 確認密碼 Exit SubElse sqlstr = select * from 用戶信息表 where 用戶名=39。 amp。 Text1 amp。 39。 = sqlstr 39。判斷用戶名是否已存在 If = False Then MsgBox 用戶已存在，請重新輸入, vbExclamation, 檢驗用戶名 Text1 = Exit SubEnd IfEnd If39。判斷兩次密碼是否一致If Text2 Text3 ThenMsgBox 兩次輸入密碼不一致，請重新輸入, vbExclamation, 檢驗密碼 Text2 = : Text3 = Exit SubElseIf Text2 = Then MsgBox 密碼不能為空, vbExclamation, 檢驗密碼 Else (用戶名) = Trim(Text1) (密碼) = Trim(Text2) MsgBox 注冊已成功，請盡快完善個人信息 End IfEnd SubPrivate Sub Command2_Click()End SubPrivate Sub Command1_Click()Unload MeEnd SubPrivate Sub Command2_Click() Dim x As Integerx = MsgBox(確認退出？, 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(確定要修改當前記錄嗎？, vbYesNo + vbQuestion, 確定)If x = vbYes Then(性別) = Text1(年齡) = Text2(工作) = Text3(聯系電話) = Text4(密碼) = Text5(用戶名) = Text7End IfMsgBox 修改成功End SubPrivate Sub Command2_Click()x = MsgBox(未完善信息，現在退出？, 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()(用戶名) = (商品號)
公司管理相關推薦
鄂ICP備17016276號-1