📄 sequence_price.dfm
字号:
ParentFont = False
TabOrder = 1
OnClick = EdtBtnClick
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000000000000000000008000
0000008000008080000000008000800080000080800080808000C0C0C000FF00
000000FF0000FFFF00000000FF00FF00FF0000FFFF00FFFFFF00DD0000000000
000DDD0FFFFEFEFEF80DDD0FF88888886F0DDD0F777776767E0DDD0FFFFFFFFF
FF0DDD0FF88888868E0DDD0F777777777F0DDD0FFFFFFFFFFE0DDD0FF8888888
8F0DDD0F777777777F0DDD0FFFFFFFFF880DDD0FFF8888F8000DDD0FF77777F0
F80DDD0FFFFFFFF080DDDD0FFFFFFFF00DDDDD0000000000DDDD}
end
object DelBtn: TBitBtn
Left = 203
Top = 5
Width = 75
Height = 28
Hint = #21024#38500'|'#21024#38500
Caption = #21024#38500'&D'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = DelBtnClick
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333000033338833333333333333333F333333333333
0000333911833333983333333388F333333F3333000033391118333911833333
38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
911118111118333338F3338F833338F3000033333911111111833333338F3338
3333F8330000333333911111183333333338F333333F83330000333333311111
8333333333338F3333383333000033333339111183333333333338F333833333
00003333339111118333333333333833338F3333000033333911181118333333
33338333338F333300003333911183911183333333383338F338F33300003333
9118333911183333338F33838F338F33000033333913333391113333338FF833
38F338F300003333333333333919333333388333338FFF830000333333333333
3333333333333333333888330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object SaveBtn: TBitBtn
Left = 308
Top = 5
Width = 75
Height = 28
Caption = #20445#23384'&S'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = SaveBtnClick
Glyph.Data = {
8E060000424D8E06000000000000360400002800000018000000190000000100
08000000000058020000120B0000120B00000001000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
A600CCFFFF0099FFFF0066FFFF0033FFFF00FFCCFF00CCCCFF0099CCFF0066CC
FF0033CCFF0000CCFF00FF99FF00CC99FF009999FF006699FF003399FF000099
FF00FF66FF00CC66FF009966FF006666FF003366FF000066FF00FF33FF00CC33
FF009933FF006633FF003333FF000033FF00CC00FF009900FF006600FF003300
FF00FFFFCC00CCFFCC0099FFCC0066FFCC0066FFCC0033FFCC0000FFCC00FFCC
CC00CCCCCC0099CCCC0066CCCC0033CCCC0000CCCC00FF99CC00CC99CC009999
CC006699CC003399CC000099CC00FF66CC00CC66CC009966CC006666CC003366
CC000066CC00FF33CC00CC33CC009933CC006633CC003333CC000033CC00FF00
CC00CC00CC009900CC006600CC003300CC000000CC00FFFF9900CCFF990099FF
990066FF990033FF990000FF9900FFCC9900CCCC990099CC990066CC990033CC
990000CC9900FF999900CC99990099999900669999003399990000999900FF66
9900CC66990099669900666699003366990000669900FF339900CC3399009933
9900663399003333990000339900FF009900CC00990099009900660099003300
990000009900FFFF6600CCFF660099FF660066FF660033FF660000FF6600FFCC
6600CCCC660099CC660066CC660033CC660000CC6600FF996600CC9966009999
6600669966003399660000996600FF666600CC66660099666600666666003366
660000666600FF336600CC33660099336600663366003333660000336600FF00
6600CC00660099006600660066003300660000006600FFFF3300CCFF330099FF
330066FF330033FF330000FF3300FFCC3300CCCC330099CC330066CC330033CC
330000CC3300FF993300CC99330099993300669933003399330000993300FF66
3300CC66330099663300666633003366330000663300FF333300CC3333009933
3300663333003333330000333300FF003300CC00330099003300660033003300
330000003300CCFF000099FF000066FF000033FF0000FFCC0000CCCC000099CC
000066CC000033CC000000CC0000FF990000CC99000099990000669900003399
000000990000FF660000CC66000099660000666600000066000033660000FF33
0000CC33000099330000663300003333000000330000CC000000990000006600
0000330000000000DD000000BB000000AA000000880000007700000055000000
44000000220000DD000000BB000000AA00000088000000770000005500000044
000000220000DDDDDD0055555500777777007777770044444400222222001111
110077000000550000004400000022000000F0FBFF00A4A0A000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FDFDFDFDFDFD
FDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFD
FDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFD000000EFFDFDFDFDFDFD
FDFDFDFDFDFDFDFDFDFDFDFD00000B133C00EFEFFDFDFDFDFDFDFDFDFDFDFDFD
FDFD0000EC000B133C00EFEFEFEFFDFDFDFDFDFDFDFDFDFD0000EDEDEC000B13
3C00EFEFEFEFEFEFFDFDFDFDFDFD0000EDEFEDEDEC000B133C00EFEFEFEFEFEF
FDFDFDFD0000F7ED00EFEDEDEC000B133C00EFEFEFEFFDFDFDFDFD001300F7ED
00EFEDEDEC000B133C00EFEFFDFDFDFDFDFDFD001300F7EDEDEFF7F700001313
3C00FDFDFDFDFDFDFDFDFD001300F7EDF7F70000131313133C00FDFDFDFDFDFD
FDFDFD001300F7F700001313131313133C00FDFDFDFDFDFDFDFDFD0013000000
131313130B0B13133C00FDFDFDFDFDFDFDFDFD001313131313130B0B07070B13
3C00FDFDFDFDFDFDFDFDFD00131313130B0B0707EB070B133C00FDFDFDFDFDFD
FDFDFD0013130B0B0707EBEBEB070B133C00FDFDFDFDFDFDFDFDFD0013130707
EBEBEBEBEB070B133C00FDFDFDFDFDFDFDFDFD001313FFEBEBEBEBEBEBF7F70B
00FDFDFDFDFDFDFDFDFDFD001313FFEBEBEBEBF7F7F70000FDFDFDFDFDFDFDFD
FDFDFD001313FFEBEBF7F7F70000FDFDFDFDFDFDFDFDFDFDFDFDFD001313FFF7
F7F70000FDFDFDFDFDFDFDFDFDFDFDFDFDFDFD001313F7F70000FDFDFDFDFDFD
FDFDFDFDFDFDFDFDFDFDFD000B0B0000FDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFD
FDFDFDFD0000FDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFD
FDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFD}
end
object CancelBtn: TBitBtn
Left = 398
Top = 5
Width = 75
Height = 28
Caption = #21462#28040'&C'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = CancelBtnClick
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000000000000000000008000
0000008000008080000000008000800080000080800080808000C0C0C000FF00
000000FF0000FFFF00000000FF00FF00FF0000FFFF00FFFFFF00DDDDDDD0000D
DDDDDDDDD00199900DDD0DDD0199111910DD00D019100001910D01019100DDD0
190D0111910DDDDD0910011910DDDDDD0190019B90DDDDDD019009B9990DDDDD
01900BBBBB90DDDD0910000000000DD0190DDDDDDDDDDD01910DDDDDDDDD0019
10DDDDDDD00019910DDDDDDDD0999100DDDDDDDDDD0000DDDDDD}
end
object ExtBtn: TBitBtn
Left = 593
Top = 5
Width = 75
Height = 28
Cancel = True
Caption = #36864#20986'&X'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ModalResult = 2
ParentFont = False
TabOrder = 5
Glyph.Data = {
EE000000424DEE000000000000007600000028000000100000000F0000000100
0400000000007800000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
888888880888888888888880080088888888880E088808888888000E00000000
888880EE07770888888880EE07770888888880EE07770888088880EE07770880
088880EE07770800000880EE07770880088880EE077708880888800077770888
888880077777088888888000000008888888}
end
object PrtBtn: TBitBtn
Left = 503
Top = 5
Width = 75
Height = 28
Cursor = crHandPoint
Hint = #20462#25913'|'#20462#25913
Caption = #25171#21360'&P'
Enabled = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 6
OnClick = PrtBtnClick
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000000000000000000000000000000000000FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000FF00FF00FF00FF00FF00FF00FF00FF000000
0000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF0000000000FF00FF0000000000FF00FF00FF00FF00000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000FF00FF0000000000FF00FF0000000000FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0000FFFF0000FFFFFF00FF
FFFFFF00FF00FF00FF00000000000000000000000000FF00FF0000000000FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000000000000000
0000FF00FF00FF00FF0000000000FF00FF0000000000FF00FF00000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000FF00FF00FF00FF000000000000000000FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF0000000000FF00FF0000000000FF00FF0000000000FF00FF000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000FF00FF0000000000FF00FF000000000000000000FF00FF00FF00
FF0000000000FFFFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFF000000FFFF00FF0000000000FF00FF0000000000FF00FF00FF00
FF00FF00FF0000000000FFFFFF00000000FF0000000000000000000000000000
0000FFFFFF00000000FF000000000000000000000000FF00FF00FF00FF00FF00
FF00FF00FF0000000000FFFFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFF000000FFFF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF0000000000FFFFFF00000000FF00000000000000000000
000000000000FFFFFF00000000FFFF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF0000000000FFFFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00000000000000000000000000000000000000
000000000000000000000000000000000000FF00FF00FF00FF00}
end
end
object ADOQ_order_msg: TADOQuery
Connection = DataMod.ADOCon
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select ord_id,cust_name,clo_name,costume_name,num,unit_price,mon' +
'ey '
'from order_msg,customer, clothing '
'where order_msg.clo_id=clothing.clo_id and customer.cust_id=orde' +
'r_msg.cust_id'
''
'order by ord_id')
Left = 285
Top = 328
object ADOQ_order_msgcust_name: TStringField
FieldName = 'cust_name'
Size = 50
end
object ADOQ_order_msgclo_name: TStringField
FieldName = 'clo_name'
end
object ADOQ_order_msgcostume_name: TStringField
FieldName = 'costume_name'
Size = 12
end
object ADOQ_order_msgnum: TIntegerField
FieldName = 'num'
end
object ADOQ_order_msgunit_price: TBCDField
FieldName = 'unit_price'
Precision = 18
Size = 2
end
object ADOQ_order_msgmoney: TBCDField
FieldName = 'money'
Precision = 18
Size = 2
end
object ADOQ_order_msgord_id: TStringField
FieldName = 'ord_id'
Size = 10
end
end
object DS_price: TDataSource
DataSet = ADOT_price
OnStateChange = DS_priceStateChange
Left = 332
Top = 368
end
object ADOT_price: TADOTable
Connection = DataMod.ADOCon
CursorType = ctStatic
AfterInsert = ADOT_priceAfterInsert
AfterEdit = ADOT_priceAfterEdit
TableName = 'sequence_price'
Left = 284
Top = 368
object ADOT_pricetemp_key: TStringField
FieldName = 'temp_key'
Size = 14
end
object ADOT_priceord_id: TStringField
DisplayLabel = #35746#21333#25209#21495
FieldName = 'ord_id'
Size = 10
end
object StringField3: TStringField
DisplayLabel = #23458#25143#21517#31216
FieldKind = fkLookup
FieldName = 'cust_name'
LookupDataSet = ADOQ_order_msg
LookupKeyFields = 'ord_id'
LookupResultField = 'cust_name'
KeyFields = 'ord_id'
Lookup = True
end
object StringField4: TStringField
DisplayLabel = #26381#35013#21517#31216
FieldKind = fkLookup
FieldName = 'costume_name'
LookupDataSet = ADOQ_order_msg
LookupKeyFields = 'ord_id'
LookupResultField = 'costume_name'
KeyFields = 'ord_id'
Lookup = True
end
object ADOT_priceseq_id: TStringField
FieldName = 'seq_id'
Size = 11
end
object StringField6: TStringField
DisplayLabel = #24037#24207#21517#31216
FieldName = 'seq_name'
Size = 10
end
object FloatField1: TFloatField
DisplayLabel = #21152#24037#24037#20215
FieldName = 'seq_price'
DisplayFormat = #65509',0.00'
EditFormat = '0.00'
end
end
object adoq_temp: TADOQuery
Connection = DataMod.ADOCon
Parameters = <>
Left = 84
Top = 328
end
object RvProject1: TRvProject
Engine = RvSystem1
Left = 624
Top = 216
end
object RvSystem1: TRvSystem
TitleSetup = #30830#23450#25253#34920#36755#20986#26041#24335
TitleStatus = #27491#22312#29983#25104#25253#34920
TitlePreview = #25968#25454#39044#35272
SystemSetups = [ssAllowDestPrinter]
SystemFiler.StatusFormat = #27491#22312#29983#25104#31532'%p'#39029','#35831#31245#20505'.....'
SystemPreview.FormState = wsMaximized
SystemPreview.ZoomFactor = 100.000000000000000000
SystemPrinter.ScaleX = 100.000000000000000000
SystemPrinter.ScaleY = 100.000000000000000000
SystemPrinter.StatusFormat = #27491#22312#25171#21360#31532'%p'#39029
SystemPrinter.Title = 'ReportPrinter Report'
SystemPrinter.UnitsFactor = 1.000000000000000000
Left = 624
Top = 256
end
object Rv_Sequence_price: TRvDataSetConnection
RuntimeVisibility = rtDeveloper
DataSet = ADOT_price
Left = 624
Top = 288
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -