📄 chanpin.dfm
字号:
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
object QRLabel4: TQRLabel
Left = 199
Top = 68
Width = 61
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.3333333333333
526.520833333333
179.916666666667
161.395833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #21407#26009#32534#30721
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
object QRLabel5: TQRLabel
Left = 274
Top = 70
Width = 31
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.3333333333333
724.958333333333
185.208333333333
82.0208333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #21333#20301
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
object QRLabel6: TQRLabel
Left = 325
Top = 67
Width = 31
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.3333333333333
859.895833333333
177.270833333333
82.0208333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #21333#20215
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
object QRLabel7: TQRLabel
Left = 380
Top = 68
Width = 55
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.3333333333333
1005.41666666667
179.916666666667
145.520833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'POS'#32534#30721
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
object QRLabel8: TQRLabel
Left = 527
Top = 69
Width = 55
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.3333333333333
1394.35416666667
182.5625
145.520833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #21378' '#23478
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
object QRLabel9: TQRLabel
Left = 16
Top = 40
Width = 61
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.3333333333333
42.3333333333333
105.833333333333
161.395833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #21407#26009#31867#21035
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
object QRLabel2: TQRLabel
Left = 598
Top = 37
Width = 14
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
1582.20833333333
97.8958333333333
37.0416666666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #39029
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRSysData2: TQRSysData
Left = 536
Top = 37
Width = 63
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
1418.16666666667
97.8958333333333
166.6875)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
Color = clWhite
Data = qrsPageNumber
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Text = #31532
Transparent = False
FontSize = 10
end
object QRSysData1: TQRSysData
Left = 304
Top = 37
Width = 78
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
804.333333333333
97.8958333333333
206.375)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
Color = clWhite
Data = qrsDateTime
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
FontSize = 10
end
object QRLabel10: TQRLabel
Left = 81
Top = 39
Width = 61
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.3333333333333
214.3125
103.1875
161.395833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #21407#26009#31867#21035
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
end
object SummaryBand1: TQRBand
Left = 38
Top = 149
Width = 740
Height = 27
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
AlignToBottom = False
Color = clWhite
ForceNewColumn = False
ForceNewPage = False
Size.Values = (
71.4375
1957.91666666667)
BandType = rbSummary
object QRShape3: TQRShape
Left = 16
Top = 1
Width = 660
Height = 2
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
5.29166666666667
42.3333333333333
2.64583333333333
1746.25)
Shape = qrsRectangle
end
end
end
end
object q1: TQuery
CachedUpdates = True
BeforeOpen = q1BeforeOpen
AfterClose = q1AfterClose
AfterScroll = q1AfterScroll
DatabaseName = 'aa'
OnFilterRecord = q1FilterRecord
SQL.Strings = (
'SELECT *'
'FROM chanpin chanpin'
'order by lbbm,posbm')
UpdateObject = UpdateSQL1
Left = 40
Top = 112
object q1cpbm: TStringField
FieldName = 'cpbm'
Origin = 'CCC.chanpin.cpbm'
end
object q1posbm: TStringField
FieldName = 'posbm'
Origin = 'CCC.chanpin.posbm'
end
object q1pym: TStringField
FieldName = 'pym'
Origin = 'CCC.chanpin.pym'
Size = 10
end
object q1dj: TFloatField
FieldName = 'dj'
Origin = 'CCC.chanpin.dj'
end
object q1sccj: TStringField
FieldName = 'sccj'
Origin = 'CCC.chanpin.sccj'
Size = 30
end
object q1lbbm: TStringField
FieldName = 'lbbm'
Origin = 'CCC.chanpin.lbbm'
end
object q1dw: TStringField
FieldName = 'dw'
Origin = 'CCC.chanpin.dw'
Size = 4
end
object q1id: TIntegerField
FieldName = 'id'
Origin = 'CCC.chanpin.id'
end
object q1cpmc: TStringField
FieldName = 'cpmc'
Origin = 'CCC.chanpin.cpmc'
Size = 30
end
object q1lbmc: TStringField
FieldName = 'lbmc'
Origin = 'CCC.chanpin.lbmc'
Size = 30
end
object q1sccjmc: TStringField
FieldKind = fkLookup
FieldName = 'sccjmc'
LookupDataSet = Query1
LookupKeyFields = 'gysbm'
LookupResultField = 'gysmc'
KeyFields = 'sccj'
Size = 30
Lookup = True
end
end
object DataSource1: TDataSource
DataSet = q1
Left = 72
Top = 112
end
object UpdateSQL1: TUpdateSQL
ModifySQL.Strings = (
'update chanpin'
'set'
' cpbm = :cpbm,'
' cpmc = :cpmc,'
' posbm = :posbm,'
' pym = :pym,'
' dj = :dj,'
' sccj = :sccj,'
' lbbm = :lbbm,'
' lbmc = :lbmc,'
' dw = :dw'
'where'
' id = :OLD_id')
InsertSQL.Strings = (
'insert into chanpin'
' (cpbm, cpmc, posbm, pym, dj, sccj, lbbm, lbmc, dw)'
'values'
' (:cpbm, :cpmc, :posbm, :pym, :dj, :sccj, :lbbm, :lbmc, :dw)')
DeleteSQL.Strings = (
'delete from chanpin'
'where'
' id = :OLD_id')
Left = 104
Top = 112
end
object Query1: TQuery
DatabaseName = 'aa'
SQL.Strings = (
'select * '
'from gys')
Left = 160
Top = 112
object Query1gysbm: TStringField
FieldName = 'gysbm'
Origin = 'CCC.gys.gysbm'
Size = 10
end
object Query1gysmc: TStringField
FieldName = 'gysmc'
Origin = 'CCC.gys.gysmc'
Size = 30
end
object Query1pym: TStringField
FieldName = 'pym'
Origin = 'CCC.gys.pym'
Size = 10
end
object Query1Id: TIntegerField
FieldName = 'Id'
Origin = 'CCC.gys.Id'
end
end
object Query3: TQuery
DatabaseName = 'aa'
SQL.Strings = (
'select lbmc'
'from chanpin'
'group by lbmc')
Left = 200
Top = 80
object Query3lbmc: TStringField
FieldName = 'lbmc'
Origin = 'CCC.chanpin.lbmc'
Size = 30
end
end
object Query2: TQuery
DatabaseName = 'aa'
SQL.Strings = (
'SELECT cpbm'
'FROM chanpin Chanpin'
'where cpbm=:cs')
Left = 246
Top = 110
ParamData = <
item
DataType = ftUnknown
Name = 'cs'
ParamType = ptUnknown
end>
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -