一个用Delphi开发的ERP软件
源代码在线查看： csh600_02.dfm.svn-base
inherited Csh600_02Form: TCsh600_02Form
Left = 191
Top = 121
ActiveControl = cbInOut
Caption = #20538#26435#20538#21153#35774#32622
ClientHeight = 183
ClientWidth = 537
PixelsPerInch = 96
TextHeight = 12
inherited Bevel1: TBevel
Width = 521
Height = 137
end
object lblType: TLabel [1]
Tag = 1
Left = 184
Top = 24
Width = 48
Height = 12
Caption = #23545#35937#31867#22411
end
object lblCust: TLabel [2]
Tag = 1
Left = 24
Top = 48
Width = 48
Height = 12
Caption = #23545#35937#32534#21495
end
object lblCurr: TLabel [3]
Tag = 1
Left = 344
Top = 24
Width = 48
Height = 12
Caption = #24065#21035#32534#21495
end
object lblInOut: TLabel [4]
Tag = 1
Left = 24
Top = 24
Width = 48
Height = 12
Caption = #20538#26435#20538#21153
end
object lblDate: TLabel [5]
Tag = 1
Left = 24
Top = 72
Width = 48
Height = 12
Caption = #24314#31435#26085#26399
end
object lblAmount: TLabel [6]
Tag = 1
Left = 344
Top = 72
Width = 48
Height = 12
Caption = #26399#21021#37329#39069
end
object lblRemark: TLabel [7]
Left = 24
Top = 96
Width = 48
Height = 12
Caption = #22791#27880#35828#26126
end
object sbCust: TSpeedButton [8]
Left = 202
Top = 40
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
inherited bbtnOk: TBitBtn
Left = 352
Top = 152
end
inherited bbtnExit: TBitBtn
Left = 440
Top = 152
end
object cbType: TComboBox [11]
Left = 240
Top = 16
Width = 97
Height = 20
Style = csDropDownList
ItemHeight = 12
ItemIndex = 0
TabOrder = 2
Text = #23458#25143
OnChange = cbTypeChange
Items.Strings = (
#23458#25143
#21592#24037)
end
object cbCurr: TComboBox [12]
Left = 400
Top = 16
Width = 113
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 3
OnChange = cbCurrChange
end
object cbInOut: TComboBox [13]
Left = 80
Top = 16
Width = 97
Height = 20
Style = csDropDownList
ItemHeight = 12
ItemIndex = 0
TabOrder = 4
Text = #20538#26435
Items.Strings = (
#20538#26435
#20538#21153)
end
object edtDate: TwwDBDateTimePicker [14]
Left = 80
Top = 64
Width = 113
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
ShowButton = True
TabOrder = 5
end
object edtAmount: TEdit [15]
Left = 400
Top = 64
Width = 113
Height = 20
TabOrder = 6
OnKeyPress = edtAmountKeyPress
end
object edtCust: TEdit [16]
Left = 80
Top = 40
Width = 121
Height = 20
TabOrder = 7
OnExit = edtCustExit
end
object edtCustName: TEdit [17]
Left = 232
Top = 40
Width = 281
Height = 20
Color = clBtnFace
Enabled = False
ImeName = ''
ReadOnly = True
TabOrder = 8
end
object memRemark: TMemo [18]
Left = 80
Top = 88
Width = 433
Height = 49
ScrollBars = ssVertical
TabOrder = 9
end
inherited pmUISet: TPopupMenu
Top = 152
end
inherited ADOQuery1: TADOQuery
SQL.Strings = (
'select AA.C600_001,AA.C600_002,AA.C600_003,BB.O150_002,BB.O150_0' +
'03,BB.G100_002,BB.G100_003,AA.C600_004,AA.C600_005,AA.C600_006,A' +
'A.C600_007'
'from CSH600 AA,'
' (select A.C600_001,A.C600_002,A.C600_003,'
' B.O150_002,B.O150_003,'
' C.G100_002,C.G100_003'
' from CSH600 A,ORD150 B,GLD100 C'
' where C600_001=0 and C600_002=O150_001 and C600_003=G100_001'
' union'
' select A.C600_001,A.C600_002,A.C600_003,'
' B.H150_002,B.H150_003,'
' C.G100_002,C.G100_003'
' from CSH600 A,HRM150 B,GLD100 C'
' where C600_001=1 and C600_002=H150_001 and C600_003=G100_001'
' ) BB'
'where AA.C600_001=BB.C600_001 and AA.C600_002=BB.C600_002 and AA' +
'.C600_003=BB.C600_003'
'order by AA.C600_001,BB.O150_002,BB.G100_002')
Top = 152
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 = 152
Top = 40
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 qryGld100: TADOQuery
Connection = SYSDM.ADOC
CursorType = ctStatic
Parameters =
SQL.Strings = (
'select * from GLD100 order by G100_002')
Left = 432
Top = 16
end
object qryCsh610: TADOQuery
Connection = SYSDM.ADOC
Parameters =
Left = 168
Top = 152
end
end
