電表管理系統(tǒng)

1、畢業(yè)設(shè)計(jì)電表管理系統(tǒng)班級(jí)_姓名_學(xué)號(hào)_摘 要1Abstract2第一章 引言411 課題背景412 系統(tǒng)簡(jiǎn)介5第二章 系統(tǒng)的分析621 系統(tǒng)開(kāi)發(fā)的目標(biāo)和思想622 系統(tǒng)的可行性分析8第三章 系統(tǒng)的設(shè)計(jì)1831 系統(tǒng)的功能結(jié)構(gòu)設(shè)計(jì)1832 系統(tǒng)的數(shù)據(jù)庫(kù)設(shè)計(jì)33 界面設(shè)計(jì)與代碼設(shè)計(jì)2324結(jié)束語(yǔ)46致謝47參考文獻(xiàn)48摘 要 傳統(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 users of electricity per

3、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 need to develop a manageme

4、nt 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 humanization interface, data mai

5、ntenance 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),可以完成檢查用戶用電情況,每月抄度,信息錄入以及基本數(shù)據(jù)維護(hù)的各項(xiàng)功能.本系統(tǒng)采用visual

6、basic 6.0與微軟Access數(shù)據(jù)庫(kù)方式.界面盡量做到人性化,數(shù)據(jù)維護(hù)方面做到可靠安全.12 系統(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)的分析21 系統(tǒng)開(kāi)發(fā)的目標(biāo)和思想 本系統(tǒng)主要服務(wù)于電費(fèi)管理人員的日常工作.設(shè)計(jì)思路主要參照工作人員抄表,記錄資料,資料管

7、理,信息錄入等方面的工作流程展開(kāi)的.22 系統(tǒng)的可行性分析本系統(tǒng)采用visual basic6.0與微軟的access作為數(shù)據(jù)庫(kù)結(jié)合.在系統(tǒng)編寫(xiě)上具有可行性.經(jīng)濟(jì)方面:本系統(tǒng)可以服務(wù)電廠,電費(fèi)管理單位,為企業(yè)節(jié)省人力開(kāi)支.社會(huì)方面:服務(wù)于大眾,方便抄表人員工作,可靠方便.第三章 系統(tǒng)的設(shè)計(jì)31 系統(tǒng)的功能結(jié)構(gòu)設(shè)計(jì)程序登陸主界面用戶交費(fèi)本月抄費(fèi)資料導(dǎo)出數(shù)據(jù)查詢信息錄入系統(tǒng)數(shù)據(jù)維護(hù)基本數(shù)據(jù)維護(hù)幫助退出32 系統(tǒng)的數(shù)據(jù)庫(kù)設(shè)計(jì)1. 用戶類型表:字段名稱數(shù)據(jù)類型說(shuō)明ATypeID自動(dòng)編號(hào)AType文本電費(fèi)類型UNITPRICE貨幣Adate日期/時(shí)間電費(fèi)設(shè)置日期2. 密碼表: 字段名稱數(shù)據(jù)類型姓名文本操

8、作權(quán)限文本密碼文本3. MaxID表:字段名稱數(shù)據(jù)說(shuō)明TableName文本MaxID數(shù)字33 界面設(shè)計(jì)與代碼設(shè)計(jì)1.用戶登陸界面設(shè)計(jì):34 界面設(shè)計(jì)與代碼設(shè)計(jì)用戶登陸界面代碼分析:Private Sub Command1_Click()Dim rstpchard As New ADODB.RecordsetDim reHard As StringDim getid As StringreHard = GetpcHard(getid)rstpchard.Open "select * from getpchard ", gCnn, adOpenKeyset, adLockBa

9、tchOptimisticIf rstpchard.RecordCount = 0 Then rstpchard.AddNew rstpchard.Fields(0) = reHard rstpchard.UpdateBatch adAffectCurrentElse If Trim(reHard) <> Trim(rstpchard.Fields(0) Then MsgBox " 對(duì)不起，使用不合法請(qǐng)與開(kāi)發(fā)者聯(lián)系！ ", vbInformation End End IfEnd IfIf Check1.Value = 1 ThenSet rec = New AD

10、ODB.Recordsetrec.Open "select * from 記住密碼", gCnn, 3, 3rec("標(biāo)記") = "1"If Combo2.Text <> "" Thenrec("姓名") = Combo2.TextElserec("姓名") = ""End IfIf Combo1.Text <> "" Thenrec("權(quán)限") = Combo1.TextElserec(&

11、quot;權(quán)限") = ""End IfIf Text2.Text <> "" Thenrec("密碼") = Text2.TextElserec("密碼") = ""End Ifrec.Updaterec.CloseElseSet rec = New ADODB.Recordsetrec.Open "select * from 記住密碼", gCnn, 3, 3rec("標(biāo)記") = "0"rec.Updater

12、ec.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)限='" & Combo1.Text & "'and

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

14、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", "UserName", dlj, REG_SZ SetKeyValue HKEY_CURRENT_U

15、SER, "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 MsgBox "權(quán)限或密碼不正確，請(qǐng)重試!", vbInformationEnd Ifre

16、c.CloseEnd SubPrivate Sub Command11_Click()End SubPrivate Sub Command2_Click()Combo2.Text = ""Text2.Text = ""Combo1.Text = ""End Sub Private Sub Command3_Click()EndEnd SubPrivate Sub Command4_Click()Me.HideFRMMMXG.Show 1End Sub Private Sub Form_Activate()Text2.Text = &q

17、uot;"Combo1.Text = ""Combo2.Text = ""Set rec = New ADODB.Recordsetrec.Open "select * from 記住密碼", gCnn, 3, 3If rec("標(biāo)記") = "0" Or rec("標(biāo)記") = "1" ThenCheck1.Value = rec("標(biāo)記")End Ifrec.CloseSet rec = New ADODB.Records

18、etrec.Open "select * from 記住密碼", gCnn, 3, 3If rec("標(biāo)記") = 1 ThenCombo2.Text = rec("姓名")Combo1.Text = rec("權(quán)限")Text2.Text = rec("密碼")End Ifrec.CloseCommand1.SetFocusEnd SubPrivate Sub Form_Load()gCnn.ConnectionString = "Provider=Microsoft.Jet.OLE

19、DB.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 "select distinct 姓名 from 密碼表", gCnn, 3, 3W

20、ith 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 vbYesCancel = FalseEndCase Els

21、eCancel = TrueEnd SelectEnd Sub2.主界面設(shè)計(jì):主界面代碼設(shè)計(jì):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 = FalseEnd SubPrivate Sub cmdQuery_Click()

22、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.Fields(2) txtUserName(0) = rst.Fields(1)

23、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.Fields!lsFee, "#0.00") 'txtU

24、serName(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!nowecount * rst.Fields!bmoney * (1 - rst.Field

25、s!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 " 沒(méi)有查詢到數(shù)據(jù)! ", vbInformation End If rst.Close Set rst = NothingEnd SubPrivate Sub dcNum_Click(Are

26、a 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.Fields(2) txtUserName(0) = rst.Fields(1)

27、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.Fields(8), "#0.00") txtUserName(

28、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(6), "#0.00") End If rst.CloseEnd

29、 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, adLockBatchOptimistic If Not rst.EOF Then dcvalue.Text = rst.

30、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.F

31、ields!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!nowec

32、ount * 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 = NothingEnd SubPrivate Sub dcvalue_KeyPress(KeyAsci

33、i 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.ShowEnd SubPrivate Sub exit_Click()EndEnd

34、 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() loadAdd End SubPublic Sub loadAdd()If rst.State = 1 Then rst.CloseEnd If rst.Open " select * from panelinfo w

35、here 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.RowSource = rst dcNum.ListField = "hol

36、derid" 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") txtUser

37、Name(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 / 100) txtUserName(8) = rst.Fields(9) txtUser

38、Name(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 Dim cnn As New ADODB.Connection Dim Atimes As Integer Dim sqlAdd As String cnn.ConnectionStrin

39、g = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:database password= " & DbPassword & " ;Data Source= " & _ App.Path & "datadbdb.mdb;Persist Security Info=False" cnn.CursorLocation = adUseClient cnn.Open If Trim(Hid) <> "" Then rst.Open &qu

40、ot; select * from panelinfo where holderid='" & Hid & "' and delflag<>true ", cnn, adOpenStatic, adLockBatchOptimistic Else rst.Open " select * from panelinfo where delflag<>true ", cnn, adOpenStatic, adLockBatchOptimistic End If If Not rst.EOF Th

41、en 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") txtUserName(4) = Format(rst.Fields!b

42、money, "#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 rst.Fields!Atimes = 0 Then

43、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 = txtUserName(7) rst.Upda

44、teBatch adAffectCurrent End If rst.Close cnn.Close End 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 Sub qianfeilm_Click()f

45、rmList.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"frmdaoru.Show 1Case

46、 "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(ByVal ButtonMenu As

47、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. 備份界面設(shè)計(jì):備份代碼設(shè)計(jì):Private Sub Command1_Click()Dim a A

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

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

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

51、ot;出現(xiàn)錯(cuò)誤，不能復(fù)制", vbOKOnly + vbCritical, "復(fù)制文件"'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 + ""ElseText1.Text = Dir

52、1.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 Sub Form_Activate()C

53、ommand1.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, UnloadMode As Integer)dyEnd S

54、ubPrivate 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 Info=False" gCnn.Cu

55、rsorLocation = adUseClient gCnn.OpenEnd IfMDIme.loadAddEnd Sub5. 單戶抄表界面設(shè)計(jì):單戶抄表代碼設(shè)計(jì):Private Sub Command2_Click() Dim cnn As New ADODB.Connection Dim rstE As New ADODB.Recordset Dim cmdExe As New ADODB.Command Dim nowEv As Double Dim sqlAdd As String If Trim(txtUserName(0).Text) = "" Then Ms

56、gBox " 沒(méi)有要抄表用戶，請(qǐng)先添加用戶！ ", 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 cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:database password= " & DbPassword & " ;Data Source= " & _ App.Path & "datadbdb.mdb;Persist Security In