📄 frm_yd1.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomct2.ocx"
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "msflxgrd.ocx"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form Frm_yd1
BorderStyle = 3 'Fixed Dialog
Caption = "包厢预订系统"
ClientHeight = 7005
ClientLeft = 45
ClientTop = 330
ClientWidth = 11520
Icon = "Frm_yd1.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 7005
ScaleWidth = 11520
ShowInTaskbar = 0 'False
StartUpPosition = 1 '所有者中心
Begin TabDlg.SSTab SSTab1
Height = 6480
Left = 105
TabIndex = 8
Top = 240
Width = 11355
_ExtentX = 20029
_ExtentY = 11430
_Version = 393216
Tabs = 2
TabsPerRow = 2
TabHeight = 564
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
TabCaption(0) = "预定/取消"
TabPicture(0) = "Frm_yd1.frx":0E42
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Label10"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "lab_no"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "Label9"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "Label8"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "Label7"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "Label1"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).Control(6)= "Label2"
Tab(0).Control(6).Enabled= 0 'False
Tab(0).Control(7)= "Label3"
Tab(0).Control(7).Enabled= 0 'False
Tab(0).Control(8)= "Label4"
Tab(0).Control(8).Enabled= 0 'False
Tab(0).Control(9)= "yd_time"
Tab(0).Control(9).Enabled= 0 'False
Tab(0).Control(10)= "yd_note"
Tab(0).Control(10).Enabled= 0 'False
Tab(0).Control(11)= "yd_flag"
Tab(0).Control(11).Enabled= 0 'False
Tab(0).Control(12)= "Command8"
Tab(0).Control(12).Enabled= 0 'False
Tab(0).Control(13)= "Command7"
Tab(0).Control(13).Enabled= 0 'False
Tab(0).Control(14)= "Command3"
Tab(0).Control(14).Enabled= 0 'False
Tab(0).Control(15)= "num_find"
Tab(0).Control(15).Enabled= 0 'False
Tab(0).Control(16)= "Txt_find"
Tab(0).Control(16).Enabled= 0 'False
Tab(0).Control(17)= "yd_number"
Tab(0).Control(17).Enabled= 0 'False
Tab(0).Control(18)= "yd_tell2"
Tab(0).Control(18).Enabled= 0 'False
Tab(0).Control(19)= "yd_name"
Tab(0).Control(19).Enabled= 0 'False
Tab(0).Control(20)= "yd_tell1"
Tab(0).Control(20).Enabled= 0 'False
Tab(0).Control(21)= "Command1"
Tab(0).Control(21).Enabled= 0 'False
Tab(0).Control(22)= "yd_cmb"
Tab(0).Control(22).Enabled= 0 'False
Tab(0).Control(23)= "Command5"
Tab(0).Control(23).Enabled= 0 'False
Tab(0).ControlCount= 24
TabCaption(1) = "预定浏览"
TabPicture(1) = "Frm_yd1.frx":0E5E
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Line2"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).Control(1)= "txt_starttime(3)"
Tab(1).Control(1).Enabled= 0 'False
Tab(1).Control(2)= "txt_starttime(2)"
Tab(1).Control(2).Enabled= 0 'False
Tab(1).Control(3)= "grd_Main"
Tab(1).Control(3).Enabled= 0 'False
Tab(1).Control(4)= "Command2"
Tab(1).Control(4).Enabled= 0 'False
Tab(1).Control(5)= "Command4"
Tab(1).Control(5).Enabled= 0 'False
Tab(1).Control(6)= "chk_yd"
Tab(1).Control(6).Enabled= 0 'False
Tab(1).Control(7)= "Command6"
Tab(1).Control(7).Enabled= 0 'False
Tab(1).Control(8)= "Command9"
Tab(1).Control(8).Enabled= 0 'False
Tab(1).ControlCount= 9
Begin VB.CommandButton Command9
Cancel = -1 'True
Caption = "返回&X"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 390
Left = -66210
TabIndex = 32
Top = 570
Width = 855
End
Begin VB.CommandButton Command6
Caption = "删除&D"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 390
Left = -68925
TabIndex = 31
Top = 570
Width = 855
End
Begin VB.CommandButton Command5
Caption = "返回&X"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 7710
TabIndex = 30
Top = 720
Width = 945
End
Begin VB.CheckBox chk_yd
Caption = "预定标志"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = -65325
TabIndex = 29
Top = 570
Width = 1575
End
Begin VB.CommandButton Command4
Caption = "查询&Q"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 390
Left = -68025
TabIndex = 26
Top = 570
Width = 855
End
Begin VB.CommandButton Command2
Caption = "打印&P"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 390
Left = -67125
TabIndex = 25
Top = 570
Width = 855
End
Begin VB.ComboBox yd_cmb
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 2040
TabIndex = 0
Text = "Combo1"
Top = 2145
Width = 1440
End
Begin VB.CommandButton Command1
Caption = "保存&S"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 5910
TabIndex = 7
Top = 720
Width = 945
End
Begin VB.TextBox yd_tell1
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 465
Left = 6825
TabIndex = 3
Text = "Text1"
Top = 2880
Width = 1635
End
Begin VB.TextBox yd_name
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 465
Left = 6825
TabIndex = 1
Text = "Text1"
Top = 2205
Width = 1635
End
Begin VB.TextBox yd_tell2
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 465
Left = 2040
TabIndex = 4
Text = "Text1"
Top = 3435
Width = 1635
End
Begin VB.TextBox yd_number
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 465
Left = 6840
TabIndex = 5
Text = "Text1"
Top = 3510
Width = 1635
End
Begin VB.TextBox Txt_find
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 795
TabIndex = 14
Text = "Text1"
Top = 750
Width = 705
End
Begin VB.CommandButton num_find
Caption = "查找&F"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 1590
TabIndex = 13
Top = 720
Width = 945
End
Begin VB.CommandButton Command3
Caption = "向前&P<"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 2565
TabIndex = 12
Top = 720
Width = 945
End
Begin VB.CommandButton Command7
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -