📄 pball.dfm
字号:
object FormPbAll: TFormPbAll
Left = 50
Top = 39
Width = 733
Height = 526
Caption = '排班'
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
OnClose = FormClose
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object GroupBox5: TGroupBox
Left = 73
Top = 118
Width = 608
Height = 315
Caption = '手动排班'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 5
Visible = False
object StringGrid1: TStringGrid
Left = 3
Top = 41
Width = 602
Height = 271
Hint = '双击选择班次'
Color = clWhite
ColCount = 2
DefaultColWidth = 100
DefaultRowHeight = 20
RowCount = 2
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
Visible = False
OnDblClick = StringGrid1DblClick
RowHeights = (
20
20)
end
end
object GroupBox3: TGroupBox
Left = 74
Top = 120
Width = 608
Height = 315
Caption = '规律排班选择'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 4
object Label8: TLabel
Left = 128
Top = 20
Width = 120
Height = 12
Caption = '当前选择的规律排班：'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object DBText1: TDBText
Left = 253
Top = 20
Width = 241
Height = 17
DataField = 'bcmc'
DataSource = DataSource1
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = '宋体'
Font.Style = [fsBold]
ParentFont = False
end
object DBGrid1: TDBGrid
Left = 3
Top = 41
Width = 602
Height = 271
DataSource = DataSource1
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clHighlight
TitleFont.Height = -13
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'bcbh'
Title.Alignment = taCenter
Title.Caption = '编号'
Width = 40
Visible = True
end
item
Expanded = False
FieldName = 'bcmc'
Title.Alignment = taCenter
Title.Caption = '名称'
Width = 70
Visible = True
end
item
Expanded = False
FieldName = 'monday'
Title.Alignment = taCenter
Title.Caption = '星期一'
Width = 60
Visible = True
end
item
Expanded = False
FieldName = 'tuesday'
Title.Alignment = taCenter
Title.Caption = '星期二'
Width = 60
Visible = True
end
item
Expanded = False
FieldName = 'wednesday'
Title.Alignment = taCenter
Title.Caption = '星期三'
Width = 60
Visible = True
end
item
Expanded = False
FieldName = 'thursday'
Title.Alignment = taCenter
Title.Caption = '星期四'
Width = 60
Visible = True
end
item
Expanded = False
FieldName = 'friday'
Title.Alignment = taCenter
Title.Caption = '星期五'
Width = 60
Visible = True
end
item
Expanded = False
FieldName = 'saturday'
Title.Alignment = taCenter
Title.Caption = '星期六'
Width = 60
Visible = True
end
item
Expanded = False
FieldName = 'sunday'
Title.Alignment = taCenter
Title.Caption = '星期日'
Width = 60
Visible = True
end>
end
end
object GroupBox1: TGroupBox
Left = 73
Top = 80
Width = 608
Height = 34
Caption = '排班方式'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 0
object RadioButton1: TRadioButton
Left = 148
Top = 13
Width = 85
Height = 17
Caption = '规律排班(&B)'
Checked = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 0
TabStop = True
OnClick = RadioButton1Click
end
object RadioButton3: TRadioButton
Left = 382
Top = 13
Width = 91
Height = 17
Caption = '手动排班(&E)'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = RadioButton3Click
end
end
object BitBtnSave: TBitBtn
Left = 142
Top = 461
Width = 106
Height = 25
Caption = '生成排班表(&P)'
TabOrder = 1
OnClick = BitBtnSaveClick
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00344446333334
44433333FFFF333333FFFF33000033AAA43333332A4333338833F33333883F33
00003332A46333332A4333333383F33333383F3300003332A2433336A6633333
33833F333383F33300003333AA463362A433333333383F333833F33300003333
6AA4462A46333333333833FF833F33330000333332AA22246333333333338333
33F3333300003333336AAA22646333333333383333F8FF33000033444466AA43
6A43333338FFF8833F383F330000336AA246A2436A43333338833F833F383F33
000033336A24AA442A433333333833F33FF83F330000333333A2AA2AA4333333
333383333333F3330000333333322AAA4333333333333833333F333300003333
333322A4333333333333338333F333330000333333344A433333333333333338
3F333333000033333336A24333333333333333833F333333000033333336AA43
33333333333333833F3333330000333333336663333333333333333888333333
0000}
NumGlyphs = 2
end
object BitBtnQuit: TBitBtn
Left = 510
Top = 461
Width = 111
Height = 25
Caption = '退出(&Q)'
TabOrder = 2
OnClick = BitBtnQuitClick
Kind = bkClose
end
object GroupBox2: TGroupBox
Left = 73
Top = 2
Width = 608
Height = 71
Caption = '排班信息'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 3
object Label2: TLabel
Left = 16
Top = 49
Width = 60
Height = 12
Caption = '排班人员：'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object LabelPbfs: TLabel
Left = 82
Top = 47
Width = 110
Height = 16
Alignment = taCenter
AutoSize = False
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = '宋体'
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 194
Top = 49
Width = 36
Height = 12
Caption = '名称：'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object LabelName: TLabel
Left = 240
Top = 47
Width = 173
Height = 16
Alignment = taCenter
AutoSize = False
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = '宋体'
Font.Style = [fsBold]
ParentFont = False
end
object Label1: TLabel
Left = 16
Top = 19
Width = 84
Height = 12
Caption = '排班时间： 从'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 238
Top = 19
Width = 12
Height = 12
Caption = '到'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object LabelStart: TLabel
Left = 107
Top = 17
Width = 90
Height = 16
Alignment = taCenter
AutoSize = False
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = '宋体'
Font.Style = [fsBold]
ParentFont = False
end
object LabelEnd: TLabel
Left = 257
Top = 17
Width = 101
Height = 16
Alignment = taCenter
AutoSize = False
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = '宋体'
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 425
Top = 49
Width = 60
Height = 12
Caption = '排班人数：'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object LabelCount: TLabel
Left = 486
Top = 49
Width = 115
Height = 13
Alignment = taCenter
AutoSize = False
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = '宋体'
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 381
Top = 19
Width = 12
Height = 12
Caption = '共'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 477
Top = 19
Width = 12
Height = 12
Caption = '天'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object LabelDayCount: TLabel
Left = 403
Top = 18
Width = 7
Height = 12
Alignment = taCenter
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = '宋体'
Font.Style = [fsBold]
ParentFont = False
end
end
object BitBtnUpdate: TBitBtn
Left = 384
Top = 461
Width = 105
Height = 25
Caption = '保存(&S)'
Enabled = False
TabOrder = 6
OnClick = BitBtnUpdateClick
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333330000333333333333333333333333F33333333333
00003333344333333333333333388F3333333333000033334224333333333333
338338F3333333330000333422224333333333333833338F3333333300003342
222224333333333383333338F3333333000034222A22224333333338F338F333
8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
33333338F83338F338F33333000033A33333A222433333338333338F338F3333
0000333333333A222433333333333338F338F33300003333333333A222433333
333333338F338F33000033333333333A222433333333333338F338F300003333
33333333A222433333333333338F338F00003333333333333A22433333333333
3338F38F000033333333333333A223333333333333338F830000333333333333
333A333333333333333338330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object BitBtnShow: TBitBtn
Left = 266
Top = 461
Width = 99
Height = 25
Caption = '查看(&L)'
TabOrder = 7
OnClick = BitBtnShowClick
Kind = bkHelp
end
object DataSource1: TDataSource
DataSet = DataModal1.QPbGdb
Left = 696
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -