📄 queryclerk.frm
字号:
VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Begin VB.Form queryaccount1
Caption = "查询银行信息"
ClientHeight = 8670
ClientLeft = 60
ClientTop = 345
ClientWidth = 8730
LinkTopic = "Form1"
ScaleHeight = 8670
ScaleWidth = 8730
StartUpPosition = 3 '窗口缺省
Begin VB.Frame Frame1
Height = 1335
Left = 240
TabIndex = 6
Top = 5640
Width = 2055
Begin VB.OptionButton Option2
Caption = "按身份证号查询："
Height = 375
Left = 120
TabIndex = 8
Top = 840
Width = 1815
End
Begin VB.OptionButton Option1
Caption = "按帐号查询："
Height = 495
Left = 120
TabIndex = 7
Top = 240
Width = 1455
End
End
Begin MSAdodcLib.Adodc Adodc1
Height = 330
Left = 0
Top = 0
Visible = 0 'False
Width = 2055
_ExtentX = 3625
_ExtentY = 582
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 8
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=bank;Data Source=(local)"
OLEDBString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=bank;Data Source=(local)"
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = $"queryclerk.frx":0000
Caption = "Adodc1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin MSDataGridLib.DataGrid DataGrid1
Bindings = "queryclerk.frx":0093
Height = 3975
Left = 600
TabIndex = 5
Top = 1320
Width = 7455
_ExtentX = 13150
_ExtentY = 7011
_Version = 393216
HeadLines = 1
RowHeight = 15
FormatLocked = -1 'True
BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ColumnCount = 8
BeginProperty Column00
DataField = "Aname"
Caption = "姓名"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column01
DataField = "AuserID"
Caption = "卡号"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column02
DataField = "peopleID"
Caption = "身份证号"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column03
DataField = "address"
Caption = "地址"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column04
DataField = "phone"
Caption = "电话"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column05
DataField = "Endmoney"
Caption = "余额"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column06
DataField = "lastdate"
Caption = "上次操作日期"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column07
DataField = "percentage"
Caption = "利率"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
SplitCount = 1
BeginProperty Split0
BeginProperty Column00
EndProperty
BeginProperty Column01
EndProperty
BeginProperty Column02
EndProperty
BeginProperty Column03
EndProperty
BeginProperty Column04
EndProperty
BeginProperty Column05
EndProperty
BeginProperty Column06
EndProperty
BeginProperty Column07
EndProperty
EndProperty
End
Begin VB.CommandButton Command2
Caption = "取消"
Height = 375
Left = 3600
TabIndex = 4
Top = 7440
Width = 1335
End
Begin VB.CommandButton Command1
Caption = "确定"
Height = 375
Left = 1320
TabIndex = 3
Top = 7440
Width = 1335
End
Begin VB.TextBox Text2
Height = 270
Left = 2280
TabIndex = 2
Top = 6480
Width = 2895
End
Begin VB.TextBox Text1
Height = 270
Left = 2280
TabIndex = 1
Top = 5880
Width = 2895
End
Begin VB.Label label1
Alignment = 2 'Center
Caption = "查询银行用户信息"
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 2640
TabIndex = 0
Top = 360
Width = 3375
End
End
Attribute VB_Name = "queryaccount1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim str As String
Dim input1 As Boolean
Dim input2 As Boolean
input1 = False
input2 = False
str = "select Ausers.Aname,Ausers.AuserID,peopleID,address,phone,Endmoney,lastdate,percentage from Ausers,account where Ausers.AuserID=account.AuserID"
Set cn = New adodb.Connection
Dim rst As Recordset
Set rst = New Recordset
'Dim dat1 As Date
'Dim dat2 As Date
'Dim lastmoney As Double
cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=bank;Data Source=(local)"
cn.Open
rst.Open str, cn, adOpenDynamic, adLockOptimistic
''''''''''''''''''''''''''
'查找此卡号
'''''''''''''''''''''''''
If Option1.Value = False And Option2.Value = False Then
MsgBox "请选择查找方法！"
rs.Close
cn.Close
Exit Sub
End If
rst.MoveFirst
If Option1.Value = True Then
Do While Not rst.EOF
If Trim(rst!AuserID) = Text1.Text Then
input1 = True
'Text1.Enabled = False
GoTo AAA
End If
rst.MoveNext
Loop
Else
rst.MoveFirst
If Option2.Value = True Then
Do While Not rst.EOF
If Trim(rst!peopleID) = Text2.Text Then
input2 = True
'Text2.Enabled = False
GoTo AAA
End If
rst.MoveNext
Loop
End If
End If
MsgBox "查无此帐号！请重新输入！"
rst.Close
cn.Close
Exit Sub
'AAA: Ausers.Aname , Ausers.AuserID, peopleID, address, phone, Endmoney, lastdate, percentage
' input1 = True Or input2 = True Then
AAA:
queryaccRes.Text1(0).Text = Trim(rst!Aname)
queryaccRes.Text1(1).Text = Trim(rst!AuserID)
queryaccRes.Text1(2).Text = Trim(rst!peopleID)
queryaccRes.Text1(3).Text = Trim(rst!address)
queryaccRes.Text1(4).Text = Trim(rst!phone)
queryaccRes.Text1(5).Text = Trim(rst!Endmoney)
queryaccRes.Text1(6).Text = Trim(rst!lastdate)
queryaccRes.Text1(7).Text = Trim(rst!percentage)
rst.Close
cn.Close
queryaccRes.Show
Unload Me
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Option1_Click()
If Option1.Value = True Then
Text2.Enabled = False
End If
End Sub
Private Sub Option2_Click()
If Option2.Value = True Then
Text1.Enabled = False
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -