📄 frmplaninfo.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frmPlanInfo
BorderStyle = 1 'Fixed Single
Caption = "工作计划信息"
ClientHeight = 6450
ClientLeft = 45
ClientTop = 330
ClientWidth = 8100
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6450
ScaleWidth = 8100
StartUpPosition = 1 '所有者中心
Begin MSComCtl2.DTPicker DTPField
Height = 300
Index = 2
Left = 3000
TabIndex = 30
Tag = "13"
Top = 5280
Width = 4215
_ExtentX = 7435
_ExtentY = 529
_Version = 393216
Enabled = 0 'False
Format = 23855105
CurrentDate = 38119
End
Begin MSComCtl2.DTPicker DTPField
Height = 300
Index = 1
Left = 5640
TabIndex = 29
Tag = "4"
Top = 1680
Width = 1575
_ExtentX = 2778
_ExtentY = 529
_Version = 393216
Enabled = 0 'False
Format = 23855105
CurrentDate = 38119
End
Begin MSComCtl2.DTPicker DTPField
Height = 300
Index = 0
Left = 3000
TabIndex = 28
Tag = "3"
Top = 1680
Width = 1575
_ExtentX = 2778
_ExtentY = 529
_Version = 393216
Enabled = 0 'False
Format = 23855105
CurrentDate = 38119
End
Begin VB.TextBox txtField
Enabled = 0 'False
Height = 975
Index = 0
Left = 1200
TabIndex = 8
Tag = "14"
Top = 4200
Width = 6015
End
Begin VB.TextBox txtField
Enabled = 0 'False
Height = 270
Index = 4
Left = 3000
TabIndex = 7
Tag = "12"
Top = 3840
Width = 4215
End
Begin VB.ComboBox cmbField
Enabled = 0 'False
Height = 300
Index = 4
ItemData = "frmPlanInfo.frx":0000
Left = 1200
List = "frmPlanInfo.frx":000A
TabIndex = 6
Tag = "10"
Top = 3840
Width = 855
End
Begin VB.ComboBox cmbField
Enabled = 0 'False
Height = 300
Index = 3
ItemData = "frmPlanInfo.frx":001C
Left = 1200
List = "frmPlanInfo.frx":002C
TabIndex = 3
Tag = "11"
Top = 1680
Width = 855
End
Begin VB.ComboBox cmbField
Enabled = 0 'False
Height = 300
Index = 1
ItemData = "frmPlanInfo.frx":004C
Left = 1200
List = "frmPlanInfo.frx":0056
TabIndex = 9
Tag = "15"
Top = 5280
Width = 855
End
Begin VB.TextBox txtField
Enabled = 0 'False
Height = 975
Index = 3
Left = 1200
TabIndex = 5
Tag = "9"
Top = 2760
Width = 6015
End
Begin VB.TextBox txtField
Enabled = 0 'False
Height = 270
Index = 2
Left = 1200
TabIndex = 4
Tag = "8"
Top = 2400
Width = 6015
End
Begin VB.ComboBox cmbField
Enabled = 0 'False
Height = 300
Index = 0
ItemData = "frmPlanInfo.frx":006A
Left = 1215
List = "frmPlanInfo.frx":0074
TabIndex = 2
Tag = "5"
Top = 2040
Width = 855
End
Begin VB.TextBox txtField
Enabled = 0 'False
Height = 975
Index = 1
Left = 1200
TabIndex = 1
Tag = "1"
Top = 600
Width = 6015
End
Begin VB.CommandButton cmdOk
Caption = "确定"
Default = -1 'True
Height = 375
Left = 4320
TabIndex = 12
Top = 5760
Visible = 0 'False
Width = 1215
End
Begin VB.CommandButton cmdClose
Caption = "关闭"
Height = 375
Left = 5760
TabIndex = 10
Top = 5760
Width = 1215
End
Begin VB.ComboBox cmbField
Enabled = 0 'False
Height = 300
Index = 2
ItemData = "frmPlanInfo.frx":0080
Left = 1200
List = "frmPlanInfo.frx":0082
Style = 2 'Dropdown List
TabIndex = 0
Tag = "工作计划名称"
Top = 240
Width = 6015
End
Begin VB.CommandButton cmdEdit
Caption = "修改"
Height = 375
Left = 4320
TabIndex = 11
Top = 5760
Width = 1215
End
Begin MSComCtl2.DTPicker DTPField
Height = 300
Index = 3
Left = 5640
TabIndex = 31
Tag = "7"
Top = 2040
Width = 1575
_ExtentX = 2778
_ExtentY = 529
_Version = 393216
Enabled = 0 'False
Format = 23855105
CurrentDate = 38119
End
Begin MSComCtl2.DTPicker DTPField
Height = 300
Index = 4
Left = 3000
TabIndex = 32
Tag = "6"
Top = 2040
Width = 1575
_ExtentX = 2778
_ExtentY = 529
_Version = 393216
Enabled = 0 'False
Format = 23855105
CurrentDate = 38119
End
Begin VB.Label lblTitle
AutoSize = -1 'True
Caption = "审核标志"
Height = 180
Index = 14
Left = 360
TabIndex = 27
Top = 5280
Width = 720
End
Begin VB.Label lblTitle
AutoSize = -1 'True
Caption = "登记日期"
Height = 180
Index = 13
Left = 2160
TabIndex = 26
Top = 5280
Width = 720
End
Begin VB.Label lblTitle
AutoSize = -1 'True
Caption = "责任人"
Height = 180
Index = 12
Left = 2280
TabIndex = 25
Top = 3840
Width = 540
End
Begin VB.Label lblTitle
AutoSize = -1 'True
Caption = "备注"
Height = 180
Index = 11
Left = 720
TabIndex = 24
Top = 4200
Width = 360
End
Begin VB.Label lblTitle
AutoSize = -1 'True
Caption = "完成标志"
Height = 180
Index = 10
Left = 360
TabIndex = 23
Top = 3840
Width = 720
End
Begin VB.Label lblTitle
AutoSize = -1 'True
Caption = "工作方案"
Height = 180
Index = 9
Left = 360
TabIndex = 22
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -