客戶信息管理系統(tǒng)課程設計-在線瀏覽
2025-05-26 22:34本頁面
【正文】 lect * from oper where 用戶名=39。 Trim$(Text1(0).Text) amp。 amp。 amp。 Set mrc = exesql(txtsql) If = 0 Then n = n + 1 If n 3 Then MsgBox 沒有這個用戶，繼續(xù)登錄, vbOKOnly + vbExclamation, 信息提示 Text1(0).Text = Text1(1).Text = Text1(0).Set focus Else MsgBox 登錄失敗三次，退出系統(tǒng), vbOKOnly + vbExclamation, 信息提示 Unload Me End IfElse userlevel = tram((級別)) Unload Me vbModalEnd IfEnd Sub其中有不滿足登錄條件重新登錄，失敗三次退出系統(tǒng)的設計登錄后即進入主菜單Private Sub Form_Load() If userlevel 系統(tǒng)管理員 Then = False = False End IfEnd SubPrivate Sub Command1_Click() vbModal “編輯客戶按鈕”連接edkh編輯窗體End SubPrivate Sub mand2_click() vbModal “查詢客戶按鈕”連接qukh查詢窗體End SubPrivate Sub Command3_Click() vbModalEnd Sub 以下為“系統(tǒng)初始化”設計Private Sub Command4_Click() If MsgBox(本功能要清除系統(tǒng)中所有的數(shù)據(jù)，真的要初始化嗎？, vbYesNo, 確認初始化操作) = vbYes Then Call deldata(khb) 清除客戶表中全部信息 Call deldata(oper) 清除oper表中全部信息 MsgBox 系統(tǒng)初始化
公司管理相關推薦
鄂ICP備17016276號-1