📄 frmchfind.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmCHFind
BorderStyle = 3 'Fixed Dialog
Caption = "持卡人信息查询"
ClientHeight = 7695
ClientLeft = 45
ClientTop = 330
ClientWidth = 10125
Icon = "frmCHFind.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 7695
ScaleWidth = 10125
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.Frame FraPrepay
Caption = "持卡人信息查询"
Height = 1935
Left = 360
TabIndex = 0
Top = 240
Width = 9495
Begin VB.ComboBox cboState
Height = 300
ItemData = "frmCHFind.frx":000C
Left = 4200
List = "frmCHFind.frx":000E
Style = 2 'Dropdown List
TabIndex = 22
Top = 1260
Width = 1455
End
Begin VB.CommandButton cmdPrint
Caption = "打印预览"
Height = 375
Left = 7680
TabIndex = 19
Top = 1320
Width = 1095
End
Begin VB.CommandButton cmdFind
Caption = "查 询"
Default = -1 'True
Height = 375
Left = 6120
TabIndex = 18
Top = 1320
Width = 1095
End
Begin VB.TextBox txtCH_ID
Height = 270
Left = 1680
MaxLength = 10
TabIndex = 17
Top = 420
Width = 1095
End
Begin VB.TextBox txtCH_Name
Height = 300
Left = 7320
MaxLength = 4
TabIndex = 16
Top = 420
Width = 1455
End
Begin VB.ComboBox cboSType
Height = 300
ItemData = "frmCHFind.frx":0010
Left = 1680
List = "frmCHFind.frx":0012
Style = 2 'Dropdown List
TabIndex = 14
Top = 1200
Width = 1455
End
Begin VB.TextBox txtCH_No
Height = 270
Left = 4200
MaxLength = 8
TabIndex = 12
Top = 420
Width = 1455
End
Begin VB.CommandButton cmdList
Caption = "...."
Height = 300
Left = 2760
TabIndex = 9
Top = 420
Width = 375
End
Begin VB.ComboBox cboI_name
Height = 300
ItemData = "frmCHFind.frx":0014
Left = 1680
List = "frmCHFind.frx":0016
Style = 2 'Dropdown List
TabIndex = 4
Top = 780
Width = 1455
End
Begin VB.ComboBox cboGrade
Height = 300
ItemData = "frmCHFind.frx":0018
Left = 7320
List = "frmCHFind.frx":001A
Style = 2 'Dropdown List
TabIndex = 3
Top = 1320
Visible = 0 'False
Width = 1455
End
Begin VB.ComboBox cboS_name
Height = 300
ItemData = "frmCHFind.frx":001C
Left = 4200
List = "frmCHFind.frx":001E
Style = 2 'Dropdown List
TabIndex = 2
Top = 840
Width = 1455
End
Begin VB.ComboBox cboC_name
Height = 300
ItemData = "frmCHFind.frx":0020
Left = 7320
List = "frmCHFind.frx":0022
Style = 2 'Dropdown List
TabIndex = 1
Top = 840
Width = 1455
End
Begin VB.Label lblState
AutoSize = -1 'True
Caption = "状态："
Height = 180
Left = 3480
TabIndex = 21
Top = 1320
Width = 540
End
Begin VB.Label lblCH_Name
AutoSize = -1 'True
Caption = "持卡人姓名："
Height = 180
Left = 6120
TabIndex = 15
Top = 420
Width = 1080
End
Begin VB.Label lblST_Name
AutoSize = -1 'True
Caption = "持卡人类别："
Height = 180
Left = 480
TabIndex = 13
Top = 1260
Width = 1080
End
Begin VB.Label lblCH_No
AutoSize = -1 'True
Caption = "学号："
Height = 180
Left = 3480
TabIndex = 11
Top = 420
Width = 540
End
Begin VB.Label lblCH_ID
AutoSize = -1 'True
Caption = "持卡人ID："
Height = 180
Left = 480
TabIndex = 10
Top = 420
Width = 900
End
Begin VB.Label lblI_name
AutoSize = -1 'True
Caption = "院系："
Height = 180
Left = 480
TabIndex = 8
Top = 840
Width = 540
End
Begin VB.Label lblGrade
AutoSize = -1 'True
Caption = "年级："
Height = 180
Left = 6120
TabIndex = 7
Top = 1320
Visible = 0 'False
Width = 540
End
Begin VB.Label lblS_name
AutoSize = -1 'True
Caption = "专业："
Height = 180
Left = 3480
TabIndex = 6
Top = 900
Width = 540
End
Begin VB.Label lblC_name
AutoSize = -1 'True
Caption = "班级："
Height = 180
Left = 6120
TabIndex = 5
Top = 915
Width = 540
End
End
Begin MSComctlLib.ListView lvwPerson
Height = 5055
Left = 360
TabIndex = 20
Top = 2280
Width = 9495
_ExtentX = 16748
_ExtentY = 8916
LabelWrap = -1 'True
HideSelection = -1 'True
FullRowSelect = -1 'True
HotTracking = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 0
End
Begin VB.Label lblcar
AutoSize = -1 'True
Caption = "张卡"
Height = 180
Left = 1080
TabIndex = 25
Top = 7440
Width = 360
End
Begin VB.Label lblNumber
AutoSize = -1 'True
Caption = "La"
Height = 180
Left = 795
TabIndex = 24
Top = 7440
Width = 180
End
Begin VB.Label lblGong
AutoSize = -1 'True
Caption = "共"
Height = 180
Left = 480
TabIndex = 23
Top = 7440
Width = 180
End
Begin VB.Menu MnuList
Caption = "ssss"
Visible = 0 'False
Begin VB.Menu MnuLook
Caption = "查看"
End
End
End
Attribute VB_Name = "frmCHFind"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rsInstituteI_ID As Recordset
Dim rsInstitute As Recordset
Dim rsSpeciality As Recordset
Dim rsSpecialityID As Recordset
Dim rsClass As Recordset
Dim rsClassInfo As Recordset
Dim RsCardholder As Recordset
Dim rsSort As Recordset
Dim strInstituteI_ID As String
Public itmX As ListItem
Public rsCardholderFind As Recordset
Private Sub cmdFind_Click()
If Not rsCardholderFind.EOF Then
rsCardholderFind.MoveFirst
While Not rsCardholderFind.EOF
rsCardholderFind.Delete
rsCardholderFind.MoveNext
Wend
End If
lvwPerson.ListItems.Clear
Set RsCardholder = New Recordset
Dim str As String
str = "select * from TbCardholder" & where
RsCardholder.Open str, Modmain.conn, 3, 2
lblnumber.Caption = RsCardholder.RecordCount
If RsCardholder.RecordCount <> 0 Then
While Not RsCardholder.EOF
LoadDate
RsCardholder.MoveNext
Wend
'Else
' MsgBox "没有可打印的信息！", vbOKOnly + vbExclamation, "机房管理"
End If
End Sub
Private Sub cmdList_Click()
frmCardholderList.StrForm = "frmCHFind"
frmCardholderList.Show 1
txtCH_ID.SetFocus
End Sub
Private Sub cmdPrint_Click()
If rsCardholderFind.RecordCount <> 0 Then
DRTbCardholder.Show 1
Else
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -