【文章內(nèi)容簡介】 是 否 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ù)類型 字段大小 字段是否固定 允許零長度 必要字段 表名 文本 50 可變 是 是 字段 文本 50 可變 是 是 字典表名 文本 50 可變 是 是 字典字段 文本 50 可變 是 是 第四章 系統(tǒng)設置模塊詳細設計 服裝專賣店系統(tǒng)中的系統(tǒng)設置 模塊包括系統(tǒng)登錄功能、用戶申請功能、修改密碼功能和退出系統(tǒng)功能，主要由 ” 系統(tǒng)登錄 (frmlogin)” 表單、“用戶申請(userappend)” 表單“修改密碼 (modifycode)”表單。 系統(tǒng)登陸表單 并不是每個人都可以訪問該系統(tǒng)，必須是合法的用戶才可以使用該系統(tǒng)的各項功能，在用戶登陸前 各項菜單是不可用的，登陸后各菜單就變成可用。 “系統(tǒng)登錄”表單可以檢測用戶是否有正確的用戶與密碼，用來防止非法用戶進入系統(tǒng)，為系統(tǒng)安全提供一層防護作用。 其中用戶名： admin。對應密碼： admin。 登陸表單界面如下： 登陸按鈕的 click 的代碼如下： Private Sub cmdOK_Click() 39。39。進入 ..確定 On Error GoTo Err Dim txtSql As String UserName = If Trim() = Then 39。39。判斷用戶名是否為空 MsgBox 請輸入帳號！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If If Trim() = Then 39。判斷密碼是否為空 MsgBox 請輸入密碼！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If 39。39。判斷是否有這個用戶 txtSql = select * from 系統(tǒng)用戶 where 用戶名 = 39。 amp。 amp。 39。 If Then txtSql, CN, adOpenStatic, adLockOptimistic If = True Then 39。39。如果沒有這個用戶 MsgBox 沒有這個帳號，請重新輸入帳號 !, vbOKOnly + vbExclamation, 警告 = = Else 39。39。如果有用戶 If Trim((1)) = Trim() Then 39。39。判斷權限 UserPrivs = If Trim((2)) = 管理員 Then 39。39。管理員權限 IsUserMode = 1 ElseIf Trim((2)) = 普通用戶 Then 39。39。普通用戶權限 IsUserMode = 2 Else 39。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。39。三次錯誤 ,自動退出程序 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。 amp。 amp。 39。 txtSQL, conn, adOpenKeyset, adLockPessimistic If = True Then MsgBox 沒有這個用戶，請重新輸入用戶名 !, vbOKOnly + vbExclamation, 警告 Else If Trim(adors(Password)) = Trim() Then 39。判斷密碼輸入正確性 MsgBox 正確登錄 , vbOKOnly + vbExclamation, = True = True = True = True Load main Else MsgBox 輸入密碼不正確，請重新輸入！ , vbOKOnly + vbExclamation, 警告 = End If End If End If miCount = miCount + 1 If miCount = 3 Then 39。記錄密碼輸入的次數(shù)，累計到 3 此則自動結束程序 End If 系統(tǒng)管理表單 “系統(tǒng)管理表單”可以增加用戶，使更多的人可以訪問該系統(tǒng)。但是并不是每個用戶都可以申請的。 用戶可以管理數(shù)據(jù)庫表中不存在的任何的用戶名和密碼。如果你申請的用戶名未被使用，則申請成功，否則，申請失敗 ！ 用戶申請表單界面如下： 其中申請的代碼實現(xiàn)： Private Sub cmdExit_Click() Unload Me End Sub Private Sub Command2_Click() 39。39。添加用戶 On Error GoTo Err If Trim() And Trim() And Trim() Then Dim rs1 As New If Then select count(*) from 系統(tǒng)用戶 where 用戶名 =39。 amp。 Trim() amp。 39。, CN, adOpenStatic, adLockOptimistic If (0) 0 Then MsgBox 用戶已經(jīng)存在 ! 請改用戶名稱 !, , 系統(tǒng)提示 = Exit Sub End If If Then select * from 系統(tǒng)用戶 , CN, adOpenStatic, adLockOptimistic (0).Value = Trim() (1).Value = Trim() (2).Value = Trim() Trim() MsgBox 用戶添加成功 !,初始密碼為 amp。 , , 系統(tǒng)提示 = End If Exit Sub Err: MsgBox End Sub Private Sub Command3_Click() 39。39。刪除用戶代碼 If Trim() = UserName Then MsgBox 不能刪除正在操作的用戶 ! Exit Sub End If delete from 系統(tǒng)用戶 where 用戶名 =39。 amp。 Trim() amp。 39。 () MsgBox 操作已成功 !, , 提示 End Sub Private Sub Command5_Click() 39。39。管理員密碼修改 On Error GoTo Err If Trim() And Trim() And Trim() Then If Trim()