【文章內(nèi)容簡(jiǎn)介】 本 50 可變 是 否 2. 倉(cāng)庫(kù)信息 表 真實(shí)名稱(chēng) 數(shù)據(jù)類(lèi)型 字段大小 字段是否固定 允許零長(zhǎng)度 必要字段 順序號(hào) 自動(dòng)編號(hào) 否 倉(cāng)庫(kù)編號(hào) 文本 50 可變 是 是 倉(cāng)庫(kù)地址 文本 50 可變 否 是 備注 文本 50 可變 是 是 信息 表 真實(shí)名稱(chēng) 數(shù)據(jù)類(lèi)型 字段大小 字段是否固定 允許零長(zhǎng)度 必要字段 順序號(hào) 自動(dòng)編號(hào) 是 供應(yīng)商編號(hào) 文本 50 可變 是 是 供應(yīng)商名稱(chēng) 文本 50 可變 是 是 聯(lián)系電話(huà) 文本 50 可變 是 是 傳真 文本 50 可變 是 是 郵箱 文本 50 可變 是 是 4. 客戶(hù)信息 表 真實(shí)名稱(chēng) 數(shù)據(jù)類(lèi)型 字段大小 字段是否固定 允許零長(zhǎng)度 必要字段 客戶(hù)編號(hào) 文本 50 可變 是 是 客戶(hù)地址 文本 50 可變 是 是 家庭地址 文本 50 可變 是 是 郵政編碼 文本 50 可變 是 是 聯(lián)系電話(huà) 文本 50 可變 是 是 顧客級(jí)別 文本 50 可變 是 是 購(gòu)買(mǎi)貨品總數(shù) 文本 50 可變 是 是 5. 庫(kù)存信息 表 真實(shí)名稱(chēng) 數(shù)據(jù)類(lèi)型 字段大小 字段是否固定 允許零長(zhǎng)度 必要字段 倉(cāng)庫(kù)編號(hào) 文本 50 可變 是 否 商品編號(hào) 文本 50 可變 是 是 當(dāng)前庫(kù)存量 數(shù)字 長(zhǎng)整型 可變 否 是 6 商品信息 表 真實(shí)名稱(chēng) 數(shù)據(jù)類(lèi)型 字段大小 字段是 否固定 允許零長(zhǎng)度 必要字段 商品編號(hào) 文本 50 可變 是 是 商品名稱(chēng) 文本 50 可變 是 是 商品說(shuō)明 文本 50 可變 是 是 標(biāo)稱(chēng)價(jià)格 貨幣 2 可變 是 是 ： 真實(shí)名稱(chēng) 數(shù)據(jù)類(lèi)型 字段大小 字段是否固定 允許零長(zhǎng)度 必要字段 用戶(hù)名 文本 50 可變 是 是 密碼碼 文本 50 可變 是 是 身份 文本 50 可變 是 是 真實(shí)名稱(chēng) 數(shù)據(jù)類(lèi)型 字段大小 字段是否固定 允許零長(zhǎng) 必要字段 銷(xiāo)售編號(hào) 數(shù)字 50 可變 是 是 倉(cāng)庫(kù) 編號(hào) 文本 50 可變 是 是 員工編號(hào) 文本 50 可變 是 是 商品編號(hào) 文本 50 可變 是 是 數(shù)量 數(shù)字 長(zhǎng)整型 固定 否 客戶(hù)編號(hào) 文本 50 可變 是 是 銷(xiāo)售價(jià)格 貨幣 固定 否 是 真實(shí)名稱(chēng) 數(shù)據(jù)類(lèi)型 字段大小 字段是否固定 允許零長(zhǎng)度 必要字段 員工編號(hào) 文本 50 可變 是 是 倉(cāng)庫(kù)編號(hào) 文本 50 可變 是 是 姓名 文本 50 可變 是 是 性別 數(shù)字 長(zhǎng)整型 可變 是 是 出生日期 備注 50 住址 文本 50 可變 是 是 電話(huà) 數(shù)字 長(zhǎng)整型 可變 是 是 電子郵件 文本 50 可變 是 是 文本 50 可變 是 是 備注 文本 50 可變 是 是 在職年齡 數(shù)字 長(zhǎng)整型 可變 是 是 字典信息表： 真實(shí)名稱(chēng) 數(shù)據(jù)類(lèi)型 字段大小 字段是否固定 允許零長(zhǎng)度 必要字段 表名 文本 50 可變 是 是 字段 文本 50 可變 是 是 字典表名 文本 50 可變 是 是 字典字段 文本 50 可變 是 是 第四章 系統(tǒng)設(shè)置模塊詳細(xì)設(shè)計(jì) 服裝專(zhuān)賣(mài)店系統(tǒng)中的系統(tǒng)設(shè)置 模塊包括系統(tǒng)登錄功能、用戶(hù)申請(qǐng)功能、修改密碼功能和退出系統(tǒng)功能，主要由 ” 系統(tǒng)登錄 (frmlogin)” 表單、“用戶(hù)申請(qǐng)(userappend)” 表單“修改密碼 (modifycode)”表單。 系統(tǒng)登陸表單 并不是每個(gè)人都可以訪(fǎng)問(wèn)該系統(tǒng)，必須是合法的用戶(hù)才可以使用該系統(tǒng)的各項(xiàng)功能，在用戶(hù)登陸前 各項(xiàng)菜單是不可用的，登陸后各菜單就變成可用。 “系統(tǒng)登錄”表單可以檢測(cè)用戶(hù)是否有正確的用戶(hù)與密碼，用來(lái)防止非法用戶(hù)進(jìn)入系統(tǒng)，為系統(tǒng)安全提供一層防護(hù)作用。 其中用戶(hù)名： admin。對(duì)應(yīng)密碼： admin。 登陸表單界面如下： 登陸按鈕的 click 的代碼如下： Private Sub cmdOK_Click() 39。39。進(jìn)入 ..確定 On Error GoTo Err Dim txtSql As String UserName = If Trim() = Then 39。39。判斷用戶(hù)名是否為空 MsgBox 請(qǐng)輸入帳號(hào)！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If If Trim() = Then 39。判斷密碼是否為空 MsgBox 請(qǐng)輸入密碼！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If 39。39。判斷是否有這個(gè)用戶(hù) txtSql = select * from 系統(tǒng)用戶(hù) where 用戶(hù)名 = 39。 amp。 amp。 39。 If Then txtSql, CN, adOpenStatic, adLockOptimistic If = True Then 39。39。如果沒(méi)有這個(gè)用戶(hù) MsgBox 沒(méi)有這個(gè)帳號(hào)，請(qǐng)重新輸入帳號(hào) !, vbOKOnly + vbExclamation, 警告 = = Else 39。39。如果有用戶(hù) If Trim((1)) = Trim() Then 39。39。判斷權(quán)限 UserPrivs = If Trim((2)) = 管理員 Then 39。39。管理員權(quán)限 IsUserMode = 1 ElseIf Trim((2)) = 普通用戶(hù) Then 39。39。普通用戶(hù)權(quán)限 IsUserMode = 2 Else 39。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。39。三次錯(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è)用戶(hù)，請(qǐng)重新輸入用戶(hù)名！ , vbOKOnly + vbExclamation, 警告 Else txtSQL = select * from user1 where username = 39。 amp。 amp。 39。 txtSQL, conn, adOpenKeyset, adLockPessimistic If = True Then MsgBox 沒(méi)有這個(gè)用戶(hù)，請(qǐng)重新輸入用戶(hù)名 !, vbOKOnly + vbExclamation, 警告 Else If Trim(adors(Password)) = Trim() Then 39。判斷密碼輸入正確性 MsgBox 正確登錄 , vbOKOnly + vbExclamation, = True = True = True = True Load main Else MsgBox 輸入密碼不正確，請(qǐng)重新輸入！ , vbOKOnly + vbExclamation, 警告 = End If End If End If miCount = miCount + 1 If miCount = 3 Then 39。記錄密碼輸入的次數(shù)，累計(jì)到 3 此則自動(dòng)結(jié)束程序 End If 系統(tǒng)管理表單 “系統(tǒng)管理表單”可以增加用戶(hù)，使更多的人可以訪(fǎng)問(wèn)該系統(tǒng)。但是并不是每個(gè)用戶(hù)都可以申請(qǐng)的。 用戶(hù)可以管理數(shù)據(jù)庫(kù)表中不存在的任何的用戶(hù)名和密碼。如果你申請(qǐng)的用戶(hù)名未被使用，則申請(qǐng)成功，否則，申請(qǐng)失敗 ！ 用戶(hù)申請(qǐng)表單界面如下： 其中申請(qǐng)的代碼實(shí)現(xiàn)： Private Sub cmdExit_Click() Unload Me End Sub Private Sub Command2_Click() 39。39。添加用戶(hù) On Error GoTo Err If Trim() And Trim() And Trim() Then Dim rs1 As New If Then select count(*) from 系統(tǒng)用戶(hù) where 用戶(hù)名 =39。 amp。 Trim() amp。 39。, CN, adOpenStatic, adLockOptimistic If (0) 0 Then MsgBox 用戶(hù)已經(jīng)存在 ! 請(qǐng)改用戶(hù)名稱(chēng) !, , 系統(tǒng)提示 = Exit Sub End If If Then select * from 系統(tǒng)用戶(hù) , CN, adOpenStatic, adLockOptimistic (0).Value = Trim() (1).Value = Trim() (2).Value = Trim() Trim() MsgBox 用戶(hù)添加成功 !,初始密碼為 amp。 , , 系統(tǒng)提示 = End If Exit Sub Err: MsgBox End Sub Private Sub Command3_Click() 39。39。刪除用戶(hù)代碼 If Trim() = UserName Then MsgBox 不能刪除正在操作的用戶(hù) ! Exit Sub End If delete from 系統(tǒng)用戶(hù) where 用戶(hù)名 =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