【文章內(nèi)容簡介】 圖 FeelspanelInfo 關(guān)系視圖 本系統(tǒng)數(shù)據(jù)庫表的設(shè)計包括如下幾個： （ 1） panelInfo （ panel 信息表 ） ： Windows 窗體 Panel 控件用于為其他控件提供可識別的分組。通常，使用面板按功能細分窗體。將所有選項分組在一個面板中可向用戶提供邏輯可視提示。當移動 Panel 控件時，它包含的所有控件也將移動。分組在一個面板中的控件可以通過面板的 Controls 屬性進行訪問。此屬性返回一批 Control 實例，因此，通常需要將該方式檢索得到的控件強制轉(zhuǎn)換為它的特定類型。 表 panel 表 字段名稱 數(shù)據(jù)類型 是否主鍵 說明 id 自動編號 是 當前項目 編號 holderID 文本 否 客戶 ID holder 文本 否 客戶 LEndPCode 數(shù)字 否 上次抄表 值 CopyDate 日期 /時間 否 抄表日期 lightScale 數(shù)字 否 照明比例 lsFee 貨幣 否 最終 繳費 額 lMoney 貨幣 否 居民 電價 bMoney 貨幣 否 商業(yè)電價 ame 文本 否 cEndCode 數(shù)字 否 當前至碼 cFeeMoney 貨幣 否 當前欠費 nowEcount 數(shù)字 否 當前欠費 writeDate 日期 /時間 否 write date delFlag 是 /否 否 刪除標記 benqiFee 文本 否 本期電費 LeCount 數(shù)字 否 用電累計 BeCount 數(shù)字 否 商業(yè)用電 iniA 數(shù)字 否 電表初值 oprid 文本 否 操作員編號 Atimes 數(shù)字 否 電表倍數(shù) AtypeID 數(shù)字 否 （ 2） 密碼表 ： 密碼 表用于存儲管理員、操作員的賬號信息，這里做的比較簡單。 表 密碼表 字段 名稱 數(shù)據(jù)類型 姓名 文本 操作權(quán)限 文本 密碼 文本 （ 3） 用戶類型表 ： 用戶類型表用于存儲用戶的用電類型，區(qū)分是商業(yè)用電還是居民用電，不同的用電類型，其電價不同。 表 用戶類型表 字段名稱 數(shù)據(jù)類型 是否主鍵 說明 AtypeID 自動編號 是 電費類型編號 Atype 文本 否 電費類型 UNITPRICE 貨幣 否 電費價格 Adate 日期 /時間 否 電費設(shè)置日期 （ 4） getpchard （硬盤 ID、序列號表 ）。 表 getpchard 表 字段名稱 數(shù)據(jù)類型 pcid 文本 pccode 文 本 （ 5） Feels （交費記錄表） ： Feels 表創(chuàng)建用于保存繳費記錄，方便查詢歷史記錄。 表 Feels 表 字段名稱 數(shù)據(jù)類型 是否主鍵 說明 id 自動編號 是 繳費編號 FeeDate 日期 /時間 否 繳費日期 FeeMoney 貨幣 否 應(yīng)交金額 qianFee 貨幣 否 實際繳費 金額 zhinajin 貨幣 否 滯納金 holderid 文本 否 客戶編號 holder 文本 否 客戶 ame 文本 否 經(jīng)辦人 memols 文本 否 單據(jù)內(nèi)容 Ecount 文本 否 本次購買電量 （ 6） MaxID 表 ： MaxID 表用來保存當前用戶數(shù)，編號，以便增加用戶時自動生成用戶編號。 表 MaxID 表 字段名稱 數(shù)據(jù)類型 是否主鍵 TableName 文本 是 MaxID 數(shù)字 否 （ 7） 登陸人員表 登陸人員表設(shè)計用來保存當前登陸的操作員、管理員的名字，用于繳費業(yè)務(wù)中，標記經(jīng)辦人，同時還用于標記當前用戶是否具有操作需要管理員權(quán)限的功能。 表 登陸人員表 字段名稱 數(shù)據(jù)類型 姓名 文本 （ 8） holder 表 ： 創(chuàng)建 Holder 表用于保存用戶的基本資料 ，包括了必要的用戶基本信息。 表 holder 表 字段名稱 數(shù)據(jù)類型 是否主鍵 說明 HolderID 自動編號 是 用戶編號 Name 文本 否 用戶名稱 Gender 文本 否 性別 IDCard 文本 否 身份證號碼 BankAccount 文本 否 銀行賬號 Telepone 文本 否 電話 Fpassword 文本 否 用戶密碼 WorkForce 文本 否 工作單位 第 四章 詳細設(shè)計與實現(xiàn) 詳細設(shè)計的根本目標是確定應(yīng)該怎樣具體地實現(xiàn)所要求的系統(tǒng)，也就是說，經(jīng)過這個階段的設(shè)計工作，應(yīng)該的出對目標系統(tǒng)的精確描述，從而在編碼階段可以把這個描述直接翻譯成用某個設(shè)計的語言書寫的程序。 詳細設(shè)計的任務(wù)不是具體的編寫程序，而是要設(shè)計出程序的 “藍圖 ”，以后可根據(jù)這個藍圖寫出實際的程序代碼。詳細設(shè)計的目標不僅僅是邏輯上正確地實現(xiàn)每個模塊的功能，更重要的是設(shè)計出的處理過程應(yīng)該盡可能簡明易懂。 登陸模塊的設(shè)計與實現(xiàn) 一個完整的系統(tǒng)一般都會配有一個系統(tǒng)的登陸界面，用于過濾掉非法使用 系統(tǒng)的行為，對于系統(tǒng)數(shù)據(jù)的保護具有不可替代的作用。本系統(tǒng)同樣專門設(shè)定了這樣一個模塊用于給管理員和操作員進入本系統(tǒng)的通道。同時本系統(tǒng)將密碼修改模塊的入口放在了登陸界面上，具體界面設(shè)計如圖 。 圖 登陸界面設(shè)計 界面上設(shè)定了兩個 textlab 控件：賬號，密碼，此處需要用戶輸入或選擇賬號，輸入密碼，選擇權(quán)限。界面下方設(shè)置了四個 mandbutton 按鈕控件，分別是確定、取消、修改密碼和退出。 在界面啟動時，系統(tǒng)執(zhí)行了數(shù)據(jù)庫的連接， 代碼如下： Private Sub Form_Load() =Provider=。Jet OLEDB:database password= amp。 DbPassword amp。 。Data Source= amp。 _ amp。 \data\。Persist Security Info=False = adUseClient End Sub 確定按鈕的后臺代碼如下： Private Sub Command1_Click() Dim rstpchard As New Dim reHard As String Dim getid As String reHard = GetpcHard(getid) select * from getpchard , gCnn, adOpenKeyset, adLockBatchOptimistic If = 0 Then (0) = reHard adAffectCurrent Else If Trim(reHard) Trim((0)) Then MsgBox 對不起，使用不合法請與開發(fā)者聯(lián)系！ , vbInformation End End If End If Dim rec1 As Set rec1 = New select * from 登錄人員 , gCnn, 3, 3 Set rec = New select * from 密碼表 where 姓名 =39。 amp。 amp。 39。and 操作權(quán)限 =39。 amp。 amp。 39。and 密碼 =39。 amp。 amp。 39。, gCnn, 3, 3 If = False Then If rec(操作權(quán)限 ) 管理員 Then = False = False = False Else = True = True CreateNewKey HKEY_CURRENT_USER, ZhiYuanTechnologe SetKeyValue HKEY_CURRENT_USER, ZhiYuanTechnologe, UserName, dlj, REG_SZ SetKeyValue HKEY_CURRENT_USER, ZhiYuanTechnologe, PassWord, dlj, REG_SZ End If rec1(姓名 ) = Guser = Else MsgBox 權(quán)限或密碼不正確，請重試 !, vbInformation End If End Sub 取消按鈕的功能是重置賬號、密碼、權(quán)限框中的數(shù)據(jù)，代碼如下： Private Sub Command2_Click() = = = End Sub 修改密碼按鈕提供本系統(tǒng)修改密碼的功能入口， 隱藏本界面，顯示密碼修改界面， 代碼如下： Private Sub Command4_Click() 1 End Sub 退出按鈕，點擊即退出程序，代碼如下： Private Sub Command3_Click() End End Sub 同時，在系統(tǒng)退出時，還設(shè)定了一個退出確認提示框，以避免錯誤退出，代碼如下： Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Cancel = True Select Case MsgBox(此操作將退出本系統(tǒng)，繼續(xù)嗎？ , vbYesNo, 警告 ) Case vbYes Cancel = False End Case Else Cancel = True End Select End Sub 密碼修改模塊的設(shè)計與實現(xiàn) 對于一個系統(tǒng)來說，密碼修改功能也是必不可少的。本系統(tǒng)的密碼修改功能放在了登陸窗口上 （圖 ） ，界面設(shè)計簡單、合理，用戶需要先輸入自己的賬號信息 確認具有修改資格，確認后，新密碼的輸入框才會激活。輸入兩次相同的密碼后，點擊確認修改按鈕，才會修改成功，若兩次輸入的密碼不一致則提示重 新輸入。 圖 密碼修改界面 界面加載時先將輸入新密碼框跟修改按鈕設(shè)定為不可操作，代碼如下： Private Sub Form_Load() = False = False = False End Sub 確定按鈕：確認管理員或操作員身份，實現(xiàn)代碼如下： Private Sub Command1_Click() Set rec = New select * from 密碼表 where 姓名 =39。 amp。 amp。 39。and 操作權(quán)限=39。 amp。 amp。 39。and 密碼 =39。 amp。 amp。 39。, gCnn, 3, 3 If = False Then = True = True = True Else MsgBox 沒有這個用戶或者用戶密碼不正確 End If End Sub 取消按鈕：同登陸界面的一樣，重置輸入信息。 修改按鈕：先對兩輸入框進行判空，再對比兩次輸入的密碼是否一致，一致則執(zhí)行密碼修改，否則提示重輸，代碼如下： Private Sub Command2_Click() If = Or = Then MsgBox 密碼不能為空 = = Exit Sub End If If Then MsgBox 兩次輸入密碼不相同，請重試 = = Exit Sub Else Dim rec1 As Set rec1 = New select * from 密碼表 where 姓名 =39。 amp。 amp。 39。and 操作權(quán)限 =39。 amp。 amp。 39。and 密碼 =39。 amp。 amp。 39。, gCnn, 3, 3 rec1(密碼 ) = MsgBox 密碼已經(jīng)成功修改 End If End Sub 返回按鈕：取消密碼修改界面的加載，同時顯示登陸界面，代碼如下： Private Sub Command3_Click() Unload Me End Sub Private