📄 mireproute.dfm
字号:
Left = 487
Top = 35
Width = 10
Height = 30
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
79.375
1288.52083333333
92.6041666666667
26.4583333333333)
Shape = qrsVertLine
end
end
object QRBand1: TQRBand
Left = 38
Top = 130
Width = 718
Height = 250
Frame.Color = clBlack
Frame.DrawTop = True
Frame.DrawBottom = True
Frame.DrawLeft = True
Frame.DrawRight = True
AlignToBottom = False
Color = clWhite
ForceNewColumn = False
ForceNewPage = False
Size.Values = (
661.458333333333
1899.70833333333)
BandType = rbGroupFooter
object QRDBImage1: TQRDBImage
Left = 10
Top = 8
Width = 695
Height = 233
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
616.479166666667
26.4583333333333
21.1666666666667
1838.85416666667)
DataField = 'Picture'
DataSet = Query1
Stretch = True
end
end
object DetailBand1: TQRBand
Left = 38
Top = 110
Width = 718
Height = 20
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = True
Frame.DrawLeft = True
Frame.DrawRight = True
AlignToBottom = False
Color = clWhite
ForceNewColumn = False
ForceNewPage = False
Size.Values = (
52.9166666666667
1899.70833333333)
BandType = rbDetail
object ItemNo: TQRDBText
Left = 7
Top = 1
Width = 34
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
18.5208333333333
2.64583333333333
89.9583333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
DataSet = Query1
DataField = 'ItemNo'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object Line21: TQRShape
Left = 55
Top = 0
Width = 10
Height = 20
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
52.9166666666667
145.520833333333
0
26.4583333333333)
Shape = qrsVertLine
end
object QRDBText2: TQRDBText
Left = 72
Top = 1
Width = 29
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
190.5
2.64583333333333
76.7291666666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = True
Color = clWhite
DataSet = Query1
DataField = 'Name'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText4: TQRDBText
Left = 272
Top = 1
Width = 64
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
719.666666666667
2.64583333333333
169.333333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = True
Color = clWhite
DataSet = Query1
DataField = 'Parameter'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText5: TQRDBText
Left = 512
Top = 1
Width = 29
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
1354.66666666667
2.64583333333333
76.7291666666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = True
Color = clWhite
DataSet = Query1
DataField = 'Memo'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object Line22: TQRShape
Left = 260
Top = 0
Width = 10
Height = 20
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
52.9166666666667
687.916666666667
0
26.4583333333333)
Shape = qrsVertLine
end
object Line23: TQRShape
Left = 487
Top = 0
Width = 10
Height = 20
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
52.9166666666667
1288.52083333333
0
26.4583333333333)
Shape = qrsVertLine
end
end
object PageFooterBand1: TQRBand
Left = 38
Top = 380
Width = 718
Height = 25
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 = (
66.1458333333333
1899.70833333333)
BandType = rbPageFooter
object QRSysData1: TQRSysData
Left = 615
Top = 5
Width = 46
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
1627.1875
13.2291666666667
121.708333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
Color = clWhite
Data = qrsPageNumber
Transparent = False
FontSize = 10
end
object QRLabel9: TQRLabel
Left = 570
Top = 5
Width = 40
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
1508.125
13.2291666666667
105.833333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #39029#21495#65306
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
end
end
object DataSource1: TDataSource
DataSet = Query1
Left = 10
Top = 73
end
object Query1: TQuery
DatabaseName = 'RedDatabase'
SQL.Strings = (
' select A.RouteNo,A.RouteCode,C.RouteName,A.Picture,RouteMemo=A.' +
'Memo,B.ItemNo,B.Name,B.Parameter,B.Memo'
'from MIRoute A,RouteDetail B,StandardRoute C'
'where A.PartNo=:PartNo and A.PartNo=B.PartNo and C.RouteCode=A.' +
'RouteCode and A.RouteNo=B.RouteNo'
'order by A.RouteNo,B.ItemNo')
Left = 8
Top = 32
ParamData = <
item
DataType = ftUnknown
Name = 'PartNo'
ParamType = ptUnknown
end>
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -