📄 frmclientinfo.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 frmClientInfo
Caption = "客人信息查询"
ClientHeight = 5565
ClientLeft = 60
ClientTop = 465
ClientWidth = 8370
Icon = "frmClientInfo.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 5565
ScaleWidth = 8370
Begin MSAdodcLib.Adodc Adodc1
Height = 495
Left = 2760
Top = 4920
Visible = 0 'False
Width = 1815
_ExtentX = 3201
_ExtentY = 873
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=KFGL;Data Source=5c92669bd5be43c"
OLEDBString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=KFGL;Data Source=5c92669bd5be43c"
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
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
Height = 1455
Left = 240
TabIndex = 12
Top = 3120
Width = 7815
_ExtentX = 13785
_ExtentY = 2566
_Version = 393216
AllowUpdate = -1 'True
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 = 14
BeginProperty Column00
DataField = ""
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 = ""
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 = ""
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 = ""
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 = ""
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 = ""
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 = ""
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 = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column08
DataField = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column09
DataField = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column10
DataField = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column11
DataField = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column12
DataField = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column13
DataField = ""
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
Size = 13
BeginProperty Column00
EndProperty
BeginProperty Column01
EndProperty
BeginProperty Column02
EndProperty
BeginProperty Column03
EndProperty
BeginProperty Column04
EndProperty
BeginProperty Column05
EndProperty
BeginProperty Column06
EndProperty
BeginProperty Column07
EndProperty
BeginProperty Column08
EndProperty
BeginProperty Column09
EndProperty
BeginProperty Column10
EndProperty
BeginProperty Column11
EndProperty
BeginProperty Column12
EndProperty
BeginProperty Column13
EndProperty
EndProperty
End
Begin VB.CommandButton Command1
Caption = "查询"
Height = 375
Left = 3600
TabIndex = 10
Top = 2160
Width = 1215
End
Begin VB.Frame Frame1
Caption = "说明"
Height = 2295
Left = 5040
TabIndex = 8
Top = 240
Width = 2895
Begin VB.Label Label5
Caption = $"frmClientInfo.frx":C84A
Height = 1215
Left = 240
TabIndex = 9
Top = 360
Width = 2295
End
End
Begin VB.TextBox Text4
Height = 375
Left = 1560
TabIndex = 7
Top = 1680
Width = 1695
End
Begin VB.TextBox Text3
Height = 375
Left = 1560
TabIndex = 6
Top = 1200
Width = 3135
End
Begin VB.TextBox Text2
Height = 375
Left = 1560
TabIndex = 5
Top = 720
Width = 3135
End
Begin VB.TextBox Text1
Height = 375
Left = 1560
TabIndex = 4
Top = 240
Width = 1215
End
Begin VB.Label Label6
Caption = "查询结果："
Height = 255
Left = 240
TabIndex = 11
Top = 2640
Width = 975
End
Begin VB.Label Label4
Caption = "来自何地："
Height = 255
Left = 240
TabIndex = 3
Top = 1800
Width = 975
End
Begin VB.Label Label3
Caption = "家庭住址："
Height = 255
Left = 240
TabIndex = 2
Top = 1320
Width = 975
End
Begin VB.Label Label2
Caption = "工作单位："
Height = 255
Left = 240
TabIndex = 1
Top = 840
Width = 975
End
Begin VB.Label Label1
Caption = "客人姓名："
Height = 255
Left = 240
TabIndex = 0
Top = 360
Width = 975
End
End
Attribute VB_Name = "frmClientInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim sCName, sCWork, sCAdd, sCFrom As String
sCName = Text1.Text
sCWork = Text2.Text
sCAdd = Text3.Text
sCFrom = Text4.Text
Adodc1.RecordSource = "Exec spClientInFo'" & sCName & "','" & sCWork & "','" & sCAdd & "','" & sCFrom & "'"
Adodc1.Refresh
DataGrid1.ClearFields
Set DataGrid1.DataSource = Adodc1
DataGrid1.Columns(0).Caption = "客人序号"
DataGrid1.Columns(1).Caption = "姓名"
DataGrid1.Columns(2).Caption = "性别"
Dim df As New StdDataFormat
df.Type = fmtBoolean
df.FalseValue = "女"
df.TrueValue = "男"
Set DataGrid1.Columns(2).DataFormat = df
DataGrid1.Columns(3).Caption = "年龄"
DataGrid1.Columns(4).Caption = "身份证号"
DataGrid1.Columns(5).Caption = "家庭住址"
DataGrid1.Columns(6).Caption = "工作单位"
DataGrid1.Columns(7).Caption = "来自何地"
DataGrid1.Columns(8).Caption = "入住时间"
DataGrid1.Columns(9).Caption = "预住天数"
DataGrid1.Columns(10).Caption = "客房号"
DataGrid1.Columns(11).Caption = "离店时间"
DataGrid1.Columns(12).Caption = "押金金额"
DataGrid1.Columns(13).Caption = "住宿费"
DataGrid1.Refresh
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -