📄 frmmain.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Begin VB.Form FrmMain
BorderStyle = 1 'Fixed Single
Caption = $"FrmMain.frx":0000
ClientHeight = 10530
ClientLeft = 45
ClientTop = 615
ClientWidth = 15270
Icon = "FrmMain.frx":009A
LinkTopic = "Form1"
MaxButton = 0 'False
Moveable = 0 'False
ScaleHeight = 10530
ScaleWidth = 15270
Begin VB.CommandButton Command2
BackColor = &H0000FF00&
Caption = "绿"
Height = 255
Left = 15000
Style = 1 'Graphical
TabIndex = 9
Top = 320
Width = 255
End
Begin TabDlg.SSTab SSTab1
Height = 9660
Left = 0
TabIndex = 1
Top = 840
Width = 15195
_ExtentX = 26802
_ExtentY = 17039
_Version = 393216
TabHeight = 520
TabCaption(0) = "首页"
TabPicture(0) = "FrmMain.frx":68EC
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Label5(0)"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Label5(1)"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "Label5(2)"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "Label9"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "Label10"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "Picture1"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).Control(6)= "Picture2"
Tab(0).Control(6).Enabled= 0 'False
Tab(0).Control(7)= "Picture3"
Tab(0).Control(7).Enabled= 0 'False
Tab(0).Control(8)= "Frame1"
Tab(0).Control(8).Enabled= 0 'False
Tab(0).ControlCount= 9
TabCaption(1) = "明细"
TabPicture(1) = "FrmMain.frx":6908
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Adodc1"
Tab(1).Control(1)= "DataGrid1"
Tab(1).ControlCount= 2
TabCaption(2) = "帮助"
TabPicture(2) = "FrmMain.frx":6924
Tab(2).ControlEnabled= 0 'False
Tab(2).ControlCount= 0
Begin VB.Frame Frame1
Height = 3975
Left = 8640
TabIndex = 235
Top = 1200
Width = 1455
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "人"
Height = 180
Index = 1
Left = 1200
TabIndex = 245
Top = 600
Width = 180
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "人"
Height = 180
Index = 2
Left = 1200
TabIndex = 244
Top = 1440
Width = 180
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "正在消费顾客数"
Height = 180
Index = 0
Left = 120
TabIndex = 243
Top = 240
Width = 1260
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "当日已结算人数"
Height = 180
Left = 120
TabIndex = 242
Top = 1080
Width = 1260
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "可供手牌情况："
Height = 180
Left = 120
TabIndex = 241
Top = 1920
Width = 1260
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "男 宾："
Height = 180
Index = 0
Left = 120
TabIndex = 240
Top = 2280
Width = 720
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "女 宾："
Height = 180
Index = 1
Left = 120
TabIndex = 239
Top = 2640
Width = 720
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "棋牌室："
Height = 180
Index = 2
Left = 120
TabIndex = 238
Top = 3000
Width = 720
End
Begin VB.Label Label11
AutoSize = -1 'True
Caption = "L11"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 210
Left = 600
TabIndex = 237
Top = 1440
Width = 360
End
Begin VB.Label Label12
AutoSize = -1 'True
Caption = "L12"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 210
Left = 600
TabIndex = 236
Top = 600
Width = 360
End
End
Begin VB.PictureBox Picture3
Height = 1095
Left = 8880
ScaleHeight = 1035
ScaleWidth = 5955
TabIndex = 220
Top = 8280
Width = 6015
Begin VB.CheckBox Check3
Height = 510
Index = 11
Left = 4320
Picture = "FrmMain.frx":6940
Style = 1 'Graphical
TabIndex = 296
Top = 200
Width = 360
End
Begin VB.CheckBox Check3
Height = 510
Index = 10
Left = 3900
Picture = "FrmMain.frx":7312
Style = 1 'Graphical
TabIndex = 295
Top = 200
Width = 360
End
Begin VB.CheckBox Check3
Height = 510
Index = 9
Left = 5355
Picture = "FrmMain.frx":7CE4
Style = 1 'Graphical
TabIndex = 230
Top = 200
Width = 360
End
Begin VB.CheckBox Check3
Height = 510
Index = 8
Left = 4905
Picture = "FrmMain.frx":86B6
Style = 1 'Graphical
TabIndex = 229
Top = 200
Width = 360
End
Begin VB.CheckBox Check3
Height = 510
Index = 7
Left = 3480
Picture = "FrmMain.frx":9088
Style = 1 'Graphical
TabIndex = 228
Top = 200
Width = 360
End
Begin VB.CheckBox Check3
Height = 510
Index = 6
Left = 2928
Picture = "FrmMain.frx":9A5A
Style = 1 'Graphical
TabIndex = 227
Top = 200
Width = 360
End
Begin VB.CheckBox Check3
Height = 510
Index = 5
Left = 2480
Picture = "FrmMain.frx":A42C
Style = 1 'Graphical
TabIndex = 226
Top = 200
Width = 360
End
Begin VB.CheckBox Check3
Height = 510
Index = 4
Left = 2032
Picture = "FrmMain.frx":ADFE
Style = 1 'Graphical
TabIndex = 225
Top = 200
Width = 360
End
Begin VB.CheckBox Check3
Height = 510
Index = 3
Left = 1584
Picture = "FrmMain.frx":B7D0
Style = 1 'Graphical
TabIndex = 224
Top = 200
Width = 360
End
Begin VB.CheckBox Check3
Height = 510
Index = 2
Left = 1136
Picture = "FrmMain.frx":C1A2
Style = 1 'Graphical
TabIndex = 223
Top = 200
Width = 360
End
Begin VB.CheckBox Check3
Height = 510
Index = 1
Left = 688
Picture = "FrmMain.frx":CB74
Style = 1 'Graphical
TabIndex = 222
Top = 200
Width = 360
End
Begin VB.CheckBox Check3
Height = 510
Index = 0
Left = 240
Picture = "FrmMain.frx":D546
Style = 1 'Graphical
TabIndex = 221
Top = 200
Width = 360
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "Q401 Q402 Q403 Q404 Q406 Q408 Q410 W451 W452 W453 M461 M462"
ForeColor = &H000000FF&
Height = 180
Left = 240
TabIndex = 231
Top = 720
Width = 5490
End
End
Begin VB.PictureBox Picture2
Height = 6495
Left = 10200
ScaleHeight = 6435
ScaleWidth = 4635
TabIndex = 148
Top = 1080
Width = 4695
Begin VB.CheckBox Check2
Height = 510
Index = 67
Left = 3255
Picture = "FrmMain.frx":DF18
Style = 1 'Graphical
TabIndex = 250
Top = 4680
Width = 360
End
Begin VB.CheckBox Check2
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -