frmwz.frm

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

VERSION 5.00
Begin VB.Form frmwz 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "请选择打印的位置"
   ClientHeight    =   3660
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   2790
   Icon            =   "frmwz.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3660
   ScaleWidth      =   2790
   StartUpPosition =   1  'CenterOwner
   Begin VB.CommandButton Command1 
      Caption         =   "确 定"
      Default         =   -1  'True
      Height          =   375
      Left            =   840
      TabIndex        =   1
      Top             =   3240
      Width           =   975
   End
   Begin VB.ListBox List1 
      Height          =   2940
      ItemData        =   "frmwz.frx":030A
      Left            =   120
      List            =   "frmwz.frx":030C
      TabIndex        =   0
      Top             =   120
      Width           =   2535
   End
End
Attribute VB_Name = "frmwz"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public sj As Database
Public tmpsql As Recordset
Public old1 As Database, myold As Workspace
Public file1 As String

Private Sub Command1_Click()
    If List1.ListIndex <> -1 Then
            string1(13) = List1.List(List1.ListIndex)   '选择的用户string1(13)
            Unload Me
        Else
            string1(13) = ""
            ab = MsgBox("请选择一个有效的用户！", vbOKOnly + 16, "提示")
    End If
End Sub

Private Sub Form_Load()
    tmp = App.Path + "\data\cjsj.mdb"
    Set sj = OpenDatabase(tmp, False, False, ";pwd=sunlm")
    If string1(3) = 2 Then
            tmp = "select byqh,hh,hm from bk where bh='" + string1(4) + "' order by val(byqh),val(hh)"
        Else
            tmp = "select hh,hm from bk where byqh='" + string1(2) + "'order by val(hh)"
    End If
    'MsgBox tmp
    Set tmpsql = sj.OpenRecordset(tmp)
    If Not tmpsql.EOF And Not tmpsql.BOF Then
        tmpsql.MoveFirst
        While Not tmpsql.EOF
            If string1(3) = 2 Then
                    List1.AddItem tmpsql!byqh + "-" + tmpsql!hh + "--" + tmpsql!hm
                Else
                    List1.AddItem tmpsql!hh + "--" + tmpsql!hm
            End If
            tmpsql.MoveNext
        Wend
    End If
End Sub