一个用Delphi开发的ERP软件
源代码在线查看： gld640_02.dfm.svn-base
inherited Gld640_02Form: TGld640_02Form
Left = -4
Top = -4
Width = 808
Height = 580
Caption = #25968#37327#37329#39069#26126#32454
OldCreateOrder = True
PixelsPerInch = 96
TextHeight = 12
object Panel1: TPanel
Left = 0
Top = 43
Width = 800
Height = 38
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 0
object Image1: TImage
Left = 2
Top = 2
Width = 796
Height = 34
Align = alClient
Stretch = True
end
object Label1: TLabel
Left = 15
Top = 9
Width = 147
Height = 20
Caption = #25968#37327#37329#39069#26126#32454#24080
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #23435#20307
Font.Pitch = fpFixed
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object Label2: TLabel
Left = 591
Top = 7
Width = 60
Height = 12
Caption = #20250#35745#26399#38388#65306
Transparent = True
end
object Label3: TLabel
Left = 591
Top = 22
Width = 36
Height = 12
Caption = #24065#21035#65306
Transparent = True
end
end
object CoolBar1: TCoolBar
Left = 0
Top = 0
Width = 800
Height = 43
AutoSize = True
Bands = <
item
Control = ToolBar2
ImageIndex = -1
MinHeight = 39
Width = 796
end>
object ToolBar2: TToolBar
Left = 9
Top = 0
Width = 783
Height = 39
AutoSize = True
ButtonHeight = 39
ButtonWidth = 31
Caption = 'ToolBar2'
EdgeBorders = []
Flat = True
Images = SYSDM.ImageList1
ParentShowHint = False
ShowCaptions = True
ShowHint = True
TabOrder = 0
object tlbFirst: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #26368#21069
ImageIndex = 5
end
object tlbPrior: TToolButton
Left = 35
Top = 0
AutoSize = True
Caption = #19978#31227
ImageIndex = 6
end
object tlbNext: TToolButton
Left = 70
Top = 0
AutoSize = True
Caption = #19979#31227
ImageIndex = 7
end
object tlbLast: TToolButton
Left = 105
Top = 0
AutoSize = True
Caption = #26368#21518
ImageIndex = 8
end
object ToolButton1: TToolButton
Left = 140
Top = 0
Width = 8
Caption = 'ToolButton1'
ImageIndex = 13
Style = tbsSeparator
end
object ToolButton2: TToolButton
Left = 148
Top = 0
Width = 8
Caption = 'ToolButton2'
ImageIndex = 13
Style = tbsSeparator
end
object tlbSearch: TToolButton
Left = 156
Top = 0
AutoSize = True
Caption = #26597#25214
ImageIndex = 9
end
object tlbPrint: TToolButton
Left = 191
Top = 0
AutoSize = True
Caption = #25171#21360
ImageIndex = 10
end
object tlbSelect: TToolButton
Left = 226
Top = 0
AutoSize = True
Caption = #31579#36873
ImageIndex = 14
end
object ToolButton4: TToolButton
Left = 261
Top = 0
Width = 8
Caption = 'ToolButton4'
ImageIndex = 13
Style = tbsSeparator
end
object tlbExit: TToolButton
Left = 269
Top = 0
AutoSize = True
Caption = #36864#20986
ImageIndex = 13
end
end
end
object dxDBGrid1: TdxDBGrid
Left = 0
Top = 81
Width = 800
Height = 472
Bands = <
item
end>
DefaultLayout = True
HeaderPanelRowCount = 1
SummaryGroups =
SummarySeparator = ', '
Align = alClient
TabOrder = 2
DataSource = DataSource1
Filter.Criteria = {00000000}
HideFocusRect = True
OptionsView = [edgoBandHeaderWidth, edgoRowSelect, edgoUseBitmap]
object dxDBGrid1G500_001: TdxDBGridMaskColumn
BandIndex = 0
RowIndex = 0
FieldName = 'G500_001'
end
object dxDBGrid1G500_002: TdxDBGridMaskColumn
BandIndex = 0
RowIndex = 0
FieldName = 'G500_002'
end
object dxDBGrid1G500_003: TdxDBGridMaskColumn
BandIndex = 0
RowIndex = 0
FieldName = 'G500_003'
end
object dxDBGrid1G500_004: TdxDBGridMaskColumn
BandIndex = 0
RowIndex = 0
FieldName = 'G500_004'
end
object dxDBGrid1G500_005: TdxDBGridMaskColumn
BandIndex = 0
RowIndex = 0
FieldName = 'G500_005'
end
object dxDBGrid1G500_006: TdxDBGridMaskColumn
BandIndex = 0
RowIndex = 0
FieldName = 'G500_006'
end
object dxDBGrid1G500_007: TdxDBGridMaskColumn
BandIndex = 0
RowIndex = 0
FieldName = 'G500_007'
end
object dxDBGrid1G500_008: TdxDBGridMaskColumn
BandIndex = 0
RowIndex = 0
FieldName = 'G500_008'
end
object dxDBGrid1G500_009: TdxDBGridMaskColumn
BandIndex = 0
RowIndex = 0
FieldName = 'G500_009'
end
end
object frReport1: TfrReport
InitialZoom = pzDefault
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbExit, pbPageSetup]
Left = 216
Top = 72
ReportForm = {18000000}
end
object frDBDataSet1: TfrDBDataSet
Left = 248
Top = 72
end
object DataSource1: TDataSource
DataSet = ClientDataSet1
Left = 112
Top = 152
end
object ClientDataSet1: TClientDataSet
Aggregates =
Params =
ProviderName = 'dspGld500'
Left = 144
Top = 152
end
end
