?? ap230report.~dfm

?? 利用delhpi 開發的一個關于零售業進銷管理系統
?? ~DFM
字號:
inherited qrAP230: TqrAP230
  Left = -372
  Font.Charset = GB2312_CHARSET
  Font.Name = #23435#20307
  Functions.DATA = (
    '0'
    '0'
    #39#39)
  Page.Values = (
    50
    2970
    50
    2100
    50
    50
    0)
  inherited bdPageHeader: TQRBand
    Size.Values = (
      280.458333333333
      2000.25)
    inherited CompanyName: TQRLabel
      Size.Values = (
        66.1458333333333
        838.729166666667
        0
        322.791666666667)
      Font.Charset = GB2312_CHARSET
      Font.Name = #23435#20307
      FontSize = 16
    end
    inherited QRSysData1: TQRSysData
      Width = 31
      Size.Values = (
        44.9791666666667
        1778
        52.9166666666667
        82.0208333333333)
      FontSize = 10
    end
    inherited QRSysData2: TQRSysData
      Size.Values = (
        44.9791666666667
        1778
        105.833333333333
        132.291666666667)
      Font.Charset = GB2312_CHARSET
      Font.Name = #23435#20307
      FontSize = 10
    end
    inherited QRLabel1: TQRLabel
      Width = 66
      Size.Values = (
        44.9791666666667
        1598.08333333333
        52.9166666666667
        174.625)
      Caption = #21015#21360#26085#26399#65306
      Font.Charset = GB2312_CHARSET
      Font.Name = #23435#20307
      FontSize = 10
    end
    inherited QRLabel2: TQRLabel
      Width = 40
      Size.Values = (
        44.9791666666667
        1598.08333333333
        105.833333333333
        105.833333333333)
      Caption = #39029#27425#65306
      Font.Charset = GB2312_CHARSET
      Font.Name = #23435#20307
      FontSize = 10
    end
    inherited ReportName: TQRLabel
      Left = 304
      Width = 148
      Size.Values = (
        58.2083333333333
        804.333333333333
        63.5
        391.583333333333)
      Caption = #24212#20184#24080#27454#32479#35745#34920
      Font.Charset = GB2312_CHARSET
      Font.Name = #23435#20307
      FontSize = 16
    end
    inherited QRLabel4: TQRLabel
      Width = 66
      Size.Values = (
        44.9791666666667
        1598.08333333333
        0
        174.625)
      Caption = #25253#34920#32534#21495#65306
      FontSize = 10
    end
    inherited QRLabel5: TQRLabel
      Width = 36
      Size.Values = (
        44.9791666666667
        1778
        0
        95.25)
      Caption = 'AP230'
      FontSize = 10
    end
    object QRLabel6: TQRLabel
      Left = 4
      Top = 88
      Width = 66
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        10.5833333333333
        232.833333333333
        174.625)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Caption = #20379#24212#21830#32534#21495
      Color = clWhite
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRLabel7: TQRLabel
      Left = 88
      Top = 88
      Width = 66
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        232.833333333333
        232.833333333333
        174.625)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Caption = #20379#24212#21830#31616#31216
      Color = clWhite
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRLabel8: TQRLabel
      Left = 180
      Top = 88
      Width = 79
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        476.25
        232.833333333333
        209.020833333333)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Caption = #21069#26399#26410#20184#36134#27454
      Color = clWhite
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRLabel9: TQRLabel
      Left = 292
      Top = 88
      Width = 79
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        772.583333333333
        232.833333333333
        209.020833333333)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Caption = #26412#26399#24212#20184#24080#27454
      Color = clWhite
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRLabel10: TQRLabel
      Left = 408
      Top = 88
      Width = 79
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        1079.5
        232.833333333333
        209.020833333333)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Caption = #26412#26399#24050#20184#36134#27454
      Color = clWhite
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRLabel11: TQRLabel
      Left = 516
      Top = 88
      Width = 105
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        1365.25
        232.833333333333
        277.8125)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Caption = #26412#26399#24212#20184#24080#27454#24635#39069
      Color = clWhite
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
  end
  inherited bgDetail: TQRBand
    Size.Values = (
      60.8541666666667
      2000.25)
    object QRDBText1: TQRDBText
      Left = 4
      Top = 4
      Width = 71
      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
        187.854166666667)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'SupplierID'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText2: TQRDBText
      Left = 88
      Top = 4
      Width = 127
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        232.833333333333
        10.5833333333333
        336.020833333333)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'SupplierAttribName'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText3: TQRDBText
      Left = 216
      Top = 4
      Width = 43
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        571.5
        10.5833333333333
        113.770833333333)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'LastAP'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText4: TQRDBText
      Left = 316
      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
        836.083333333333
        10.5833333333333
        150.8125)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'PeriodAP'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText5: TQRDBText
      Left = 460
      Top = 4
      Width = 29
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        1217.08333333333
        10.5833333333333
        76.7291666666667)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'Paid'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText6: TQRDBText
      Left = 572
      Top = 4
      Width = 50
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        1513.41666666667
        10.5833333333333
        132.291666666667)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'TotalAP'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
  end
  inherited bdPageFooter: TQRBand
    Size.Values = (
      105.833333333333
      2000.25)
    inherited QRLabel3: TQRLabel
      Width = 40
      Size.Values = (
        44.9791666666667
        1651
        52.9166666666667
        105.833333333333)
      Caption = #21046#34920#65306
      FontSize = 10
    end
    inherited UserName: TQRLabel
      Size.Values = (
        44.9791666666667
        1746.25
        52.9166666666667
        150.8125)
      FontSize = 10
    end
  end
  inherited qyReport: TQuery
    CachedUpdates = True
    BeforeOpen = qyReportBeforeOpen
    RequestLive = True
    SQL.Strings = (
      'SELECT SupplierID, SupplierAttribName,'
      '0 AS LastAP, 0 AS PeriodAP, 0 AS Paid, 0 AS TotalAP'
      'FROM Supplier'
      'WHERE CompanyID = :CompanyID'
      
        'AND SupplierID >= :BeginSupplierID AND SupplierID <= :EndSupplie' +
        'rID'
      'ORDER BY SupplierID')
    UpdateObject = UpdateSQL1
    ParamData = <
      item
        DataType = ftString
        Name = 'CompanyID'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'BeginSupplierID'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'EndSupplierID'
        ParamType = ptUnknown
      end>
    object qyReportSupplierID: TStringField
      FieldName = 'SupplierID'
      FixedChar = True
      Size = 8
    end
    object qyReportSupplierAttribName: TStringField
      FieldName = 'SupplierAttribName'
      FixedChar = True
      Size = 10
    end
    object qyReportLastAP: TIntegerField
      FieldName = 'LastAP'
      DisplayFormat = '#,##0'
    end
    object qyReportPeriodAP: TIntegerField
      FieldName = 'PeriodAP'
      DisplayFormat = '#,##0'
    end
    object qyReportPaid: TIntegerField
      FieldName = 'Paid'
      DisplayFormat = '#,##0'
    end
    object qyReportTotalAP: TIntegerField
      FieldName = 'TotalAP'
      DisplayFormat = '#,##0'
    end
  end
  object UpdateSQL1: TUpdateSQL
    ModifySQL.Strings = (
      'update Supplier'
      'set'
      '  SupplierID = :SupplierID,'
      '  SupplierAttribName = :SupplierAttribName'
      'where'
      '  SupplierID = :OLD_SupplierID and'
      '  SupplierAttribName = :OLD_SupplierAttribName')
    InsertSQL.Strings = (
      'insert into Supplier'
      '  (SupplierID, SupplierAttribName)'
      'values'
      '  (:SupplierID, :SupplierAttribName)')
    DeleteSQL.Strings = (
      'delete from Supplier'
      'where'
      '  SupplierID = :OLD_SupplierID and'
      '  SupplierAttribName = :OLD_SupplierAttribName')
    Left = 84
    Top = 8
  end
end
?? 文件大小 1747 K
?? 上傳用戶 wangcong200500
?? 所屬分類 *行業應用
??? 相關標簽

#delhpi #零 #進銷 #管理系統
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? ap230report.~dfm

?? 快捷鍵說明
