【正文】 ……………… 8 第三章 系統(tǒng)的設(shè)計(jì) ……………………………………………………………1 8 3． 1 系統(tǒng)的功能結(jié)構(gòu)設(shè)計(jì)……………………………………………………… 18 3． 2 系統(tǒng)的數(shù)據(jù)庫設(shè)計(jì) 3． 3 界面設(shè)計(jì)與代碼設(shè)計(jì)…………………………………………………………………… 23 ………………………………………………………… 24 結(jié)束語 …………………………………………………………… …………………4 6 致謝 …………………………………………………………………………………4 7 參考文獻(xiàn) ……………………………………………………………………………4 8 摘 要 傳統(tǒng)的電費(fèi)管理都是由工作人員手工查表 ,抄表完成的 ,其中要完成用戶電費(fèi)的收取 ,每月抄度 ,用戶購電情況查詢 ,以及列出欠費(fèi)用戶的信息名單 ,之類的信息 .其工作強(qiáng)度大 ,工作流程繁瑣 ,由于工作人員的不細(xì)心 ,將會造成電費(fèi)收支的出錯也是經(jīng)常發(fā)生的 .鑒于以上原因我們有必要開發(fā)一種幫作電費(fèi)管理 人員的軟件系統(tǒng) ,可以完成檢查用戶用電情況 ,每月抄度 ,信息錄入以及基本數(shù)據(jù)維護(hù)的各項(xiàng)功能 .本系統(tǒng)采用 visual basic 與微軟 Access 數(shù)據(jù)庫方式 .界面盡量做到人性化 ,數(shù)據(jù)維護(hù)方面做到可靠安全 . 關(guān)鍵字 : 電費(fèi)管理 ,visual basic, Access,數(shù)據(jù)庫 Abstract Electricity from the traditional management staff are artisanal Chabiao, meter reading pleted, which should be pleted by the users of electricity per month penalty for users to buy electricity enquiries, and a list of user information channels list such information. Its workintensive, cumbersome workflow, because staff are not careful. would result in the tariff revenue is recurring mistakes. Given the above reasons we need to develop a management software to help make electricity system, the user can plete the inspection of electricity monthly copied degrees, Information includes basic data and the maintenance function. with the system using visual basic Microsoft Access database. as far as possible humanization interface, data maintenance to reliable security. keyword : tariff management, visual basic, Access, the database 第一章 引言 1． 1 課題背 景 傳統(tǒng)的電費(fèi)管理都是由工作人員手工查表 ,抄表完成的 ,其中要完成用戶電費(fèi)的收取 ,每月抄度 ,用戶購電情況查詢 ,以及列出欠費(fèi)用戶的信息名單 ,之類的信息 .其工作強(qiáng)度大 ,工作流程繁瑣 ,由于工作人員的不細(xì)心 ,將會造成電費(fèi)收支的出錯也是經(jīng)常發(fā)生的 .鑒于以上原因我們有必要開發(fā)一種幫作電費(fèi)管理人員的軟件系統(tǒng) ,可以完成檢查用戶用電情況 ,每月抄度 ,信息錄入以及基本數(shù)據(jù)維護(hù)的各項(xiàng)功能 .本系統(tǒng)采用 visual basic 與微軟 Access 數(shù)據(jù)庫方式 .界面盡量做到人性化 ,數(shù)據(jù)維護(hù)方面做到可靠安全 . 1． 2 系統(tǒng)簡介 本系統(tǒng)主 要由以下幾大功能模塊組成 : 一 . 用戶交費(fèi) :(交納電費(fèi) ,本日小節(jié) ) 二 . 本月抄度 :(單戶抄度 多戶抄度 ) 三 . 資料導(dǎo)出 (全部清單 ,欠費(fèi)清單 ) 四 . 數(shù)據(jù)查詢 (電費(fèi)查詢與統(tǒng)計(jì) ,用戶欠費(fèi)查詢 ) 五 . 信息錄入 (資料錄入 ,資料修改 , 資料刪除 ) 六 . 系統(tǒng)數(shù)據(jù)維護(hù) (數(shù)據(jù)備份 ,數(shù)據(jù)恢復(fù) ) 七 . 基本數(shù)據(jù)維護(hù) (用戶類型維護(hù) , 操作員維護(hù) ) 八 . 幫助 九 . 退出 第二章 系統(tǒng)的分析 2． 1 系統(tǒng)開發(fā)的目標(biāo)和思想 本系統(tǒng)主要服務(wù)于 電費(fèi)管理人員的日常工作 .設(shè)計(jì)思路主要參照工作人員抄表 ,記錄資料 ,資料管理 ,信息錄入等方面的工作流程展開的 . 2． 2 系統(tǒng)的可行性分析 本 系統(tǒng)采用 visual 與微軟的 access作為數(shù)據(jù)庫結(jié)合 .在系統(tǒng)編寫上具有可行性 . 經(jīng)濟(jì)方面 :本系統(tǒng)可以服務(wù)電廠 ,電費(fèi)管理單位 ,為企業(yè)節(jié)省人力開支 . 社會方面 :服務(wù)于大眾 ,方便抄表人員工作 ,可靠方便 . 第三章 系統(tǒng)的設(shè)計(jì) 3． 1 系統(tǒng)的功能結(jié)構(gòu)設(shè)計(jì) 3． 2 系統(tǒng)的數(shù)據(jù)庫設(shè)計(jì) 1. 用戶類型表 : 字段名稱 數(shù)據(jù)類型 說明 ATypeID 自動編號 AType 文本 電費(fèi)類型 UNITPRICE 貨幣 Adate 日期 /時間 電費(fèi)設(shè)置 日期 2. 密碼表 : 字段名稱 數(shù)據(jù)類型 姓名 文本 操作權(quán)限 文本 密碼 文本 程序登陸 主界面 用戶交費(fèi) 本月抄費(fèi) 資料導(dǎo)出 數(shù)據(jù)查詢 信息錄入 系統(tǒng)數(shù)據(jù)維護(hù) 基本數(shù)據(jù)維護(hù) 幫助 退出 3. MaxID 表 : 字段名稱 數(shù)據(jù)說明 TableName 文本 MaxID 數(shù)字 3． 3 界面設(shè)計(jì)與代碼設(shè)計(jì) : 3． 4 界面設(shè)計(jì)與代碼設(shè)計(jì) 用戶登陸界面代碼分析 : 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 If = 1 Then Set rec = New select * from 記住密碼 , gCnn, 3, 3 rec(標(biāo)記 ) = 1 If Then rec(姓名 ) = Else rec(姓名 ) = End If If Then rec(權(quán)限 ) = Else rec(權(quán)限 ) = End If If Then rec(密碼 ) = Else rec(密碼 ) = End If Else Set rec = New select * from 記住密碼 , gCnn, 3, 3 rec(標(biāo)記 ) = 0 End If Dim rec1 As Set rec1 = New select * from 登錄人員 , gCnn, 3, 3 Set rec = New select * from 密碼表 where 姓名 =39。 amp。 39。 amp。 39。 amp。 39。 = False = False = False = False 39。 = False Else 39。 = True 39。Jet OLEDB:database password= amp。 。 _ amp。Persist Security Info=False = adUseClient Set rec = New select distinct 姓名 from 密碼表 , gCnn, 3, 3 With Combo2 Do Until .AddItem rec(姓名 ) Loop End With Set rec = Nothing End Sub 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è)計(jì) : Private Sub alllm_Click() = False End Sub Private Sub backup_Click() End Sub Private Sub benrixiaojie_Click() End Sub Private Sub Command1_Click() = False End Sub Private Sub cmdQuery_Click() Dim rst As New select * from panelinfo where holder=39。 amp。 and delflagtrue , gCnn, adOpenStatic, adLockBatchOptimistic If 0 Then = (2) txtUserName(0) = (1) txtUserName(1) = !nowecount txtUserName(2) = !cendcode = (4) txtUserName(3) = Format(!lMoney, ) txtUserName(4) = Format(!bmoney, ) txtUserName(6) = Format(!lsFee, ) 39。 amp。 39。 amp。 39。txtUserName(5) = txtUserName(1) * !lMoney * (!lightScale / 100) + txtUserName(1) * txtUserName(4) * (1 !lightScale / 100) txtUserName(5) = Format(txtUserName(1) * !lMoney * (!lightScale / 100) + !nowecount * !bmoney * (1 !lightScale / 100), ) txtUserName(8) = (9) txtUserName(7) = Format(Val(txtUserName(5)) + Val(txtUserName(6)), ) = (1) End If Set rst = Nothing End Sub Private Sub dcvalue_KeyPress(KeyAscii As Integer) KeyAscii = 0 End Sub Private Sub del_Click() End Sub Private Sub dhcb_Click() End Sub P