frmwaterratecountrecord_select.frm

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

VERSION 5.00
Object = "{C932BA88-4374-101B-A56C-00AA003668DC}#1.1#0"; "MSMASK32.OCX"
Begin VB.Form frmWaterrateCountRecord_Select 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "选择"
   ClientHeight    =   1890
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4740
   Icon            =   "frmWaterrateCountRecord_Select.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1890
   ScaleWidth      =   4740
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.Frame Frame1 
      Caption         =   "计费月份"
      ForeColor       =   &H00800000&
      Height          =   870
      Index           =   0
      Left            =   150
      TabIndex        =   4
      Top             =   105
      Width           =   4320
      Begin MSMask.MaskEdBox txtYear 
         Height          =   300
         Left            =   210
         TabIndex        =   0
         Top             =   345
         Width           =   1095
         _ExtentX        =   1931
         _ExtentY        =   529
         _Version        =   393216
         MaxLength       =   4
         Mask            =   "9999"
         PromptChar      =   " "
      End
      Begin VB.ComboBox cmbMonth 
         Height          =   300
         ItemData        =   "frmWaterrateCountRecord_Select.frx":0442
         Left            =   1740
         List            =   "frmWaterrateCountRecord_Select.frx":0444
         Style           =   2  'Dropdown List
         TabIndex        =   1
         Top             =   345
         Width           =   990
      End
      Begin VB.Label Label1 
         Caption         =   "年"
         Height          =   210
         Index           =   2
         Left            =   1425
         TabIndex        =   6
         Top             =   405
         Width           =   210
      End
      Begin VB.Label Label1 
         Caption         =   "月份"
         Height          =   210
         Index           =   3
         Left            =   2775
         TabIndex        =   5
         Top             =   405
         Width           =   435
      End
   End
   Begin VB.CommandButton cmdCancle 
      Caption         =   "放弃"
      Height          =   360
      Left            =   1260
      TabIndex        =   3
      Top             =   1365
      Width           =   1050
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "确定"
      Height          =   360
      Left            =   225
      TabIndex        =   2
      Top             =   1365
      Width           =   1050
   End
   Begin VB.Line Line1 
      BorderColor     =   &H80000005&
      Index           =   1
      X1              =   105
      X2              =   4560
      Y1              =   1245
      Y2              =   1245
   End
   Begin VB.Line Line1 
      BorderColor     =   &H80000003&
      Index           =   0
      X1              =   105
      X2              =   4545
      Y1              =   1230
      Y2              =   1230
   End
End
Attribute VB_Name = "frmWaterrateCountRecord_Select"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Public strReturmYear As String        '返回值-用水时段年
Public strReturmMonth As String        '返回值-用水时段月

Private Sub cmdCancle_Click()
    Unload Me
End Sub

Private Sub cmdOK_Click()
    strReturmYear = Trim(Str(Me.txtYear.Text))
    strReturmMonth = Me.cmbMonth.Text

    Unload Me
End Sub

Private Sub Form_Load()
    txtYear.Text = Year(Date)
    cmbMonth.AddItem ("01")
    cmbMonth.AddItem ("02")
    cmbMonth.AddItem ("03")
    cmbMonth.AddItem ("04")
    cmbMonth.AddItem ("05")
    cmbMonth.AddItem ("06")
    cmbMonth.AddItem ("07")
    cmbMonth.AddItem ("08")
    cmbMonth.AddItem ("09")
    cmbMonth.AddItem ("10")
    cmbMonth.AddItem ("11")
    cmbMonth.AddItem ("12")
    cmbMonth.ListIndex = Month(Date) - 1
    
    strReturmYear = ""
    strReturmMonth = ""
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 txtYear_LostFocus()
    If Me.txtYear.Text < 1000 Or Me.txtYear.Text > 9999 Then
        Warning "日期格式输入错误!!!"
        Me.txtYear.SetFocus
        Exit Sub
    End If
End Sub

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