dfjs.frm

这是一套农村电费计算程序的源码。能够对用户电费进行计算、查询、打印。

VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.Form dfjs 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "电费计算"
   ClientHeight    =   1140
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5160
   Icon            =   "dfjs.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1140
   ScaleWidth      =   5160
   StartUpPosition =   1  'CenterOwner
   Begin ComctlLib.ProgressBar ProgressBar1 
      Height          =   375
      Left            =   360
      TabIndex        =   0
      Top             =   120
      Width           =   4455
      _ExtentX        =   7858
      _ExtentY        =   661
      _Version        =   327682
      Appearance      =   1
   End
   Begin VB.CommandButton Command2 
      Cancel          =   -1  'True
      Caption         =   "退 出"
      Height          =   375
      Left            =   4200
      TabIndex        =   3
      Top             =   720
      Width           =   855
   End
   Begin VB.CommandButton Command1 
      Caption         =   "开 始"
      Default         =   -1  'True
      Height          =   375
      Left            =   3240
      TabIndex        =   2
      Top             =   720
      Width           =   855
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      ForeColor       =   &H000000C0&
      Height          =   255
      Left            =   120
      TabIndex        =   1
      Top             =   720
      Width           =   3015
   End
End
Attribute VB_Name = "dfjs"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public sj As Database
Public tmpsql As Recordset

Private Sub Command1_Click()
    '以下是电费计算的全过程
    boolean1(1) = True
    If string1(13) = 2 Then
            Set tmpsql = sj.OpenRecordset("select * from bk where bh='" + string1(14) + "'") '如果选的是供电所
        Else
            Set tmpsql = sj.OpenRecordset("select * from bk where byqh='" + string1(2) + "'") '选定的是配变
    End If
    '计算该配变户数
    If tmpsql.RecordCount = 0 Then
        Command1.Enabled = False
        Exit Sub
    End If
    tmpsql.MoveLast
    ab = Str(tmpsql.RecordCount)
    i = 1
    '计算过程
    tmpsql.MoveFirst
    While Not tmpsql.EOF
        If IsNull(tmpsql!xbch) Or tmpsql!xbch = "" Then '换表与不换表的两种情况
                cjdlm = tmpsql!bybm - tmpsql!sybm
                If tmpsql!bybm < tmpsql!sybm Then
                    cjdlm = IIf(tmpsql!sybm < 1000, cjdlm + 1000, IIf(tmpsql!sybm < 10000, cjdlm + 10000, IIf(tmpsql!sybm < 100000, cjdlm + 100000, 0)))
                End If
                
                bydlm = cjdlm * tmpsql!bl
       
            Else
                ab1m = tmpsql!bzm - tmpsql!sybm
                ab2m = tmpsql!bybm - tmpsql!bqm
                If tmpsql!bzm < tmpsql!sybm Then
                    ab1m = IIf(tmpsql!sybm < 1000, ab1m + 1000, IIf(tmpsql!sybm < 10000, ab1m + 10000, IIf(tmpsql!sybm < 100000, ab1m + 100000, 0)))
                End If
                If tmpsql!bybm < tmpsql!bqm Then
                    ab2m = IIf(tmpsql!bqm < 1000, ab2m + 1000, IIf(tmpsql!bqm < 10000, ab2m + 10000, IIf(tmpsql!bqm < 100000, ab2m + 100000, 0)))
                End If
                
                bydlm = ab1m * tmpsql!bl + ab2m * tmpsql!xbbl
        End If
        dfm = (bydlm + tmpsql!jjdl + tmpsql!bsh) * tmpsql!dj
        tmpsql.Edit
        tmpsql!bydl = bydlm + tmpsql!jjdl + tmpsql!bsh
        tmpsql!ysdf = dfm
        tmpsql.Update
        ProgressBar1.Value = i / ab * 100
        'Print ProgressBar1.Value
        Label1.Caption = "正在计算计算【" + string1(1) + "】,完成" + Str(ProgressBar1.Value) + "%"
        tmpsql.MoveNext
        'MsgBox Format(Str(i / ab * 100))
        i = i + 1
    Wend
    sj.Close
    Command1.Enabled = False
    boolean1(1) = True
    'Unload Me
End Sub

Private Sub Command2_Click()

    Unload Me
End Sub

Private Sub Form_Load()
    '打开数据库
    boolean1(1) = False
    tmp = App.Path + "\data\cjsj.mdb"
    Set sj = OpenDatabase(tmp, False, False, ";pwd=sunlm")
    '显示正在计算机的村名
    If string1(13) = "2" Then
            Label1.Caption = "正在计算计算【" + string1(12) + "】,完成0%"
            dfjs.Caption = "电费计算----【" + string1(12) + "】"
        Else
            Label1.Caption = "正在计算计算【" + string1(1) + "】,完成0%"
            dfjs.Caption = "电费计算----【" + string1(1) + "】"
    End If
End Sub