📄 pm_qry_printpo_p.dfm
字号:
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
762
15.875
150.8125)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'QRLabel3'
Color = clWhite
TransParent = False
WordWrAp = True
FontSize = 10
end
object QRLabel17: TQRLabel
Left = 471
Top = 6
Width = 105
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1246.1875
15.875
277.8125)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '供应商代表签章：'
Color = clWhite
TransParent = False
WordWrAp = True
FontSize = 10
end
object QRLabel7: TQRLabel
Left = 64
Top = 6
Width = 57
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
169.333333333333
15.875
150.8125)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'QRLabel3'
Color = clWhite
TransParent = False
WordWrAp = True
FontSize = 10
end
end
object ChildBand1: TQRChildBand
Left = 38
Top = 278
Width = 718
Height = 158
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 = (
418.041666666667
1899.70833333333)
ParentBand = SummAryBand1
object QRLabel29: TQRLabel
Left = 11
Top = 8
Width = 92
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
29.1041666666667
21.1666666666667
243.416666666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '采购订单条款：'
Color = clWhite
TransParent = False
WordWrAp = True
FontSize = 10
end
object QRLabel30: TQRLabel
Left = 12
Top = 24
Width = 1
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
31.75
63.5
2.64583333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
TransParent = False
WordWrAp = True
FontSize = 10
end
object QRLabel31: TQRLabel
Left = 11
Top = 40
Width = 1
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
29.1041666666667
105.833333333333
2.64583333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
TransParent = False
WordWrAp = True
FontSize = 10
end
object QRLabel32: TQRLabel
Left = 11
Top = 56
Width = 1
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
29.1041666666667
148.166666666667
2.64583333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
TransParent = False
WordWrAp = True
FontSize = 10
end
object QRLabel34: TQRLabel
Left = 11
Top = 88
Width = 1
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
29.1041666666667
232.833333333333
2.64583333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
TransParent = False
WordWrAp = True
FontSize = 10
end
object QRLabel33: TQRLabel
Left = 11
Top = 72
Width = 1
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
29.1041666666667
190.5
2.64583333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
TransParent = False
WordWrAp = True
FontSize = 10
end
object QRLabel35: TQRLabel
Left = 11
Top = 104
Width = 1
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
29.1041666666667
275.166666666667
2.64583333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
TransParent = False
WordWrAp = True
FontSize = 10
end
object QRLabel36: TQRLabel
Left = 11
Top = 120
Width = 1
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
29.1041666666667
317.5
2.64583333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
TransParent = False
WordWrAp = True
FontSize = 10
end
object QRLabel37: TQRLabel
Left = 11
Top = 136
Width = 1
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
29.1041666666667
359.833333333333
2.64583333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
TransParent = False
WordWrAp = True
FontSize = 10
end
end
end
object AdoQryMain: TAdoQuery
ConnectionString =
'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
'User ID=mdrcmrm;Initial Catalog=mdrcmrm_B;Data Source=ZHENGJIArO' +
'NG'
CurSorType = ctStatic
Parameters = <>
SQL.Strings = (
'select t1.pono,'
' t1.polineno,'
' t1.PassEmployeeCode,'
' poType=case t2.poType'
' when 0 then '#39'普通采购'#39
' when 1 then '#39'委外加工'#39
' end,'
' t2.podate, '
' potaxrate=t2.potaxrate_Percent,'
' t2.VendorCode,'
' t3.VendorName,'
' t2.EmployeeCode,'
' t6.EmployeeName,'
' t1.ItemCode,'
' t4.ItemName,'
' Itemflag=t1.ItemCode+'#39' '#39'+t4.ItemName,'
' t5.UomName,'
' t1.poqty, '
' t1.potaxPrice,'
' t1.potaxAmount,'
' t1.polinedate,'
' t2.poremArk,'
' t3.Vendorowner,'
' t3.VendorAddress,'
' t3.Vendorbank,'
' t3.Vendorbankaccno,'
' t3.Vendortaxno,'
' t3.Vendortel,'
' t3.Vendorfax,'
' date=getdate()'
' from poline t1(nolock),'
' po t2(nolock),'
' Vendor t3(nolock),'
' Item t4(nolock),'
' Uom t5(nolock),'
' Employee t6'
' where t1.pono=t2.pono'
' and t1.ItemCode=t4.ItemCode'
' and t2.VendorCode*=t3.VendorCode'
' and t4.UomCode=t5.UomCode'
' -- and t1.pono='#39'p01070002'#39
' and t2.EmployeeCode*=t6.EmployeeCode'
' ')
Left = 442
Top = 328
object AdoQryMainpono: TStringField
FieldName = 'pono'
Size = 16
end
object AdoQryMainpolineno: TIntegerField
FieldName = 'polineno'
end
object AdoQryMainpoType: TStringField
FieldName = 'poType'
ReadOnly = True
Size = 8
end
object AdoQryMainpodate: TDateTimeField
FieldName = 'podate'
end
object AdoQryMaInvendorCode: TStringField
FieldName = 'VendorCode'
Size = 12
end
object AdoQryMaInvendorName: TStringField
FieldName = 'VendorName'
Size = 60
end
object AdoQryMainItemCode: TStringField
FieldName = 'ItemCode'
Size = 16
end
object AdoQryMainItemName: TStringField
FieldName = 'ItemName'
Size = 60
end
object AdoQryMainUomName: TStringField
FieldName = 'UomName'
Size = 10
end
object AdoQryMainpoqty: TFloatField
FieldName = 'poqty'
end
object AdoQryMainpotaxPrice: TFloatField
FieldName = 'potaxPrice'
DisplayFormat = '##.##'
end
object AdoQryMainpotaxAmount: TBCDField
FieldName = 'potaxAmount'
Precision = 18
Size = 2
end
object AdoQryMainpolinedate: TDateTimeField
FieldName = 'polinedate'
end
object AdoQryMainporemArk: TStringField
FieldName = 'poremArk'
Size = 150
end
object AdoQryMaInvendorowner: TStringField
FieldName = 'Vendorowner'
Size = 40
end
object AdoQryMaInvendorAddress: TStringField
FieldName = 'VendorAddress'
Size = 60
end
object AdoQryMaInvendorbank: TStringField
FieldName = 'Vendorbank'
Size = 60
end
object AdoQryMaInvendorbankaccno: TStringField
FieldName = 'Vendorbankaccno'
Size = 40
end
object AdoQryMaInvendortaxno: TStringField
FieldName = 'Vendortaxno'
Size = 40
end
object AdoQryMaInvendortel: TStringField
FieldName = 'Vendortel'
Size = 40
end
object AdoQryMaindate: TDateTimeField
FieldName = 'date'
ReadOnly = True
end
object AdoQryMainpotaxrate: TIntegerField
FieldName = 'potaxrate'
end
object AdoQryMainEmployeeCode: TStringField
FieldName = 'EmployeeCode'
Size = 30
end
object AdoQryMainEmployeeName: TStringField
FieldName = 'EmployeeName'
Size = 60
end
object AdoQryMainItemflag: TStringField
FieldName = 'Itemflag'
Size = 77
end
object AdoQryMaInvendorfax: TStringField
FieldName = 'Vendorfax'
Size = 40
end
object AdoQryMainPassEmployeeCode: TStringField
FieldName = 'PassEmployeeCode'
Size = 30
end
end
object AdoQry_tmp: TAdoQuery
ConnectionString =
'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
'User ID=mdrcmrm;Initial Catalog=mdrcmrm;Data Source=NT2'
CurSorType = ctStatic
Parameters = <
Item
Name = 'SysName'
DataType = ftString
NumericScale = 255
Precision = 255
Size = 20
Value = ''
end>
SQL.Strings = (
'select SysParamValuec from SysParam'
'where SysParamCode=:SysName')
Left = 359
Top = 335
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -