電表管理系統(tǒng)

1、畢業(yè)設(shè)計(jì)電表管理系統(tǒng)班級(jí)姓名學(xué)號(hào)摘要 1Abstract 2第一章引言 41. 1 課題背景 41 . 2 系統(tǒng)簡(jiǎn)介 5第二章系統(tǒng)的分析 62. 1 系統(tǒng)開(kāi)發(fā)的目標(biāo)和思想第三章 系統(tǒng)的設(shè)計(jì)183 1 系統(tǒng)的功能結(jié)構(gòu)設(shè)計(jì)3 2 系統(tǒng)的數(shù)據(jù)庫(kù)設(shè)計(jì)3 3 界面設(shè)計(jì)與代碼設(shè)計(jì)24結(jié)束語(yǔ)致謝參考文獻(xiàn)摘要傳統(tǒng)的電費(fèi)管理都是由工作人員手工查表 ,抄表完成的 ,其中要完成用戶 電費(fèi)的收取 , 每月抄度 ,用戶購(gòu)電情況查詢 , 以及列出欠費(fèi)用戶的信息名單 ,之類 的信息.其工作強(qiáng)度大 ,工作流程繁瑣 ,由于工作人員的不細(xì)心 ,將會(huì)造成電費(fèi)收 支的出錯(cuò)也是經(jīng)常發(fā)生的 . 鑒于以上原因我們有必要開(kāi)發(fā)一種幫作電費(fèi)管理

2、人員 的軟件系統(tǒng) , 可以完成檢查用戶用電情況 , 每月抄度 , 信息錄入以及基本數(shù)據(jù)維護(hù) 的各項(xiàng)功能 . 本系統(tǒng)采用 visual basic 6.0 與微軟 Access 數(shù)據(jù)庫(kù)方式 . 界面盡量 做到人性化 , 數(shù)據(jù)維護(hù)方面做到可靠安全 .關(guān)鍵字 : 電費(fèi)管理 ,visual basic, Access, 數(shù)據(jù)庫(kù)AbstractElectricity from the traditional management staff are artisanal Chabiao, meter reading completed, which should be completed by the u

3、sers of electricity per month penalty for users to buy electricity enquiries, and a list of user information channels list such information. Its work-intensive, cumbersome workflow, because staff are not careful. would result in the tariff revenue is recurring mistakes. Given the above reasons we ne

4、ed to develop a management software to help make electricity system, the user can complete the inspection of electricity monthly copied degrees, Information includes basic data and the maintenance function. with the system using visual basic Microsoft Access 6.0 database. as far as possible humaniza

5、tion interface, data maintenance to reliable security.keyword : tariff management, visual basic, Access, the database第一章 引言11 課題背景傳統(tǒng)的電費(fèi)管理都是由工作人員手工查表 ,抄表完成的 ,其中要完成用戶電 費(fèi)的收取 ,每月抄度, 用戶購(gòu)電情況查詢 ,以及列出欠費(fèi)用戶的信息名單 , 之類的 信息.其工作強(qiáng)度大,工作流程繁瑣 ,由于工作人員的不細(xì)心 ,將會(huì)造成電費(fèi)收支 的出錯(cuò)也是經(jīng)常發(fā)生的 . 鑒于以上原因我們有必要開(kāi)發(fā)一種幫作電費(fèi)管理人員的 軟件系統(tǒng) ,可以完成檢查用戶用

6、電情況 , 每月抄度 ,信息錄入以及基本數(shù)據(jù)維護(hù)的 各項(xiàng)功能 . 本系統(tǒng)采用 visual basic 6.0 與微軟 Access 數(shù)據(jù)庫(kù)方式 . 界面盡量做 到人性化 , 數(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ù)）

7、 八 . 幫助九. 退出第二章 系統(tǒng)的分析2 1 系統(tǒng)開(kāi)發(fā)的目標(biāo)和思想本系統(tǒng)主要服務(wù)于電費(fèi)管理人員的日常工作 . 設(shè)計(jì)思路主要參照 工作人員抄表 ,記錄資料 , 資料管理 ,信息錄入等方面的工作流程展開(kāi) 的.22 系統(tǒng)的可行性分析本系統(tǒng)采用 visual basic6.0 與微軟的 access 作為數(shù)據(jù)庫(kù) 結(jié)合 . 在系統(tǒng)編寫上具有可行性 .經(jīng)濟(jì)方面 : 本系統(tǒng)可以服務(wù)電廠 , 電費(fèi)管理單位 , 為企業(yè)節(jié)省 人力開(kāi)支 .社會(huì)方面 : 服務(wù)于大眾 , 方便抄表人員工作 , 可靠方便 .第三章 系統(tǒng)的設(shè)計(jì)3 1 系統(tǒng)的功能結(jié)構(gòu)設(shè)計(jì)3. 2系統(tǒng)的數(shù)據(jù)庫(kù)設(shè)計(jì)1.用戶類型表：字段名稱數(shù)據(jù)類型說(shuō)明ATy

8、pelD自動(dòng)編號(hào)AType文本:電費(fèi)類型UNITPRICE貨幣Adate日期/時(shí)間電費(fèi)設(shè)置日期2.密碼表:字段名稱數(shù)據(jù)類型姓名文本操作權(quán)限文本密碼文本3. MaxID表:字段名稱數(shù)據(jù)說(shuō)明TableName文本MaxID數(shù)字3. 3界面設(shè)計(jì)與代碼設(shè)計(jì)1.用戶登陸界面設(shè)計(jì)：用戶登陸界面代碼分析：Private Sub Comma nd1_Click()Dim rstpchard As New ADODB.RecordsetDim reHard As Stri ngDim getid As Stri ngreHard = GetpcHard(getid)rstpchard.Ope n "s

9、elect * from getpchard ", gCnn, adOpe nKeyset, adLockBatchOptimisticIf rstpchard.RecordCo unt = 0 The nrstpchard.AddNewrstpchard.Fields(O) = reHardrstpchard.UpdateBatch adAffectCurre ntElseIf Trim（reHard） <> Trim（rstpchard.Fields（0） ThenMsgBox " 對(duì)不起，使用不合法請(qǐng)與開(kāi)發(fā)者聯(lián)系！ ", vbInformatio

10、nEndEnd IfEnd IfIf Check1.Value = 1 ThenSet rec = New ADODB.Recordsetrec.Open "select * from 記住密碼 ", gCnn, 3, 3rec（"標(biāo)記"）="1"If Combo2.Text <> "" Thenrec（"姓名"）=Combo2.TextElserec（"姓名"）=""End IfIf Combo1.Text <> "&q

11、uot; Thenrec（"權(quán)限"）=Combol.TextElserec（"權(quán)限"）=""End IfIf Text2.Text <> "" Thenrec（"密碼"）=Text2.TextElserec（"密碼"）=""End Ifrec.Updaterec.CloseElseSet rec = New ADODB.Recordsetrec.Open "select * from 記住密碼", gCnn, 3, 3rec

12、（"標(biāo)記"）="0"rec.Updaterec.CloseEnd IfDim rec1 As ADODB.RecordsetSet rec1 = New ADODB.Recordsetrec1.Open "select * from 登錄人員", gCnn, 3, 3Set rec = New ADODB.Recordsetrec.Open "select * from 密碼表 where 姓名='" & Combo2.Text & "'and 操作權(quán)限 ='&qu

13、ot; & Combo1.Text & "'and 密碼='" & Text2.Text & "'", gCnn, 3, 3If rec.EOF = False ThenIf rec（"操作權(quán)限"） <> "管理員"Then'FRMMAIN.XZCK.Enabled = FalseMDIme.mczy.Enabled = FalseMDIme.xtwh.Enabled = FalseMDIme.del.Enabled = False'

14、;FRMMAIN.DJGL.Enabled = False'FRMMAIN.delte.Enabled = FalseElse' Me.XZCK.Enabled = TrueMDIme.mczy.Enabled = TrueMDIme.xtwh.Enabled = TrueCreateNewKey HKEY_CURRENT_USER, "ZhiYuanTechnologe"SetKeyValue HKEY_CURRENT_USER, "ZhiYuanTechnologe","UserName", dlj, REG_SZ

15、SetKeyValue HKEY_CURRENT_USER, "ZhiYuanTechnologe","PassWord", dlj, REG_SZ'FRMMAIN.DJGL.Enabled = True'FRMMAIN.delte.Enabled = TrueEnd Ifrec1("姓名")=Combo2.Textrec1.Updaterec1.CloseMe.HideGuser = Combo2.TextMDIme.ShowElseMsgBox "權(quán)限或密碼不正確，請(qǐng)重試 !", vbInfor

16、mationEnd Ifrec.CloseEnd SubPrivate Sub Command11_Click()End SubPrivate Sub Command2_Click()Combo2.Text = ""Text2.Text = ""Combo1.Text = ""End SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Command4_Click（）Me.HideFRMMMXG.Show 1End SubPrivate Sub Form_Activate（）Tex

17、t2.Text = ""Combo1.Text = ""Combo2.Text = ""Set rec = New ADODB.Recordset rec.Open "select * from 記住密碼 ", gCnn, 3, 3If rec（"標(biāo)記"）="0" Or rec（"標(biāo)記"）="1" ThenCheckl.Value = rec（'標(biāo)記"）End If rec.CloseSet rec = New ADO

18、DB.Recordsetrec.Open "select * from 記住密碼 ", gCnn, 3, 3If rec（"標(biāo)記"）=1 The nCombo2.Text = rec（'姓名"）Combol.Text = rec（'權(quán)限"）Text2.Text = rec（"密碼"）End If rec.CloseCommand1.SetFocusEnd SubPrivate Sub Form_Load（）gCnn.ConnectionString = "Provider=Microsof

19、t.Jet.OLEDB.4.0;Jet OLEDB:database password= " & DbPassword & " ;Data Source= " & _App.Path & "datadbdb.mdb;Persist Security Info=False" gCnn.CursorLocation = adUseClient gCnn.OpenSet rec = New ADODB.Recordsetrec.Open "select distinct 姓名 from 密碼表",

20、gCnn, 3, 3 With Combo2Do Until rec.EOF.Additem rec（"姓名"）rec.MoveNextLoopEnd Withrec.CloseSet rec = NothingEnd SubPrivate Sub Form_QueryUnload（Cancel As integer, UnloadMode As integer）Cancel = TrueSelect Case MsgBox（此操作將退出本系統(tǒng)，繼續(xù)嗎？", vbYesNo,"警告"）Case vbYes Cancel = FalseEndCa

21、se Else Cancel = True End Select End Sub2.主界面設(shè)計(jì) :4舸懵歸用戶交命©聿月抄農(nóng)©貴料尊出血 顧玄廚石丘靈入 務(wù)數(shù)疽堆護(hù)辺塞樂(lè)藪融滬辺幅助血追出牢Z|收觀電費(fèi)Q腿出豐月抄表肉世赫況查誨Q矢費(fèi)恬況查詢查謁條件用戶名稱主界面代碼設(shè)計(jì)：Private Sub alllm_Click() frmList.qfFIg = False frmList.ShowEnd SubPrivate Sub backup_Click() frmbeife n.ShowEnd SubPrivate Sub ben rixiaojie_Click() frm

22、Co un t.ShowEnd SubPrivate Sub Comma nd1_Click() frameFee.Visible = FalseEnd SubPrivate Sub cmdQuery_Click()Dim rst As New ADODB.Recordsetrst.Open " select * from panelinfo where holder='" & Me.txtUser & "' and delflag<>true ", gCnn, adOpenStatic, adLockBatc

23、hOptimisticIf rst.RecordCount <> 0 Thendcvalue.Text = rst.Fields(2)txtUserName(0) = rst.Fields(1)txtUserName(1) = rst.Fields!nowecount txtUserName(2) = rst.Fields!cendcode dtpwdate.Value = rst.Fields(4) txtUserName(3) = Format(rst.Fields!lMoney, "#0.00") txtUserName(4) = Format(rst.F

24、ields!bmoney, "#0.00") txtUserName(6) = Format(rst.Fields!lsFee, "#0.00") 'txtUserName(5) = txtUserName(1) * rst.Fields!lMoney * (rst.Fields!lightScale / 100) + txtUserName(1) * txtUserName(4) * (1 - rst.Fields!lightScale / 100)txtUserName(5) = Format(txtUserName(1) * rst.Fie

25、lds!lMoney * (rst.Fields!lightScale / 100) + rst.Fields!nowecount * rst.Fields!bmoney * (1 - rst.Fields!lightScale / 100), "#0.00")txtUserName(8) = rst.Fields(9)txtUserName(7) = Format(Val(txtUserName(5) + Val(txtUserName(6), "#0.00")dcNum.Text = rst.Fields(1)ElseMsgBox " 沒(méi)有

26、查詢到數(shù)據(jù) ! ", vbInformationEnd If rst.Close Set rst = NothingEnd SubPrivate Sub dcNum_Click(Area As Integer)Dim rst As New ADODB.Recordsetrst.Open " select * from panelinfo where holderid='" & dcNum.Text & "'and delflag<>true ", gCnn, adOpenKeyset, adLockB

27、atchOptimisticIf Not rst.EOF Thendcvalue.Text = rst.Fields(2)txtUserName(0) = rst.Fields(1)txtUserName(1) = rst.Fields!nowecounttxtUserName(2) = rst.Fields!cendcode dtpwdate.Value = rst.Fields(4)txtUserName(3) = Format(rst.Fields!lMoney, "#0.00")txtUserName(4) = Format(rst.Fields!bmoney, &

28、quot;#0.00")txtUserName(6) = Format(rst.Fields(8), "#0.00")txtUserName(5) = Format(txtUserName(1) * txtUserName(3) * (rst.Fields!lightScale / 100) + txtUserName(1) * txtUserName(4) * (1 - rst.Fields!lightScale / 100), "#0.00")txtUserName(8) = rst.Fields(9)txtUserName(7) = Fo

29、rmat(Val(txtUserName(5) + Val(txtUserName(6), "#0.00")End Ifrst.CloseEnd SubPrivate Sub dcvalue_Click(Area As Integer)Dim rst As New ADODB.Recordsetrst.Open " select * from panelinfo where holderid='" & dcvalue.BoundText & "' and delflag<>true ", g

30、Cnn, adOpenStatic, adLockBatchOptimisticIf Not rst.EOF Thendcvalue.Text = rst.Fields(2)txtUserName(0) = rst.Fields(1)txtUserName(1) = rst.Fields!nowecounttxtUserName(2) = rst.Fields!cendcodedtpwdate.Value = rst.Fields(4)txtUserName(3) = Format(rst.Fields!lMoney, "#0.00")txtUserName(4) = Fo

31、rmat(rst.Fields!bmoney, "#0.00")txtUserName(6) = Format(rst.Fields!lsFee, "#0.00")'txtUserName(5) = txtUserName(1) * rst.Fields!lMoney * (rst.Fields!lightScale / 100) + txtUserName(1) * txtUserName(4) * (1 - rst.Fields!lightScale / 100)txtUserName(5) = Format(txtUserName(1) *

32、 rst.Fields!lMoney * (rst.Fields!lightScale / 100) + rst.Fields!nowecount * rst.Fields!bmoney * (1 - rst.Fields!lightScale / 100), "#0.00")txtUserName(8) = rst.Fields(9)txtUserName(7) = Format(Val(txtUserName(5) + Val(txtUserName(6), "#0.00")dcNum.Text = rst.Fields(1)End Ifrst.Cl

33、oseSet rst = NothingEnd SubPrivate Sub dcvalue_KeyPress(KeyAscii As Integer)KeyAscii = 0End SubPrivate Sub del_Click() frmdel.Show End SubPrivate Sub dhcb_Click() usrcopyP.Show End SubPrivate Sub dhcp_Click() frmCopyP.Show End SubPrivate Sub duohu_Click() frmCuifei.muser1 = 2 frmCuifei.Show End SubP

34、rivate Sub edit_Click() frmEdit.Show End SubPrivate Sub exit_Click()EndEnd SubPrivate Sub insert_Click() frmInsert.Show 1 End SubPrivate Sub jiaonadianfei_Click() frmFee.ShowEnd SubPrivate Sub M_USERYTPE_Click()FRMUSERTYPE.Show 1End SubPrivate Sub MDIForm_Load()loadAddEnd SubPublic Sub loadAdd() If

35、rst.State = 1 Thenrst.CloseEnd If rst.Open " select * from panelinfo where delflag<>true ", gCnn, adOpenKeyset, adLockBatchOptimisticIf rst.RecordCount <> 0 ThenSet dcvalue.RowSource = rst dcvalue.BoundColumn = "holderID" dcvalue.ListField = "holder" Set dcN

36、um.DataSource = rst Set dcNum.RowSource = rst dcNum.ListField = "holderid"If Not rst.EOF ThendcNum.Text = rst.Fields!holderiddcvalue.Text = rst.Fields(2) txtUserName(0) = rst.Fields(1) txtUserName(1) = rst.Fields!nowecount txtUserName(2) = rst.Fields!cendcode dtpwdate.Value = rst.Fields(4)

37、 txtUserName(3) = Format(rst.Fields!lMoney, "#0.00") txtUserName(4) = Format(rst.Fields!bmoney, "#.0.00") txtUserName(6) = rst.Fields!lsFee txtUserName(5) = Val(txtUserName(1) * Val(txtUserName(3) * (Val(rst.Fields!lightScale) / 100) + Val(txtUserName(1) * Val(txtUserName(4) * (1

38、 - rst.Fields!lightScale / 100)txtUserName(8) = rst.Fields(9) txtUserName(7) = Val(txtUserName(5) + Val(txtUserName(6)rst.Fields!cFeeMoney = txtUserName(7)rst.UpdateBatch adAffectCurrentEnd IfEnd IfEnd SubPublic Sub loadData(Hid As String) Dim rst As New ADODB.RecordsetDim cnn As New ADODB.Connectio

39、nDim Atimes As IntegerDim sqlAdd As String cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:database password= " & DbPassword & " ;Data Source= " & _App.Path & "datadbdb.mdb;Persist Security Info=False" cnn.CursorLocation = adUseClient

40、cnn.OpenIf Trim(Hid) <> "" Thenrst.Open " select * from panelinfo where holderid='" & Hid & "' and delflag<>true ", cnn, adOpenStatic, adLockBatchOptimisticElserst.Open " select * from panelinfo where delflag<>true ", cnn, adO

41、penStatic, adLockBatchOptimisticEnd IfIf Not rst.EOF ThendcNum.Text = rst.Fields!holderid dcvalue.Text = rst.Fields(2) txtUserName(0) = rst.Fields(1) txtUserName(1) = rst.Fields!nowecount txtUserName(2) = rst.Fields!cendcode dtpwdate.Value = rst.Fields(4) txtUserName(3) = Format(rst.Fields!lMoney, &

42、quot;#0.00") txtUserName(4) = Format(rst.Fields!bmoney, "#0.00") txtUserName(6) = Format(rst.Fields!lsFee, "#0.00") 'txtUserName(5) = Format(txtUserName(1) * txtUserName(3) * (rst.Fields!lightScale / 100) + txtUserName(1) * txtUserName(4) * (1 - rst.Fields!lightScale / 1

43、00), "#0.00")If rst.Fields!Atimes = 0 ThenAtimes = 1ElseAtimes = rst.Fields!AtimesEnd If txtUserName(5) = Format(Val(txtUserName(1) * txtUserName(3) * Atimes, "#0.00")txtUserName(8) = rst.Fields(9)txtUserName(7) = Format(Val(txtUserName(5) + Val(txtUserName(6), "#0.00")

44、rst.Fields!cFeeMoney = txtUserName(7) rst.UpdateBatch adAffectCurrentEnd If rst.Closecnn.CloseEnd SubPrivate Sub MDIForm_Unload(Cancel As Integer) gCnn.CloseSet gcon = NothingEnd SubPrivate Sub mgcf_Click() frmFeefind.Show End SubPrivate Sub mhf_Click() frmdaoru.Show End SubPrivate Sub msf_Click() f

45、rmFind1.Show End SubPrivate Sub qianfeilm_Click() frmList.qfFlg = True frmList.ShowEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Trim(Button.Key)Case "a" frmFee.Show 1 Case "b"frmCopyP.ShowCase "c"frmFee.Show 1Case "d"

46、frmbeifen.Show 1Case "e" frmdaoru.Show 1Case "f" frmFeefind.Show 1Case "g" frmFind1.Show 1Case "dhcb1"Case "dbcb2"Case "j"X = MsgBox(" 真的要退出嗎？ ", vbYesNo + vbQuestion, "警告 ") If X = vbYes ThenEndElseEnd IfEnd SelectEnd S

47、ubPrivate Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)Select Case ButtonMenu.KeyCase "dhcb1" frmCopyP.ShowCase "dhcb2"usrcopyP.ShowEnd SelectEnd SubPrivate Sub weihu_Click()FRMYHSD.ShowEnd SubPrivate Sub yihu_Click() frmCuifei.muser1 = 1 frmCuifei.Show

48、End Sub 4. 備份界面設(shè)計(jì) :EiCAand SettingsEs桌面rridata|xpocx蠱電表返叵備份代碼設(shè)計(jì)：Private Sub Comma nd1_Click()Dim a As Stri nga = App.Patha = a & ""b = Text1.Text'On Error GoTo errha ndle:Dim file name As Stri ngfile name = "" & Text1.Text & "dbdb.mdb"If a = Text1.Text T

49、he nMsgBox "備份目錄與原文件目錄相同，請(qǐng)重新選擇!"Exit SubEnd IfIf Dir("" & b & "dbdb.mdb") <> "" ThenDim llp As Stri ngllp = MsgBox("此目錄下已有該文件，要覆蓋嗎？", vbYesNo,"備份文件")If llp = vbYes The nKill ("" & b & "dbdb.mdb")Fil

50、eCopy "" & a & "datadbdb.mdb", "" & b & "dbdb.mdb"Dim ll = MsgBox("備份成功！", vbOKOnly,"提示")ElseExit SubEnd IfElseFileCopy "" & a & "datadbdb.mdb", "" & b & "dbdb.mdb"Dim

51、llll = MsgBox("備份成功 !", vbOKOnly, " 提示 ")End IfExit Sub'errhandle:'MsgBox "出現(xiàn)錯(cuò)誤，不能復(fù)制 ", vbOKOnly + vbCritical, " 復(fù)制文件 "'Resume NextEnd SubPrivate Sub Command2_Click()'dy'Me.HideUnload MeEnd SubPrivate Sub Dir1_Change()'Drive1.Drive = Di

52、r1If Right(Dir1.Path, 1) <> "" ThenText1.Text = Dir1.Path + ""ElseText1.Text = Dir1.PathEnd IfCommand1.Enabled = TrueEnd SubPrivate Sub Dir1_Click()If Right(Dir1.Path, 1) <> "" ThenText1.Text = Dir1.Path + ""ElseText1.Text = Dir1.PathEnd IfCommand1

53、.Enabled = TrueEnd SubPrivate Sub Drive1_Change()Dir1.Path = Drive1.DriveEnd SubPrivate Sub Form_Activate()Command1.Enabled = False gCnn.CloseChDrive App.PathChDir App.Path'Text1.SetFocus'Text1.Text = "c:"Text1.Text = CurDir()Text1.Enabled = FalseEnd SubPrivate Sub Form_Load()ChDri

54、ve App.PathChDir App.PathEnd SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)dyEnd SubPrivate Sub Form_Unload(Cancel As Integer)If gCnn.State = 0 ThengCnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:database password= " & DbPassword & &qu

55、ot; ;Data Source= " & _App.Path & "datadbdb.mdb;Persist Security Info=False" gCnn.CursorLocation = adUseClient gCnn.OpenEnd IfMDIme.loadAddEnd Sub5. 單戶抄表界面設(shè)計(jì)單戶抄表代碼設(shè)計(jì)：Private Sub Comma nd2_Click()Dim cnn As New ADODB.Co nn ectio nDim rstE As New ADODB.RecordsetDim cmdExe As New

56、 ADODB.Comma ndDim no wEv As DoubleDim sqlAdd As Stri ngIf Trim(txtUserName(O).Text) = "" The nMsgBox "沒(méi)有要抄表用戶，請(qǐng)先添加用戶！", vbInformationExit SubEnd IfIf Trim(txtUserName(9).Text) = "" The nMsgBox "請(qǐng)先輸入數(shù)據(jù)！", vbInformationExit SubEnd IfIf Trim(txtUserName(9).Text)

57、 < Trim(txtUserName(2).Text) The nMsgBox "輸入數(shù)據(jù)錯(cuò)誤，當(dāng)前止碼太?。?quot;, vbInformationExit SubEnd Ifcnn .Co nn ectio nStri ng = "Provider=Microsoft .J et.OLEDB.4.O;Jet OLEDB:database password= " & DbPassword & " ;Data Source= " & _App.Path & "datadbdb.mdb;Pers

58、ist Security Info=False"cnn.CursorLocation = adUseClientcnn.OpencmdExe.ActiveConnection = cnnrstE.Open "select nowecount from panelinfo where holderID= '" & Trim(txtUserName(0) & "'", cnn, adOpenStatic, adLockBatchOptimisticnowEv = Val(rstE.Fields(0).Value) +

59、 (Val(txtUserName(9) - Val(txtUserName(2)sqlAdd = "update panelinfo set LEndPCode=" & Val(txtUserName(2).Text) & ",cEndCode=" & Val(txtUserName(9).Text) & ",nowEcount=" & nowEv & " ,writedate=#" & dtpwdate(1) & "# where hol

60、derID= '" & Trim(txtUserName(0) & "'"cmdExe.CommandText = sqlAddcmdExe.Execute sqlAdd' cnn.Execute sqlAddtxtUserName(2).Text = txtUserName(9)txtUserName(9) = ""cnn.CloseMsgBox " 數(shù)據(jù)保存完成！ ", vbInformationUnload MeEnd SubPrivate Sub Form_Load()Dim

61、rst As New ADODB.RecordsetDim sqlEdit As Stringdtpwdate(1).Value = Format(Now, "yyyy-mm-dd")sqlEdit = "select * from panelinfo "sqlEdit = sqlEdit & " where holderid='" & Trim(MDIme.txtUserName(0) & "'and delflag<>true"rst.Open sqlEdit

62、, gCnn, adOpenStatic, adLockBatchOptimisticIf Not rst.EOF ThentxtUserName(0) = rst.Fields(1)txtUserName(1) = rst.Fields(2) txtUserName(2) = rst.Fields!cendcodedtpwdate(0).Value = rst.Fields(4)End If buttontime = False End SubPrivate Sub Form_Unload(Cancel As Integer)MDIme.loadData (txtUserName(0)Can

63、cel = 0End SubPrivate Sub nextuser_Click()Dim rst As New ADODB.RecordsetDim sqlEdit As String sqlEdit = "select * from panelinfo "sqlEdit = sqlEdit & " where holderid<>'" & Trim(txtUserName(0) & "'and delflag<>true "rst.Open sqlEdit, gCnn, adOpenStatic, adLockBatchOptimisticIf buttontime = False ThenIf Not rst.EOF ThentxtUserName(0) = rst.Fields(1) txtUserName(1) = rst.Fields(2) txtUserName(2) = rst.Fields!cendcode dtpwdate(0).Value = rst.Fiel