u_main.dfm

这是一个非常使用的DELPHI源码的例子,用的是SQL数据库和DELPHI企业版

    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 7
    OnClick = A7Execute
  end
  object Button8: TButton
    Left = 197
    Top = 173
    Width = 123
    Height = 75
    Caption = '8'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 8
    OnClick = A8Execute
  end
  object Button9: TButton
    Left = 324
    Top = 173
    Width = 122
    Height = 75
    Caption = '9'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 9
    OnClick = A9Execute
  end
  object Button10: TButton
    Left = 70
    Top = 415
    Width = 251
    Height = 75
    Caption = '0'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 10
    OnClick = A10Execute
  end
  object Button11: TButton
    Left = 324
    Top = 407
    Width = 123
    Height = 75
    Caption = '.'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 11
    OnClick = Action1Execute
  end
  object Button12: TButton
    Left = 450
    Top = 173
    Width = 118
    Height = 75
    Caption = #28165#38646
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 12
    OnClick = A11Execute
  end
  object Button13: TButton
    Left = 451
    Top = 251
    Width = 118
    Height = 75
    Caption = #20445#23384
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 13
    OnClick = A12Execute
  end
  object Button14: TButton
    Left = 451
    Top = 329
    Width = 118
    Height = 153
    Caption = #36864#20986
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 14
    OnClick = Button14Click
  end
  object Panel6: TPanel
    Left = 15
    Top = 62
    Width = 164
    Height = 61
    BevelOuter = bvLowered
    Caption = 'Panel6'
    Color = clBtnText
    TabOrder = 15
    object Lbl: TLabel
      Left = 1
      Top = 1
      Width = 162
      Height = 59
      Align = alClient
      Alignment = taCenter
      Caption = '0.00'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -24
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
      Layout = tlCenter
    end
  end
  object Panel7: TPanel
    Left = 437
    Top = 62
    Width = 183
    Height = 60
    BevelOuter = bvLowered
    Caption = 'Panel5'
    Color = clBtnText
    TabOrder = 16
    object Lbl_jg: TLabel
      Left = 1
      Top = 1
      Width = 181
      Height = 58
      Align = alClient
      Alignment = taCenter
      Color = clMedGray
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clAqua
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      Transparent = True
      Layout = tlCenter
    end
  end
  object Panel8: TPanel
    Left = 288
    Top = 62
    Width = 147
    Height = 60
    BevelOuter = bvLowered
    Caption = 'Panel4'
    Color = clBtnText
    TabOrder = 17
    object Lbl_je: TLabel
      Left = 1
      Top = 1
      Width = 145
      Height = 58
      Align = alClient
      Alignment = taCenter
      Color = clMedGray
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      Transparent = True
      Layout = tlCenter
    end
  end
  object Panel9: TPanel
    Left = 181
    Top = 62
    Width = 105
    Height = 60
    BevelOuter = bvLowered
    Caption = 'Panel3'
    Color = clBtnText
    TabOrder = 18
    object Label8: TLabel
      Left = 1
      Top = 1
      Width = 103
      Height = 58
      Align = alClient
      Alignment = taCenter
      Caption = '-'
      Color = clMedGray
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clYellow
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      Transparent = True
      Layout = tlCenter
    end
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 72
    Top = 142
  end
  object ActionManager1: TActionManager
    Left = 430
    Top = 134
    StyleName = 'XP Style'
    object A1: TAction
      Caption = '1'
      OnExecute = A1Execute
    end
    object A2: TAction
      Caption = '2'
      OnExecute = A2Execute
    end
    object A3: TAction
      Caption = '3'
      OnExecute = A3Execute
    end
    object A4: TAction
      Caption = '4'
      OnExecute = A4Execute
    end
    object A5: TAction
      Caption = '5'
      OnExecute = A5Execute
    end
    object A6: TAction
      Caption = '6'
      OnExecute = A6Execute
    end
    object A7: TAction
      Caption = '7'
      OnExecute = A7Execute
    end
    object A8: TAction
      Caption = '8'
      OnExecute = A8Execute
    end
    object A9: TAction
      Caption = '9'
      OnExecute = A9Execute
    end
    object A10: TAction
      Caption = '0'
      OnExecute = A10Execute
    end
    object A11: TAction
      Caption = #28165#38646
      OnExecute = A11Execute
    end
    object A12: TAction
      Caption = #20445#23384
      OnExecute = A12Execute
    end
    object Action1: TAction
      Caption = '.'
      OnExecute = Action1Execute
    end
    object Action2: TAction
      Caption = #36816#31639
      OnExecute = Action2Execute
    end
  end
end