VB電表管理系統(tǒng)畢業(yè)論文

1、. . . . 摘要1Abstract2第一章引言411 課題背景412 系統(tǒng)簡介5第二章系統(tǒng)的分析621系統(tǒng)開發(fā)的目標和思想622 系統(tǒng)的可行性分析8第三章 系統(tǒng)的設計1831 系統(tǒng)的功能結構設計1832系統(tǒng)的數據庫設計33界面設計與代碼設計2324結束語46致47參考文獻48畢業(yè)設計(論文)網.56doc. : 306826066 優(yōu)秀畢業(yè)設計網計算機畢業(yè)設計網.papersay.畢業(yè)設計資料網.doc163.畢業(yè)設計論文網.think58.摘要傳統(tǒng)的電費管理都是由工作人員手工查表,抄表完成的,其中要完成用戶電費的收取,每月抄度,用戶購電情況查詢,以與列出欠費用戶的信息,之類的信息.其工作

2、強度大,工作流程繁瑣,由于工作人員的不細心,將會造成電費收支的出錯也是經常發(fā)生的.鑒于以上原因我們有必要開發(fā)一種幫作電費管理人員的軟件系統(tǒng),可以完成檢查用戶用電情況,每月抄度,信息錄入以與基本數據維護的各項功能.本系統(tǒng)采用visual basic 6.0與微軟Access數據庫方式.界面盡量做到人性化,數據維護方面做到可靠安全.關鍵字: 電費管理,visual basic, Access,數據庫AbstractElectricity from the traditional management staff are artisanal Chabiao, meter reading comple

3、ted, which should be completed 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 work-intensive, cumbersome workflow, because staff are not careful. would result in the tariff revenue is recurring

4、mistakes. Given the above reasons we need 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.

5、0 database. as far as possible humanization interface, data maintenance to reliable security. keyword : tariff management, visual basic, Access, the database第一章 引言11 課題背景傳統(tǒng)的電費管理都是由工作人員手工查表,抄表完成的,其中要完成用戶電費的收取,每月抄度,用戶購電情況查詢,以與列出欠費用戶的信息,之類的信息.其工作強度大,工作流程繁瑣,由于工作人員的不細心,將會造成電費收支的出錯也是經常發(fā)生的.鑒于以上原因我們有必要開發(fā)一種幫

6、作電費管理人員的軟件系統(tǒng),可以完成檢查用戶用電情況,每月抄度,信息錄入以與基本數據維護的各項功能.本系統(tǒng)采用visual basic 6.0與微軟Access數據庫方式.界面盡量做到人性化,數據維護方面做到可靠安全.12 系統(tǒng)簡介 本系統(tǒng)主要由以下幾大功能模塊組成:一. 用戶交費:(交納電費,本日小節(jié))二. 本月抄度:(單戶抄度 多戶抄度)三. 資料導出 (全部清單,欠費清單)四. 數據查詢 (電費查詢與統(tǒng)計,用戶欠費查詢)五. 信息錄入 (資料錄入,資料修改, 資料刪除)六. 系統(tǒng)數據維護 (數據備份,數據恢復)七. 基本數據維護 (用戶類型維護, 操作員維護)八. 幫助九. 退出第二章 系

7、統(tǒng)的分析21 系統(tǒng)開發(fā)的目標和思想 本系統(tǒng)主要服務于電費管理人員的日常工作.設計思路主要參照工作人員抄表,記錄資料,資料管理,信息錄入等方面的工作流程展開的.22 系統(tǒng)的可行性分析本系統(tǒng)采用visual basic6.0與微軟的access作為數據庫結合.在系統(tǒng)編寫上具有可行性.經濟方面:本系統(tǒng)可以服務電廠,電費管理單位,為企業(yè)節(jié)省人力開支.社會方面:服務于大眾,方便抄表人員工作,可靠方便.第三章 系統(tǒng)的設計31 系統(tǒng)的功能結構設計程序登陸主界面用戶交費本月抄費資料導出數據查詢信息錄入系統(tǒng)數據維護基本數據維護幫助退出32 系統(tǒng)的數據庫設計1. 用戶類型表:字段名稱數據類型說明ATypeID自動

8、編號AType文本電費類型UNITPRICE貨幣Adate日期/時間電費設置日期2. 密碼表: 字段名稱數據類型文本操作權限文本密碼文本3. MaxID表:字段名稱數據說明TableName文本MaxID數字33 界面設計與代碼設計1.用戶登陸界面設計:34 界面設計與代碼設計用戶登陸界面代碼分析:Private Sub Command1_Click()Dim rstpchard As New ADODB.RecordsetDim reHard As StringDim getid As StringreHard = GetpcHard(getid)rstpchard.Open "s

9、elect * from getpchard ", gCnn, adOpenKeyset, adLockBatchOptimisticIf rstpchard.RecordCount = 0 Then rstpchard.AddNew rstpchard.Fields(0) = reHard rstpchard.UpdateBatch adAffectCurrentElse If Trim(reHard) <> Trim(rstpchard.Fields(0) Then MsgBox " 對不起，使用不合法請與開發(fā)者聯系！ ", vbInformati

10、on End End IfEnd IfIf Check1.Value = 1 ThenSet rec = New ADODB.Recordsetrec.Open "select * from 記住密碼", gCnn, 3, 3rec("標記") = "1"If Combo2.Text <> "" Thenrec("") = Combo2.TextElserec("") = ""End IfIf Combo1.Text <> &quo

11、t;" Thenrec("權限") = Combo1.TextElserec("權限") = ""End IfIf Text2.Text <> "" Thenrec("密碼") = Text2.TextElserec("密碼") = ""End Ifrec.Updaterec.CloseElseSet rec = New ADODB.Recordsetrec.Open "select * from 記住密碼", g

12、Cnn, 3, 3rec("標記") = "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 操作

13、權限='" & Combo1.Text & "'and 密碼='" & Text2.Text & "'", gCnn, 3, 3If rec.EOF = False Then If rec("操作權限") <> "管理員" Then' FRMMAIN.XZCK.Enabled = False MDIme.mczy.Enabled = False MDIme.xtwh.Enabled = False MDIme.del.En

14、abled = False' FRMMAIN.DJGL.Enabled = False' FRMMAIN.delte.Enabled = False Else ' Me.XZCK.Enabled = True MDIme.mczy.Enabled = True MDIme.xtwh.Enabled = True CreateNewKey HKEY_CURRENT_USER, "ZhiYuanTechnologe" SetKeyValue HKEY_CURRENT_USER, "ZhiYuanTechnologe", "U

15、serName", dlj, REG_SZ SetKeyValue HKEY_CURRENT_USER, "ZhiYuanTechnologe", "PassWord", dlj, REG_SZ' FRMMAIN.DJGL.Enabled = True' FRMMAIN.delte.Enabled = True End If rec1("") = Combo2.Text rec1.Update rec1.Close Me.Hide Guser = Combo2.Text MDIme.ShowElse MsgB

16、ox "權限或密碼不正確，請重試!", vbInformationEnd 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 1

17、End SubPrivate Sub Form_Activate()Text2.Text = ""Combo1.Text = ""Combo2.Text = ""Set rec = New ADODB.Recordsetrec.Open "select * from 記住密碼", gCnn, 3, 3If rec("標記") = "0" Or rec("標記") = "1" ThenCheck1.Value = rec("標記

18、")End Ifrec.CloseSet rec = New ADODB.Recordsetrec.Open "select * from 記住密碼", gCnn, 3, 3If rec("標記") = 1 ThenCombo2.Text = rec("")Combo1.Text = rec("權限")Text2.Text = rec("密碼")End Ifrec.CloseCommand1.SetFocusEnd SubPrivate Sub Form_Load()gCnn.Conn

19、ectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:database password= " & DbPassword & " ;Data Source= " & _App.Path & "datadbdb.mdb;Persist Security Info=False"gCnn.CursorLocation = adUseClientgCnn.OpenSet rec = New ADODB.Recordsetrec.Open "

20、;select distinct from 密碼表", gCnn, 3, 3With 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, "警告

21、")Case vbYesCancel = FalseEndCase ElseCancel = TrueEnd SelectEnd Sub2.主界面設計:主界面代碼設計:Private Sub alllm_Click()frmList.qfFlg = FalsefrmList.ShowEnd SubPrivate Sub backup_Click() frmbeifen.ShowEnd SubPrivate Sub benrixiaojie_Click()frmCount.ShowEnd SubPrivate Sub Command1_Click()frameFee.Visible =

22、 FalseEnd SubPrivate Sub cmdQuery_Click() Dim rst As New ADODB.Recordset rst.Open " select * from panelinfo where holder='" & Me.txtUser & "' and delflag<>true ", gCnn, adOpenStatic, adLockBatchOptimistic If rst.RecordCount <> 0 Then dcvalue.Text = rst

23、.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.Fields!bmoney, "#0.00") txtUserName(6) = Format(rst.

24、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.Fields!lMoney * (rst.Fields!lightScale / 100) + rst.Fields!nowe

25、count * 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) Else MsgBox " 沒有查詢到數據! ", vbInformation End If rst.Close Set rst =

26、 NothingEnd SubPrivate Sub dcNum_Click(Area As Integer) Dim rst As New ADODB.Recordset rst.Open " select * from panelinfo where holderid='" & dcNum.Text & "'and delflag<>true ", gCnn, adOpenKeyset, adLockBatchOptimistic If Not rst.EOF Then dcvalue.Text = rst

27、.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.Fields!bmoney, "#0.00") txtUserName(6) = Format(rst.

28、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) = Format(Val(txtUserName(5) + Val(txtUserName(

29、6), "#0.00") End If rst.CloseEnd SubPrivate Sub dcvalue_Click(Area As Integer) Dim rst As New ADODB.Recordset rst.Open " select * from panelinfo where holderid='" & dcvalue.BoundText & "' and delflag<>true ", gCnn, adOpenStatic, adLockBatchOptimist

30、ic If Not rst.EOF Then 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, "#0.00") txtUserName(4) = Format(rst.Fields!bmoney, "

31、#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.Fields!lMoney * (rst.F

32、ields!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 If rst.Close Set rst = NothingE

33、nd SubPrivate Sub dcvalue_KeyPress(KeyAscii As Integer)KeyAscii = 0End SubPrivate Sub del_Click()frmdel.ShowEnd SubPrivate Sub dhcb_Click()usrcopyP.ShowEnd SubPrivate Sub dhcp_Click()frmCopyP.ShowEnd SubPrivate Sub duohu_Click()frmCuifei.muser1 = 2frmCuifei.ShowEnd SubPrivate Sub edit_Click()frmEdit

34、.ShowEnd SubPrivate Sub exit_Click()EndEnd SubPrivate Sub insert_Click()frmInsert.Show 1End SubPrivate Sub jiaonadianfei_Click()frmFee.ShowEnd SubPrivate Sub M_USERYTPE_Click()FRMUSERTYPE.Show 1End SubPrivate Sub MDIForm_Load() loadAddEnd SubPublic Sub loadAdd()If rst.State = 1 Then rst.CloseEnd If

35、rst.Open " select * from panelinfo where delflag<>true ", gCnn, adOpenKeyset, adLockBatchOptimistic If rst.RecordCount <> 0 Then Set dcvalue.RowSource = rst dcvalue.BoundColumn = "holderID" dcvalue.ListField = "holder" Set dcNum.DataSource = rst Set dcNum.Ro

36、wSource = rst dcNum.ListField = "holderid" If Not rst.EOF Then dcNum.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.

37、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 - rst.Fields!lightScale / 10

38、0) txtUserName(8) = rst.Fields(9) txtUserName(7) = Val(txtUserName(5) + Val(txtUserName(6) rst.Fields!cFeeMoney = txtUserName(7) rst.UpdateBatch adAffectCurrent End If End IfEnd SubPublic Sub loadData(Hid As String) Dim rst As New ADODB.Recordset Dimn As New ADODB.Connection Dim Atimes As Integer Di

39、m sqlAdd As String n.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:database password= " & DbPassword & " ;Data Source= " & _ App.Path & "datadbdb.mdb;Persist Security Info=False" n.CursorLocation = adUseClient n.Open If Trim(Hid) <>

40、; "" Then rst.Open " select * from panelinfo where holderid='" & Hid & "' and delflag<>true ",n, adOpenStatic, adLockBatchOptimistic Else rst.Open " select * from panelinfo where delflag<>true ",n, adOpenStatic, adLockBatchOptimisti

41、c End If If Not rst.EOF Then dcNum.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, "#0.00") txtUserNam

42、e(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 / 100), "#0.00") If r

43、st.Fields!Atimes = 0 Then Atimes = 1 Else Atimes = rst.Fields!Atimes End 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") rst.Fields!cFeeMoney

44、 = txtUserName(7) rst.UpdateBatch adAffectCurrent End If rst.Close n.CloseEnd SubPrivate Sub MDIForm_Unload(Cancel As Integer)gCnn.CloseSet gcon = NothingEnd SubPrivate Sub mgcf_Click()frmFeefind.ShowEnd SubPrivate Sub mhf_Click()frmdaoru.ShowEnd SubPrivate Sub msf_Click()frmFind1.ShowEnd SubPrivate

45、 Sub qianfeilm_Click()frmList.qfFlg = TruefrmList.ShowEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Trim(Button.Key)Case "a"frmFee.Show 1Case "b" frmCopyP.ShowCase "c"frmFee.Show 1Case "d"frmbeifen.Show 1Case "e&qu

46、ot;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 SubPrivate Sub Toolbar1_ButtonMenuClick

47、(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 = 1frmCuifei.ShowEnd Sub4. 備份界面設計:備份代碼設計:Private Sub Co

48、mmand1_Click()Dim a As Stringa = App.Patha = a & ""b = Text1.Text'On Error GoTo errhandle:Dim filename As Stringfilename = "" & Text1.Text & "dbdb.mdb"If a = Text1.Text ThenMsgBox "備份目錄與原文件目錄一樣,請重新選擇!"Exit SubEnd IfIf Dir("" & b &

49、amp; "dbdb.mdb") <> "" ThenDim llp As Stringllp = MsgBox("此目錄下已有該文件，要覆蓋嗎？", vbYesNo, "備份文件")If llp = vbYes ThenKill ("" & b & "dbdb.mdb")FileCopy "" & a & "datadbdb.mdb", "" & b &

50、"dbdb.mdb"Dim ll = MsgBox(" 備份成功! ", vbOKOnly, "提示")ElseExit SubEnd IfElseFileCopy "" & a & "datadbdb.mdb", "" & b & "dbdb.mdb"Dim llll = MsgBox(" 備份成功! ", vbOKOnly, "提示")End IfExit Sub'errh

51、andle:'MsgBox "出現錯誤，不能復制", vbOKOnly + vbCritical, "復制文件"'Resume NextEnd SubPrivate Sub Command2_Click()'dy'Me.HideUnload MeEnd SubPrivate Sub Dir1_Change()'Drive1.Drive = Dir1If Right(Dir1.Path, 1) <> "" ThenText1.Text = Dir1.Path + ""

52、;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.Enabled = TrueEnd SubPrivate Sub Drive1_Change()Dir1.Path = Drive1.DriveEnd SubPrivate

53、 Sub Form_Activate()Command1.Enabled = FalsegCnn.CloseChDrive App.PathChDir App.Path'Text1.SetFocus'Text1.Text = "c:"Text1.Text = CurDir()Text1.Enabled = FalseEnd SubPrivate Sub Form_Load()ChDrive App.PathChDir App.PathEnd SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMo

54、de As Integer)dyEnd SubPrivate Sub Form_Unload(Cancel As Integer)If gCnn.State = 0 Then gCnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:database password= " & DbPassword & " ;Data Source= " & _ App.Path & "datadbdb.mdb;Persist Security Inf

55、o=False" gCnn.CursorLocation = adUseClient gCnn.OpenEnd IfMDIme.loadAddEnd Sub5. 單戶抄表界面設計:單戶抄表代碼設計:Private Sub Command2_Click() Dimn As New ADODB.Connection Dim rstE As New ADODB.Recordset Dim cmdExe As New ADODB mand Dim nowEv As Double Dim sqlAdd As String If Trim(txtUserName(0).Text) = "

56、;" Then MsgBox " 沒有要抄表用戶，請先添加用戶！ ", vbInformation Exit Sub End If If Trim(txtUserName(9).Text) = "" Then MsgBox " 請先輸入數據！ ", vbInformation Exit Sub End If If Trim(txtUserName(9).Text) < Trim(txtUserName(2).Text) Then MsgBox " 輸入數據錯誤，當前止碼太??！ ", vbInform

57、ation Exit Sub End If n.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:database password= " & DbPassword & " ;Data Source= " & _ App.Path & "datadbdb.mdb;Persist Security Info=False" n.CursorLocation = adUseClient n.Open cmdExe.ActiveConne