u_tc1.dfm

pasa人力资源考勤管理系统

object f_tc: Tf_tc
  Left = 307
  Top = 195
  Width = 544
  Height = 375
  Caption = '提成作业'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 536
    Height = 40
    AutoSize = True
    ButtonHeight = 36
    ButtonWidth = 33
    Caption = 'ToolBar1'
    Font.Charset = GB2312_CHARSET
    Font.Color = clGray
    Font.Height = -13
    Font.Name = '新细明体'
    Font.Style = []
    Images = formmain.ImageList1
    ParentFont = False
    ShowCaptions = True
    TabOrder = 0
    object tbnsort: TToolButton
      Left = 0
      Top = 2
      Hint = '设定多栏位排序'
      AutoSize = True
      Caption = '排序'
      ImageIndex = 19
      ParentShowHint = False
      ShowHint = True
    end
    object ToolButton1: TToolButton
      Left = 37
      Top = 2
      Caption = '刷新'
      ImageIndex = 4
    end
    object tbnfind: TToolButton
      Left = 70
      Top = 2
      Hint = '根据条件查询您要的记录'
      AutoSize = True
      Caption = '查找'
      ImageIndex = 20
      ParentShowHint = False
      ShowHint = True
    end
    object tbnprint: TToolButton
      Left = 107
      Top = 2
      Hint = '打印'
      AutoSize = True
      Caption = '打印'
      ImageIndex = 24
      ParentShowHint = False
      ShowHint = True
    end
    object ToolButton4: TToolButton
      Left = 144
      Top = 2
      Hint = '退出'
      AutoSize = True
      Caption = '退出'
      ImageIndex = 3
      ParentShowHint = False
      ShowHint = True
    end
    object DBNavigator1: TDBNavigator
      Left = 181
      Top = 2
      Width = 249
      Height = 36
      Align = alClient
      Hints.Strings = (
        '到第一条记录'
        '移到上一条记录'
        '移到下一条记录'
        '移到最后一条记录'
        '插入一条记录'
        '删除一条记录'
        '修改当前记录 '
        '确定修改或新增的记录'
        '取消前一次操作'
        '重新显示当前记录中的数据')
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 40
    Width = 536
    Height = 235
    Align = alClient
    DataSource = DataSource1
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'dept'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'prof'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'fact'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'must'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'rat'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'money'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'monthy'
        Visible = True
      end
      item
        Color = clMenu
        Expanded = False
        FieldName = 'operator'
        ReadOnly = True
        Visible = True
      end
      item
        Color = clMenu
        Expanded = False
        FieldName = 'cdate'
        ReadOnly = True
        Visible = True
      end>
  end
  object Panel1: TPanel
    Left = 0
    Top = 275
    Width = 536
    Height = 73
    Align = alBottom
    TabOrder = 2
    object Label1: TLabel
      Left = 16
      Top = 12
      Width = 42
      Height = 13
      Caption = '部      门'
    end
    object Label2: TLabel
      Left = 325
      Top = 12
      Width = 24
      Height = 13
      Caption = '职务'
    end
    object Label3: TLabel
      Left = 521
      Top = 12
      Width = 24
      Height = 13
      Caption = '月份'
    end
    object Label4: TLabel
      Left = 16
      Top = 44
      Width = 48
      Height = 13
      Caption = '实际产量'
    end
    object Label5: TLabel
      Left = 150
      Top = 44
      Width = 48
      Height = 13
      Caption = '定额产量'
    end
    object Label6: TLabel
      Left = 300
      Top = 44
      Width = 48
      Height = 13
      Caption = '提成比例'
    end
    object Label7: TLabel
      Left = 446
      Top = 44
      Width = 36
      Height = 13
      Caption = '提成额'
    end
    object Label8: TLabel
      Left = 575
      Top = 44
      Width = 36
      Height = 13
      Caption = '建档人'
    end
    object Label9: TLabel
      Left = 663
      Top = 44
      Width = 48
      Height = 13
      Caption = '建档日期'
    end
    object DBText1: TDBText
      Left = 612
      Top = 43
      Width = 42
      Height = 13
      AutoSize = True
      DataField = 'operator'
    end
    object DBText2: TDBText
      Left = 717
      Top = 43
      Width = 42
      Height = 13
      AutoSize = True
      DataField = 'cdate'
    end
    object Combo1: TwwDBLookupCombo
      Left = 72
      Top = 8
      Width = 241
      Height = 21
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'dept'#9'20'#9'部门名称'#9'F')
      TabOrder = 0
      AutoDropDown = False
      ShowButton = True
      AllowClearKey = False
    end
    object wwDBLookupCombo2: TwwDBLookupCombo
      Left = 358
      Top = 8
      Width = 156
      Height = 21
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'prof'#9'30'#9'prof'#9'F')
      DataField = 'prof'
      LookupField = 'prof'
      TabOrder = 1
      AutoDropDown = False
      ShowButton = True
      AllowClearKey = False
    end
    object DBEdit1: TDBEdit
      Left = 553
      Top = 8
      Width = 49
      Height = 21
      DataField = 'monthy'
      TabOrder = 2
    end
    object DBEdit2: TDBEdit
      Left = 72
      Top = 40
      Width = 69
      Height = 21
      DataField = 'fact'
      TabOrder = 3
    end
    object DBEdit5: TDBEdit
      Left = 486
      Top = 40
      Width = 82
      Height = 21
      Color = clMenu
      DataField = 'money'
      ReadOnly = True
      TabOrder = 4
    end
    object ComboBox1: TComboBox
      Left = 205
      Top = 40
      Width = 85
      Height = 21
      ItemHeight = 13
      TabOrder = 5
      Items.Strings = (
        '2500'
        '5900'
        '4900'
        '2700'
        '235000')
    end
    object ComboBox2: TComboBox
      Left = 358
      Top = 40
      Width = 83
      Height = 21
      ItemHeight = 13
      TabOrder = 6
      Items.Strings = (
        '0.1'
        '0.0666'
        '0.018'
        '0.06'
        '0.03')
    end
  end
  object ADOprof: TADODataSet
    Connection = DataMod.Database1
    CursorType = ctStatic
    CommandText = 'select prof from per24010'
    Parameters = <>
    Left = 224
    Top = 120
  end
  object DataSource1: TDataSource
    DataSet = ADODataSet1
    Left = 176
    Top = 96
  end
  object ADODataSet1: TADODataSet
    Connection = DataMod.Database1
    CursorType = ctStatic
    CommandText = 'select * From rattable'
    Parameters = <>
    Left = 120
    Top = 96
  end
end