ydgz.dfm

工资管理系统的代码实例

object YdgzForm: TYdgzForm
  Left = 210
  Top = 145
  Width = 640
  Height = 480
  Caption = #26376#24230#24037#36164
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poMainFormCenter
  Visible = True
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object pnlYdxz: TPanel
    Left = 0
    Top = 0
    Width = 632
    Height = 41
    Align = alTop
    BevelOuter = bvLowered
    TabOrder = 0
    object lblSelYear: TLabel
      Left = 12
      Top = 15
      Width = 65
      Height = 13
      Caption = #36873#25321#24180#20221#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object lblSelMonth: TLabel
      Left = 180
      Top = 15
      Width = 65
      Height = 13
      Caption = #36873#25321#26376#20221#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object UpDownYear: TUpDown
      Left = 145
      Top = 11
      Width = 16
      Height = 21
      Associate = edtYear
      Min = 1900
      Max = 2100
      Position = 2005
      TabOrder = 0
      Thousands = False
    end
    object edtYear: TEdit
      Left = 79
      Top = 11
      Width = 66
      Height = 21
      TabOrder = 1
      Text = '2005'
    end
    object btOK: TButton
      Left = 326
      Top = 9
      Width = 75
      Height = 24
      Action = acOk
      TabOrder = 2
    end
    object cbMonth: TComboBox
      Left = 248
      Top = 11
      Width = 57
      Height = 21
      ItemHeight = 13
      TabOrder = 3
      Items.Strings = (
        '1'
        '2'
        '3'
        '4'
        '5'
        '6'
        '7'
        '8'
        '9'
        '10'
        '11'
        '12')
    end
  end
  object dbYdgz: TDBGrid
    Left = 0
    Top = 41
    Width = 632
    Height = 359
    Align = alClient
    DataSource = dsYdgz
    ReadOnly = True
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object pnlToolBar: TPanel
    Left = 0
    Top = 400
    Width = 632
    Height = 46
    Align = alBottom
    BevelOuter = bvLowered
    TabOrder = 2
    DesignSize = (
      632
      46)
    object btDel: TButton
      Left = 526
      Top = 11
      Width = 75
      Height = 24
      Action = acDel
      Anchors = [akRight, akBottom]
      TabOrder = 0
    end
    object btAdd: TButton
      Left = 433
      Top = 12
      Width = 75
      Height = 23
      Action = acAdd
      Anchors = [akRight, akBottom]
      TabOrder = 1
    end
  end
  object dsYdgz: TDataSource
    DataSet = adoqYdgz
    Left = 368
    Top = 248
  end
  object alYdgz: TActionList
    OnUpdate = alYdgzUpdate
    Left = 480
    Top = 248
    object acOk: TAction
      Caption = #30830#23450
      OnExecute = acOkExecute
    end
    object acAdd: TAction
      Caption = #28155#21152
      OnExecute = acAddExecute
    end
    object acDel: TAction
      Caption = #21024#38500
      OnExecute = acDelExecute
    end
  end
  object adoqYdgz: TADOQuery
    OnCalcFields = adoqYdgzCalcFields
    Parameters = <>
    Left = 424
    Top = 248
    object adoqYdgzZybh: TStringField
      FieldName = 'Zybh'
      Size = 10
    end
    object adoqYdgzXm: TStringField
      FieldKind = fkLookup
      FieldName = 'Xm'
      LookupDataSet = adoqZyxx
      LookupKeyFields = 'Zybh'
      LookupResultField = 'Xm'
      KeyFields = 'Zybh'
      Size = 10
      Lookup = True
    end
    object adoqYdgzJbgz: TFloatField
      FieldName = 'Jbgz'
    end
    object adoqYdgzZwgz: TFloatField
      FieldName = 'Zwgz'
    end
    object adoqYdgzBt: TFloatField
      FieldName = 'Bt'
    end
    object adoqYdgzKq: TFloatField
      FieldName = 'Kq'
    end
    object adoqYdgzSqgz: TFloatField
      FieldKind = fkCalculated
      FieldName = 'Sqgz'
      Calculated = True
    end
    object adoqYdgzSj: TFloatField
      FieldName = 'Sj'
    end
    object adoqYdgzSfgz: TFloatField
      FieldKind = fkCalculated
      FieldName = 'Sfgz'
      Calculated = True
    end
    object adoqYdgzNd: TIntegerField
      FieldName = 'Nd'
    end
    object adoqYdgzYd: TIntegerField
      FieldName = 'Yd'
    end
  end
  object adoqZyxx: TADOQuery
    Parameters = <>
    Left = 312
    Top = 248
  end
end