一个用Delphi开发的ERP软件
源代码在线查看： csh740_01.dfm.svn-base
inherited Csh740_01Form: TCsh740_01Form
Left = -4
Top = -4
Width = 808
Height = 580
Caption = #38144#21806#36153#29992#20998#26512
PixelsPerInch = 96
TextHeight = 12
inherited CoolBar1: TCoolBar
Width = 800
Bands = <
item
Control = ToolBar2
ImageIndex = -1
MinHeight = 39
Width = 796
end>
inherited ToolBar2: TToolBar
Width = 783
end
end
inherited Panel1: TPanel
Width = 800
inherited Image1: TImage
Width = 796
end
object lblType: TLabel
Left = 333
Top = 13
Width = 24
Height = 12
Anchors = [akTop, akRight]
Caption = #31867#22411
Transparent = True
end
object lblDate: TLabel
Left = 461
Top = 13
Width = 24
Height = 12
Anchors = [akTop, akRight]
Caption = #26085#26399
Transparent = True
end
object sbSearch: TSpeedButton
Left = 725
Top = 8
Width = 57
Height = 22
Anchors = [akTop, akRight]
Caption = #26597#35810
OnClick = sbSearchClick
end
object cbType: TComboBox
Left = 365
Top = 8
Width = 89
Height = 20
Style = csDropDownList
Anchors = [akTop, akRight]
ItemHeight = 12
ItemIndex = 0
TabOrder = 0
Text = #38144#21806#23450#21333
Items.Strings = (
#38144#21806#23450#21333
#39033#30446#35745#21010
#20219#21153#35745#21010
#20219#21153#24037#21333)
end
object edtFromDate: TwwDBDateTimePicker
Left = 493
Top = 8
Width = 105
Height = 20
Anchors = [akTop, akRight]
CalendarAttributes.Font.Charset = DEFAULT_CHARSET
CalendarAttributes.Font.Color = clWindowText
CalendarAttributes.Font.Height = -11
CalendarAttributes.Font.Name = 'MS Sans Serif'
CalendarAttributes.Font.Style = []
CalendarAttributes.PopupYearOptions.ShowEditYear = True
Epoch = 1950
ShowButton = True
TabOrder = 1
end
object edtToDate: TwwDBDateTimePicker
Left = 605
Top = 8
Width = 105
Height = 20
Anchors = [akTop, akRight]
CalendarAttributes.Font.Charset = DEFAULT_CHARSET
CalendarAttributes.Font.Color = clWindowText
CalendarAttributes.Font.Height = -11
CalendarAttributes.Font.Name = 'MS Sans Serif'
CalendarAttributes.Font.Style = []
CalendarAttributes.PopupYearOptions.ShowEditYear = True
Epoch = 1950
ShowButton = True
TabOrder = 2
end
end
inherited ScrollBox2: TScrollBox
Width = 800
Height = 473
inherited dxDBGrid1: TdxDBGrid
Width = 796
Height = 469
Filter.Criteria = {00000000}
object dxDBGrid1FType: TdxDBGridMaskColumn
DisableEditor = True
HeaderAlignment = taCenter
Width = 80
BandIndex = 0
RowIndex = 0
FieldName = 'FType'
end
object dxDBGrid1FCode: TdxDBGridMaskColumn
DisableEditor = True
HeaderAlignment = taCenter
Width = 120
BandIndex = 0
RowIndex = 0
FieldName = 'FCode'
end
object dxDBGrid1FDate: TdxDBGridDateColumn
DisableEditor = True
HeaderAlignment = taCenter
BandIndex = 0
RowIndex = 0
FieldName = 'FDate'
end
object dxDBGrid1FCust: TdxDBGridMaskColumn
DisableEditor = True
HeaderAlignment = taCenter
Width = 120
BandIndex = 0
RowIndex = 0
FieldName = 'FCust'
end
object dxDBGrid1FCustName: TdxDBGridMaskColumn
DisableEditor = True
HeaderAlignment = taCenter
Width = 240
BandIndex = 0
RowIndex = 0
FieldName = 'FCustName'
end
object dxDBGrid1FCurrName: TdxDBGridMaskColumn
DisableEditor = True
HeaderAlignment = taCenter
Width = 80
BandIndex = 0
RowIndex = 0
FieldName = 'FCurrName'
end
end
end
inherited ADODataSet1: TADODataSet
CursorType = ctStatic
LockType = ltBatchOptimistic
FieldDefs = <
item
Name = 'FType'
Attributes = [faFixed]
DataType = ftSmallint
end
item
Name = 'FCode'
DataType = ftString
Size = 30
end
item
Name = 'FDate'
Attributes = [faFixed]
DataType = ftDateTime
end
item
Name = 'FCust'
DataType = ftString
Size = 30
end
item
Name = 'FCustName'
DataType = ftString
Size = 60
end
item
Name = 'FCurrName'
DataType = ftString
Size = 50
end>
StoreDefs = True
object ADODataSet1FType: TSmallintField
DisplayLabel = #21333#25454#31867#22411
FieldName = 'FType'
end
object ADODataSet1FCode: TStringField
DisplayLabel = #21333#25454#32534#21495
FieldName = 'FCode'
Size = 30
end
object ADODataSet1FDate: TDateTimeField
DisplayLabel = #21333#25454#26085#26399
FieldName = 'FDate'
end
object ADODataSet1FCust: TStringField
DisplayLabel = #23458#25143#32534#21495
FieldName = 'FCust'
Size = 30
end
object ADODataSet1FCustName: TStringField
DisplayLabel = #23458#25143#21517#31216
FieldName = 'FCustName'
Size = 60
end
object ADODataSet1FCurrName: TStringField
DisplayLabel = #24065#21035#21517#31216
FieldName = 'FCurrName'
Size = 50
end
end
object qryCsh500: TADOQuery
Connection = SYSDM.ADOC
Parameters =
Left = 120
Top = 152
end
end
