gudingban.dfm

企业员工考勤和工资管理系统

object FormGudingban: TFormGudingban
  Left = 171
  Top = 75
  Width = 563
  Height = 469
  Caption = '规律排班维护窗口'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 12
  object GroupBox1: TGroupBox
    Left = 14
    Top = -4
    Width = 535
    Height = 204
    Enabled = False
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object Label1: TLabel
      Left = 24
      Top = 27
      Width = 54
      Height = 12
      Caption = '编  号(&B)'
      FocusControl = DBEdit1
    end
    object Label2: TLabel
      Left = 270
      Top = 27
      Width = 54
      Height = 12
      Caption = '名  称(&E)'
      FocusControl = DBEdit2
    end
    object Label3: TLabel
      Left = 23
      Top = 62
      Width = 54
      Height = 12
      Caption = '星期一(&F)'
      FocusControl = DBLookupComboBox1
    end
    object Label4: TLabel
      Left = 270
      Top = 62
      Width = 54
      Height = 12
      Caption = '星期二(&G)'
      FocusControl = DBLookupComboBox2
    end
    object Label5: TLabel
      Left = 23
      Top = 100
      Width = 54
      Height = 12
      Caption = '星期三(&H)'
      FocusControl = DBLookupComboBox3
    end
    object Label6: TLabel
      Left = 270
      Top = 100
      Width = 54
      Height = 12
      Caption = '星期四(&I)'
      FocusControl = DBLookupComboBox4
    end
    object Label7: TLabel
      Left = 23
      Top = 137
      Width = 54
      Height = 12
      Caption = '星期五(&J)'
      FocusControl = DBLookupComboBox5
    end
    object Label8: TLabel
      Left = 270
      Top = 137
      Width = 54
      Height = 12
      Caption = '星期六(&K)'
      FocusControl = DBLookupComboBox6
    end
    object Label9: TLabel
      Left = 23
      Top = 173
      Width = 54
      Height = 12
      Caption = '星期日(L)'
      FocusControl = DBLookupComboBox7
    end
    object DBEdit1: TDBEdit
      Left = 81
      Top = 20
      Width = 168
      Height = 20
      DataField = 'bcbh'
      DataSource = DataSource1
      TabOrder = 0
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 81
      Top = 56
      Width = 169
      Height = 20
      DataField = 'monday'
      DataSource = DataSource1
      KeyField = 'bcmc'
      ListField = 'bcmc'
      ListSource = DataSource2
      TabOrder = 2
    end
    object DBEdit2: TDBEdit
      Left = 327
      Top = 20
      Width = 175
      Height = 20
      DataField = 'bcmc'
      DataSource = DataSource1
      TabOrder = 1
    end
    object DBLookupComboBox2: TDBLookupComboBox
      Left = 327
      Top = 56
      Width = 178
      Height = 20
      DataField = 'tuesday'
      DataSource = DataSource1
      KeyField = 'bcmc'
      ListField = 'bcmc'
      ListSource = DataSource2
      TabOrder = 3
    end
    object DBLookupComboBox3: TDBLookupComboBox
      Left = 81
      Top = 93
      Width = 169
      Height = 20
      DataField = 'wednesday'
      DataSource = DataSource1
      KeyField = 'bcmc'
      ListField = 'bcmc'
      ListSource = DataSource2
      TabOrder = 4
    end
    object DBLookupComboBox4: TDBLookupComboBox
      Left = 327
      Top = 93
      Width = 179
      Height = 20
      DataField = 'thursday'
      DataSource = DataSource1
      KeyField = 'bcmc'
      ListField = 'bcmc'
      ListSource = DataSource2
      TabOrder = 5
    end
    object DBLookupComboBox5: TDBLookupComboBox
      Left = 81
      Top = 130
      Width = 169
      Height = 20
      DataField = 'friday'
      DataSource = DataSource1
      KeyField = 'bcmc'
      ListField = 'bcmc'
      ListSource = DataSource2
      TabOrder = 6
    end
    object DBLookupComboBox6: TDBLookupComboBox
      Left = 327
      Top = 130
      Width = 179
      Height = 20
      DataField = 'saturday'
      DataSource = DataSource1
      KeyField = 'bcmc'
      ListField = 'bcmc'
      ListSource = DataSource2
      TabOrder = 7
    end
    object DBLookupComboBox7: TDBLookupComboBox
      Left = 81
      Top = 168
      Width = 169
      Height = 20
      DataField = 'sunday'
      DataSource = DataSource1
      KeyField = 'bcmc'
      ListField = 'bcmc'
      ListSource = DataSource2
      TabOrder = 8
    end
  end
  object DBGrid1: TDBGrid
    Left = 14
    Top = 201
    Width = 535
    Height = 200
    DataSource = DataSource1
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'bcbh'
        Title.Alignment = taCenter
        Title.Caption = '编号'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clHighlight
        Title.Font.Height = -13
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'bcmc'
        Title.Alignment = taCenter
        Title.Caption = '名称'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clHighlight
        Title.Font.Height = -13
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'monday'
        Title.Alignment = taCenter
        Title.Caption = '星期一'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clHighlight
        Title.Font.Height = -13
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'tuesday'
        Title.Alignment = taCenter
        Title.Caption = '星期二'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clHighlight
        Title.Font.Height = -13
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = []
        Visible = True