📄 acr510_02.dfm.svn-base
字号:
Left = 520
Top = 48
Width = 48
Height = 12
Alignment = taRightJustify
Caption = #20256#30495#21495#30721
end
object sbCust: TSpeedButton
Left = 202
Top = 16
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 edtAddress: TEdit
Left = 80
Top = 40
Width = 433
Height = 20
Color = clBtnFace
Enabled = False
ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
ReadOnly = True
TabOrder = 1
end
object edtPhone: TEdit
Left = 576
Top = 16
Width = 153
Height = 20
Color = clBtnFace
Enabled = False
ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
ReadOnly = True
TabOrder = 0
end
object edtContact: TEdit
Left = 576
Top = 40
Width = 153
Height = 20
Color = clBtnFace
Enabled = False
ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
ReadOnly = True
TabOrder = 2
end
object edtCust: TEdit
Left = 80
Top = 16
Width = 121
Height = 20
ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
TabOrder = 3
OnExit = edtCustExit
end
object edtCustName: TEdit
Left = 232
Top = 16
Width = 281
Height = 20
Color = clBtnFace
Enabled = False
ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
ReadOnly = True
TabOrder = 4
end
end
inherited ActionList1: TActionList
inherited Action1: TAction
Caption = #20316#24223
ImageIndex = 14
OnExecute = Action1Execute
end
end
inherited ADOQuery1: TADOQuery
SQL.Strings = (
' select A.*,'
' B.H150_002,B.H150_003,B.H150_004,'
' C.G100_002,C.G100_003,'
' D.O150_002,D.O150_003'
' from ACR510A A,Hrm150 B,GLD100 C,ORD150 D'
' where A.A510A_005=B.H150_001 and A.A510A_007=C.G100_001 and A.' +
'A510A_012=D.O150_001'
' order by A.A510A_001')
object ADOQuery1A510A_001: TWideStringField
DisplayLabel = #21457#31080#32534#21495
FieldName = 'A510A_001'
Size = 30
end
object ADOQuery1A510A_002: TSmallintField
DisplayLabel = #21457#31080#31867#22411
FieldName = 'A510A_002'
Visible = False
end
object ADOQuery1A510A_003: TSmallintField
DisplayLabel = #21457#31080#29366#24577
FieldName = 'A510A_003'
Visible = False
end
object ADOQuery1A510A_004: TDateTimeField
DisplayLabel = #21457#31080#26085#26399
FieldName = 'A510A_004'
end
object ADOQuery1A510A_005: TIntegerField
DisplayLabel = #24320#31080#20154#21592
FieldName = 'A510A_005'
Visible = False
end
object ADOQuery1A510A_006: TWideStringField
DisplayLabel = #21407#22987#21333#21495
FieldName = 'A510A_006'
end
object ADOQuery1A510A_007: TIntegerField
DisplayLabel = #24065#21035#32534#21495
FieldName = 'A510A_007'
Visible = False
end
object ADOQuery1A510A_008: TFloatField
DisplayLabel = #24065#21035#27719#29575
FieldName = 'A510A_008'
end
object ADOQuery1A510A_009: TFloatField
DisplayLabel = #21457#31080#37329#39069
FieldName = 'A510A_009'
end
object ADOQuery1A510A_010: TFloatField
DisplayLabel = #21457#31080#31246#39069
FieldName = 'A510A_010'
end
object ADOQuery1A510A_011: TFloatField
DisplayLabel = #24212#25910#37329#39069
FieldName = 'A510A_011'
end
object ADOQuery1A510A_012: TIntegerField
DisplayLabel = #23458#25143#32534#21495
FieldName = 'A510A_012'
Visible = False
end
object ADOQuery1A510A_013: TMemoField
DisplayLabel = #22791#27880#35828#26126
FieldName = 'A510A_013'
Visible = False
BlobType = ftMemo
end
object ADOQuery1A510A_014: TDateTimeField
FieldName = 'A510A_014'
Visible = False
end
object ADOQuery1A510A_015: TWideStringField
FieldName = 'A510A_015'
Visible = False
end
object ADOQuery1A510A_016: TDateTimeField
FieldName = 'A510A_016'
Visible = False
end
object ADOQuery1A510A_017: TWideStringField
FieldName = 'A510A_017'
Visible = False
end
object ADOQuery1H150_002: TWideStringField
DisplayLabel = #21592#24037#32534#21495
FieldName = 'H150_002'
end
object ADOQuery1H150_003: TWideStringField
DisplayLabel = #21592#24037#22995#21517
FieldName = 'H150_003'
end
object ADOQuery1H150_004: TWideStringField
DisplayLabel = #33521#25991#22995#21517
FieldName = 'H150_004'
end
object ADOQuery1G100_002: TWideStringField
DisplayLabel = #24065#21035#32534#21495
FieldName = 'G100_002'
Size = 10
end
object ADOQuery1G100_003: TWideStringField
DisplayLabel = #24065#21035#21517#31216
FieldName = 'G100_003'
Size = 30
end
object ADOQuery1O150_002: TWideStringField
DisplayLabel = #23458#25143#32534#21495
FieldName = 'O150_002'
end
object ADOQuery1O150_003: TWideStringField
DisplayLabel = #23458#25143#21517#31216
FieldName = 'O150_003'
Size = 60
end
end
object adsAcr510B: TADODataSet
Connection = SYSDM.ADOC
CursorType = ctStatic
LockType = ltBatchOptimistic
OnNewRecord = adsAcr510BNewRecord
FieldDefs = <
item
Name = 'FNo'
Attributes = [faFixed]
DataType = ftInteger
end
item
Name = 'FItemNo'
Attributes = [faFixed]
DataType = ftInteger
end
item
Name = 'FItemID'
DataType = ftString
Size = 30
end
item
Name = 'FItemName'
DataType = ftString
Size = 60
end
item
Name = 'FItemSpec'
DataType = ftString
Size = 60
end
item
Name = 'FUnitName'
DataType = ftString
Size = 50
end
item
Name = 'FOrderQty'
Attributes = [faFixed]
DataType = ftFloat
end
item
Name = 'FOrderPrice'
Attributes = [faFixed]
DataType = ftFloat
end
item
Name = 'FOrderAmount'
Attributes = [faFixed]
DataType = ftFloat
end
item
Name = 'FDisAmt'
Attributes = [faFixed]
DataType = ftFloat
end
item
Name = 'FQty'
Attributes = [faFixed]
DataType = ftFloat
end
item
Name = 'FPrice'
Attributes = [faFixed]
DataType = ftFloat
end
item
Name = 'FAmount'
Attributes = [faFixed]
DataType = ftFloat
end
item
Name = 'FTaxRate'
Attributes = [faFixed]
DataType = ftFloat
end
item
Name = 'FTaxAmt'
Attributes = [faFixed]
DataType = ftFloat
end
item
Name = 'FAcrAmt'
Attributes = [faFixed]
DataType = ftFloat
end
item
Name = 'FInvAmount'
Attributes = [faFixed]
DataType = ftFloat
end
item
Name = 'FRemark'
DataType = ftString
Size = 60
end
item
Name = 'FOrder'
DataType = ftString
Size = 30
end
item
Name = 'FLineNo'
Attributes = [faFixed]
DataType = ftInteger
end
item
Name = 'FCOrderNo'
DataType = ftString
Size = 20
end>
Parameters = <>
StoreDefs = True
Left = 48
Top = 368
object adsAcr510BFItemID: TStringField
DisplayLabel = #20135#21697#32534#21495
DisplayWidth = 22
FieldName = 'FItemID'
Size = 30
end
object adsAcr510BFItemName: TStringField
DisplayLabel = #20135#21697#21517#31216
DisplayWidth = 40
FieldName = 'FItemName'
Size = 60
end
object adsAcr510BFItemSpec: TStringField
DisplayLabel = #35268#26684#22411#21495
DisplayWidth = 40
FieldName = 'FItemSpec'
Size = 60
end
object adsAcr510BFUnitName: TStringField
DisplayLabel = #21333#20301#21517#31216
DisplayWidth = 20
FieldName = 'FUnitName'
Size = 50
end
object adsAcr510BFOrderQty: TFloatField
DisplayLabel = #38144#21806#25968#37327
DisplayWidth = 15
FieldName = 'FOrderQty'
end
object adsAcr510BFOrderPrice: TFloatField
DisplayLabel = #38144#21806#21333#20215
DisplayWidth = 15
FieldName = 'FOrderPrice'
end
object adsAcr510BFOrderAmount: TFloatField
DisplayLabel = #38144#21806#37329#39069
DisplayWidth = 15
FieldName = 'FOrderAmount'
end
object adsAcr510BFDisAmt: TFloatField
DisplayLabel = #38144#21806#25240#25187
DisplayWidth = 10
FieldName = 'FDisAmt'
end
object adsAcr510BFQty: TFloatField
DisplayLabel = #21457#31080#25968#37327
DisplayWidth = 15
FieldName = 'FQty'
end
object adsAcr510BFPrice: TFloatField
DisplayLabel = #21457#31080#21333#20215
DisplayWidth = 15
FieldName = 'FPrice'
end
object adsAcr510BFAmount: TFloatField
DisplayLabel = #21457#31080#37329#39069
DisplayWidth = 15
FieldName = 'FAmount'
end
object adsAcr510BFTaxRate: TFloatField
DisplayLabel = #21457#31080#31246#29575
DisplayWidth = 15
FieldName = 'FTaxRate'
end
object adsAcr510BFTaxAmt: TFloatField
DisplayLabel = #21457#31080#31246#39069
DisplayWidth = 15
FieldName = 'FTaxAmt'
end
object adsAcr510BFAcrAmt: TFloatField
DisplayLabel = #24212#25910#37329#39069
DisplayWidth = 15
FieldName = 'FAcrAmt'
end
object adsAcr510BFRemark: TStringField
DisplayLabel = #22791#27880#35828#26126
DisplayWidth = 40
FieldName = 'FRemark'
Size = 60
end
object adsAcr510BFCOrderNo: TStringField
DisplayLabel = #23458#25143#35746#21333#32534#21495
DisplayWidth = 20
FieldName = 'FCOrderNo'
end
object adsAcr510BFInvAmount: TFloatField
DisplayLabel = #21457#31080#37329#39069
FieldName = 'FInvAmount'
Visible = False
end
object adsAcr510BFNo: TIntegerField
FieldName = 'FNo'
Visible = False
end
object adsAcr510BFItemNo: TIntegerField
DisplayLabel = #30005#33041#32534#21495
FieldName = 'FItemNo'
Visible = False
end
object adsAcr510BFOrder: TStringField
FieldName = 'FOrder'
Visible = False
Size = 30
end
object adsAcr510BFLineNo: TIntegerField
FieldName = 'FLineNo'
Visible = False
end
end
object dsInv500B: TDataSource
DataSet = adsAcr510B
Left = 40
Top = 352
end
object ADODataSet1: TADODataSet
Connection = SYSDM.ADOC
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -