frmusu_seek.frm

一个用VB写的财务软件源码

VERSION 5.00
Begin VB.Form frmUSU_Seek 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "账务查询"
   ClientHeight    =   2490
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5235
   Icon            =   "frmUSU_Seek.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2490
   ScaleWidth      =   5235
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.TextBox txtFindKey 
      Height          =   315
      Left            =   60
      TabIndex        =   2
      Top             =   1560
      Width           =   5115
   End
   Begin VB.CommandButton cmdCancel 
      Cancel          =   -1  'True
      Caption         =   "取消(&C)"
      Height          =   345
      Left            =   4110
      Picture         =   "frmUSU_Seek.frx":000C
      TabIndex        =   4
      Top             =   2040
      Width           =   1065
   End
   Begin VB.CommandButton cmdOk 
      Caption         =   "查找(&F)"
      Default         =   -1  'True
      Height          =   345
      Left            =   2640
      Picture         =   "frmUSU_Seek.frx":053E
      TabIndex        =   3
      Top             =   2040
      Width           =   1065
   End
   Begin VB.Frame Frame1 
      Height          =   555
      Left            =   60
      TabIndex        =   6
      Top             =   900
      Width           =   5115
      Begin VB.OptionButton optDmOrMc 
         Caption         =   "按名称查找"
         Height          =   255
         Index           =   1
         Left            =   2820
         TabIndex        =   1
         Top             =   200
         Width           =   1725
      End
      Begin VB.OptionButton optDmOrMc 
         Caption         =   "按代码查找"
         Height          =   255
         Index           =   0
         Left            =   480
         TabIndex        =   0
         Top             =   200
         Value           =   -1  'True
         Width           =   1665
      End
   End
   Begin VB.Image Image1 
      Height          =   480
      Left            =   300
      Picture         =   "frmUSU_Seek.frx":0640
      Top             =   180
      Width           =   480
   End
   Begin VB.Label lblMsg 
      Caption         =   "Label1"
      Height          =   735
      Left            =   1200
      TabIndex        =   5
      Top             =   60
      Width           =   3915
      WordWrap        =   -1  'True
   End
End
Attribute VB_Name = "frmUSU_Seek"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private oldTxt As String    '文本框默认初始值
Public Valid As Boolean    '查找(true)/取消状态

Private Sub cmdCancel_Click()
    Valid = False
    Me.Hide
End Sub

Private Sub cmdOk_Click()
    Valid = True
    Me.Hide
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Valid = False
End Sub

Private Sub optDmOrMc_Click(Index As Integer)
    txtFindKey.SelStart = 0
    txtFindKey.SelLength = Len(txtFindKey)
End Sub

Private Sub txtFindKey_KeyPress(KeyAscii As Integer)
    If optDmOrMc(0) And (KeyAscii < 0 Or KeyAscii = 39) Then KeyAscii = 0
End Sub