【導(dǎo)讀】做到人性化,數(shù)據(jù)維護(hù)方面做到可靠安全.結(jié)合.在系統(tǒng)編寫(xiě)上具有可行性.

　　

【正文】 txtUserName(9)) changeE) End If End Sub Private Sub UpDown1_Change() = End Sub 9. 開(kāi)始收費(fèi)界面設(shè)計(jì) : 開(kāi)始收費(fèi)代碼設(shè)計(jì) : Private Sub CmdPrint_Click() On Error GoTo l Dim LongColor As Long If MsgBox(打印機(jī)準(zhǔn)備好了嗎？ , vbYesNo + vbInformation) vbYes Then Exit Sub End If = False LongColor = = vbWhite = vbWhite = LongColor = True Exit Sub l: MsgBox End Sub Private Sub Command1_Click() Dim rstFeeEnd As New Dim cmdExe As New Dim reMoney As String Dim sqlString As String If Trim(txtFee) = Or Trim(txtM) = Then MsgBox 請(qǐng)先輸入數(shù)據(jù)！ , vbInformation Exit Sub End If reMoney = ConvertMe(Trim(txtFee)) Dim Change As String Change = Val(txtM) Val(txtFee) If Change 0 Then If MsgBox( 實(shí)收電費(fèi)比應(yīng)收現(xiàn)金大，您確定要這樣收取？ , vbYesNo + vbInformation) = vbNo Then Exit Sub End If End If = (0) = = (1) amp。 度 = (2) amp。 度 = ￥ amp。 Format(txtFee, ) = ￥ amp。 Format(, ) = Date If Change = 0 Then = ￥ amp。 Format(Change, ) Else = 0 End If select * from panelinfo where holderid=39。 amp。 (0) amp。 39。 and delflagtrue , gCnn, adOpenStatic, adLockBatchOptimistic Dim rusrType As New If 0 Then select * from 用戶類型 where AtypeID= amp。 !AtypeID, gCnn, adOpenStatic, adLockBatchOptimistic If 0 Then = !AType Else MsgBox 用戶類型不能為空！ , vbCritical Unload Me End If End If = !Atimes = amp。 / amp。 Format(!lMoney, ) !nowecount = 0 = !LEndPCode amp。 度 !lecount = !lecount + !nowecount 39。MsgBox (7) !lsFee = Val((7)) Val(txtM) adAffectCurrent sqlString = insert into feels (holderid,holder,feemoney,qianfee,feedate,zhinajin,memols,ame,Ecount) values(39。 amp。 (0) amp。 39。,39。 amp。 amp。 39。, amp。 Val() amp。 , amp。 Val() amp。 , amp。 Format(Now, yyyymmdd) amp。 , amp。 Val(txtznj) amp。 ,39。 amp。 txtPrint amp。 39。,39。 amp。 Guser amp。 39。, amp。 (1) amp。 ) = gCnn = sqlString = True = True = False End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Form_Load() = amp。 用戶 (住戶 編號(hào) : amp。 (0) amp。 ) 開(kāi)始交費(fèi) = (7) End Sub Private Sub Form_Unload(Cancel As Integer) ((0)) End Sub Private Sub txtFee_KeyPress(KeyAscii As Integer) If KeyAscii 8 And KeyAscii 46 And KeyAscii 48 Or KeyAscii 57 Then KeyAscii = 0 End Sub Private Sub txtM_KeyPress(KeyAscii As Integer) If KeyAscii 8 And KeyAscii 46 And KeyAscii 48 Or KeyAscii 57 Then KeyAscii = 0 End Sub Private Sub txtznj_KeyPress(KeyAscii As Integer) If KeyAscii 8 And KeyAscii 46 And KeyAscii 48 Or KeyAscii 57 Then KeyAscii = 0 End Sub 10:數(shù)據(jù)查詢界面設(shè)計(jì) : 數(shù)據(jù)查詢代碼設(shè)計(jì) : Private Sub cmdExport_Click() 39。導(dǎo)出網(wǎng)格數(shù)據(jù)到 EXCEL 中 Export rsdg, , 數(shù)據(jù)查詢 , 日期 : amp。 Format(Now, yyyymmdd), 總電量 : amp。 txtCountA amp。 度 總金額： amp。 txtCount amp。 元 End Sub Private Sub cmdQuery_Click() Dim Sqlstr As String Dim whrStr As String Dim feeC As Double Dim znjC As Double Dim rstRg As New 39。拼 Where 語(yǔ)句 whrStr = getWhrStr() 39。取得網(wǎng)格的數(shù)據(jù) Sqlstr = select * from feels amp。 whrStr amp。 39。MsgBox Sqlstr If = 1 Then End If Sqlstr, gCnn, adOpenStatic, adLockOptimistic 39。 Sqlstr Set rsdg = getQueryData(Sqlstr) Set = rsdg Sqlstr = select sum(feeMoney),sum(Ecount) from feels amp。 whrStr amp。 If = 1 Then End If Sqlstr, gCnn, adOpenStatic, adLockBatchOptimistic txtCount = Format((0), ) amp。 txtCountA = (1) amp。 MsgBox 數(shù)據(jù)查詢完成 ,共 amp。 amp。 條紀(jì)錄！ , vbInformation End Sub Private Function getWhrStr() As String 39。功能描述：拼湊 Where 語(yǔ)句 39。返回串值 Dim whrStr As String 39。拼 Where 語(yǔ)句 whrStr = where 1 = 1 If Trim() Then whrStr = whrStr amp。 and holderid =39。 amp。 Trim() amp。 39。 End If If Trim() Then whrStr = whrStr + and holder like 39。% amp。 txtUser amp。 %39。 End If If Trim() Then whrStr = whrStr + and qianFee= amp。 amp。 End If whrStr = whrStr + and Feedate= amp。 amp。 and Feedate= amp。 amp。 getWhrStr = whrStr End Function Private Sub cmdReturn_Click() Unload Me End Sub Private Sub Form_Load() = Format(Now, yyyymmdd) End Sub Private Sub Form_Unload(Cancel As Integer) If = 1 Then End If End Sub 11:費(fèi)用查詢界面設(shè)計(jì) : 費(fèi)用查詢代碼設(shè)計(jì) : Private Sub cmdExport_Click() 39。導(dǎo)出網(wǎng)格數(shù)據(jù)到 EXCEL 中 Export rsdg, , 數(shù)據(jù)查詢 , Format(Now, yyyymmdd) End Sub Private Sub cmdQuery_Click() Dim Sqlstr As String Dim whrStr As String Dim feeC As Double Dim znjC As Double 39。拼 Where 語(yǔ)句 whrStr = getWhrStr() 39。取得網(wǎng)格的數(shù)據(jù) 39。2957387 Sqlstr = select * from panelInfo amp。 whrStr amp。 39。MsgBox Sqlstr If = 1 Then End If Sqlstr, gCnn, adOpenStatic, adLockOptimistic Set rsdg = getQueryData(Sqlstr) Set = rsdg MsgBox 數(shù)據(jù)查詢完成 ,共 amp。 amp。 條紀(jì)錄！ , vbInformation End Sub Private Function getWhrStr() As String 39。功能描述：拼湊 Where 語(yǔ)句 39。返回串值 Dim whrStr As String 39。拼 Where 語(yǔ)句 whrStr = where 1 = 1 If Trim() Then whrStr = whrStr amp。 and holderid =39。 amp。 Trim() amp。 39。 End If If Trim() Then whrStr = whrStr + and holder like 39。% amp。 txtUser amp。 %39。 End If If Trim() Then whrStr = whrStr + and cFeeMoney= amp。 amp。 End If getWhrStr = whrStr End Function Private Sub cmdReturn_Click() Unload Me End Sub Private Sub Form_Unload(Cancel As Integer) If = 1 Then End If End Sub 結(jié)束語(yǔ) 本軟件的設(shè)計(jì)目的是在電表收費(fèi)管理維護(hù)方面為企事業(yè)單位和管理人員提供方便和幫助。通過(guò)這幾個(gè)月的畢業(yè)設(shè)計(jì)，我學(xué)到很多以前沒(méi)有學(xué)到的 visual basic 開(kāi)發(fā)技術(shù)，在軟件工程學(xué)上更是取得了很大的進(jìn)步。經(jīng)過(guò)大量的測(cè)試和試用，作者深信本軟件達(dá)到了方便和實(shí)用的設(shè)計(jì)目的，并在軟件界面和易用實(shí)用等方面有著