u_tc.dfm

来自「pasa人力资源考勤管理系统」· DFM 代码 · 共 452 行

object tc_from: Ttc_from
  Left = 3
  Top = 108
  Width = 779
  Height = 375
  Caption = '提成设定'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  KeyPreview = True
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 0
    Top = 40
    Width = 771
    Height = 235
    Align = alClient
    DataSource = DataSource1
    TabOrder = 0
    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 ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 771
    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 = 1
    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
      OnClick = ToolButton1Click
    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
      OnClick = ToolButton4Click
    end
    object DBNavigator1: TDBNavigator
      Left = 181
      Top = 2
      Width = 249
      Height = 36
      DataSource = DataSource1
      Align = alClient
      Hints.Strings = (
        '到第一条记录'
        '移到上一条记录'
        '移到下一条记录'
        '移到最后一条记录'
        '插入一条记录'
        '删除一条记录'
        '修改当前记录 '
        '确定修改或新增的记录'
        '取消前一次操作'
        '重新显示当前记录中的数据')
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 275
    Width = 771
    Height = 73
    Align = alBottom
    TabOrder = 2
    object Label1: TLabel
      Left = 16
      Top = 12
      Width = 53
      Height = 13
      AutoSize = False
      Caption = '部      门'
    end
    object Label2: TLabel
      Left = 325
      Top = 12
      Width = 35
      Height = 13
      AutoSize = False
      Caption = '职务'
    end
    object Label3: TLabel
      Left = 521
      Top = 12
      Width = 35
      Height = 13
      AutoSize = False
      Caption = '月份'
    end
    object Label4: TLabel
      Left = 615
      Top = 12
      Width = 59
      Height = 13
      AutoSize = False
      Caption = '实际产量'
    end
    object Label5: TLabel
      Left = 5
      Top = 44
      Width = 59
      Height = 13
      AutoSize = False
      Caption = '定额产量'
    end
    object Label6: TLabel
      Left = 180
      Top = 44
      Width = 59
      Height = 13
      AutoSize = False
      Caption = '提成比例'
    end
    object Label7: TLabel
      Left = 334
      Top = 44
      Width = 47
      Height = 13
      AutoSize = False
      Caption = '提成额'
    end
    object Label8: TLabel
      Left = 479
      Top = 44
      Width = 47
      Height = 13
      AutoSize = False
      Caption = '建档人'
    end
    object Label9: TLabel
      Left = 594
      Top = 44
      Width = 59
      Height = 13
      AutoSize = False
      Caption = '建档日期'
    end
    object DBText1: TDBText
      Left = 527
      Top = 43
      Width = 42
      Height = 13
      AutoSize = True
      DataField = 'operator'
      DataSource = DataSource1
    end
    object DBText2: TDBText
      Left = 664
      Top = 43
      Width = 42
      Height = 13
      AutoSize = True
      DataField = 'cdate'
      DataSource = DataSource1
    end
    object Combo1: TwwDBLookupCombo
      Left = 72
      Top = 8
      Width = 241
      Height = 21
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'dept'#9'20'#9'部门名称'#9'F')
      DataField = 'dept'
      DataSource = DataSource1
      LookupTable = DataMod.Adodept
      LookupField = 'dept'
      TabOrder = 0
      AutoDropDown = False
      ShowButton = True
      AllowClearKey = False
      OnChange = Combo1Change
    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'
      DataSource = DataSource1
      LookupTable = ADOprof
      LookupField = 'prof'
      TabOrder = 1
      AutoDropDown = False
      ShowButton = True
      AllowClearKey = False
    end
    object DBEdit1: TDBEdit
      Left = 553
      Top = 8
      Width = 49
      Height = 21
      DataField = 'monthy'
      DataSource = DataSource1
      TabOrder = 2
      OnExit = DBEdit1Exit
    end
    object DBEdit2: TDBEdit
      Left = 680
      Top = 8
      Width = 69
      Height = 21
      DataField = 'fact'
      DataSource = DataSource1
      TabOrder = 3
    end
    object DBEdit5: TDBEdit
      Left = 387
      Top = 40
      Width = 70
      Height = 21
      Color = clMenu
      DataField = 'money'
      DataSource = DataSource1
      ReadOnly = True
      TabOrder = 6
    end
    object ComboBox1: TDBComboBox
      Left = 72
      Top = 40
      Width = 85
      Height = 21
      DataField = 'must'
      DataSource = DataSource1
      ItemHeight = 13
      Items.Strings = (
        '2500'
        '5900'
        '4900'
        '2700'
        '235000')
      TabOrder = 4
    end
    object ComboBox2: TDBComboBox
      Left = 239
      Top = 39
      Width = 84
      Height = 21
      DataField = 'rat'
      DataSource = DataSource1
      ItemHeight = 13
      Items.Strings = (
        '0.1'
        '0.0666'
        '0.018'
        '0.06'
        '0.03')
      TabOrder = 5
    end
  end
  object ADOprof: TADODataSet
    Connection = DataMod.Database1
    CursorType = ctStatic
    CommandText = 'select distinct prof from per24010'
    Parameters = <>
    Left = 224
    Top = 120
  end
  object DataSource1: TDataSource
    DataSet = ADODataSet1
    Left = 168
    Top = 96
  end
  object ADODataSet1: TADODataSet
    Connection = DataMod.Database1
    CursorType = ctStatic
    AfterInsert = ADODataSet1AfterInsert
    BeforePost = ADODataSet1BeforePost
    AfterPost = t
    CommandText = 'select * from rattable'
    Parameters = <>
    Left = 96
    Top = 96
    object ADODataSet1dept: TStringField
      DisplayLabel = '部门'
      FieldName = 'dept'
      Size = 60
    end
    object ADODataSet1prof: TStringField
      DisplayLabel = '职务'
      FieldName = 'prof'
      Size = 30
    end
    object ADODataSet1monthy: TStringField
      DisplayLabel = '月份'
      FieldName = 'monthy'
      EditMask = '!9999/00;1;_'
      Size = 8
    end
    object ADODataSet1fact: TBCDField
      DisplayLabel = '实际产量'
      FieldName = 'fact'
      Precision = 18
      Size = 2
    end
    object ADODataSet1must: TBCDField
      DisplayLabel = '定额产量'
      FieldName = 'must'
      Precision = 18
      Size = 2
    end
    object ADODataSet1rat: TBCDField
      DisplayLabel = '提成比例'
      FieldName = 'rat'
      Precision = 18
    end
    object ADODataSet1money: TBCDField
      DisplayLabel = '提成额'
      FieldName = 'money'
      Precision = 18
      Size = 2
    end
    object ADODataSet1operator: TStringField
      DisplayLabel = '建档人'
      FieldName = 'operator'
      Size = 10
    end
    object ADODataSet1cdate: TDateTimeField
      DisplayLabel = '建档日期'
      FieldName = 'cdate'
      EditMask = '!9999/99/00;1;_'
    end
  end
  object ADODataSet2: TADODataSet
    Connection = DataMod.Database1
    Parameters = <>
    Left = 368
    Top = 88
  end
end