frmyhlxgl_input.frm

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

VERSION 5.00
Object = "{788A625E-3B1F-4033-A5F8-E30D17B1FF43}#6.0#0"; "DecEdBox.ocx"
Begin VB.Form frmYHLXGL_Input 
   Caption         =   "用户类型/水价-新增"
   ClientHeight    =   2325
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6900
   Icon            =   "frmYHLXGL_Input.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2325
   ScaleWidth      =   6900
   StartUpPosition =   1  '所有者中心
   Begin VB.Frame Frame1 
      Height          =   1380
      Left            =   150
      TabIndex        =   4
      Top             =   105
      Width           =   6630
      Begin VB.TextBox txtUserType 
         Height          =   315
         Left            =   1365
         TabIndex        =   0
         Top             =   345
         Width           =   5085
      End
      Begin DecEdBox.DecEditBox debPrice 
         Height          =   315
         Left            =   1365
         TabIndex        =   1
         Top             =   780
         Width           =   1125
         _ExtentX        =   1984
         _ExtentY        =   556
      End
      Begin VB.Label lblPrompt 
         Caption         =   "元/吨"
         Height          =   210
         Index           =   2
         Left            =   2565
         TabIndex        =   7
         Top             =   855
         Width           =   510
      End
      Begin VB.Label lblPrompt 
         Caption         =   "用户用水单价："
         Height          =   210
         Index           =   1
         Left            =   165
         TabIndex        =   6
         Top             =   855
         Width           =   1260
      End
      Begin VB.Label lblPrompt 
         Caption         =   "用户用水类型："
         Height          =   210
         Index           =   0
         Left            =   165
         TabIndex        =   5
         Top             =   405
         Width           =   1260
      End
   End
   Begin VB.CommandButton cmdArray 
      Caption         =   "放弃"
      Height          =   315
      Index           =   1
      Left            =   1155
      TabIndex        =   3
      Top             =   1710
      Width           =   945
   End
   Begin VB.CommandButton cmdArray 
      Caption         =   "确定"
      Height          =   315
      Index           =   0
      Left            =   180
      TabIndex        =   2
      Top             =   1710
      Width           =   945
   End
End
Attribute VB_Name = "frmYHLXGL_Input"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public strTitle As String       '标题参数
Public strInputPrice As String   '单价
Public strInputType As String   '类型
Dim blnEditFlag As Boolean      '编辑标志,当对内容做任何改动时,该变量置为True

Private Sub cmdArray_Click(Index As Integer)
    Select Case Index
    Case 0  '确定
        If blnEditFlag Then
            strInputType = Trim(Me.txtUserType)
            strInputPrice = Me.debPrice.Text
        End If
        
    Case 1  '放弃
        strInputType = ""
        strInputPrice = 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 Form_Load()
    Me.Caption = Trim(strTitle)
    Me.txtUserType.Text = strInputType
    Me.debPrice.Text = strInputPrice
    Me.strInputType = ""
    Me.strInputPrice = 0
    
    Me.txtUserType.MaxLength = 60
    Me.debPrice.MaxLen = 6
    blnEditFlag = False
End Sub

Private Sub txtUserType_Change()
    blnEditFlag = True
End Sub

Private Sub txtUserType_GotFocus()
    Call AutoSelectText(txtUserType)
End Sub

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