frmcardholderfind.frm

本系统是本着实用的原则开发的

VERSION 5.00
Begin VB.Form frmCardholderFind 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "持卡人查询"
   ClientHeight    =   1530
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   3900
   Icon            =   "frmCardholderFind.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1530
   ScaleWidth      =   3900
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton CMDList 
      Caption         =   "...."
      Height          =   255
      Left            =   2760
      TabIndex        =   4
      Top             =   360
      Width           =   495
   End
   Begin VB.CommandButton cmdNo 
      Caption         =   "退 出"
      Height          =   375
      Left            =   2280
      TabIndex        =   3
      Top             =   960
      Width           =   855
   End
   Begin VB.CommandButton cmdYes 
      Caption         =   "确  定"
      Default         =   -1  'True
      Height          =   375
      Left            =   840
      TabIndex        =   2
      Top             =   960
      Width           =   855
   End
   Begin VB.TextBox txtCondition 
      Height          =   270
      Left            =   1560
      MaxLength       =   10
      TabIndex        =   1
      Top             =   360
      Width           =   1215
   End
   Begin VB.Label lblCondition 
      AutoSize        =   -1  'True
      Caption         =   "请输入卡号："
      Height          =   300
      Left            =   360
      TabIndex        =   0
      Top             =   360
      Width           =   1080
   End
End
Attribute VB_Name = "frmCardholderFind"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''                                                                ''
''Filename       frmCardholderFind.frm                            ''
''                                                                ''
''Created On     2004.2.14                                        ''
''                                                                ''
''Description    持卡人信息查询窗体                               ''
''                                                                ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public RsCardholder As Recordset
Dim rsSort As Recordset

Private Sub cmdList_Click()
frmCardholderList.StrForm = "frmCardholderFind"
frmCardholderList.Show 1
txtCondition.SetFocus
End Sub

Private Sub cmdNo_Click()
frmCardholder.Add = True
frmCardholder.ADDLS = True
frmCardholder.ADDXY = True
Unload Me
End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''根据输入的卡号显示持卡人的详细信息                              ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub cmdYes_Click()
Set RsCardholder = New Recordset
RsCardholder.Open "select * from TbCardholder WHERE CH_ID='" & UCase(txtCondition.Text) & "'", Modmain.conn, 3, 2

Set rsSort = New Recordset
rsSort.Open "select * from TbSort WHERE ST_ID='" & Left(txtCondition.Text, 2) & "'", Modmain.conn, 3, 2
If rsSort.RecordCount <> 0 Then
    If Left(txtCondition.Text, 2) = "0B" Or Left(txtCondition.Text, 2) = "0Z" Or Left(txtCondition.Text, 2) = "0Y" Then
        frmCardholder.cboSType = rsSort.Fields!ST_Name
        frmCardholder.txtNo = Right(RsCardholder.Fields!ch_id, 8)
        frmCardholder.lblSTCH_ID = RsCardholder.Fields!ch_id
        frmCardholder.strStudentID = RsCardholder.Fields!ch_id
        frmCardholder.TxtSCH_Name = RsCardholder.Fields!CH_Name
        frmCardholder.TxtSMoney.Visible = False
         frmCardholder.LblSHMoney.Visible = True
        frmCardholder.LblSHMoney = RsCardholder.Fields!Money       '卡金不能修改
        frmCardholder.txtSCH_Memo = RsCardholder.Fields!CH_Memo
    ElseIf Left(txtCondition.Text, 2) = "0W" Or Left(txtCondition.Text, 2) = "0J" Then
        frmCardholder.cboXType = rsSort.Fields!ST_Name
        frmCardholder.lblXTCH_ID = RsCardholder.Fields!ch_id
        frmCardholder.strXueYuan = RsCardholder.Fields!ch_id
        frmCardholder.TxtXCH_Name = RsCardholder.Fields!CH_Name
        frmCardholder.TxtXMoney.Visible = False
        frmCardholder.LblXYMoney.Visible = True
        frmCardholder.LblXYMoney = RsCardholder.Fields!Money
        frmCardholder.txtXCH_Memo = RsCardholder.Fields!CH_Memo
    ElseIf Left(txtCondition.Text, 2) = "0L" Then
        frmCardholder.lblLTCH_ID = RsCardholder.Fields!ch_id
        frmCardholder.TxtLCH_Name = RsCardholder.Fields!CH_Name
        frmCardholder.TxtLMoney.Visible = False
        frmCardholder.LblLSMoney.Visible = True
        frmCardholder.LblLSMoney = RsCardholder.Fields!Money
        frmCardholder.txtLCH_Memo = RsCardholder.Fields!CH_Memo
    End If
    Unload Me
Else
        MsgBox "该卡号不存在，请重新填写！", vbOKOnly + vbExclamation, "机房管理"
        txtCondition.Text = ""
        txtCondition.SetFocus
End If
End Sub
Private Sub txtCondition_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    SendKeys "{tab}"
End If
End Sub