frmzbgl_input.frm

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

VERSION 5.00
Object = "{788A625E-3B1F-4033-A5F8-E30D17B1FF43}#8.0#0"; "DecEdBox.ocx"
Begin VB.Form frmZBGL_Input 
   Caption         =   "总水表信息"
   ClientHeight    =   2220
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6990
   Icon            =   "frmZBGL_Input.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2220
   ScaleWidth      =   6990
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton cmdArray 
      Caption         =   "确定"
      Height          =   315
      Index           =   0
      Left            =   210
      TabIndex        =   3
      Top             =   1725
      Width           =   945
   End
   Begin VB.CommandButton cmdArray 
      Caption         =   "放弃"
      Height          =   315
      Index           =   1
      Left            =   1185
      TabIndex        =   4
      Top             =   1725
      Width           =   945
   End
   Begin VB.Frame Frame1 
      Height          =   1380
      Left            =   180
      TabIndex        =   5
      Top             =   120
      Width           =   6630
      Begin VB.TextBox txtPost 
         Height          =   315
         Left            =   1350
         MaxLength       =   60
         TabIndex        =   1
         Top             =   585
         Width           =   4770
      End
      Begin VB.TextBox txtName 
         Height          =   330
         Left            =   1365
         MaxLength       =   60
         TabIndex        =   0
         Top             =   225
         Width           =   2655
      End
      Begin DecEdBox.DecEditBox debMWmStartReadNumber 
         Height          =   300
         Left            =   1350
         TabIndex        =   2
         Top             =   930
         Width           =   1200
         _ExtentX        =   2117
         _ExtentY        =   529
      End
      Begin VB.Label lblPrompt 
         Caption         =   "初始读数："
         Height          =   210
         Index           =   2
         Left            =   180
         TabIndex        =   9
         Top             =   990
         Width           =   1260
      End
      Begin VB.Label Label21 
         Caption         =   "吨"
         Height          =   180
         Index           =   1
         Left            =   2595
         TabIndex        =   8
         Top             =   1005
         Width           =   180
      End
      Begin VB.Label lblPrompt 
         Caption         =   "总水表名称："
         Height          =   225
         Index           =   0
         Left            =   165
         TabIndex        =   7
         Top             =   270
         Width           =   1260
      End
      Begin VB.Label lblPrompt 
         Caption         =   "总水表位置："
         Height          =   210
         Index           =   1
         Left            =   165
         TabIndex        =   6
         Top             =   660
         Width           =   1260
      End
   End
End
Attribute VB_Name = "frmZBGL_Input"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Public strTitle As String   '标题参数
Public strName As String    '总水表名称参数
Public strPost As String    '总水表位置参数
Public strMWmStartReadNumber As Currency    '总表初始读数

Dim blnEditFlag As Boolean      '编辑标志,当对内容做任何改动时,该变量置为True

Private Sub cmdArray_Click(Index As Integer)
    Select Case Index
    Case 0  '确定
        If blnEditFlag Then
            strName = Trim(Me.txtName.Text)
            strPost = Trim(Me.txtPost.Text)
            strMWmStartReadNumber = Me.debMWmStartReadNumber.Text
        End If
        
    Case 1  '放弃
        strName = ""
        strPost = ""
        strMWmStartReadNumber = 0
    
    Case Else
        Warning "按扭功能未定义"

    End Select
    Unload Me
End Sub

Private Sub debPrice_Change()
    blnEditFlag = True
End Sub

Private Sub debPrice_KeyPress(ByVal KeyAscii As Integer)
    IfEnterKeyMoveNext (KeyAscii)
End Sub

Private Sub debMWmStartReadNumber_Change()
    blnEditFlag = True
End Sub

Private Sub debMWmStartReadNumber_KeyPress(ByVal KeyAscii As Integer)
    Call IfEnterKeyMoveNext(KeyAscii)
End Sub

Private Sub Form_Load()
    Me.txtName.MaxLength = 60
    Me.txtPost.MaxLength = 60
    Me.debMWmStartReadNumber.MaxLen = 12
    
    Me.Caption = Trim(strTitle)
    Me.txtName.Text = strName
    Me.txtPost.Text = strPost
    Me.debMWmStartReadNumber.Text = strMWmStartReadNumber
    strName = ""
    strPost = ""
    strMWmStartReadNumber = 0
    
    
    blnEditFlag = False
End Sub

Private Sub txtName_Change()
    blnEditFlag = True
End Sub

Private Sub txtName_GotFocus()
    Call AutoSelectText(txtName)
End Sub

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

Private Sub txtPost_Change()
    blnEditFlag = True
End Sub

Private Sub txtPost_GotFocus()
    Call AutoSelectText(txtPost)
End Sub

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