这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享
源代码在线查看： hwformula.dfm.svn-base
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
