【正文】 c = New select * from 記住密碼, gCnn, 3, 3If rec(標(biāo)記) = 1 Then = rec(姓名) = rec(權(quán)限) = rec(密碼)End IfEnd SubPrivate Sub Form_Load() = Provider=。 = True = True = True CreateNewKey HKEY_CURRENT_USER, ZhiYuanTechnologe SetKeyValue HKEY_CURRENT_USER, ZhiYuanTechnologe, UserName, dlj, REG_SZ SetKeyValue HKEY_CURRENT_USER, ZhiYuanTechnologe, PassWord, dlj, REG_SZ39。 = False39。, gCnn, 3, 3If = False Then If rec(操作權(quán)限) 管理員 Then39。 amp。and 密碼=39。 amp。and 操作權(quán)限=39。 amp。 畢業(yè)設(shè)計(jì)電表管理系統(tǒng)摘 要…………………………………………………………………………1Abstract………………………………………………………………………2第一章 引言…………………………………………………………………41．1 課題背景……………………………………………………………………41．2 系統(tǒng)簡(jiǎn)介……………………………………………………………………5第二章 系統(tǒng)的分析……………………………………………………………62．1 系統(tǒng)開發(fā)的目標(biāo)和思想……………………………………………………62．2 系統(tǒng)的可行性分析…………………………………………………………8第三章 系統(tǒng)的設(shè)計(jì)……………………………………………………………183．1 系統(tǒng)的功能結(jié)構(gòu)設(shè)計(jì)………………………………………………………183．2 系統(tǒng)的數(shù)據(jù)庫設(shè)計(jì)3．3 界面設(shè)計(jì)與代碼設(shè)計(jì)……………………………………………………………………23…………………………………………………………24結(jié)束語………………………………………………………………………………46致謝…………………………………………………………………………………47參考文獻(xiàn)……………………………………………………………………………48摘 要 傳統(tǒng)的電費(fèi)管理都是由工作人員手工查表,抄表完成的,其中要完成用戶電費(fèi)的收取,每月抄度,用戶購(gòu)電情況查詢,以及列出欠費(fèi)用戶的信息名單,工作流程繁瑣,由于工作人員的不細(xì)心,可以完成檢查用戶用電情況,每月抄度, basic ,數(shù)據(jù)維護(hù)方面做到可靠安全.關(guān)鍵字: 電費(fèi)管理,visual basic, Access,數(shù)據(jù)庫AbstractElectricity 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)的收取,每月抄度,用戶購(gòu)電情況查詢,以及列出欠費(fèi)用戶的信息名單,工作流程繁瑣,由于工作人員的不細(xì)心,可以完成檢查用戶用電情況,每月抄度, basic ,數(shù)據(jù)維護(hù)方面做到可靠安全.1．2 系統(tǒng)簡(jiǎn)介 本系統(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)和思想 ,記錄資料,資料管理,信息錄入等方面的工作流程展開的.2．2 系統(tǒng)的可行性分析本系統(tǒng)采用visual .經(jīng)濟(jì)方面:本系統(tǒng)可以服務(wù)電廠,電費(fèi)管理單位,為企業(yè)節(jié)省人力開支.社會(huì)方面:服務(wù)于大眾,方便抄表人員工作,可靠方便.第三章 系統(tǒng)的設(shè)計(jì)3．1 系統(tǒng)的功能結(jié)構(gòu)設(shè)計(jì)程序登陸主界面用戶交費(fèi)本月抄費(fèi)資料導(dǎo)出數(shù)據(jù)查詢信息錄入系統(tǒng)數(shù)據(jù)維護(hù)基本數(shù)據(jù)維護(hù)幫助退出3．2 系統(tǒng)的數(shù)據(jù)庫設(shè)計(jì)1. 用戶類型表:字段名稱數(shù)據(jù)類型說明ATypeID自動(dòng)編號(hào)AType文本電費(fèi)類型UNITPRICE貨幣Adate日期/時(shí)間電費(fèi)設(shè)置日期2. 密碼表: 字段名稱數(shù)據(jù)類型姓名文本操作權(quán)限文本密碼文本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 StringDim getid As StringreHard = GetpcHard(getid) select * from getpchard , gCnn, adOpenKeyset, adLockBatchOptimisticIf = 0 Then (0) = reHard adAffectCurrentElse If Trim(reHard) Trim((0)) Then MsgBox 對(duì)不起，使用不合法請(qǐng)與開發(fā)者聯(lián)系！ , vbInformation End End IfEnd IfIf = 1 ThenSet rec = New select * from 記住密碼, gCnn, 3, 3rec(標(biāo)記) = 1If Thenrec(姓名) = Elserec(姓名) = End IfIf Thenrec(權(quán)限) = Elserec(權(quán)限) = End IfIf Thenrec(密碼) = Elserec(密碼) = End IfElseSet rec = New select * from 記住密碼, gCnn, 3, 3rec(標(biāo)記) = 0End IfDim rec1 As Set rec1 = New select * from 登錄人員, gCnn, 3, 3Set rec = New select * from 密碼表 where 姓名=39。 amp。 39。 amp。 39。 amp。 39。 = False = False = False = False39。 = False Else 39。 = True39。Jet OLEDB:database password= amp。 。 _ amp。Persist Security Info=False = adUseClientSet rec = New select distinct 姓名 from 密碼表, gCnn, 3, 3With Combo2Do Until .AddItem rec(姓名)LoopEnd WithSet rec = NothingEnd SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)Cancel = TrueSelect Case MsgBox(此操作將退出本系統(tǒng)，繼續(xù)嗎？, vbYesNo, 警告)Case vbYesCancel = FalseEndCase ElseCancel = TrueEnd SelectEnd Sub:主界面代碼設(shè)計(jì):Private Sub alllm_Click() = FalseEnd SubPrivate Sub backup_Click() End SubPrivate Sub benrixiaojie_Click()End SubPrivate Sub Command1_Click() = FalseEnd SubPrivate 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 = NothingEnd SubPrivate Sub dcvalue_KeyPress(KeyAscii As Integer)KeyAscii