main_kfgl_krcx.frm
来自「星级酒店客房管理系统一套很不错的系统」· FRM 代码 · 共 1,700 行 · 第 1/5 页
FRM
1,700 行
Begin VB.PictureBox Picture4
Appearance = 0 'Flat
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 225
Left = 10440
ScaleHeight = 195
ScaleWidth = 1305
TabIndex = 4
Top = 720
Visible = 0 'False
Width = 1335
Begin VB.Label Label2
BackColor = &H80000010&
Caption = "Label2"
Height = 195
Left = 0
TabIndex = 81
Top = 0
Width = 1335
End
End
Begin MSAdodcLib.Adodc Adodc9
Height = 375
Left = 5280
Top = 1560
Visible = 0 'False
Width = 2490
_ExtentX = 4392
_ExtentY = 661
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 = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
Caption = "Adodc9"
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 MSAdodcLib.Adodc Adodc2
Height = 360
Left = 5280
Top = 2040
Visible = 0 'False
Width = 1650
_ExtentX = 2910
_ExtentY = 635
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 = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
Caption = "Adodc2"
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 VB.PictureBox Picture2
BackColor = &H000080FF&
Height = 2355
Left = 5280
ScaleHeight = 2295
ScaleWidth = 3615
TabIndex = 2
Top = 2760
Visible = 0 'False
Width = 3675
Begin VB.PictureBox Picture11
Height = 2055
Left = 120
Picture = "main_kfgl_krcx.frx":17A48
ScaleHeight = 1995
ScaleWidth = 3315
TabIndex = 47
Top = 120
Width = 3375
Begin VB.ComboBox Combo10
Height = 300
Left = 1365
TabIndex = 51
Text = "Combo1"
Top = 600
Visible = 0 'False
Width = 1800
End
Begin VB.CommandButton Command1
Height = 375
Left = 120
Picture = "main_kfgl_krcx.frx":1C2C1
Style = 1 'Graphical
TabIndex = 50
Top = 1320
Visible = 0 'False
Width = 1000
End
Begin VB.CommandButton Command2
Height = 375
Left = 2160
Picture = "main_kfgl_krcx.frx":1D113
Style = 1 'Graphical
TabIndex = 49
Top = 1320
Width = 1000
End
Begin VB.CommandButton Command3
Height = 375
Left = 1140
Picture = "main_kfgl_krcx.frx":1DF65
Style = 1 'Graphical
TabIndex = 48
Top = 1320
Visible = 0 'False
Width = 1000
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "请选择类型："
Height = 270
Left = 120
TabIndex = 52
Top = 645
Width = 1125
End
End
End
Begin MSAdodcLib.Adodc Adodc10
Height = 330
Left = 3960
Top = 2040
Visible = 0 'False
Width = 1335
_ExtentX = 2355
_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 = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
Caption = "Adodc10"
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 VB.PictureBox Picture1
Appearance = 0 'Flat
BackColor = &H8000000D&
ForeColor = &H80000008&
Height = 2565
Left = 4680
ScaleHeight = 2535
ScaleWidth = 5070
TabIndex = 1
Top = 2640
Visible = 0 'False
Width = 5100
Begin VB.PictureBox Picture12
Height = 2295
Left = 120
Picture = "main_kfgl_krcx.frx":1EDB7
ScaleHeight = 2235
ScaleWidth = 4755
TabIndex = 53
Top = 120
Width = 4815
Begin VB.CommandButton Command5
Appearance = 0 'Flat
Height = 375
Left = 3195
Picture = "main_kfgl_krcx.frx":223AC
Style = 1 'Graphical
TabIndex = 63
Top = 1815
Width = 940
End
Begin VB.CommandButton Command4
Appearance = 0 'Flat
Height = 375
Left = 2040
Picture = "main_kfgl_krcx.frx":231FE
Style = 1 'Graphical
TabIndex = 62
Top = 1815
Width = 940
End
Begin VB.Frame Frame7
Caption = "运算符"
Height = 525
Left = 0
TabIndex = 55
Top = 720
Width = 4740
Begin VB.OptionButton Option1
Caption = "like"
Height = 195
Left = 165
TabIndex = 61
Top = 225
Value = -1 'True
Width = 840
End
Begin VB.OptionButton Option2
Caption = ">="
Height = 195
Left = 1020
TabIndex = 60
Top = 225
Width = 750
End
Begin VB.OptionButton Option3
Caption = "<="
Height = 195
Left = 1770
TabIndex = 59
Top = 225
Width = 750
End
Begin VB.OptionButton Option4
Caption = "="
Height = 195
Left = 2520
TabIndex = 58
Top = 225
Width = 615
End
Begin VB.OptionButton Option5
Caption = "<>"
Height = 195
Left = 3225
TabIndex = 57
Top = 225
Width = 615
End
Begin VB.OptionButton Option6
Caption = "不含"
Height = 195
Left = 3885
TabIndex = 56
Top = 225
Width = 705
End
End
Begin VB.TextBox Field_Z
Appearance = 0 'Flat
BackColor = &H80000013&
ForeColor = &H00000000&
Height = 270
Left = 300
TabIndex = 54
Top = 1380
Width = 4230
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?