📄 frmcheck.frm
字号:
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0"; "MSDATLST.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{BEEECC20-4D5F-4F8B-BFDC-5D9B6FBDE09D}#1.0#0"; "vsFlex8.ocx"
Object = "{3A6644DE-3402-11D9-9DE7-C33FAA87690A}#1.0#0"; "WinXPCEngine.ocx"
Begin VB.Form FrmCheck
BorderStyle = 3 'Fixed Dialog
Caption = "比赛资料库"
ClientHeight = 6495
ClientLeft = 5295
ClientTop = 3315
ClientWidth = 7575
ControlBox = 0 'False
Icon = "FrmCheck.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 6495
ScaleWidth = 7575
ShowInTaskbar = 0 'False
Begin VB.PictureBox PicFrame
Height = 255
Index = 3
Left = 480
ScaleHeight = 195
ScaleWidth = 6675
TabIndex = 82
Top = 5160
Width = 6735
Begin VB.Label LblCount
AutoSize = -1 'True
Height = 180
Left = 1080
TabIndex = 86
Top = 30
Width = 90
End
Begin VB.Label LblLable
AutoSize = -1 'True
Caption = "当前题库共"
Height = 180
Index = 24
Left = 0
TabIndex = 85
Top = 30
Width = 900
End
Begin VB.Label LblLable
AutoSize = -1 'True
Caption = "条"
Height = 180
Index = 25
Left = 1320
TabIndex = 84
Top = 30
Width = 180
End
Begin VB.Label LblLable
AutoSize = -1 'True
Caption = "▲注意：基本比赛与其它比赛等标签内容保持完整"
Height = 180
Index = 26
Left = 2640
TabIndex = 83
Top = 30
Width = 3960
End
End
Begin TabDlg.SSTab SSTCheck
Height = 5415
Left = 240
TabIndex = 7
Top = 120
Width = 7005
_ExtentX = 12356
_ExtentY = 9551
_Version = 393216
TabHeight = 520
TabCaption(0) = "比赛信息"
TabPicture(0) = "FrmCheck.frx":7D42
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "PicFrame(0)"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).ControlCount= 1
TabCaption(1) = "其它信息"
TabPicture(1) = "FrmCheck.frx":7D5E
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "PicFrame(1)"
Tab(1).ControlCount= 1
TabCaption(2) = "比赛列表"
TabPicture(2) = "FrmCheck.frx":7D7A
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "PicFrame(2)"
Tab(2).ControlCount= 1
Begin VB.PictureBox PicFrame
Height = 4215
Index = 1
Left = -74760
ScaleHeight = 4155
ScaleWidth = 6435
TabIndex = 73
Top = 480
Width = 6495
Begin VB.TextBox TxtOtherDay
Enabled = 0 'False
Height = 300
Left = 1680
MaxLength = 50
TabIndex = 77
Top = 300
Width = 4575
End
Begin VB.TextBox TxtOtherReason
Enabled = 0 'False
Height = 660
Left = 1680
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 76
Top = 960
Width = 4575
End
Begin VB.TextBox TxtLate
Enabled = 0 'False
Height = 780
Left = 1680
MaxLength = 3
TabIndex = 75
Top = 1800
Width = 4575
End
Begin VB.TextBox TxtRemark
Enabled = 0 'False
Height = 1185
Left = 1680
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 74
Top = 2760
Width = 4575
End
Begin VB.Label LblLable
AutoSize = -1 'True
Caption = "命题人员："
Height = 180
Index = 16
Left = 240
TabIndex = 81
Top = 360
Width = 900
End
Begin VB.Label LblLable
AutoSize = -1 'True
Caption = "命题说明："
Height = 180
Index = 17
Left = 240
TabIndex = 80
Top = 1200
Width = 900
End
Begin VB.Label LblLable
AutoSize = -1 'True
Caption = "缺考人员："
Height = 180
Index = 19
Left = 240
TabIndex = 79
Top = 2160
Width = 900
End
Begin VB.Label LblLable
AutoSize = -1 'True
Caption = "备 注："
Height = 180
Index = 23
Left = 240
TabIndex = 78
Top = 3120
Width = 900
End
End
Begin VB.PictureBox PicFrame
Height = 4455
Index = 0
Left = 240
ScaleHeight = 4395
ScaleWidth = 6435
TabIndex = 36
Top = 480
Width = 6495
Begin VB.TextBox TxtYear
Enabled = 0 'False
Height = 300
Left = 4560
MaxLength = 4
TabIndex = 47
Top = 1080
Width = 1695
End
Begin VB.ComboBox CmbAllDate
Enabled = 0 'False
Height = 300
ItemData = "FrmCheck.frx":7D96
Left = 1200
List = "FrmCheck.frx":7DF7
TabIndex = 46
Top = 1920
Width = 1695
End
Begin VB.ComboBox CmbPDate
Enabled = 0 'False
Height = 300
ItemData = "FrmCheck.frx":7E77
Left = 4560
List = "FrmCheck.frx":7EB7
TabIndex = 45
Top = 1560
Width = 1695
End
Begin VB.ComboBox CmbMonth
Enabled = 0 'False
Height = 300
ItemData = "FrmCheck.frx":7F02
Left = 4560
List = "FrmCheck.frx":7F2A
TabIndex = 44
Top = 1920
Width = 1695
End
Begin VB.TextBox CmbSex
Enabled = 0 'False
Height = 300
Left = 1200
TabIndex = 43
Top = 1200
Width = 1695
End
Begin VB.TextBox TxtBranch
Enabled = 0 'False
Height = 300
Left = 1200
TabIndex = 42
Top = 1560
Width = 1695
End
Begin VB.TextBox TxtTiltle
Enabled = 0 'False
Height = 300
Left = 4560
TabIndex = 41
Top = 615
Width = 1695
End
Begin VB.TextBox TxtLeaveReason
Enabled = 0 'False
Height = 780
Left = 1200
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 40
Top = 3480
Width = 5055
End
Begin VB.CommandButton Command1
Caption = "上存试题"
Enabled = 0 'False
Height = 495
Left = 1680
TabIndex = 39
Top = 600
Width = 615
End
Begin VB.CommandButton Command2
Caption = "查看试题"
Enabled = 0 'False
Height = 495
Left = 2280
TabIndex = 38
Top = 600
Width = 615
End
Begin VB.ComboBox TxtName
Enabled = 0 'False
Height = 300
ItemData = "FrmCheck.frx":7F5E
Left = 4560
List = "FrmCheck.frx":7F74
TabIndex = 37
Top = 240
Width = 1695
End
Begin MSComCtl2.DTPicker DTPForDate
Height = 300
Left = 1200
TabIndex = 48
Top = 2280
Width = 1695
_ExtentX = 2990
_ExtentY = 529
_Version = 393216
Enabled = 0 'False
Format = 21102593
CurrentDate = 38327
End
Begin MSComCtl2.DTPicker DTPEndDate
Height = 300
Left = 4560
TabIndex = 49
Top = 2280
Width = 1695
_ExtentX = 2990
_ExtentY = 529
_Version = 393216
Enabled = 0 'False
Format = 21102593
CurrentDate = 38327
End
Begin MSComCtl2.DTPicker DTPForTime
Height = 300
Left = 1200
TabIndex = 50
Top = 2640
Width = 1695
_ExtentX = 2990
_ExtentY = 529
_Version = 393216
Enabled = 0 'False
Format = 21102594
CurrentDate = 38327
End
Begin MSComCtl2.DTPicker DTPEndTime
Height = 300
Left = 4560
TabIndex = 51
Top = 2640
Width = 1695
_ExtentX = 2990
_ExtentY = 529
_Version = 393216
Enabled = 0 'False
Format = 21102594
CurrentDate = 38327
End
Begin MSDataListLib.DataCombo CmbCode
Height = 330
Left = 1200
TabIndex = 52
Top = 240
Width = 1695
_ExtentX = 2990
_ExtentY = 582
_Version = 393216
Text = "ACM001"
End
Begin MSDataListLib.DataCombo CmbLeaveType
Height = 330
Left = 1200
TabIndex = 53
Top = 3000
Width = 1695
_ExtentX = 2990
_ExtentY = 582
_Version = 393216
Enabled = 0 'False
Text = "邹勇华"
End
Begin MSDataListLib.DataCombo TxtShenPi
Height = 330
Left = 4560
TabIndex = 54
Top = 3000
Width = 1695
_ExtentX = 2990
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -