emp.dfm

仲裁委仲裁案件计酬程序.有基础资料设置、分级设置

      Left = 84
      Top = 11
      Width = 81
      Height = 19
      Ctl3D = False
      DataField = #20195#30721
      DataSource = _EmpData
      ParentCtl3D = False
      TabOrder = 0
      OnKeyPress = ENumberKeyPress
    end
    object EName: TDBEdit
      Left = 84
      Top = 38
      Width = 81
      Height = 19
      Ctl3D = False
      DataField = #22995#21517
      DataSource = _EmpData
      ParentCtl3D = False
      TabOrder = 1
      OnEnter = ENameEnter
      OnKeyPress = ENumberKeyPress
    end
    object EIDNumber: TDBEdit
      Left = 8
      Top = 174
      Width = 165
      Height = 19
      Ctl3D = False
      DataField = #36523#20221#35777#21495#30721
      DataSource = _EmpData
      ParentCtl3D = False
      TabOrder = 4
    end
  end
  object Grid: TDBGridEh
    Left = 188
    Top = 42
    Width = 352
    Height = 236
    Align = alClient
    Ctl3D = True
    DataSource = _EmpData
    FixedColor = 11853538
    Flat = True
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -11
    FooterFont.Name = 'MS Sans Serif'
    FooterFont.Style = []
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
    ParentCtl3D = False
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    UseMultiTitle = True
    Columns = <
      item
        EditButtons = <>
        FieldName = #20195#30721
        Footers = <>
        Width = 60
      end
      item
        EditButtons = <>
        FieldName = #22995#21517
        Footers = <>
        Width = 70
      end
      item
        EditButtons = <>
        FieldName = #26159#21542#26377#25928
        Footers = <>
        Width = 30
      end
      item
        EditButtons = <>
        FieldName = #24615#21035
        Footers = <>
        Width = 30
      end
      item
        EditButtons = <>
        FieldName = #36523#20221#35777#21495#30721
        Footers = <>
        Width = 116
      end>
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 540
    Height = 42
    AutoSize = True
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 38
        Width = 536
      end>
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 523
      Height = 38
      AutoSize = True
      ButtonHeight = 36
      ButtonWidth = 52
      Caption = 'ToolBar1'
      Flat = True
      Images = ImgList
      ShowCaptions = True
      TabOrder = 0
      object BtnNew: TToolButton
        Left = 0
        Top = 0
        AutoSize = True
        Caption = #26032#22686'(&N)'
        ImageIndex = 0
        OnClick = BtnNewClick
      end
      object BtnSave: TToolButton
        Left = 49
        Top = 0
        AutoSize = True
        Caption = #20445#23384'(&S)'
        ImageIndex = 1
        OnClick = BtnSaveClick
      end
      object BtnEdit: TToolButton
        Left = 97
        Top = 0
        AutoSize = True
        Caption = #20462#25913'(&M)'
        ImageIndex = 2
        OnClick = BtnEditClick
      end
      object BtnUndo: TToolButton
        Left = 147
        Top = 0
        Caption = #21462#28040'(&C)'
        ImageIndex = 3
        OnClick = BtnUndoClick
      end
      object BtnDelete: TToolButton
        Left = 199
        Top = 0
        AutoSize = True
        Caption = #21024#38500'(&C)'
        ImageIndex = 4
        OnClick = BtnDeleteClick
      end
      object ToolButton1: TToolButton
        Left = 247
        Top = 0
        Width = 8
        Caption = 'ToolButton1'
        ImageIndex = 8
        Style = tbsSeparator
      end
      object BtnPrevious: TToolButton
        Left = 255
        Top = 0
        AutoSize = True
        Caption = #21069#19968
        ImageIndex = 5
      end
      object BtnNext: TToolButton
        Left = 290
        Top = 0
        AutoSize = True
        Caption = #21518#19968
        ImageIndex = 6
      end
      object ToolButton2: TToolButton
        Left = 325
        Top = 0
        Width = 8
        Caption = 'ToolButton2'
        ImageIndex = 8
        Style = tbsSeparator
      end
      object BtnExit: TToolButton
        Left = 333
        Top = 0
        AutoSize = True
        Caption = #36864#20986'(&Q)'
        ImageIndex = 7
        OnClick = BtnExitClick
      end
    end
  end
  object _EmpData: TDataSource
    DataSet = EmpData
    Left = 360
    Top = 112
  end
  object EmpData: TADOQuery
    Connection = LinkSQL.PubLink
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'Select * from '#31192#20070#36164#26009)
    Left = 288
    Top = 104
  end
  object ImgList: TImageList
    Left = 220
    Top = 128