hwformula.dfm.svn-base

这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享

object HwFormulaForm: THwFormulaForm
  Left = 192
  Top = 107
  ActiveControl = RichEdit1
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #33258#23450#20041#20844#24335
  ClientHeight = 348
  ClientWidth = 576
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Bevel1: TBevel
    Left = 8
    Top = 312
    Width = 561
    Height = 9
    Shape = bsTopLine
  end
  object gbCondition: TGroupBox
    Left = 296
    Top = 8
    Width = 145
    Height = 121
    Caption = #26465#20214
    TabOrder = 0
    object sbIf: TSpeedButton
      Left = 16
      Top = 24
      Width = 33
      Height = 22
      Caption = #22914#26524
      OnClick = sbIfClick
    end
    object sbThen: TSpeedButton
      Left = 56
      Top = 24
      Width = 33
      Height = 22
      Caption = #37027#20040
      OnClick = sbThenClick
    end
    object sbElse: TSpeedButton
      Left = 96
      Top = 24
      Width = 33
      Height = 22
      Caption = #21542#21017
      OnClick = sbElseClick
    end
    object sbOr: TSpeedButton
      Left = 16
      Top = 56
      Width = 33
      Height = 22
      Caption = #25110
      OnClick = sbOrClick
    end
    object sbAnd: TSpeedButton
      Left = 56
      Top = 56
      Width = 33
      Height = 22
      Caption = #19988
      OnClick = sbAndClick
    end
  end
  object gbOperation: TGroupBox
    Left = 448
    Top = 8
    Width = 121
    Height = 121
    Caption = #36816#31639#31526
    TabOrder = 1
    object SpeedButton6: TSpeedButton
      Left = 16
      Top = 16
      Width = 23
      Height = 22
      Caption = '+'
      OnClick = SpeedButton6Click
    end
    object SpeedButton7: TSpeedButton
      Left = 16
      Top = 40
      Width = 23
      Height = 22
      Caption = '-'
      OnClick = SpeedButton7Click
    end
    object SpeedButton8: TSpeedButton
      Left = 16
      Top = 64
      Width = 23
      Height = 22
      Caption = '*'
      OnClick = SpeedButton8Click
    end
    object sbDiv: TSpeedButton
      Left = 16
      Top = 88
      Width = 23
      Height = 22
      Caption = '/'
      OnClick = sbDivClick
    end
    object SpeedButton10: TSpeedButton
      Left = 56
      Top = 16
      Width = 23
      Height = 22
      Caption = '='
      OnClick = SpeedButton10Click
    end
    object SpeedButton11: TSpeedButton
      Left = 56
      Top = 40
      Width = 23
      Height = 22
      Caption = '>'
      OnClick = SpeedButton11Click
    end
    object SpeedButton12: TSpeedButton
      Left = 56
      Top = 64
      Width = 23
      Height = 22
      Caption = '<'
      OnClick = SpeedButton12Click
    end
    object SpeedButton13: TSpeedButton
      Left = 56
      Top = 88
      Width = 23
      Height = 22
      Caption = '('
      OnClick = SpeedButton13Click
    end
    object SpeedButton14: TSpeedButton
      Left = 80
      Top = 16
      Width = 23
      Height = 22
      Caption = '<>'
      OnClick = SpeedButton14Click
    end
    object SpeedButton15: TSpeedButton
      Left = 80
      Top = 40
      Width = 23
      Height = 22
      Caption = '>='
      OnClick = SpeedButton15Click
    end
    object SpeedButton16: TSpeedButton
      Left = 80
      Top = 64
      Width = 23
      Height = 22
      Caption = '<='
      OnClick = SpeedButton16Click
    end
    object SpeedButton17: TSpeedButton
      Left = 80
      Top = 88
      Width = 23
      Height = 22
      Caption = ')'
      OnClick = SpeedButton17Click
    end
  end
  object gbFunction: TGroupBox
    Left = 432
    Top = 136
    Width = 137
    Height = 169
    Caption = #20989#25968
    TabOrder = 2
    object lbFunction: TListBox
      Left = 2
      Top = 14
      Width = 133
      Height = 153
      Align = alClient
      ItemHeight = 12
      TabOrder = 0
      OnDblClick = lbFunctionDblClick
    end
  end
  object bbtnOk: TBitBtn
    Left = 384
    Top = 320
    Width = 75
    Height = 25
    Caption = #30830#23450'(&O)'
    TabOrder = 3
    OnClick = bbtnOkClick
  end
  object bbtnExit: TBitBtn
    Left = 472
    Top = 320
    Width = 75
    Height = 25
    Caption = #36864#20986'(&X)'
    TabOrder = 4
    OnClick = bbtnExitClick
  end
  object bbtnCheck: TBitBtn
    Left = 296
    Top = 320
    Width = 75
    Height = 25
    Caption = #35821#27861#26816#26597'(&C)'
    TabOrder = 5
    OnClick = bbtnCheckClick
  end
  object cbLang: TCheckBox
    Left = 8
    Top = 324
    Width = 97
    Height = 17
    Caption = #20351#29992#31243#24207#35821#35328
    TabOrder = 6
    Visible = False
  end
  object gbItem: TGroupBox
    Left = 296
    Top = 136
    Width = 129
    Height = 169
    Caption = #39033#30446
    TabOrder = 7
    object lbItem: TListBox
      Left = 2
      Top = 14
      Width = 125
      Height = 153
      Align = alClient
      ItemHeight = 12
      TabOrder = 0
      OnDblClick = lbItemDblClick
    end
  end
  object RichEdit1: TRichEdit
    Left = 8
    Top = 8
    Width = 281
    Height = 297
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    HideScrollBars = False
    ParentFont = False
    ScrollBars = ssBoth
    TabOrder = 8
    OnChange = RichEdit1Change
  end
  object Scripter: TatPascalScripter
    Compiled = False
    OnCompileError = ScripterCompileError
    Left = 168
    Top = 312
  end
  object ActionList1: TActionList
    Left = 208
    Top = 232
    object ActUndo: TAction
      Caption = 'Undo'
      ShortCut = 16474
      OnExecute = ActUndoExecute
    end
  end
end