一个用Delphi开发的ERP软件
源代码在线查看： csh730_02.dfm.svn-base
inherited Csh730_02Form: TCsh730_02Form
Left = -4
Top = -4
Width = 808
Height = 580
Caption = #20538#26435#20538#21153#26126#32454
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
Height = 62
inherited Image1: TImage
Width = 796
Height = 58
end
object lblInOut: TLabel
Left = 336
Top = 12
Width = 24
Height = 12
Anchors = [akTop, akRight]
Caption = #31867#22411
Transparent = True
end
object lblDate: TLabel
Left = 464
Top = 12
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 lblType: TLabel
Left = 208
Top = 12
Width = 24
Height = 12
Anchors = [akTop, akRight]
Caption = #23545#35937
Transparent = True
end
object sbCust: TSpeedButton
Left = 474
Top = 32
Width = 22
Height = 20
Flat = True
Glyph.Data = {
F6060000424DF606000000000000360000002800000018000000180000000100
180000000000C006000000000000000000000000000000000000FF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF000000000000
000000FF00FFFF00FFFF00FFFF00FFFF00FF000000000000000000FF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FF000000C0C0C0000000FF00FFFF00FFFF00FFFF00FFFF00FF000000C0C0C0
000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FF000000000000000000808080FF00FFFF00FFFF00FF80
8080000000000000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0000000000000000000000000000
00000000000000000000000000000000000000FF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFBF0000BF0000BF0000BF0000000000C0C0C0
000000000000000000000000C0C0C0000000000000000000000000FF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF0000FFFFFFFFFFFFFF
FFFF000000C0C0C0000000000000000000000000C0C0C0000000000000000000
000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF00
00FFFFFF80808080808000000000000000000000000000000000000000000000
0000000000000000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFBF0000FFFFFFFFFFFFFFFFFFFFFFFF0000000000000000000000
00C0C0C0000000000000000000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFBF0000FFFFFF808080808080FFFFFF808080
000000000000808080808080FFFFFF000000000000FF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF0000FFFFFFFFFFFFFF
FFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFF000000000000FF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF00
00FFFFFF808080808080FFFFFF808080000000000000808080808080FFFFFF00
0000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFBF0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFBF0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFBF0000BF0000BF0000BF0000BF0000BF0000
BF0000BF0000BF0000BF0000BF0000BF0000FF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF0000C0C0C0BF0000BF
0000C0C0C0BF0000BF0000C0C0C0BF0000BF0000C0C0C0BF0000FF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF00
00BF0000BF0000BF0000BF0000BF0000BF0000BF0000BF0000BF0000BF0000BF
0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
OnClick = sbCustClick
end
object lblCust: TLabel
Left = 336
Top = 36
Width = 24
Height = 12
Alignment = taRightJustify
Caption = #32534#21495
Transparent = True
end
object lblCurr: TLabel
Left = 208
Top = 36
Width = 24
Height = 12
Anchors = [akTop, akRight]
Caption = #24065#21035
Transparent = True
end
object cbInOut: TComboBox
Left = 365
Top = 8
Width = 89
Height = 20
Style = csDropDownList
Anchors = [akTop, akRight]
ItemHeight = 12
ItemIndex = 0
TabOrder = 0
Text = #20538#26435
Items.Strings = (
#20538#26435
#20538#21153)
end
object edtFromDate: TwwDBDateTimePicker
Left = 493
Top = 8
Width = 108
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 = 108
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
object cbType: TComboBox
Left = 240
Top = 8
Width = 89
Height = 20
Style = csDropDownList
Anchors = [akTop, akRight]
ItemHeight = 12
ItemIndex = 0
TabOrder = 3
Text = #23458#25143
OnChange = cbTypeChange
Items.Strings = (
#23458#25143
#21592#24037)
end
object edtCust: TEdit
Left = 368
Top = 32
Width = 105
Height = 20
TabOrder = 4
OnExit = edtCustExit
end
object edtCustName: TEdit
Left = 504
Top = 32
Width = 209
Height = 20
Color = clBtnFace
Enabled = False
ReadOnly = True
TabOrder = 5
end
object cbCurr: TComboBox
Left = 240
Top = 32
Width = 89
Height = 20
Style = csDropDownList
Anchors = [akTop, akRight]
ItemHeight = 12
TabOrder = 6
OnChange = cbCurrChange
end
end
inherited ScrollBox2: TScrollBox
Top = 105
Width = 800
Height = 448
inherited dxDBGrid1: TdxDBGrid
Width = 796
Height = 444
KeyField = 'FDate'
Filter.Criteria = {00000000}
object dxDBGrid1FDate: TdxDBGridDateColumn
DisableEditor = True
HeaderAlignment = taCenter
BandIndex = 0
RowIndex = 0
FieldName = 'FDate'
end
object dxDBGrid1FBillNo: TdxDBGridMaskColumn
DisableEditor = True
HeaderAlignment = taCenter
Width = 80
BandIndex = 0
RowIndex = 0
FieldName = 'FBillNo'
end
object dxDBGrid1FType: TdxDBGridMaskColumn
DisableEditor = True
HeaderAlignment = taCenter
Width = 80
BandIndex = 0
RowIndex = 0
FieldName = 'FType'
end
object dxDBGrid1FRemark: TdxDBGridMaskColumn
DisableEditor = True
HeaderAlignment = taCenter
Width = 240
BandIndex = 0
RowIndex = 0
FieldName = 'FRemark'
end
object dxDBGrid1FInAmt: TdxDBGridMaskColumn
DisableEditor = True
HeaderAlignment = taCenter
Width = 80
BandIndex = 0
RowIndex = 0
FieldName = 'FInAmt'
end
object dxDBGrid1FOutAmt: TdxDBGridMaskColumn
DisableEditor = True
HeaderAlignment = taCenter
Width = 80
BandIndex = 0
RowIndex = 0
FieldName = 'FOutAmt'
end
object dxDBGrid1FBalance: TdxDBGridMaskColumn
DisableEditor = True
HeaderAlignment = taCenter
Width = 80
BandIndex = 0
RowIndex = 0
FieldName = 'FBalance'
end
end
end
inherited pmPrint: TPopupMenu
Left = 440
Top = 8
end
inherited ActionList1: TActionList
Left = 536
Top = 8
end
inherited ADODataSet1: TADODataSet
CursorType = ctStatic
LockType = ltBatchOptimistic
FieldDefs = <
item
Name = 'FCurrName'
DataType = ftString
Size = 50
end
item
Name = 'FDate'
Attributes = [faFixed]
DataType = ftDateTime
end
item
Name = 'FBillNo'
DataType = ftString
Size = 30
end
item
Name = 'FType'
Attributes = [faFixed]
DataType = ftInteger
end
item
Name = 'FRemark'
DataType = ftString
Size = 60
end
item
Name = 'FInAmt'
Attributes = [faFixed]
DataType = ftFloat
end
item
Name = 'FOutAmt'
Attributes = [faFixed]
DataType = ftFloat
end
item
Name = 'FBalance'
Attributes = [faFixed]
DataType = ftFloat
end>
StoreDefs = True
object ADODataSet1FCurrName: TStringField
DisplayLabel = #24065#21035#21517#31216
FieldName = 'FCurrName'
Size = 50
end
object ADODataSet1FDate: TDateTimeField
DisplayLabel = #21457#29983#26085#26399
FieldName = 'FDate'
end
object ADODataSet1FBillNo: TStringField
DisplayLabel = #21333#25454#32534#21495
FieldName = 'FBillNo'
Size = 30
end
object ADODataSet1FType: TIntegerField
DisplayLabel = #21333#25454#31867#22411
FieldName = 'FType'
OnGetText = ADODataSet1FTypeGetText
end
object ADODataSet1FRemark: TStringField
DisplayLabel = #25688#35201#35828#26126
FieldName = 'FRemark'
Size = 60
end
object ADODataSet1FInAmt: TFloatField
DisplayLabel = #24212#25910#37329#39069
FieldName = 'FInAmt'
end
object ADODataSet1FOutAmt: TFloatField
DisplayLabel = #24050#25910#37329#39069
FieldName = 'FOutAmt'
end
object ADODataSet1FBalance: TFloatField
DisplayLabel = #26410#25910#20313#39069
FieldName = 'FBalance'
end
end
object qryGld100: TADOQuery
Connection = SYSDM.ADOC
CursorType = ctStatic
Parameters =
SQL.Strings = (
'select * from GLD100 order by G100_002')
Left = 280
Top = 72
end
object qryOrd150: TADOQuery
Connection = SYSDM.ADOC
CursorType = ctStatic
Parameters =
SQL.Strings = (
'select O150_001 as FNo,O150_002 as FCode,O150_003 as FName from ' +
'ORD150 order by O150_002')
Left = 376
Top = 72
object qryOrd150FNo: TAutoIncField
FieldName = 'FNo'
ReadOnly = True
Visible = False
end
object qryOrd150FCode: TWideStringField
DisplayLabel = #23545#35937#32534#21495
FieldName = 'FCode'
end
object qryOrd150FName: TWideStringField
DisplayLabel = #23545#35937#21517#31216
FieldName = 'FName'
Size = 60
end
end
object qryCsh610: TADOQuery
Connection = SYSDM.ADOC
Parameters =
Left = 120
Top = 152
end
end
