gzgl.dfm

工资管理系统的代码实例

object GZGLFrom: TGZGLFrom
  Left = 178
  Top = 200
  Width = 791
  Height = 486
  Caption = #24037#36164#31649#29702#31995#32479
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 0
    Top = 161
    Width = 783
    Height = 3
    Cursor = crVSplit
    Align = alTop
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 783
    Height = 161
    Align = alTop
    BevelOuter = bvLowered
    TabOrder = 0
    object dbRYXX: TDBGrid
      Left = 1
      Top = 1
      Width = 781
      Height = 159
      Align = alClient
      DataSource = dsRYXX
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 164
    Width = 783
    Height = 295
    Align = alClient
    BevelInner = bvLowered
    TabOrder = 1
    object Panel3: TPanel
      Left = 2
      Top = 2
      Width = 779
      Height = 35
      Align = alTop
      BevelOuter = bvLowered
      TabOrder = 0
      object Label2: TLabel
        Left = 11
        Top = 11
        Width = 26
        Height = 13
        Caption = #24180#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object UpDown1: TUpDown
        Left = 113
        Top = 8
        Width = 13
        Height = 21
        Associate = edtYear
        Min = 1990
        Max = 32767
        Position = 2005
        TabOrder = 0
        Thousands = False
      end
      object edtYear: TEdit
        Left = 31
        Top = 8
        Width = 82
        Height = 21
        TabOrder = 1
        Text = '2005'
        OnChange = edtYearChange
      end
      object Button1: TButton
        Left = 323
        Top = 6
        Width = 75
        Height = 23
        Caption = #28155#21152
        TabOrder = 2
        OnClick = Button1Click
      end
    end
    object dbKQxx: TDBGrid
      Left = 2
      Top = 37
      Width = 779
      Height = 256
      Align = alClient
      DataSource = dsKQxx
      ReadOnly = True
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
  end
  object dsRYXX: TDataSource
    OnDataChange = dsRYXXDataChange
    Left = 336
    Top = 56
  end
  object amKqxx: TActionManager
    Left = 448
    Top = 244
    StyleName = 'XP Style'
    object acDelKQInfo: TAction
      Caption = #21024#38500
    end
  end
  object dsKQxx: TDataSource
    Left = 224
    Top = 284
  end
  object PopupMenu1: TPopupMenu
    Left = 344
    Top = 244
    object N1: TMenuItem
      Action = acDelKQInfo
    end
  end
end