u_fr_jj_emp.dfm

来自「人事考勤管理系統源代碼」· DFM 代码 · 共 143 行

object Fr_jj_emp: TFr_jj_emp
  Left = 0
  Top = 0
  Width = 320
  Height = 300
  TabOrder = 0
  object Splitter1: TSplitter
    Left = 0
    Top = 237
    Width = 320
    Height = 3
    Cursor = crVSplit
    Align = alBottom
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 320
    Height = 81
    Align = alTop
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 50
      Width = 48
      Height = 13
      Caption = '癬﹍ら戳'
    end
    object Label2: TLabel
      Left = 163
      Top = 51
      Width = 48
      Height = 13
      Caption = '沧ゎら戳'
    end
    object DBNavigator1: TDBNavigator
      Left = 16
      Top = 8
      Width = 136
      Height = 25
      DataSource = Fr_DM.DataSource6
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
      TabOrder = 0
    end
    object DBNavigator2: TDBNavigator
      Left = 152
      Top = 8
      Width = 155
      Height = 25
      DataSource = Fr_DM.DataSource7
      VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel]
      TabOrder = 1
    end
    object DBEdit1: TDBEdit
      Left = 69
      Top = 46
      Width = 81
      Height = 21
      DataField = 'fromdate'
      DataSource = Fr_DM.DataSource7
      TabOrder = 2
      OnExit = DBEdit1Exit
      OnKeyPress = DBEdit1KeyPress
    end
    object DBEdit2: TDBEdit
      Left = 216
      Top = 46
      Width = 81
      Height = 21
      DataField = 'todate'
      DataSource = Fr_DM.DataSource7
      TabOrder = 3
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 81
    Width = 320
    Height = 156
    Align = alClient
    DataSource = Fr_DM.DataSource6
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ReadOnly = True
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'yjbm_name'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ejbm_name'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'name'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'work_num'
        Visible = True
      end>
  end
  object DBGrid2: TDBGrid
    Left = 0
    Top = 240
    Width = 320
    Height = 60
    Align = alBottom
    DataSource = Fr_DM.DataSource7
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'fromdate'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'todate'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Month'
        Visible = True
      end>
  end
end