【正文】 sql = select * from user1 where username = 39。 UserName amp。密碼修改 On Error GoTo Err If Trim() And Trim() And Trim() Then If Trim() Trim() Then MsgBox 新密碼不對 !, , 提示 Exit Sub Else Dim rs1 As New If Then select * from 系統(tǒng)用戶 where 用戶名 =39。39。不進入系統(tǒng)的用戶不能使 用該功能。初始化代碼 On Error GoTo Err = = = = Dim rs1 As New select * from 系統(tǒng)用戶 , CN, adOpenStatic, adLockOptimistic While Not If Not IsNull((0)) Then Trim((0)) Wend Err: End Sub 修改密碼表單 使用此功能的用戶，必須是具有訪問該系統(tǒng)的權限，即是能登陸到該系統(tǒng)的用戶，如果不能訪問該系統(tǒng)的用戶不能使用該功能。, CN, adOpenStatic, adLockOptimistic If Not Then If Not IsNull((1)) Then If Trim() Trim((1)) Then MsgBox 管理員舊密碼不對 ! Exit Sub Else (1).Value = Trim() MsgBox 操作已成功 !, , 提示 End If End If End If End If End If Exit Sub Err: MsgBox End Sub Private Sub Form_Load() 39。 UserName amp。管理員密碼修改 On Error GoTo Err If Trim() And Trim() And Trim() Then If Trim() Trim() Then MsgBox 新密碼不對 ! Exit Sub Else Dim rs1 As New select * from 系統(tǒng)用戶 where 用戶名 =39。 () MsgBox 操作已成功 !, , 提示 End Sub Private Sub Command5_Click() 39。 Trim() amp。刪除用戶代碼 If Trim() = UserName Then MsgBox 不能刪除正在操作的用戶 ! Exit Sub End If delete from 系統(tǒng)用戶 where 用戶名 =39。 , , 系統(tǒng)提示 = End If Exit Sub Err: MsgBox End Sub Private Sub Command3_Click() 39。 39。 amp。39。 用戶可以管理數(shù)據(jù)庫表中不存在的任何的用戶名和密碼。記錄密碼輸入的次數(shù)，累計到 3 此則自動結(jié)束程序 End If 系統(tǒng)管理表單 “系統(tǒng)管理表單”可以增加用戶，使更多的人可以訪問該系統(tǒng)。 txtSQL, conn, adOpenKeyset, adLockPessimistic If = True Then MsgBox 沒有這個用戶，請重新輸入用戶名 !, vbOKOnly + vbExclamation, 警告 Else If Trim(adors(Password)) = Trim() Then 39。 amp。三次錯誤 ,自動退出程序 End End If Exit Sub Err: MsgBox 登錄出錯 ,請找管理員 !, vbExclamation Ok = False End End SubIf Trim( = ) Then MsgBox 沒有這個用戶，請重新輸入用戶名！ , vbOKOnly + vbExclamation, 警告 Else txtSQL = select * from user1 where username = 39。無權 IsUserMode = 0 MsgBox 你沒有權限 !, vbExclamation, 警告 End End If UserPrivs = Trim((2)) UserName = Trim() Unload Me Exit Sub Else MsgBox 輸入密碼不正確，請重新輸入！ , vbOKOnly + vbExclamation, 警告 = End If End If miCount = miCount + 1 If miCount = 3 Then 39。普通用戶權限 IsUserMode = 2 Else 39。管理員權限 IsUserMode = 1 ElseIf Trim((2)) = 普通用戶 Then 39。判斷權限 UserPrivs = If Trim((2)) = 管理員 Then 39。如果有用戶 If Trim((1)) = Trim() Then 39。如果沒有這個用戶 MsgBox 沒有這個帳號，請重新輸入帳號 !, vbOKOnly + vbExclamation, 警告 = = Else 39。 If Then txtSql, CN, adOpenStatic, adLockOptimistic If = True Then 39。 amp。判斷是否有這個用戶 txtSql = select * from 系統(tǒng)用戶 where 用戶名 = 39。判斷密碼是否為空 MsgBox 請輸入密碼！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If 39。39。39。對應密碼： admin。 “系統(tǒng)登錄”表單可以檢測用戶是否有正確的用戶與密碼，用來防止非法用戶進入系統(tǒng)，為系統(tǒng)安全提供一層防護作用。 采購記錄 表 真 實名稱 數(shù)據(jù)類型 字段大小 字段是否固定 允許零長度 必要字段 采購編號 文本 50 可變 是 否 倉庫編號 文本 50 可變 是 否 采購 日期 文本 50 可變 是 否 員工編號 文本 50 可變 是 否 商品編號 文本 50 可變 是 否 數(shù)量 數(shù)字 長整型 可變 是 否 采購價格 貨幣 2 可變 是 否 服裝專賣店管理系統(tǒng) 基 本 資 料 銷售管理 報 表 系 統(tǒng) 設 置 系統(tǒng)登陸 用戶申請 密碼修改 退出系統(tǒng) 進貨管理 進貨單 進貨查詢 進貨一覽 銷售單 銷售單查詢 銷售單一覽 銷售退貨 退貨一覽 倉庫資料 商品資料 計量單位 規(guī)格 生產(chǎn)廠商 客戶資料 供應商資料 各業(yè)務報表 供應商編號 文本 50 可變 是 否 2. 倉庫信息 表 真實名稱 數(shù)據(jù)類型 字段大小 字段是否固定 允許零長度 必要字段 順序號 自動編號 否 倉庫編號 文本 50 可變 是 是 倉庫地址 文本 50 可變 否 是 備注 文本 50 可變 是 是 信息 表 真實名稱 數(shù)據(jù)類型 字段大小 字段是否固定 允許零長度 必要字段 順序號 自動編號 是 供應商編號 文本 50 可變 是 是 供應商名稱 文本 50 可變 是 是 聯(lián)系電話 文本 50 可變 是 是 傳真 文本 50 可變 是 是 郵箱 文本 50 可變 是 是 4. 客戶信息 表 真實名稱 數(shù)據(jù)類型 字段大小 字段是否固定 允許零長度 必要字段 客戶編號 文本 50 可變 是 是 客戶地址 文本 50 可變 是 是 家庭地址 文本 50 可變 是 是 郵政編碼 文本 50 可變 是 是 聯(lián)系電話 文本 50 可變 是 是 顧客級別 文本 50 可變 是 是 購買貨品總數(shù) 文本 50 可變 是 是 5. 庫存信息 表 真實名稱 數(shù)據(jù)類型 字段大小 字段是否固定 允許零長度 必要字段 倉庫編號 文本 50 可變 是 否 商品編號 文本 50 可變 是 是 當前庫存量 數(shù)字 長整型 可變 否 是 6 商品信息 表 真實名稱 數(shù)據(jù)類型 字段大小 字段是 否固定 允許零長度 必要字段 商品編號 文本 50 可變 是 是 商品名稱 文本 50 可變 是 是 商品說明 文本 50 可變 是 是 標稱價格 貨幣 2 可變 是 是 ： 真實名稱 數(shù)據(jù)類型 字段大小 字段是否固定 允許零長度 必要字段 用戶名 文本 50 可變 是 是 密碼碼 文本 50 可變 是 是 身份 文本 50 可變 是 是 真實名稱 數(shù)據(jù)類型 字段大小 字段是否固定 允許零長 必要字段 銷售編號 數(shù)字 50 可變 是 是 倉庫 編號 文本 50 可變 是 是 員工編號 文本 50 可變 是 是 商品編號 文本 50 可變 是 是 數(shù)量 數(shù)字 長整型 固定 否 客戶編號 文本 50 可變 是 是 銷售價格 貨幣 固定 否 是 真實名稱 數(shù)據(jù)類型 字段大小 字段是否固定 允許零長度 必要字段 員工編號 文本 50 可變 是 是 倉庫編號 文本 50 可變 是 是 姓名 文本 50 可變 是 是 性別 數(shù)字 長整型 可變 是 是 出生日期 備注 50 住址 文本 50 可變 是 是 電話 數(shù)字 長整型 可變 是 是 電子郵件 文本 50 可變 是 是 文本 50 可變 是 是 備注 文本 50 可變 是 是 在職年齡 數(shù)字 長整型 可變 是 是 字典信息表： 真實名稱 數(shù)據(jù)類型 字段大小 字段是否固定 允許零長度 必要字段 表