📄 mrp_enter_mo_p.dfm
字号:
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
66.1458333333333
1375.83333333333
336.020833333333
15.875)
ShApe = qrsVertLine
end
object QRShApe8: TQRShApe
Left = 610
Top = 127
Width = 7
Height = 25
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
66.1458333333333
1613.95833333333
336.020833333333
18.5208333333333)
ShApe = qrsVertLine
end
object QRLbl_Title: TQRLabel
Left = 223
Top = 1
Width = 208
Height = 26
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
68.7916666666667
590.020833333333
2.64583333333333
550.333333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '美迪电器集团有限公司'
Color = clWhite
Font.ChArset = DEFAULT_CHArSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TransParent = False
WordWrAp = True
FontSize = 16
end
object Qrlbl_Caption: TQRLabel
Left = 314
Top = 27
Width = 69
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
830.791666666667
71.4375
182.5625)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '生产订单'
Color = clWhite
Font.ChArset = DEFAULT_CHArSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = '宋体'
Font.Style = [fsBold]
ParentFont = False
TransParent = False
WordWrAp = True
FontSize = 12
end
object QrLbl_IsoCode: TQRLabel
Left = 10
Top = 46
Width = 92
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
26.4583333333333
121.708333333333
243.416666666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'QrLbl_IsoCode'
Color = clWhite
TransParent = False
WordWrAp = True
FontSize = 10
end
end
object DetailBand1: TQRBand
Left = 38
Top = 188
Width = 718
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
1899.70833333333)
BandType = rbDetail
object QRShApe2: TQRShApe
Left = 0
Top = 0
Width = 717
Height = 27
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
71.4375
0
0
1897.0625)
ShApe = qrsRectanGle
end
object Qdbtxt_LineNo: TQRDBText
Left = 10
Top = 8
Width = 57
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
26.4583333333333
21.1666666666667
150.8125)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
DataSet = AdoQry_Tmp
DataField = 'MoLineNO'
TransParent = False
WordWrAp = False
FontSize = 10
end
object QdbTxt_UomName: TQRDBText
Left = 408
Top = 8
Width = 31
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
1079.5
21.1666666666667
82.0208333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
DataSet = AdoQry_Tmp
DataField = 'UomName'
TransParent = False
WordWrAp = False
FontSize = 10
end
object Qdbtxt_MoQty: TQRDBText
Left = 448
Top = 8
Width = 71
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
1185.33333333333
21.1666666666667
187.854166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
DataSet = AdoQry_Tmp
DataField = 'MOQTY'
TransParent = False
WordWrAp = False
FontSize = 10
end
object Qdbtxt_MoLineDate: TQRDBText
Left = 530
Top = 7
Width = 80
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
1402.29166666667
18.5208333333333
211.666666666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
DataSet = AdoQry_Tmp
DataField = 'MoLineDATE'
TransParent = False
WordWrAp = False
FontSize = 10
end
object Qdbtxt_Workdate: TQRDBText
Left = 619
Top = 7
Width = 106
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
1637.77083333333
18.5208333333333
280.458333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = AdoQry_Tmp
DataField = 'MOStArtWorkDate'
TransParent = False
WordWrAp = True
FontSize = 10
end
object QRDBText1: TQRDBText
Left = 36
Top = 8
Width = 74
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.3333333333333
95.25
21.1666666666667
195.791666666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
DataSet = AdoQry_Tmp
DataField = 'ItemCode'
TransParent = False
WordWrAp = False
FontSize = 10
end
object QRShApe9: TQRShApe
Left = 30
Top = 0
Width = 7
Height = 27
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
71.4375
79.375
0
18.5208333333333)
ShApe = qrsVertLine
end
object QRShApe10: TQRShApe
Left = 106
Top = 0
Width = 9
Height = 27
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
71.4375
280.458333333333
0
23.8125)
ShApe = qrsVertLine
end
object QRShApe11: TQRShApe
Left = 399
Top = 0
Width = 10
Height = 27
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
71.4375
1055.6875
0
26.4583333333333)
ShApe = qrsVertLine
end
object QRShApe12: TQRShApe
Left = 440
Top = 0
Width = 7
Height = 27
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
71.4375
1164.16666666667
0
18.5208333333333)
ShApe = qrsVertLine
end
object QRShApe13: TQRShApe
Left = 517
Top = 0
Width = 12
Height = 27
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
71.4375
1367.89583333333
0
31.75)
ShApe = qrsVertLine
end
object QRShApe14: TQRShApe
Left = 608
Top = 0
Width = 11
Height = 27
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
71.4375
1608.66666666667
0
29.1041666666667)
ShApe = qrsVertLine
end
object QRExpr1: TQRExpr
Left = 114
Top = 8
Width = 289
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
301.625
21.1666666666667
764.645833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
ResetAfterPrint = False
TransParent = False
WordWrAp = False
Expression = 'AdoQry_Tmp.ItemName'
FontSize = 10
end
end
end
inherited AdoQry_Tmp: TAdoQuery
ConnectionString =
'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
'User ID=mdrcmrm;Initial Catalog=mdrcmrm;Data Source=nt2'
CurSorType = ctStatic
SQL.Strings = (
'select Top 10 MoLine.*,Item.ItemName,Uom.UomName From MoLine,Ite' +
'm,Uom Where MoLine.ItemCode=Item.ItemCode And Item.UomCode=Uom.U' +
'omCode')
Left = 22
end
object AdoQry_Main: TAdoQuery
Parameters = <>
Left = 135
Top = 295
end
object PrinterSetupDialog1: TPrinterSetupDialog
Left = 81
Top = 18
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -