frmwatermeterfixinsteadquery_select.frm

自来水公司的一个管理系统

VERSION 5.00
Object = "{C932BA88-4374-101B-A56C-00AA003668DC}#1.1#0"; "MSMASK32.OCX"
Begin VB.Form frmWaterMeterFixInsteadQuery_Select 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "查询条件选择"
   ClientHeight    =   2055
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5805
   Icon            =   "frmWaterMeterFixInsteadQuery_Select.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2055
   ScaleWidth      =   5805
   StartUpPosition =   1  '所有者中心
   Begin VB.Frame Frame1 
      Caption         =   "查询条件"
      ForeColor       =   &H8000000D&
      Height          =   1215
      Left            =   75
      TabIndex        =   5
      Top             =   120
      Width           =   5610
      Begin VB.TextBox txtUName 
         Enabled         =   0   'False
         Height          =   300
         Left            =   3210
         TabIndex        =   3
         Top             =   690
         Width           =   2190
      End
      Begin VB.ComboBox cboMonth 
         Height          =   300
         ItemData        =   "frmWaterMeterFixInsteadQuery_Select.frx":0442
         Left            =   3195
         List            =   "frmWaterMeterFixInsteadQuery_Select.frx":0444
         Style           =   2  'Dropdown List
         TabIndex        =   1
         Top             =   285
         Width           =   870
      End
      Begin VB.OptionButton optSearch 
         Caption         =   "按用户编号查询"
         Height          =   195
         Index           =   1
         Left            =   300
         TabIndex        =   7
         Top             =   750
         Width           =   1665
      End
      Begin VB.OptionButton optSearch 
         Caption         =   "按计费时段查询"
         Height          =   195
         Index           =   0
         Left            =   300
         TabIndex        =   6
         Top             =   360
         Value           =   -1  'True
         Width           =   1665
      End
      Begin MSMask.MaskEdBox txtYear 
         Height          =   300
         Left            =   2025
         TabIndex        =   0
         Top             =   285
         Width           =   825
         _ExtentX        =   1455
         _ExtentY        =   529
         _Version        =   393216
         MaxLength       =   4
         Mask            =   "9999"
         PromptChar      =   " "
      End
      Begin MSMask.MaskEdBox txtUID 
         Height          =   300
         Left            =   2010
         TabIndex        =   2
         Top             =   690
         Width           =   1200
         _ExtentX        =   2117
         _ExtentY        =   529
         _Version        =   393216
         Enabled         =   0   'False
         MaxLength       =   5
         Mask            =   "99999"
         PromptChar      =   " "
      End
      Begin VB.Label Label1 
         Caption         =   "年"
         Height          =   210
         Index           =   2
         Left            =   2910
         TabIndex        =   9
         Top             =   345
         Width           =   210
      End
      Begin VB.Label Label1 
         Caption         =   "月份"
         Height          =   210
         Index           =   3
         Left            =   4095
         TabIndex        =   8
         Top             =   345
         Width           =   435
      End
   End
   Begin VB.CommandButton cmdCB 
      Caption         =   "确定"
      Height          =   420
      Index           =   0
      Left            =   120
      TabIndex        =   4
      Top             =   1545
      Width           =   1065
   End
   Begin VB.Line Line1 
      BorderColor     =   &H80000003&
      Index           =   1
      X1              =   30
      X2              =   5700
      Y1              =   1425
      Y2              =   1425
   End
   Begin VB.Line Line1 
      BorderColor     =   &H80000005&
      Index           =   0
      X1              =   30
      X2              =   5715
      Y1              =   1440
      Y2              =   1440
   End
End
Attribute VB_Name = "frmWaterMeterFixInsteadQuery_Select"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Public strReturnYear As String
Public strReturnMonth As String
Public strReturnUID As String
Public strReturnUName As String

Private Sub cmdCB_Click(Index As Integer)
    strReturnYear = Trim(Me.txtYear.Text)
    strReturnMonth = Me.cboMonth.Text
    strReturnUID = Trim(Me.txtUID.Text)
    strReturnUName = Trim(Me.txtUName.Text)
    Unload Me
End Sub

Private Sub Form_Load()
    strReturnYear = ""
    strReturnMonth = ""
    strReturnUID = ""
    strReturnUName = ""

    Me.txtYear.Text = Trim(Str(Year(Date)))
    Call FillMonth
End Sub

Private Sub FillMonth()
    Me.cboMonth.Clear
    Me.cboMonth.AddItem "01"
    Me.cboMonth.AddItem "02"
    Me.cboMonth.AddItem "03"
    Me.cboMonth.AddItem "04"
    Me.cboMonth.AddItem "05"
    Me.cboMonth.AddItem "06"
    Me.cboMonth.AddItem "07"
    Me.cboMonth.AddItem "08"
    Me.cboMonth.AddItem "09"
    Me.cboMonth.AddItem "10"
    Me.cboMonth.AddItem "11"
    Me.cboMonth.AddItem "12"
    Me.cboMonth.ListIndex = Month(Date) - 1
End Sub

Private Sub ClearMonth()
    Me.cboMonth.Clear
End Sub


Private Sub optSearch_Click(Index As Integer)
    If Index = 0 Then
        Me.txtYear.Text = Trim(Str(Year(Date)))
        Call FillMonth
        Me.txtYear.Enabled = True
        Me.cboMonth.Enabled = True
        Me.txtYear.SetFocus
    
        Me.txtUID.Text = "     "
        Me.txtUName.Text = ""
        Me.txtUID.Enabled = False
    Else
        Me.txtYear.Text = "    "
        Call ClearMonth
        Me.txtYear.Enabled = False
        Me.cboMonth.Enabled = False
        
        Me.txtUID.Enabled = True
        Me.txtUID.SetFocus
    End If
End Sub

Private Sub txtUID_GotFocus()
    Call AutoSelectText(txtUID)
End Sub

Private Sub txtUID_KeyPress(KeyAscii As Integer)
    Call IfEnterKeyMoveNext(KeyAscii)
End Sub

Private Sub txtUID_LostFocus()
    Dim strSQL As String
    Dim adoTmpRS As ADODB.Recordset
    
    If Trim(Me.txtUID.Text) = "" Then
        Me.txtUName.Text = ""
        Exit Sub
    End If
    
    Me.txtUID.Text = String(gUIDLen - Len(Trim(Me.txtUID.Text)), "0") & Trim(Me.txtUID.Text)
    strSQL = "select UID,UName from UserRecord where UID='" & Trim(Me.txtUID.Text) & "'"
    On Error GoTo ErrHandleExe
    Set adoTmpRS = gConnect.Execute(strSQL)
    On Error GoTo 0
    If adoTmpRS.EOF And adoTmpRS.BOF Then
        Warning "该用户编号不存在！"
        Me.txtUName.Text = ""
        Me.txtUID.SetFocus
    Else
        Me.txtUName.Text = Trim(adoTmpRS!UName)
    End If
    On Error Resume Next
    adoTmpRS.Close
    Set adoTmpRS = Nothing
    On Error GoTo 0
    
    Exit Sub
    '-------错误处理---------
ErrHandleExe:
    Warning "用户编号查询错误！" & Chr(13) & Err.Description
    On Error GoTo 0
    Me.txtUName.Text = ""
    Me.txtUID.SetFocus
End Sub

Private Sub txtYear_GotFocus()
    Call AutoSelectText(txtYear)
End Sub

Private Sub txtYear_KeyPress(KeyAscii As Integer)
    Call IfEnterKeyMoveNext(KeyAscii)
End Sub

Private Sub cboMonth_KeyPress(KeyAscii As Integer)
    Call IfEnterKeyMoveNext(KeyAscii)
End Sub

Private Sub txtYear_LostFocus()
    If Val(Me.txtYear.Text) < 1900 Or Val(Me.txtYear.Text) > 9999 Then
        Warning "年份格式输入错误!!!"
        Me.txtYear.SetFocus
    End If
End Sub