frmviewcurdata.frm

一个功能比较完善的远程抄表软件

VERSION 5.00
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Begin VB.Form frmViewCurData 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "查看用户存款余额"
   ClientHeight    =   3525
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5040
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   3525
   ScaleWidth      =   5040
   Begin VB.CommandButton cmdOK 
      Cancel          =   -1  'True
      Caption         =   "返回"
      Default         =   -1  'True
      Height          =   375
      Left            =   3645
      TabIndex        =   2
      Top             =   3030
      Width           =   1170
   End
   Begin VB.ComboBox cmbBuild 
      Height          =   300
      Left            =   360
      Style           =   2  'Dropdown List
      TabIndex        =   1
      Top             =   0
      Width           =   1950
   End
   Begin VB.Data datUserFee 
      Connect         =   "Access"
      DatabaseName    =   ""
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   345
      Left            =   0
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   ""
      Top             =   2580
      Width           =   4965
   End
   Begin MSDBGrid.DBGrid grdUserFee 
      Bindings        =   "frmViewCurData.frx":0000
      Height          =   2205
      Left            =   0
      OleObjectBlob   =   "frmViewCurData.frx":0019
      TabIndex        =   0
      Top             =   360
      Width           =   4980
   End
   Begin VB.Label Label2 
      Caption         =   "楼:"
      Height          =   255
      Left            =   15
      TabIndex        =   3
      Top             =   60
      Width           =   375
   End
End
Attribute VB_Name = "frmViewCurData"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'发布日期：2007/07/09
'描    述：CBB三表户外计量系统 Ver 5.2
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
Dim rcUser As Recordset
Sub fill_cmbBuild()
Dim rcBuild As Recordset

    SQL = "select BuildID from BuildMap;"
    Set rcBuild = dbCbb.OpenRecordset(SQL, dbOpenDynaset)
    If rcBuild.RecordCount > 0 Then
        Do While Not rcBuild.EOF
            cmbBuild.AddItem Trim(rcBuild!BuildID)
            rcBuild.MoveNext
        
       '当条件为 True 时，或直到条件变为 True 时，重复执行一个语句块中的命令。
        Loop
    End If
    rcBuild.Close
    Set rcBuild = Nothing

    If cmbBuild.ListCount > 0 Then
        cmbBuild.ListIndex = 0
    End If
End Sub
Private Sub cmbBuild_Click()
    If cmbBuild.ListCount > 0 Then
        If cmbBuild.ListIndex < 0 Then
            Exit Sub
        End If

        SQL = "select Door,SumFee from UserMap where trim(BuildID)=""" _
            & Trim(cmbBuild) & """ and trim(UserName)<>""总表"" order by val(Door)"
        Set datUserFee.Recordset = dbCbb.OpenRecordset(SQL, dbOpenSnapshot)
    End If
End Sub

Private Sub cmdOK_Click()
    Unload Me
End Sub

Private Sub Form_Load()
    If UBound(curForm) > 0 Then
        curForm(UBound(curForm)).Enabled = False
    End If
    ReDim Preserve curForm(UBound(curForm) + 1)
    Set curForm(UBound(curForm)) = Me
    
    datUserFee.DatabaseName = App.Path & "\data\cbb.mdb"
    '初始化cmbBuild
    fill_cmbBuild
'status
    AppendStatusInfo "查看当前用户数据", icoBLUE
    SaveLog "查看当前用户数据", 0
End Sub

Private Sub Form_Unload(Cancel As Integer)
    ReDim Preserve curForm(UBound(curForm) - 1)
    If UBound(curForm) > 0 Then
        curForm(UBound(curForm)).Enabled = True
    End If

End Sub