main.pas

工资管理系统的代码实例

 object MainForm: TMainForm
  Left = 91
  Top = 141
  Width = 640
  Height = 481
  Caption = #24037#36164#31649#29702#31995#32479
  Color = clAppWorkSpace
  Font.Charset = GB2312_CHARSET
  Font.Color = clBlack
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIForm
  Menu = mmMain
  OldCreateOrder = True
  Position = poDefault
  ShowHint = True
  Visible = True
  WindowState = wsMaximized
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  object sbMain: TStatusBar
    Left = 0
    Top = 416
    Width = 632
    Height = 19
    Panels = <
      item
        Text = ' '#24037#36164#31649#29702#31995#32479' V1.0'
        Width = 150
      end
      item
        Width = 50
      end>
  end
  object mmMain: TMainMenu
    Left = 72
    Top = 64
    object mnYdgz: TMenuItem
      Action = acYdgz
    end
    object mnGzjbwh: TMenuItem
      Action = acGzjb
    end
    object mnZyxxwh: TMenuItem
      Action = acZyxx
    end
    object mnSdsxxwh: TMenuItem
      Caption = #25152#24471#31246#20449#24687#32500#25252'(&S)'
      object mnSlwh: TMenuItem
        Action = acSlwh
      end
      object mnSplitter: TMenuItem
        Caption = '-'
      end
      object mnQzdwh: TMenuItem
        Action = acQzd
      end
    end
  end
  object alMain: TActionList
    Left = 120
    Top = 64
    object acYdgz: TAction
      Caption = #26376#24230#24037#36164'(&G)'
      ShortCut = 16455
      OnExecute = acYdgzExecute
    end
    object acGzjb: TAction
      Caption = #24037#36164#32423#21035#32500#25252'(&J)'
      ShortCut = 16458
      OnExecute = acGzjbExecute
    end
    object acZyxx: TAction
      Caption = #32844#21592#20449#24687#32500#25252'(&Y)'
      ShortCut = 16473
      OnExecute = acZyxxExecute
    end
    object acSlwh: TAction
      Caption = #31246#29575#35774#23450'(&L)'
      ShortCut = 16460
      OnExecute = acSlwhExecute
    end
    object acQzd: TAction
      Caption = #36215#24449#28857#35774#23450'(&Q)'
      ShortCut = 16465
      OnExecute = acQzdExecute
    end
  end
end