📄 absent_bom.dfm
字号:
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = Bit_Ser2Click
end
end
object Editcloth: TEdit
Left = 432
Top = 327
Width = 200
Height = 23
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentColor = True
ParentFont = False
ReadOnly = True
TabOrder = 8
end
object DBE_mat_id: TEdit
Left = 432
Top = 149
Width = 200
Height = 24
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentColor = True
ParentFont = False
ReadOnly = True
TabOrder = 4
end
object DBE_matname: TEdit
Left = 432
Top = 192
Width = 200
Height = 23
ParentColor = True
ReadOnly = True
TabOrder = 5
end
object DBE_custname: TEdit
Left = 432
Top = 245
Width = 200
Height = 23
ParentColor = True
ReadOnly = True
TabOrder = 6
end
object DBE_costume: TEdit
Left = 432
Top = 286
Width = 200
Height = 23
ParentColor = True
ReadOnly = True
TabOrder = 7
end
object DBComBox_ordid: TComboBox
Left = 432
Top = 17
Width = 200
Height = 24
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ItemHeight = 16
ParentColor = True
ParentFont = False
TabOrder = 0
OnChange = DBComBox_ordidChange
OnKeyPress = DBComBox_ordidKeyPress
end
object DBComBox_seq_name: TComboBox
Left = 432
Top = 56
Width = 200
Height = 24
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ItemHeight = 16
ParentColor = True
ParentFont = False
TabOrder = 1
OnKeyPress = DBComBox_ordidKeyPress
end
object DBE_num: TEdit
Left = 432
Top = 96
Width = 153
Height = 27
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -19
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentColor = True
ParentFont = False
TabOrder = 2
Text = '0'
end
end
end
object Panel9: TPanel
Left = 0
Top = 392
Width = 680
Height = 39
Align = alBottom
BevelOuter = bvNone
ParentColor = True
TabOrder = 1
object SaveBtn: TBitBtn
Left = 370
Top = 7
Width = 80
Height = 29
Caption = #20445#23384'&S'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
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 = 477
Top = 7
Width = 80
Height = 29
Caption = #21462#28040'&C'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = CancelBtnClick
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000000000000000000008000
0000008000008080000000008000800080000080800080808000C0C0C000FF00
000000FF0000FFFF00000000FF00FF00FF0000FFFF00FFFFFF00DDDDDDD0000D
DDDDDDDDD00199900DDD0DDD0199111910DD00D019100001910D01019100DDD0
190D0111910DDDDD0910011910DDDDDD0190019B90DDDDDD019009B9990DDDDD
01900BBBBB90DDDD0910000000000DD0190DDDDDDDDDDD01910DDDDDDDDD0019
10DDDDDDD00019910DDDDDDDD0999100DDDDDDDDDD0000DDDDDD}
end
object BitBtn4: TBitBtn
Left = 593
Top = 7
Width = 80
Height = 29
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 = 2
Glyph.Data = {
EE000000424DEE000000000000007600000028000000100000000F0000000100
0400000000007800000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
888888880888888888888880080088888888880E088808888888000E00000000
888880EE07770888888880EE07770888888880EE07770888088880EE07770880
088880EE07770800000880EE07770880088880EE077708880888800077770888
888880077777088888888000000008888888}
end
end
end
end
object DS_absent_BOM: TDataSource
DataSet = ADOQ_absent_BOM
OnStateChange = DS_absent_BOMStateChange
OnDataChange = DS_absent_BOMDataChange
Left = 84
Top = 248
end
object ADOQ_absent_BOM: TADOQuery
Connection = DataMod.ADOCon
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select a.*, b.cust_name, c.costume_name, d.seq_name, e.mat_name' +
', e.unit,f.clo_name '
'from absent_bom a, customer b, order_msg c, sequence_price d, ma' +
'terial e,clothing f'
'where a.ord_id=c.ord_id and a.temp_key=d.temp_key and c.cust_id=' +
'b.cust_id '
'and a.mat_id=e.mat_id and c.clo_id=f.clo_id'
''
'order by a.temp_key,a.mat_id')
Left = 45
Top = 248
object ADOQ_absent_BOMlog_id: TAutoIncField
FieldName = 'log_id'
ReadOnly = True
end
object ADOQ_absent_BOMord_id: TStringField
DisplayLabel = #35746#21333#25209#21495
FieldName = 'ord_id'
Size = 10
end
object ADOQ_absent_BOMtemp_key: TStringField
FieldName = 'temp_key'
Size = 14
end
object ADOQ_absent_BOMseq_name: TStringField
DisplayLabel = #24037#24207#21517#31216
FieldName = 'seq_name'
Size = 10
end
object ADOQ_absent_BOMmat_id: TStringField
DisplayLabel = #29289#26009#32534#21495
FieldName = 'mat_id'
Size = 10
end
object ADOQ_absent_BOMmat_name: TStringField
DisplayLabel = #29289#26009#21517#31216
FieldName = 'mat_name'
end
object ADOQ_absent_BOMnum: TFloatField
DisplayLabel = #38656#27714#25968#37327
FieldName = 'num'
end
object ADOQ_absent_BOMunit: TStringField
DisplayLabel = #21333#20301
FieldName = 'unit'
Size = 4
end
object ADOQ_absent_BOMcust_name: TStringField
DisplayLabel = #23458#25143#21517#31216
FieldName = 'cust_name'
Size = 50
end
object ADOQ_absent_BOMcostume_name: TStringField
DisplayLabel = #26381#35013#21517#31216
FieldName = 'costume_name'
Size = 12
end
object ADOQ_absent_BOMclo_name: TStringField
FieldName = 'clo_name'
end
end
object adoq_temp: TADOQuery
Connection = DataMod.ADOCon
Parameters = <>
Left = 44
Top = 144
end
object DS_material: TDataSource
DataSet = ADOQ_material
OnDataChange = DS_materialDataChange
Left = 208
Top = 184
end
object ADOQ_material: TADOQuery
Connection = DataMod.ADOCon
Parameters = <>
SQL.Strings = (
'select a.mat_id,a.mat_name,a.flag,a.price,a.color,a.unit,b.matyp' +
'e_name'
'from material a, material_type b where a.matype_id=b.matype_id'
''
'order by b.matype_name, a.flag')
Left = 167
Top = 184
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -