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