一个用Delphi开发的ERP软件
源代码在线查看： pay550_04.dfm.svn-base
inherited Pay550_04Form: TPay550_04Form
Left = 210
Top = 109
HelpContext = 79
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = #34218#36164#38646#37329#26680#31639
ClientHeight = 287
ClientWidth = 497
OldCreateOrder = True
PixelsPerInch = 96
TextHeight = 12
object Label3: TLabel [0]
Left = 64
Top = 232
Width = 7
Height = 13
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -13
Font.Name = #23435#20307
Font.Pitch = fpFixed
Font.Style = []
ParentFont = False
end
object lblAmount: TLabel [1]
Left = 288
Top = 12
Width = 24
Height = 12
Caption = #37329#39069
end
object lblCurr: TLabel [2]
Left = 64
Top = 12
Width = 24
Height = 12
Alignment = taRightJustify
Caption = #24065#21035
end
object bbtnOk: TBitBtn [3]
Left = 312
Top = 256
Width = 75
Height = 25
Caption = #35745#31639'(&O)'
TabOrder = 0
OnClick = bbtnOkClick
end
object bbtnExit: TBitBtn [4]
Left = 400
Top = 256
Width = 75
Height = 25
Caption = #36864#20986'(&X)'
TabOrder = 1
OnClick = bbtnExitClick
end
object cbCurr: TComboBox [5]
Left = 96
Top = 8
Width = 169
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 2
OnChange = cbCurrChange
end
object edtAmount: TEdit [6]
Left = 320
Top = 8
Width = 169
Height = 20
Enabled = False
TabOrder = 3
end
object ScrollBox1: TScrollBox [7]
Left = 8
Top = 40
Width = 481
Height = 209
TabOrder = 4
object dxDBGrid2: TdxDBGrid
Left = 0
Top = 0
Width = 477
Height = 205
Bands = <
item
end>
DefaultLayout = True
HeaderPanelRowCount = 1
KeyField = 'ParValue'
ShowSummaryFooter = True
SummaryGroups =
SummarySeparator = ', '
Align = alClient
BorderStyle = bsNone
TabOrder = 0
DataSource = DataSource1
Filter.Criteria = {00000000}
HeaderColor = 15262169
HideFocusRect = True
LookAndFeel = lfUltraFlat
OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoUseBitmap]
object dxDBGrid2ParValue: TdxDBGridMaskColumn
DisableEditor = True
HeaderAlignment = taCenter
Width = 124
BandIndex = 0
RowIndex = 0
FieldName = 'ParValue'
end
object dxDBGrid2Unit: TdxDBGridMaskColumn
DisableEditor = True
HeaderAlignment = taCenter
Width = 84
BandIndex = 0
RowIndex = 0
FieldName = 'Unit'
end
object dxDBGrid2Count: TdxDBGridMaskColumn
DisableEditor = True
HeaderAlignment = taCenter
Width = 105
BandIndex = 0
RowIndex = 0
FieldName = 'Count'
end
object dxDBGrid2Amount: TdxDBGridMaskColumn
DisableEditor = True
HeaderAlignment = taCenter
Width = 129
BandIndex = 0
RowIndex = 0
FieldName = 'Amount'
SummaryFooterType = cstSum
end
end
end
inherited pmUISet: TPopupMenu
Left = 24
Top = 8
end
object DataSource1: TDataSource
DataSet = ADODataSet1
Left = 144
Top = 88
end
object ADODataSet1: TADODataSet
Connection = SYSDM.ADOC
CursorType = ctStatic
FieldDefs = <
item
Name = 'ParValue'
Attributes = [faFixed]
DataType = ftInteger
end
item
Name = 'Unit'
DataType = ftString
Size = 20
end
item
Name = 'Count'
Attributes = [faFixed]
DataType = ftInteger
end
item
Name = 'Amount'
Attributes = [faFixed]
DataType = ftFloat
end>
Parameters =
StoreDefs = True
Left = 184
Top = 88
object ADODataSet1ParValue: TIntegerField
DisplayLabel = #38754#20540
FieldName = 'ParValue'
end
object ADODataSet1Unit: TStringField
DisplayLabel = #21333#20301
FieldName = 'Unit'
end
object ADODataSet1Count: TIntegerField
DisplayLabel = #25968#37327
FieldName = 'Count'
end
object ADODataSet1Amount: TFloatField
DisplayLabel = #37329#39069
FieldName = 'Amount'
end
end
object ADOQuery1: TADOQuery
Parameters =
Left = 240
Top = 48
end
end
