📄 frmprecontract.frm
字号:
VERSION 5.00
Object = "{A964BDA3-3E93-11CF-9A0F-9E6261DACD1C}#2.0#0"; "ReSize32.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{0B81E4A9-BE4E-4AEF-9272-33AB5B51C6FC}#1.0#0"; "XPControls.ocx"
Object = "{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0"; "MSHFLXGD.OCX"
Begin VB.Form frmPrecontract
BackColor = &H80000018&
Caption = "体检预约"
ClientHeight = 9405
ClientLeft = 60
ClientTop = 450
ClientWidth = 14985
Icon = "frmPrecontract.frx":0000
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 9405
ScaleWidth = 14985
WindowState = 2 'Maximized
Begin VB.Frame Frame3
BackColor = &H80000018&
Height = 855
Left = 180
TabIndex = 73
Top = 8280
Width = 9135
Begin XPControls.XPCommandButton cmdModify
Height = 405
Left = 2535
TabIndex = 74
Top = 300
Width = 1065
_ExtentX = 1879
_ExtentY = 714
Enabled = 0 'False
Caption = "修改(&M)"
Font = "frmPrecontract.frx":0CCA
End
Begin XPControls.XPCommandButton cmdAdd
Height = 405
Left = 930
TabIndex = 75
Top = 300
Width = 1065
_ExtentX = 1879
_ExtentY = 714
Caption = "添加(&A)"
Font = "frmPrecontract.frx":0CF6
End
Begin XPControls.XPCommandButton cmdCancel
Height = 405
Left = 7260
TabIndex = 76
Top = 300
Width = 1065
_ExtentX = 1879
_ExtentY = 714
Caption = "退出(&C)"
Font = "frmPrecontract.frx":0D19
End
Begin XPControls.XPCommandButton cmdOK
Height = 405
Left = 4110
TabIndex = 77
Top = 300
Width = 1065
_ExtentX = 1879
_ExtentY = 714
Enabled = 0 'False
Caption = "保存(&S)"
Font = "frmPrecontract.frx":0D3C
End
Begin XPControls.XPCommandButton cmdInput
Height = 405
Left = -330
TabIndex = 78
Top = 240
Visible = 0 'False
Width = 1065
_ExtentX = 1879
_ExtentY = 714
Caption = "导入数据(&I)"
Font = "frmPrecontract.frx":0D5F
End
Begin XPControls.XPCommandButton cmdDelete
Cancel = -1 'True
Height = 405
Left = 5685
TabIndex = 79
Top = 300
Width = 1065
_ExtentX = 1879
_ExtentY = 714
Enabled = 0 'False
Caption = "删除(&D)"
Font = "frmPrecontract.frx":0D82
End
End
Begin VB.Frame fraTJBZ
BackColor = &H80000018&
Caption = "选择体检标准"
Enabled = 0 'False
Height = 645
Left = 4650
TabIndex = 67
Top = 330
Visible = 0 'False
Width = 4665
Begin VB.ComboBox cmbTJBZ
Height = 315
Left = 300
Style = 2 'Dropdown List
TabIndex = 68
Top = 240
Width = 4095
End
End
Begin VB.Frame Frame1
BackColor = &H80000018&
Caption = "选择类别"
Height = 675
Left = 180
TabIndex = 64
Top = 330
Width = 4305
Begin VB.OptionButton optTTi
BackColor = &H80000018&
Caption = "团体预约"
Height = 315
Left = 2730
TabIndex = 66
Top = 240
Width = 1245
End
Begin VB.OptionButton optGRen
BackColor = &H80000018&
Caption = "个人预约"
Height = 315
Left = 750
TabIndex = 65
Top = 240
Value = -1 'True
Width = 1245
End
End
Begin ResizeLibCtl.ReSize ReSize1
Left = -90
Top = 6450
_Version = 131072
_ExtentX = 741
_ExtentY = 741
_StockProps = 0
Enabled = -1 'True
FormMinWidth = 0
FormMinHeight = 0
FormDesignHeight= 9405
FormDesignWidth = 14985
End
Begin MSHierarchicalFlexGridLib.MSHFlexGrid MSHFlexGrid1
Height = 8775
Left = 9480
TabIndex = 22
Top = 300
Width = 5295
_ExtentX = 9340
_ExtentY = 15478
_Version = 393216
BackColorFixed = 12640511
BackColorBkg = -2147483624
SelectionMode = 1
AllowUserResizing= 3
RowSizingMode = 1
_NumberOfBands = 1
_Band(0).Cols = 2
End
Begin VB.Frame fraGRen
BackColor = &H80000018&
Caption = "个人信息"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 6945
Left = 180
TabIndex = 41
Top = 1140
Width = 9135
Begin VB.TextBox txtGYYID
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 2040
TabIndex = 95
Top = 797
Width = 1845
End
Begin VB.TextBox txtGYYRXM
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 2040
TabIndex = 94
Top = 390
Width = 1845
End
Begin VB.TextBox txtGYYRJTDH
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 2040
TabIndex = 93
Top = 4158
Width = 1845
End
Begin VB.TextBox txtGYYRBGDH
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 2040
TabIndex = 92
Top = 4565
Width = 1845
End
Begin VB.TextBox txtGYYRYDDH
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 2040
TabIndex = 91
Top = 4972
Width = 1845
End
Begin VB.TextBox txtGYZBM
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 2040
TabIndex = 90
Top = 5786
Width = 1845
End
Begin VB.TextBox txtGYYRSFZH
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 2040
TabIndex = 88
Top = 3751
Width = 1845
End
Begin VB.TextBox txtGAGE
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 2040
TabIndex = 87
Top = 1626
Width = 975
End
Begin VB.ComboBox cmbGSEX
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
ItemData = "frmPrecontract.frx":0DA5
Left = 2040
List = "frmPrecontract.frx":0DAF
Style = 2 'Dropdown List
TabIndex = 86
Top = 1204
Width = 885
End
Begin VB.ComboBox cmbGHF
Height = 315
ItemData = "frmPrecontract.frx":0DBB
Left = 2040
List = "frmPrecontract.frx":0DC5
Style = 2 'Dropdown List
TabIndex = 85
Top = 3314
Width = 885
End
Begin VB.TextBox txtGEMail
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 2040
TabIndex = 84
Top = 5379
Width = 1845
End
Begin VB.TextBox txtTJXH
Height = 300
Left = 2040
Locked = -1 'True
TabIndex = 83
Top = 2470
Width = 1845
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -