workplan.dfm

科思ERP部分源码及控件

inherited frmWorkPlan: TfrmWorkPlan
  Left = 126
  Top = 127
  Width = 658
  Height = 433
  Caption = '员工排班'
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  inherited sbBar: TStatusBar
    Top = 365
    Width = 650
  end
  inherited CoolBar1: TCoolBar
    Width = 650
    Bands = <
      item
        Control = tbMainBar
        ImageIndex = -1
        MinHeight = 35
        Width = 650
      end>
    inherited tbMainBar: TToolBar
      Width = 637
    end
  end
  object FloatPanel1: TFloatPanel [2]
    Left = 409
    Top = 80
    Width = 241
    Height = 285
    Align = alClient
    Color = 50331647
    Caption = 'FloatPanel1'
    ParentColor = False
    TabOrder = 2
    object Label1: TLabel
      Left = 28
      Top = 30
      Width = 60
      Height = 12
      Caption = '财务月份：'
    end
    object Label2: TLabel
      Left = 28
      Top = 62
      Width = 60
      Height = 12
      Caption = '工作日期：'
    end
    object Label3: TLabel
      Left = 28
      Top = 90
      Width = 60
      Height = 12
      Caption = '员工编码：'
    end
    object Label4: TLabel
      Left = 28
      Top = 120
      Width = 60
      Height = 12
      Caption = '班    制：'
    end
    object Label5: TLabel
      Left = 28
      Top = 152
      Width = 60
      Height = 12
      Caption = '累计时间：'
    end
    object Label6: TLabel
      Left = 28
      Top = 186
      Width = 60
      Height = 12
      Caption = '备    注：'
    end
    object seWorkPlanFmonth: TSDEdit
      Left = 84
      Top = 30
      Width = 140
      Height = 18
      Ctl3D = False
      ParentColor = True
      ParentCtl3D = False
      TabOrder = 0
      SplitSymbol = ' | '
    end
    object seWorkPlanEmployee: TSDEdit
      Left = 84
      Top = 90
      Width = 140
      Height = 18
      Ctl3D = False
      ParentColor = True
      ParentCtl3D = False
      TabOrder = 1
      SplitSymbol = ' | '
    end
    object seWorkPlanSect: TSDEdit
      Left = 84
      Top = 120
      Width = 140
      Height = 18
      Ctl3D = False
      ParentColor = True
      ParentCtl3D = False
      TabOrder = 2
      SplitSymbol = ' | '
    end
    object seWorkPlanQty: TSDEdit
      Left = 84
      Top = 150
      Width = 140
      Height = 18
      Ctl3D = False
      ParentColor = True
      ParentCtl3D = False
      TabOrder = 3
      SplitSymbol = ' | '
    end
    object meWorkPlanDesc: TMemo
      Left = 84
      Top = 180
      Width = 140
      Height = 20
      Color = clWhite
      Ctl3D = False
      Lines.Strings = (
        ' ')
      ParentCtl3D = False
      TabOrder = 4
    end
    object seWorkPlanDate: TSDEdit
      Left = 84
      Top = 60
      Width = 140
      Height = 18
      Ctl3D = False
      ParentColor = True
      ParentCtl3D = False
      TabOrder = 5
      SplitSymbol = ' | '
    end
  end
  object sgWorkPlan: TSDGrid [3]
    Left = 0
    Top = 80
    Width = 409
    Height = 285
    Align = alLeft
    Color = 50331647
    ColCount = 6
    Ctl3D = False
    DefaultRowHeight = 18
    FixedColor = 8564917
    FixedCols = 0
    RowCount = 4
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing, goRowSelect]
    ParentCtl3D = False
    TabOrder = 3
    OnClick = sgWorkPlanClick
    SelectColor = clActiveCaption
    EvenGridColor = 50331647
    OddGridColor = 15725041
    Columns = <
      item
        ColumnFont.Charset = DEFAULT_CHARSET
        ColumnFont.Color = clWindowText
        ColumnFont.Height = -12
        ColumnFont.Name = 'MS Sans Serif'
        ColumnFont.Style = []
        TitleString = '财务月份'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = DEFAULT_CHARSET
        ColumnFont.Color = clWindowText
        ColumnFont.Height = -12
        ColumnFont.Name = 'MS Sans Serif'
        ColumnFont.Style = []
        TitleString = '工作日期'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = DEFAULT_CHARSET
        ColumnFont.Color = clWindowText
        ColumnFont.Height = -12
        ColumnFont.Name = 'MS Sans Serif'
        ColumnFont.Style = []
        TitleString = '员工编码'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = DEFAULT_CHARSET
        ColumnFont.Color = clWindowText
        ColumnFont.Height = -12
        ColumnFont.Name = 'MS Sans Serif'
        ColumnFont.Style = []
        TitleString = '班制'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = DEFAULT_CHARSET
        ColumnFont.Color = clWindowText
        ColumnFont.Height = -12
        ColumnFont.Name = 'MS Sans Serif'
        ColumnFont.Style = []
        TitleString = '累计时间'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clWindowText
        ColumnFont.Height = -12
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '备注'
        ColumnWidth = 0
      end>
    ColWidths = (
      60
      71
      68
      65
      73
      64)
  end
  object FloatPanel2: TFloatPanel [4]
    Left = 0
    Top = 39
    Width = 650
    Height = 41
    Align = alTop
    Color = clWhite
    Caption = 'FloatPanel2'
    ParentColor = False
    TabOrder = 4
    object Label7: TLabel
      Left = 11
      Top = 11
      Width = 60
      Height = 12
      Caption = '财务月份：'
    end
    object Label8: TLabel
      Left = 195
      Top = 12
      Width = 60
      Height = 12
      Caption = '员工编码：'
    end
    object Label9: TLabel
      Left = 395
      Top = 11
      Width = 36
      Height = 12
      Caption = '班制：'
    end
    object Fmonth: TSDComboBox
      Left = 72
      Top = 8
      Width = 89
      Height = 20
      ItemHeight = 12
      TabOrder = 0
      Text = 'Fmonth'
      OnClick = FMonthClick
    end
    object seWorkManCode: TSDEdit
      Left = 259
      Top = 8
      Width = 94
      Height = 20
      ParentColor = True
      TabOrder = 1
      Text = 'seWorkManCode'
      OnButtonClick = seWorkManCodeButtonClick
      ButtonVisible = True
      SplitSymbol = ' | '
    end
    object seSectName: TSDEdit
      Left = 430
      Top = 8
      Width = 89
      Height = 20
      ParentColor = True
      TabOrder = 2
      Text = 'seSectName'
      OnButtonClick = seSectNameButtonClick
      ButtonVisible = True
      SplitSymbol = ' | '
    end
  end
  inherited MainMenu1: TMainMenu
    Left = 586
    Top = 291
  end
  inherited ImageList1: TImageList
    Left = 146
    Top = 92
  end
  inherited RecPrintDlg: TPrintDialog
    Top = 287
  end
  inherited PrnSetupDlg: TPrinterSetupDialog
    Left = 563
    Top = 71
  end
  inherited SaveDataDlg: TSaveDialog
    Left = 501
    Top = 73
  end
end