一个用Delphi开发的ERP软件
源代码在线查看： csh820_01.dfm.svn-base
inherited Csh820_01Form: TCsh820_01Form
Left = -4
Top = -4
Width = 808
Height = 580
Caption = #36164#37329#26085#25253#34920
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
inherited ToolButton2: TToolButton
Visible = False
end
end
end
inherited Panel1: TPanel
Width = 800
inherited Image1: TImage
Width = 796
end
object lblAcct: TLabel
Left = 197
Top = 13
Width = 24
Height = 12
Anchors = [akTop, akRight]
Caption = #24080#25143
Transparent = True
end
object lblDate: TLabel
Left = 477
Top = 13
Width = 24
Height = 12
Anchors = [akTop, akRight]
Caption = #26085#26399
Transparent = True
end
object sbSearch: TSpeedButton
Left = 733
Top = 8
Width = 57
Height = 22
Anchors = [akTop, akRight]
Caption = #26597#35810
OnClick = sbSearchClick
end
object cbAcct: TComboBox
Left = 229
Top = 8
Width = 241
Height = 20
Style = csDropDownList
Anchors = [akTop, akRight]
ItemHeight = 12
TabOrder = 0
OnChange = cbAcctChange
end
object edtFromDate: TwwDBDateTimePicker
Left = 509
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 = 621
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 ScrollBox1: TScrollBox
Width = 800
Height = 473
inherited dxDBGrid1: TdxDBGrid
Width = 796
Height = 469
KeyField = 'DATE'
Filter.Criteria = {00000000}
object dxDBGrid1CURNM: TdxDBGridMaskColumn
HeaderAlignment = taCenter
Width = 60
BandIndex = 0
RowIndex = 0
FieldName = 'CURNM'
end
object dxDBGrid1DATE: TdxDBGridDateColumn
HeaderAlignment = taCenter
Width = 80
BandIndex = 0
RowIndex = 0
FieldName = 'DATE'
end
object dxDBGrid1MEMO: TdxDBGridMaskColumn
HeaderAlignment = taCenter
Width = 226
BandIndex = 0
RowIndex = 0
FieldName = 'MEMO'
end
object dxDBGrid1AMT01: TdxDBGridCurrencyColumn
HeaderAlignment = taCenter
Width = 88
BandIndex = 0
RowIndex = 0
FieldName = 'AMT01'
SummaryFooterType = cstSum
SummaryFooterFormat = #65509',0.00;-'#65509',0.00'
OnDrawSummaryFooter = dxDBGrid1AMT01DrawSummaryFooter
Nullable = False
end
object dxDBGrid1AMT02: TdxDBGridCurrencyColumn
HeaderAlignment = taCenter
Width = 88
BandIndex = 0
RowIndex = 0
FieldName = 'AMT02'
SummaryFooterType = cstSum
SummaryFooterFormat = #65509',0.00;-'#65509',0.00'
OnDrawSummaryFooter = dxDBGrid1AMT02DrawSummaryFooter
Nullable = False
end
object dxDBGrid1AMT03: TdxDBGridCurrencyColumn
HeaderAlignment = taCenter
Width = 88
BandIndex = 0
RowIndex = 0
FieldName = 'AMT03'
Nullable = False
end
end
end
inherited ActionList1: TActionList
inherited ActInsert: TAction
Visible = False
end
inherited ActUpdate: TAction
Visible = False
end
inherited ActDelete: TAction
Visible = False
end
object ActOpen: TAction
Caption = #26597#30475'(&N)'
ShortCut = 16397
OnExecute = ActOpenExecute
end
end
inherited ADODataSet1: TADODataSet
object ADODataSet1CURNM: TStringField
DisplayLabel = #24065#21035
FieldName = 'CURNM'
Size = 30
end
object ADODataSet1DATE: TDateTimeField
DisplayLabel = #26085#26399
FieldName = 'DATE'
end
object ADODataSet1MEMO: TStringField
DisplayLabel = #25688#35201
FieldName = 'MEMO'
Size = 30
end
object ADODataSet1AMT01: TBCDField
DisplayLabel = #25910#20837
FieldName = 'AMT01'
Size = 0
end
object ADODataSet1AMT02: TBCDField
DisplayLabel = #25903#20986
FieldName = 'AMT02'
Size = 0
end
object ADODataSet1AMT03: TBCDField
DisplayLabel = #20313#39069
FieldName = 'AMT03'
Size = 0
end
end
object qryCsh550: TADOQuery
CacheSize = 1000
Connection = SYSDM.ADOC
Parameters =
SQL.Strings = (
'select * from CSH550')
Left = 352
Top = 168
end
object ADOQuery1: TADOQuery
CacheSize = 1000
Connection = SYSDM.ADOC
Parameters =
Left = 400
Top = 168
end
object PopupMenu1: TPopupMenu
Left = 72
Top = 216
object N1: TMenuItem
Action = ActOpen
end
object N2: TMenuItem
Caption = '-'
end
object N4: TMenuItem
Action = ActLocate
end
object N5: TMenuItem
Action = ActSearch
end
end
end
