?? in110report.dfm
字號:
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'ChangeDate'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText2: TQRDBText
Left = 72
Top = 24
Width = 71
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
190.5
63.5
187.854166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'ChangeCode'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText3: TQRDBText
Left = 148
Top = 24
Width = 71
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
391.583333333333
63.5
187.854166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'ChangeName'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText4: TQRDBText
Left = 72
Top = 44
Width = 64
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
190.5
116.416666666667
169.333333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText5: TQRDBText
Left = 72
Top = 64
Width = 78
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
190.5
169.333333333333
206.375)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'WarehouseID'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText6: TQRDBText
Left = 156
Top = 64
Width = 92
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
412.75
169.333333333333
243.416666666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'WarehouseName'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText7: TQRDBText
Left = 556
Top = 4
Width = 57
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1471.08333333333
10.5833333333333
150.8125)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'ChangeID'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRShape2: TQRShape
Left = 0
Top = 80
Width = 757
Height = 13
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
34.3958333333333
0
211.666666666667
2002.89583333333)
Shape = qrsHorLine
end
object QRLabel11: TQRLabel
Left = 4
Top = 96
Width = 27
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
10.5833333333333
254
71.4375)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #38917#27425
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel12: TQRLabel
Left = 60
Top = 96
Width = 53
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
158.75
254
140.229166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #21830#21697#32232#34399
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel13: TQRLabel
Left = 140
Top = 96
Width = 53
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
370.416666666667
254
140.229166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #21830#21697#21517#31281
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel14: TQRLabel
Left = 484
Top = 96
Width = 27
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1280.58333333333
254
71.4375)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #25976#37327
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel15: TQRLabel
Left = 624
Top = 96
Width = 27
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1651
254
71.4375)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #37329#38989
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
end
inherited qyReport: TQuery
Active = True
BeforeOpen = qyReportBeforeOpen
SQL.Strings = (
'SELECT M.ChangeID, M.ChangeDate, M.ChangeCode, M.WarehouseID,'
'M.Description, D.ChangeItem, D.ProductID, D.ChangeQuantity,'
'D.ChangeAmount, P.ProductName, W.WarehouseName, I.ChangeName'
'FROM ChangeMaster M, ChangeDetail D, Product P, Warehouse W, Inv' +
'entoryChange I'
'WHERE M.CompanyID = :CompanyID AND M.ChangeID = :ChangeID'
'AND M.CompanyID = D.CompanyID AND M.ChangeID = D.ChangeID'
'AND D.CompanyID = P.CompanyID AND D.ProductID = P.ProductID'
'AND M.CompanyID = W.CompanyID AND M.WarehouseID = W.WarehouseID'
'AND M.CompanyID = I.CompanyID AND M.ChangeCode = I.ChangeCode'
'ORDER BY D.ChangeItem')
ParamData = <
item
DataType = ftString
Name = 'CompanyID'
ParamType = ptUnknown
end
item
DataType = ftString
Name = 'ChangeID'
ParamType = ptUnknown
end>
object qyReportChangeID: TStringField
FieldName = 'ChangeID'
Origin = 'KINGSBYPRG.ChangeMaster.ChangeID'
FixedChar = True
Size = 10
end
object qyReportChangeDate: TStringField
FieldName = 'ChangeDate'
Origin = 'KINGSBYPRG.ChangeMaster.ChangeDate'
FixedChar = True
Size = 8
end
object qyReportChangeCode: TStringField
FieldName = 'ChangeCode'
Origin = 'KINGSBYPRG.ChangeMaster.ChangeCode'
FixedChar = True
Size = 2
end
object qyReportChangeName: TStringField
FieldName = 'ChangeName'
Origin = 'KINGSBYPRG.InventoryChange.ChangeName'
FixedChar = True
Size = 10
end
object qyReportWarehouseID: TStringField
FieldName = 'WarehouseID'
Origin = 'KINGSBYPRG.ChangeMaster.WarehouseID'
FixedChar = True
Size = 4
end
object qyReportDescription: TStringField
FieldName = 'Description'
Origin = 'KINGSBYPRG.ChangeMaster.Description'
FixedChar = True
Size = 40
end
object qyReportChangeItem: TStringField
FieldName = 'ChangeItem'
Origin = 'KINGSBYPRG.ChangeDetail.ChangeItem'
FixedChar = True
Size = 3
end
object qyReportProductID: TStringField
FieldName = 'ProductID'
Origin = 'KINGSBYPRG.ChangeDetail.ProductID'
FixedChar = True
Size = 10
end
object qyReportChangeQuantity: TBCDField
FieldName = 'ChangeQuantity'
Origin = 'KINGSBYPRG.ChangeDetail.ChangeQuantity'
Precision = 12
Size = 0
end
object qyReportChangeAmount: TBCDField
FieldName = 'ChangeAmount'
Origin = 'KINGSBYPRG.ChangeDetail.ChangeAmount'
Precision = 12
Size = 0
end
object qyReportProductName: TStringField
FieldName = 'ProductName'
Origin = 'KINGSBYPRG.Product.ProductName'
FixedChar = True
Size = 30
end
object qyReportWarehouseName: TStringField
FieldName = 'WarehouseName'
Origin = 'KINGSBYPRG.Warehouse.WarehouseName'
FixedChar = True
Size = 10
end
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -