这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享
源代码在线查看： csh510_04.dfm.svn-base
inherited Csh510_04Form: TCsh510_04Form
Caption = #36716#24080#21333
PixelsPerInch = 96
TextHeight = 12
object Label2: TLabel [1]
Left = 440
Top = 160
Width = 90
Height = 29
Caption = #36716#24080#21333
Font.Charset = DEFAULT_CHARSET
Font.Color = clSilver
Font.Height = -29
Font.Name = #38582#20070
Font.Pitch = fpFixed
Font.Style = []
ParentFont = False
Transparent = True
end
object lblFromAcc: TLabel [2]
Tag = 1
Left = 16
Top = 76
Width = 48
Height = 12
Caption = #36716#20986#24080#25143
Transparent = True
end
object lblToAcc: TLabel [3]
Tag = 1
Left = 16
Top = 100
Width = 48
Height = 12
Caption = #36716#20837#24080#25143
Transparent = True
end
object lblRemark: TLabel [4]
Left = 16
Top = 124
Width = 48
Height = 12
Caption = #25688#35201#35828#26126
Transparent = True
end
object lblBillNo: TLabel [5]
Tag = 1
Left = 392
Top = 52
Width = 48
Height = 12
Caption = #21333#25454#32534#21495
Transparent = True
end
object lblDate: TLabel [6]
Tag = 1
Left = 392
Top = 76
Width = 48
Height = 12
Caption = #36716#24080#26085#26399
Transparent = True
end
object lblAmount: TLabel [7]
Tag = 1
Left = 392
Top = 100
Width = 48
Height = 12
Caption = #36716#24080#37329#39069
Transparent = True
end
inherited bbtnSave: TBitBtn
TabOrder = 6
end
inherited bbtnExit: TBitBtn
TabOrder = 7
end
object edtAmount: TdxCalcEdit [10]
Left = 448
Top = 96
Width = 88
ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
Style.BorderColor = 16744576
Style.BorderStyle = xbsSingle
TabOrder = 5
Text = '0'
ButtonStyle = bsFlat
end
object edtDate: TwwDBDateTimePicker [11]
Left = 448
Top = 72
Width = 89
Height = 20
CalendarAttributes.Font.Charset = DEFAULT_CHARSET
CalendarAttributes.Font.Color = clWindowText
CalendarAttributes.Font.Height = -11
CalendarAttributes.Font.Name = 'MS Sans Serif'
CalendarAttributes.Font.Style = []
Epoch = 1950
ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
ShowButton = True
TabOrder = 4
OnCloseUp = edtDateCloseUp
OnExit = edtDateExit
end
object cbFromAcc: TComboBox [12]
Left = 72
Top = 72
Width = 297
Height = 20
Style = csDropDownList
ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
ItemHeight = 12
TabOrder = 0
end
object cbToAcc: TComboBox [13]
Left = 72
Top = 96
Width = 297
Height = 20
Style = csDropDownList
ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
ItemHeight = 12
TabOrder = 1
end
object edtBillNo: TEdit [14]
Left = 448
Top = 48
Width = 89
Height = 20
ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
TabOrder = 3
end
object edtRemark: TEdit [15]
Left = 72
Top = 120
Width = 297
Height = 20
ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
TabOrder = 2
end
object ADOQuery5: TADOQuery
CacheSize = 1000
Connection = SYSDM.ADOC
Parameters =
Left = 472
Top = 8
end
object qryCsh500: TADOQuery
CacheSize = 1000
Connection = SYSDM.ADOC
CursorType = ctStatic
AfterScroll = qryCsh500AfterScroll
Parameters =
SQL.Strings = (
'select * from CSH510A')
Left = 64
Top = 208
end
object qryCsh550: TADOQuery
CacheSize = 1000
Connection = SYSDM.ADOC
Parameters =
Left = 216
Top = 208
end
end
