📄 ord130_02.dfm.svn-base
字号:
inherited Ord130_02Form: TOrd130_02Form
Caption = #38144#21806#20215#26684#32500#25252
ClientHeight = 168
ClientWidth = 537
PixelsPerInch = 96
TextHeight = 12
inherited Bevel1: TBevel
Width = 521
Height = 121
end
object lblItem: TLabel [1]
Tag = 1
Left = 24
Top = 32
Width = 48
Height = 12
Caption = #20135#21697#32534#21495
end
object lblSpec: TLabel [2]
Left = 24
Top = 64
Width = 48
Height = 12
Caption = #35268#26684#22411#21495
end
object lblCurr: TLabel [3]
Tag = 1
Left = 208
Top = 96
Width = 48
Height = 12
Caption = #24065#21035#21517#31216
end
object lblDate: TLabel [4]
Tag = 1
Left = 24
Top = 96
Width = 48
Height = 12
Caption = #29983#25928#26085#26399
end
object lblPrice: TLabel [5]
Tag = 1
Left = 336
Top = 96
Width = 48
Height = 12
Caption = #38144#21806#20215#26684
end
object sbItem: TSpeedButton [6]
Left = 202
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 = sbItemClick
end
object lblUnit: TLabel [7]
Left = 400
Top = 64
Width = 48
Height = 12
Caption = #35745#37327#21333#20301
end
inherited bbtnOk: TBitBtn
Left = 352
Top = 136
end
inherited bbtnExit: TBitBtn
Left = 440
Top = 136
end
object edtItem: TEdit [10]
Left = 80
Top = 24
Width = 121
Height = 20
TabOrder = 2
OnExit = edtItemExit
end
object edtItemName: TEdit [11]
Left = 232
Top = 24
Width = 281
Height = 20
Color = clBtnFace
Enabled = False
TabOrder = 3
end
object edtSpec: TEdit [12]
Left = 80
Top = 56
Width = 313
Height = 20
Color = clBtnFace
Enabled = False
TabOrder = 4
end
object cbCurr: TComboBox [13]
Left = 264
Top = 88
Width = 65
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 5
end
object edtDate: TwwDBDateTimePicker [14]
Left = 80
Top = 88
Width = 121
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 = 6
end
object edtPrice: TEdit [15]
Left = 392
Top = 88
Width = 121
Height = 20
TabOrder = 7
OnKeyPress = edtPriceKeyPress
end
object edtUnit: TEdit [16]
Left = 456
Top = 56
Width = 57
Height = 20
Color = clBtnFace
Enabled = False
TabOrder = 8
end
inherited pmUISet: TPopupMenu
Top = 136
end
inherited ADOQuery1: TADOQuery
CursorType = ctStatic
SQL.Strings = (
'select * from ORD130 order by O130_001,O130_002,O130_003')
Top = 136
object ADOQuery1I150_002: TStringField
DisplayLabel = #20135#21697#32534#21495
FieldKind = fkLookup
FieldName = 'I150_002'
LookupDataSet = qryInv150
LookupKeyFields = 'I150_001'
LookupResultField = 'I150_002'
KeyFields = 'O130_001'
Size = 30
Lookup = True
end
object ADOQuery1I150_003: TStringField
DisplayLabel = #20135#21697#21517#31216
FieldKind = fkLookup
FieldName = 'I150_003'
LookupDataSet = qryInv150
LookupKeyFields = 'I150_001'
LookupResultField = 'I150_003'
KeyFields = 'O130_001'
Size = 60
Lookup = True
end
object ADOQuery1I150_004: TStringField
DisplayLabel = #35268#26684#22411#21495
FieldKind = fkLookup
FieldName = 'I150_004'
LookupDataSet = qryInv150
LookupKeyFields = 'I150_001'
LookupResultField = 'I150_004'
KeyFields = 'O130_001'
Size = 60
Lookup = True
end
object ADOQuery1I140_002: TStringField
DisplayLabel = #21333#20301#32534#21495
FieldKind = fkLookup
FieldName = 'I140_002'
LookupDataSet = qryInv150
LookupKeyFields = 'I150_001'
LookupResultField = 'I140_002'
KeyFields = 'O130_001'
Lookup = True
end
object ADOQuery1I140_003: TStringField
DisplayLabel = #21333#20301#21517#31216
FieldKind = fkLookup
FieldName = 'I140_003'
LookupDataSet = qryInv150
LookupKeyFields = 'I150_001'
LookupResultField = 'I140_003'
KeyFields = 'O130_001'
Lookup = True
end
object ADOQuery1G100_002: TStringField
DisplayLabel = #24065#21035
FieldKind = fkLookup
FieldName = 'G100_002'
LookupDataSet = qryGld100
LookupKeyFields = 'G100_001'
LookupResultField = 'G100_002'
KeyFields = 'O130_002'
Size = 10
Lookup = True
end
object ADOQuery1O130_003: TDateTimeField
DisplayLabel = #29983#25928#26085#26399
FieldName = 'O130_003'
DisplayFormat = 'yyyy-mm-dd'
end
object ADOQuery1O130_004: TBCDField
DisplayLabel = #38144#21806#20215#26684
FieldName = 'O130_004'
DisplayFormat = ',0.00'
Precision = 19
end
object ADOQuery1O130_001: TIntegerField
FieldName = 'O130_001'
Visible = False
end
object ADOQuery1O130_002: TIntegerField
FieldName = 'O130_002'
Visible = False
end
end
object qryInv150: TADOQuery
Connection = SYSDM.ADOC
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select I150_001,I150_002,I150_003,I150_004,I140_001,I140_002,I14' +
'0_003'
'from INV150,INV140'
'where I150_011=I140_001'
'order by I150_002')
Left = 168
Top = 24
object qryInv150I150_002: TWideStringField
DisplayLabel = #20135#21697#32534#21495
FieldName = 'I150_002'
Size = 30
end
object qryInv150I150_003: TWideStringField
DisplayLabel = #20135#21697#21517#31216
FieldName = 'I150_003'
Size = 60
end
object qryInv150I150_004: TWideStringField
DisplayLabel = #35268#26684#22411#21495
FieldName = 'I150_004'
Size = 60
end
object qryInv150I140_002: TWideStringField
DisplayLabel = #21333#20301#32534#21495
FieldName = 'I140_002'
end
object qryInv150I140_003: TWideStringField
DisplayLabel = #21333#20301#21517#31216
FieldName = 'I140_003'
Size = 50
end
object qryInv150I150_001: TAutoIncField
FieldName = 'I150_001'
ReadOnly = True
Visible = False
end
object qryInv150I140_001: TAutoIncField
FieldName = 'I140_001'
ReadOnly = True
Visible = False
end
end
object qryGld100: TADOQuery
Connection = SYSDM.ADOC
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from GLD100 order by G100_002')
Left = 280
Top = 56
object qryGld100G100_001: TAutoIncField
FieldName = 'G100_001'
ReadOnly = True
end
object qryGld100G100_002: TWideStringField
FieldName = 'G100_002'
Size = 10
end
object qryGld100G100_003: TWideStringField
FieldName = 'G100_003'
Size = 30
end
object qryGld100G100_004: TBooleanField
FieldName = 'G100_004'
end
object qryGld100G100_005: TFloatField
FieldName = 'G100_005'
end
object qryGld100G100_006: TWideStringField
FieldName = 'G100_006'
Size = 10
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -