【導(dǎo)讀】通過(guò)對(duì)此管理系統(tǒng)的整個(gè)開(kāi)發(fā)過(guò)程的。研制與應(yīng)用，來(lái)進(jìn)一步提高電力企業(yè)的管理水平，為其管理帶來(lái)了一定的方便。本論文論述了系統(tǒng)開(kāi)發(fā)的基本原理，結(jié)構(gòu)，以及電費(fèi)計(jì)算的方法和過(guò)程。力求將所學(xué)到的知識(shí)在信息系統(tǒng)開(kāi)發(fā)中得以全面的應(yīng)用，并。使系統(tǒng)在實(shí)際的操作中能按照設(shè)計(jì)的要求安全有效正確的運(yùn)行。此外，這時(shí)也有了大容量的磁盤(pán)等存儲(chǔ)設(shè)備，并。且已經(jīng)有了專(zhuān)門(mén)的數(shù)據(jù)庫(kù)管理軟件。工作、學(xué)習(xí)和生活方式，推動(dòng)著社會(huì)的發(fā)展。方法引入我國(guó)，在我國(guó)企業(yè)管理中已有20多年時(shí)間。廣泛應(yīng)用于各行各業(yè)。及在市場(chǎng)中的競(jìng)爭(zhēng)具有重要作用。在當(dāng)前形勢(shì)下，信息化是企業(yè)發(fā)展的必由之路。其工作強(qiáng)度大，工作流程繁瑣，由于工作人員的不細(xì)心，將會(huì)造成電費(fèi)收。量也提出了更高的要求。收取,每月抄表,用戶(hù)購(gòu)電情況查詢(xún),以及列出欠費(fèi)用戶(hù)的信息名單之類(lèi)的信息。

　　

【正文】 b 抄表模塊的設(shè)計(jì)與實(shí)現(xiàn) 抄表模塊也是本系統(tǒng)中最重要的功能模塊之一，它負(fù)責(zé)電費(fèi)的錄入過(guò)程，是用電數(shù)據(jù)進(jìn)入系統(tǒng)的主要途徑 。分單戶(hù)抄表和多戶(hù)抄表如圖 、 。 圖 多戶(hù)抄表 圖 單戶(hù)抄表 單戶(hù)抄表頁(yè)面加載時(shí)執(zhí)行代碼： Private Sub Form_Load() Dim rst As New Dim sqlEdit As String dtpwdate(1).Value = Format(Now, yyyymmdd) sqlEdit = select * from panelinfo sqlEdit = sqlEdit amp。 where holderid=39。 amp。 Trim((0)) amp。 39。and delflagtrue sqlEdit, gCnn, adOpenStatic, adLockBatchOptimistic If Not Then txtUserName(0) = (1) txtUserName(1) = (2) txtUserName(2) = !cendcode dtpwdate(0).Value = (4) End If buttontime = False End Sub 單戶(hù)抄表界面的確定按鈕執(zhí)行代碼： Private Sub Command2_Click() Dim n As New Dim rstE As New Dim cmdExe As New Dim nowEv As Double Dim sqlAdd As String If Trim(txtUserName(0).Text) = Then MsgBox 沒(méi)有要抄表用戶(hù)，請(qǐng)先添加用戶(hù)！ , vbInformation Exit Sub End If If Trim(txtUserName(9).Text) = Then MsgBox 請(qǐng)先輸入數(shù)據(jù)！ , vbInformation Exit Sub End If If Trim(txtUserName(9).Text) Trim(txtUserName(2).Text) Then MsgBox 輸入數(shù)據(jù)錯(cuò)誤，當(dāng)前止碼太小！ , vbInformation Exit Sub End If =Provider=。Jet OLEDB:database password= amp。 DbPassword amp。 。Data Source= amp。 _ amp。 \data\。Persist Security Info=False = adUseClient = n select nowecount from panelinfo where holderID= 39。 amp。 Trim(txtUserName(0)) amp。 39。, n, adOpenStatic, adLockBatchOptimistic nowEv=Val((0).Value)+(Val(txtUserName(9))Val(txtUserName(2))) sqlAdd=update panelinfo set LEndPCode=amp。 Val(txtUserName(2).Text) amp。 ,cEndCode= amp。 Val(txtUserName(9).Text) amp。 ,nowEcount= amp。 nowEv amp。 ,writedate= amp。 dtpwdate(1) amp。 where holderID= 39。 amp。 Trim(txtUserName(0)) amp。 39。 = sqlAdd sqlAdd 39。 sqlAdd txtUserName(2).Text = txtUserName(9) txtUserName(9) = MsgBox 數(shù)據(jù)保存完成！ , vbInformation Unload Me End Sub 多戶(hù)抄表界面加載時(shí)的執(zhí)行代碼如下： Private Sub Form_Load() Dim n As New Dim cmd As New = 0: = 0 39。若操作員為 1 級(jí)，就將刪除按鈕凍結(jié) =gCnn39。PROVIDER=。 Jet OLEDB:database password= amp。 DbPassword amp。 。Data Source= amp。 AppPath amp。 \data\。 = select * from panelInfo order by holderid Set txtFields(0).DataSource = datPrimaryRS txtFields(0).DataField = HolderID Set = datPrimaryRS If gUserID = 1 Then = dbgAutomatic Else = dbgVertical End If End Sub 多戶(hù)抄表界面的確定按鈕所執(zhí)行的代碼同單戶(hù)抄表中的一樣，此處不再重復(fù)羅列。 信息錄入 模塊的設(shè)計(jì)與實(shí)現(xiàn) 本系統(tǒng)的信息錄入模塊實(shí)現(xiàn)的功能是用電客戶(hù)信息的增加、修改、刪除?？蛻?hù)信息增加界面設(shè)計(jì)如圖 。 圖 增加用電客戶(hù) 頁(yè)面加載時(shí)執(zhí)行的代碼如下： Private Sub Form_Load() txtUserName(3).Text = 100 txtUserName(7).Text = Guser = Format(Now, yyyyMMdd) Dim rstJB As New Set = gCnn = adUseClient = adLockBatchOptimistic = adOpenKeyset select * from 用戶(hù)類(lèi)型 Set dcob 用途 .DataSource = rstJB Set dcob 用途 .RowSource = rstJB dcob 用途 .BoundColumn = ATYPEID dcob 用途 .ListField = ATYPE If 0 Then dcob 用途 .Text = (1) amp。 (5) = Format((2), ) End If disMax End Sub 確定添加按鈕所執(zhí)行的部分代碼如下： Private Sub cmdAsure_Click() select*from panelinfo where holder=39。amp。Trim (txtUserName(1).Text) amp。 39。, n, adOpenStatic, adLockBatchOptimistic If 0 Then txtUserName(1).Text = txtUserName(1).Text amp。 End If reD = gGetMaxKey(panelid) sqlAdd=insertinto panelinfo(holderid, holder, LEndPCode, CopyDate, lightscale,lsfee,lmoney,bmoney,ame,memotext,inia,Atimes,AtypeID) values (39。 amp。 txtUserName(0) amp。 39。,39。 amp。 txtUserName(1) amp。 39。, amp。 Val(txtUserName(2)) amp。 , amp。 amp。 , amp。 Val(txtUserName(3)) amp。 , amp。 Val(txtUserName(4)) amp。 , amp。 Val(txtUserName(5)) amp。 , amp。 Val(txtUserName(6)) amp。 ,39。 amp。 txtUserName(7) amp。 39。,39。 amp。 txtUserName(8) amp。 39。, amp。 Val(txtUserName(2)) amp。 , amp。 Val(Text1) amp。 , amp。 Val(dcob 用途 .BoundText) amp。 ) sqlAdd MsgBox 數(shù)據(jù)添加完成！ , vbInformation disMax txtUserName(3).Text = 100 For i = 1 To 8 If i 5 And i 6 And i 3 And i 7 Then txtUserName(i) = End If Next End Sub 客戶(hù)信息修改、刪除 ，設(shè)計(jì)的界面圖如圖 。 圖 客戶(hù)信息修改 其實(shí)現(xiàn)代碼跟客戶(hù)信息增加類(lèi)似，此處不再羅列。 基本 數(shù)據(jù)維護(hù)模塊的設(shè)計(jì)與實(shí)現(xiàn) 本系統(tǒng)的基本數(shù)據(jù)維護(hù)模塊提供了用電 類(lèi)型維護(hù)功能和管理員維護(hù)功能。 用電類(lèi)型維護(hù)主要要了設(shè)定不同的用電種類(lèi)，比如居民用電、工業(yè)用電等，界面設(shè)計(jì)如圖 。 圖 用電類(lèi)型維護(hù) 界面加載時(shí)執(zhí)行的 核心 代碼如下： Private Sub Form_Load() =Provider=。Jet OLEDB:database password= amp。 DbPassword amp。 。Data Source= amp。 amp。 \data\。Persist Security Info=False = select * from 用戶(hù)類(lèi)型 order by ATYPEId If 0 Then End If Set = adoList = vbDefault End Sub 其中添加 、刪除按鈕的代碼如下： Private Sub cmdadd_Click() Dim n As New Dim cmd As New =Provider=。Jet OLEDB:database password= amp。 DbPassword amp。 。Data Source= amp。 amp。 \data\。Persist Security Info=False Set = n = insert into 用戶(hù)類(lèi)型 (ATYPE,UNITPRICE) values(39。新名稱(chēng) 39。,0) Call Form_Load Exit Sub End Sub Private Sub cmdDelete_Click() Dim n As New Dim cmd As New If MsgBox( 你確定要?jiǎng)h除該數(shù)據(jù)嗎 ? , vbInformation + vbYesNo) vbYes Then Exit Sub End If If = 0 Then Exit Sub End If =Provider=。Jet OLEDB:database password= amp。 DbPassword amp。 。Data Source= amp。 amp。 \data\。Persist Security Info=False Set = n = delete * from 用戶(hù)類(lèi)型 where ATYPEID= amp。 (0) Call Form_Load End Sub 管理員維護(hù)功能實(shí)現(xiàn)管理員和操作員的增加、刪除，設(shè)定需要管理員身份才能使用，界面設(shè)計(jì)如圖 。 圖 管理員維護(hù)界面 添加、刪除用戶(hù)按鈕的執(zhí)行代碼如下： Private Sub Command1_Click() If = Or = Or = Then