一个用Delphi开发的ERP软件
源代码在线查看： purs00_01.dfm.svn-base
inherited PurS00_01Form: TPurS00_01Form
Left = 215
Top = 98
Width = 529
Height = 371
Caption = #37319#36141#31649#29702#21442#25968
OldCreateOrder = True
PixelsPerInch = 96
TextHeight = 12
object PageControl1: TPageControl [0]
Left = 8
Top = 8
Width = 505
Height = 297
ActivePage = TabSheet1
TabIndex = 0
TabOrder = 0
object TabSheet1: TTabSheet
Caption = #21442#25968#35774#32622
object gbPrice: TGroupBox
Left = 8
Top = 8
Width = 481
Height = 105
Caption = #20215#26684#21442#25968
TabOrder = 0
object cbPrice: TCheckBox
Left = 16
Top = 24
Width = 313
Height = 17
Caption = #20801#35768#25163#24037#20462#25913#37319#36141#23450#21333#20013#30340#20135#21697#30340#20215#26684
TabOrder = 0
end
object cbDiscount: TCheckBox
Left = 16
Top = 48
Width = 313
Height = 17
Caption = #20801#35768#25163#24037#20462#25913#37319#36141#23450#21333#20013#30340#20135#21697#25240#25187#37329#39069
TabOrder = 1
end
object cbPlace: TCheckBox
Left = 16
Top = 72
Width = 313
Height = 17
Caption = #20801#35768#21516#19968#24352#37319#36141#23450#21333#20013#36873#25321#22810#20010#20132#36135#22320#22336
TabOrder = 2
end
end
object GroupBox1: TGroupBox
Left = 8
Top = 120
Width = 481
Height = 89
Caption = #20132#36135#22320#22336
TabOrder = 1
object Label1: TLabel
Left = 16
Top = 32
Width = 48
Height = 12
Caption = #32570#30465#23458#25143
end
object sbCust: TSpeedButton
Left = 192
Top = 24
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 lblAddress: TLabel
Left = 16
Top = 56
Width = 48
Height = 12
Alignment = taRightJustify
Caption = #20132#36135#22320#22336
end
object edtCust: TEdit
Left = 72
Top = 24
Width = 121
Height = 20
TabOrder = 0
OnExit = edtCustExit
end
object edtCustName: TEdit
Left = 224
Top = 24
Width = 241
Height = 20
Color = clBtnFace
Enabled = False
ReadOnly = True
TabOrder = 1
end
object edtAddress: TEdit
Left = 72
Top = 48
Width = 393
Height = 20
Color = clBtnFace
Enabled = False
ImeName = ''
ReadOnly = True
TabOrder = 2
end
end
end
end
object bbtnOk: TBitBtn [1]
Left = 344
Top = 312
Width = 75
Height = 25
Caption = #30830#23450'(&O)'
TabOrder = 1
OnClick = bbtnOkClick
end
object bbtnExit: TBitBtn [2]
Left = 432
Top = 312
Width = 75
Height = 25
Caption = #36864#20986'(&X)'
TabOrder = 2
OnClick = bbtnExitClick
end
inherited pmUISet: TPopupMenu
Left = 56
Top = 312
end
object qryOrd150: TADOQuery
Connection = SYSDM.ADOC
CursorType = ctStatic
Parameters =
SQL.Strings = (
'select A.O150_001,A.O150_002,A.O150_003,A.O150_004,A.O150_005,A.' +
'O150_006,A.O150_012,A.O150_011,'
' B.O151_002,B.O151_003,B.O151_004,'
' C.O120_002'
'from (ORD150 A left join (select * from ORD151 where O151_0110' +
') B on A.O150_001=B.O151_001) left join ORD120 C on A.O150_011=C' +
'.O120_001'
'order by A.O150_001')
Left = 144
Top = 168
object qryOrd150O150_001: TAutoIncField
FieldName = 'O150_001'
ReadOnly = True
Visible = False
end
object qryOrd150O150_002: TWideStringField
DisplayLabel = #23458#25143#32534#21495
FieldName = 'O150_002'
end
object qryOrd150O150_003: TWideStringField
DisplayLabel = #23458#25143#21517#31216
FieldName = 'O150_003'
Size = 60
end
object qryOrd150O150_004: TWideStringField
DisplayLabel = #23458#25143#31616#31216
FieldName = 'O150_004'
end
object qryOrd150O150_005: TWideStringField
DisplayLabel = #30005#35805#21495#30721
FieldName = 'O150_005'
Size = 50
end
object qryOrd150O150_006: TWideStringField
DisplayLabel = #20256#30495#21495#30721
FieldName = 'O150_006'
Size = 50
end
object qryOrd150O150_012: TWideStringField
DisplayLabel = #23458#25143#22320#22336
FieldName = 'O150_012'
Size = 100
end
object qryOrd150O151_002: TWideStringField
DisplayLabel = #32852#31995#20154#21592
FieldName = 'O151_002'
end
object qryOrd150O151_003: TWideStringField
DisplayLabel = #37096#38376#21517#31216
FieldName = 'O151_003'
Size = 50
end
object qryOrd150O151_004: TWideStringField
DisplayLabel = #32844#21153#21517#31216
FieldName = 'O151_004'
Size = 50
end
object qryOrd150O120_002: TWideStringField
FieldName = 'O120_002'
Size = 50
end
object qryOrd150O150_011: TIntegerField
FieldName = 'O150_011'
Visible = False
end
end
end
