📄 frmdetail.frm
字号:
VERSION 5.00
Begin VB.Form frmDetail
BorderStyle = 3 'Fixed Dialog
Caption = "具体排班"
ClientHeight = 6150
ClientLeft = 45
ClientTop = 330
ClientWidth = 10440
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "frmDetail.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6150
ScaleWidth = 10440
ShowInTaskbar = 0 'False
StartUpPosition = 1 '所有者中心
Begin VB.Frame fraCmd
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 600
Left = 4440
TabIndex = 13
Top = 5400
Width = 3000
Begin VB.CommandButton cmdPlan
Caption = "保存(&S)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 525
Index = 0
Left = 0
TabIndex = 15
Top = 0
Width = 1275
End
Begin VB.CommandButton cmdPlan
Caption = "返回(&R)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 525
Index = 1
Left = 1688
TabIndex = 14
Top = 0
Width = 1275
End
End
Begin VB.Frame fraPlan
Caption = "排班表"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 4185
Left = 315
TabIndex = 3
Top = 830
Width = 5490
Begin VB.Image imgTemp
Height = 630
Left = 1935
Top = 4035
Visible = 0 'False
Width = 720
End
Begin VB.Label lblWeek
AutoSize = -1 'True
BackColor = &H00C0C0C0&
BackStyle = 0 'Transparent
Caption = "日"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00808000&
Height = 240
Index = 0
Left = 300
TabIndex = 12
Top = 1425
Width = 270
End
Begin VB.Label lblWeek
AutoSize = -1 'True
BackColor = &H00C0C0C0&
BackStyle = 0 'Transparent
Caption = "一"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00808000&
Height = 240
Index = 1
Left = 1050
TabIndex = 11
Top = 1425
Width = 270
End
Begin VB.Label lblWeek
AutoSize = -1 'True
BackColor = &H00C0C0C0&
BackStyle = 0 'Transparent
Caption = "二"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00808000&
Height = 240
Index = 2
Left = 1800
TabIndex = 10
Top = 1425
Width = 270
End
Begin VB.Label lblWeek
AutoSize = -1 'True
BackColor = &H00C0C0C0&
BackStyle = 0 'Transparent
Caption = "三"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00808000&
Height = 240
Index = 3
Left = 2550
TabIndex = 9
Top = 1425
Width = 270
End
Begin VB.Label lblWeek
AutoSize = -1 'True
BackColor = &H00C0C0C0&
BackStyle = 0 'Transparent
Caption = "四"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00808000&
Height = 240
Index = 4
Left = 3300
TabIndex = 8
Top = 1425
Width = 270
End
Begin VB.Label lblWeek
AutoSize = -1 'True
BackColor = &H00C0C0C0&
BackStyle = 0 'Transparent
Caption = "五"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00808000&
Height = 240
Index = 5
Left = 4050
TabIndex = 7
Top = 1425
Width = 270
End
Begin VB.Label lblWeek
AutoSize = -1 'True
BackColor = &H00C0C0C0&
BackStyle = 0 'Transparent
Caption = "六"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00808000&
Height = 240
Index = 6
Left = 4800
TabIndex = 6
Top = 1425
Width = 270
End
Begin VB.Label lblShift
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "*"
ForeColor = &H00FF0000&
Height = 240
Index = 0
Left = 345
TabIndex = 5
Top = 615
Width = 120
End
Begin VB.Label lblDay
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 210
Index = 0
Left = 345
TabIndex = 4
Top = 360
Width = 135
End
Begin VB.Image imgPlan
Height = 660
Index = 0
Left = 75
Picture = "frmDetail.frx":000C
Top = 225
Visible = 0 'False
Width = 705
End
End
Begin VB.Frame fraShift
Caption = "请选择班次"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 4320
Left = 6435
TabIndex = 1
Top = 830
Width = 3705
Begin VB.OptionButton optShift
BackColor = &H00C0C0C0&
Caption = "J"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 450
Index = 0
Left = 240
Style = 1 'Graphical
TabIndex = 2
Top = 330
Width = 500
End
End
Begin VB.Image imgNotSel
Height = 660
Left = 3060
Picture = "frmDetail.frx":044E
Top = 6120
Visible = 0 'False
Width = 705
End
Begin VB.Image imgSel
Height = 660
Left = 3930
Picture = "frmDetail.frx":0890
Top = 6105
Visible = 0 'False
Width = 705
End
Begin VB.Label lblTitle
AutoSize = -1 'True
BackColor = &H00C0C0C0&
Caption = "2000年5月排班情况"
ForeColor = &H000040C0&
Height = 240
Left = 3840
TabIndex = 0
Top = 210
Width = 2040
End
End
Attribute VB_Name = "frmDetail"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -