?? in240report.dfm
字號:
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel11: TQRLabel
Left = 4
Top = 4
Width = 60
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
10.5833333333333
10.5833333333333
158.75)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #35519#25765#26085#26399':'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText1: TQRDBText
Left = 64
Top = 4
Width = 85
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
169.333333333333
10.5833333333333
224.895833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'TransferDate'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText2: TQRDBText
Left = 64
Top = 20
Width = 71
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
169.333333333333
52.9166666666667
187.854166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'TransferID'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText3: TQRDBText
Left = 228
Top = 4
Width = 155
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
603.25
10.5833333333333
410.104166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'TransferOutWarehouseID'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText7: TQRDBText
Left = 312
Top = 4
Width = 113
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
825.5
10.5833333333333
298.979166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'OutWarehouseName'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel9: TQRLabel
Left = 164
Top = 4
Width = 60
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
433.916666666667
10.5833333333333
158.75)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #35519#20986#20489#24235':'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel10: TQRLabel
Left = 164
Top = 20
Width = 60
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
433.916666666667
52.9166666666667
158.75)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #35519#20837#20489#24235':'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText8: TQRDBText
Left = 228
Top = 20
Width = 148
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
603.25
52.9166666666667
391.583333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'TransferInWarehouseID'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText9: TQRDBText
Left = 312
Top = 20
Width = 106
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
825.5
52.9166666666667
280.458333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'InWarehouseName'
Transparent = False
WordWrap = True
FontSize = 10
end
end
inherited qyReport: TQuery
BeforeOpen = qyReportBeforeOpen
SQL.Strings = (
'SELECT M.TransferDate, M.TransferID, M.TransferInWarehouseID,'
'M.TransferOutWarehouseID, D.ProductID, D.TransferQuantity, D.Tra' +
'nsferItem,'
'P.ProductName, Wout.WarehouseName AS OutWarehouseName, Win.Wareh' +
'ouseName AS InWarehouseName'
'FROM TransferMaster M, TransferDetail D, Warehouse Wout, Warehou' +
'se Win, Product P'
'WHERE M.CompanyID = :CompanyID'
'AND M.TransferDate >= :BeginTransferDate AND M.TransferDate <= :' +
'EndTransferDate'
'AND M.TransferOutWarehouseID >= :BeginWarehouseID AND M.Transfer' +
'OutWarehouseID <= :EndWarehouseID'
'AND D.ProductID >= :BeginProductID AND D.ProductID <= :EndProduc' +
'tID'
'AND M.CompanyID = D.CompanyID AND M.TransferID = D.TransferID'
'AND D.CompanyID = P.CompanyID AND D.ProductID = P.ProductID'
'AND M.CompanyID = Wout.CompanyID AND M.TransferOutWarehouseID = ' +
'Wout.WarehouseID'
'AND M.CompanyID = Win.CompanyID AND M.TransferInWarehouseID = Wi' +
'n.WarehouseID'
'ORDER BY M.TransferDate, M.TransferID, D.TransferItem')
ParamData = <
item
DataType = ftString
Name = 'CompanyID'
ParamType = ptUnknown
end
item
DataType = ftString
Name = 'BeginTransferDate'
ParamType = ptUnknown
end
item
DataType = ftString
Name = 'EndTransferDate'
ParamType = ptUnknown
end
item
DataType = ftString
Name = 'BeginWarehouseID'
ParamType = ptUnknown
end
item
DataType = ftString
Name = 'EndWarehouseID'
ParamType = ptUnknown
end
item
DataType = ftString
Name = 'BeginProductID'
ParamType = ptUnknown
end
item
DataType = ftString
Name = 'EndProductID'
ParamType = ptUnknown
end>
object qyReportTransferID: TStringField
FieldName = 'TransferID'
FixedChar = True
Size = 10
end
object qyReportTransferDate: TStringField
FieldName = 'TransferDate'
FixedChar = True
Size = 8
end
object qyReportTransferItem: TStringField
FieldName = 'TransferItem'
Origin = 'KINGSBYPRG.TransferDetail.TransferItem'
FixedChar = True
Size = 3
end
object qyReportTransferInWarehouseID: TStringField
FieldName = 'TransferInWarehouseID'
FixedChar = True
Size = 4
end
object qyReportTransferOutWarehouseID: TStringField
FieldName = 'TransferOutWarehouseID'
FixedChar = True
Size = 4
end
object qyReportProductID: TStringField
FieldName = 'ProductID'
FixedChar = True
Size = 10
end
object qyReportTransferQuantity: TBCDField
FieldName = 'TransferQuantity'
Precision = 12
Size = 0
end
object qyReportProductName: TStringField
FieldName = 'ProductName'
FixedChar = True
Size = 30
end
object qyReportOutWarehouseName: TStringField
FieldName = 'OutWarehouseName'
Origin = 'KINGSBYPRG.Warehouse.WarehouseName'
FixedChar = True
Size = 10
end
object qyReportInWarehouseName: TStringField
FieldName = 'InWarehouseName'
Origin = 'KINGSBYPRG.Warehouse.WarehouseName'
FixedChar = True
Size = 10
end
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -