frmusermap.frm

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

VERSION 5.00
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Begin VB.Form frmUserMap 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "用户信息设置"
   ClientHeight    =   5550
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   8130
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   5550
   ScaleWidth      =   8130
   Begin VB.Data datUserMap 
      Connect         =   "Access"
      DatabaseName    =   ""
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   345
      Left            =   0
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "UserMap"
      Top             =   4260
      Width           =   8070
   End
   Begin VB.ComboBox cmbBuild 
      Height          =   300
      Left            =   1650
      Style           =   2  'Dropdown List
      TabIndex        =   3
      Top             =   0
      Width           =   2130
   End
   Begin VB.CommandButton cmdDevSet 
      Caption         =   "用户设备设置 "
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   336
      Left            =   4410
      TabIndex        =   2
      Top             =   5085
      Width           =   1560
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "确定 "
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   336
      Left            =   5955
      TabIndex        =   1
      Top             =   5085
      Width           =   975
   End
   Begin VB.CommandButton cmdCancel 
      Caption         =   "取消 "
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   336
      Left            =   6915
      TabIndex        =   0
      Top             =   5085
      Width           =   975
   End
   Begin MSDBGrid.DBGrid grdUserMap 
      Bindings        =   "frmUserMap.frx":0000
      Height          =   3855
      Left            =   15
      OleObjectBlob   =   "frmUserMap.frx":0019
      TabIndex        =   4
      Top             =   420
      Width           =   8010
   End
   Begin VB.Label Label1 
      Caption         =   "公寓楼序列号:"
      Height          =   255
      Left            =   300
      TabIndex        =   12
      Top             =   45
      Width           =   1230
   End
   Begin VB.Label lblBuildUserSum 
      Height          =   255
      Left            =   6330
      TabIndex        =   11
      Top             =   45
      Width           =   1410
   End
   Begin VB.Label lblNetUserSum 
      BorderStyle     =   1  'Fixed Single
      Height          =   255
      Left            =   1230
      TabIndex        =   10
      Top             =   5115
      Width           =   855
   End
   Begin VB.Label Label2 
      Caption         =   "网络总用户数:"
      Height          =   255
      Left            =   30
      TabIndex        =   9
      Top             =   5115
      Width           =   1215
   End
   Begin VB.Label Label3 
      Caption         =   "当前公寓用户数:"
      Height          =   255
      Left            =   4860
      TabIndex        =   8
      Top             =   75
      Width           =   1425
   End
   Begin VB.Label Label4 
      Caption         =   "地址范围:"
      Height          =   255
      Left            =   2190
      TabIndex        =   7
      Top             =   5115
      Width           =   855
   End
   Begin VB.Label lblAddr 
      BorderStyle     =   1  'Fixed Single
      Height          =   255
      Left            =   3030
      TabIndex        =   6
      Top             =   5115
      Width           =   1095
   End
   Begin VB.Label Label5 
      Caption         =   "如设总表，用户号或总表号栏请填连续序号，用户名或总表栏必须填“总表”，其它栏如没有填“\”。"
      Height          =   330
      Left            =   15
      TabIndex        =   5
      Top             =   4740
      Width           =   8205
   End
End
Attribute VB_Name = "frmUserMap"
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 rcBuildMap As Recordset

Private Sub fillBuild()
Dim rcBuild_userset As Recordset

    Set rcBuild_userset = dbCbb.OpenRecordset("BuildMap", dbOpenSnapshot)
    Do While Not rcBuild_userset.EOF
        If Not IsNull(rcBuild_userset!BuildID) Then
            If Trim(rcBuild_userset!BuildID) <> "" Then
                cmbBuild.AddItem rcBuild_userset!BuildID
            End If
        End If
        rcBuild_userset.MoveNext
    Loop
    If cmbBuild.ListCount > 0 Then
        cmbBuild.Text = cmbBuild.List(0)
    End If
    cmbBuild.AddItem "所有"
End Sub


Private Sub cmbBuild_Click()

Dim curSelBuild As String
Dim rcBuild_userset As Recordset

    Set rcBuild_userset = dbCbb.OpenRecordset("BuildMap", dbOpenDynaset)
    curSelBuild = Trim(cmbBuild.List(cmbBuild.ListIndex))
    SQL = "select userID,userName,Unit,Floor,Door,Tel,BuildID "
    SQL = SQL + "from userMap "
    If curSelBuild <> "所有" Then
        SQL = SQL + "where userMap.buildID=""" + curSelBuild + """ "
    End If
    SQL = SQL + "order by BuildID ASC,Unit ASC,val(Floor) ASC,val(Door) ASC,UserID ASC"
    datUserMap.RecordSource = SQL
    datUserMap.Refresh
    If datUserMap.Recordset.RecordCount > 0 Then
        datUserMap.Recordset.MoveLast
        datUserMap.Recordset.MoveFirst
    End If
    grdUserMap.Refresh
    
    rcBuild_userset.FindFirst "trim(BuildID)=""" + curSelBuild + """"
    If Not rcBuild_userset.NoMatch Then
        rcBuild_userset.Edit
        rcBuild_userset!UserSum = datUserMap.Recordset.RecordCount