xfprnt.dfm

日昌餐饮管理系统是用Delphi7+SQL写的管理系统

    Left = 216
    Top = 295
    Width = 75
    Height = 25
    Caption = #25171#21360
    TabOrder = 2
    OnClick = BitBtn1Click
  end
  object Panel1: TPanel
    Left = 112
    Top = 24
    Width = 65
    Height = 97
    Caption = 'Panel1'
    TabOrder = 3
    Visible = False
    object QuickRep1: TQuickRep
      Left = 8
      Top = 16
      Width = 794
      Height = 1123
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      Functions.Strings = (
        'PAGENUMBER'
        'COLUMNNUMBER'
        'REPORTTITLE')
      Functions.DATA = (
        '0'
        '0'
        #39#39)
      Options = [FirstPageHeader, LastPageFooter]
      Page.Columns = 1
      Page.Orientation = poPortrait
      Page.PaperSize = A4
      Page.Values = (
        100
        2970
        100
        2100
        100
        100
        0)
      PrinterSettings.Copies = 1
      PrinterSettings.Duplex = False
      PrinterSettings.FirstPage = 0
      PrinterSettings.LastPage = 0
      PrinterSettings.OutputBin = Auto
      PrintIfEmpty = True
      SnapToGrid = True
      Units = MM
      Zoom = 100
      object SummaryBand1: TQRBand
        Left = 38
        Top = 38
        Width = 718
        Height = 795
        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 = (
          2103.4375
          1899.70833333333)
        BandType = rbSummary
        object QRLabel1: TQRLabel
          Left = 64
          Top = 8
          Width = 58
          Height = 17
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            44.9791666666667
            169.333333333333
            21.1666666666667
            153.458333333333)
          Alignment = taLeftJustify
          AlignToBand = False
          AutoSize = True
          AutoStretch = False
          Caption = 'QRLabel1'
          Color = clWhite
          Transparent = False
          WordWrap = True
          FontSize = 10
        end
        object QRLabel2: TQRLabel
          Left = 72
          Top = 40
          Width = 58
          Height = 17
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            44.9791666666667
            190.5
            105.833333333333
            153.458333333333)
          Alignment = taLeftJustify
          AlignToBand = False
          AutoSize = True
          AutoStretch = False
          Caption = 'QRLabel2'
          Color = clWhite
          Transparent = False
          WordWrap = True
          FontSize = 10
        end
        object QRLabel3: TQRLabel
          Left = 72
          Top = 64
          Width = 58
          Height = 17
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            44.9791666666667
            190.5
            169.333333333333
            153.458333333333)
          Alignment = taLeftJustify
          AlignToBand = False
          AutoSize = True
          AutoStretch = False
          Caption = 'QRLabel3'
          Color = clWhite
          Transparent = False
          WordWrap = True
          FontSize = 10
        end
        object QRLabel4: TQRLabel
          Left = 72
          Top = 96
          Width = 58
          Height = 17
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            44.9791666666667
            190.5
            254
            153.458333333333)
          Alignment = taLeftJustify
          AlignToBand = False
          AutoSize = True
          AutoStretch = False
          Caption = 'QRLabel4'
          Color = clWhite
          Transparent = False
          WordWrap = True
          FontSize = 10
        end
        object QRLabel5: TQRLabel
          Left = 160
          Top = 96
          Width = 58
          Height = 17
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            44.9791666666667
            423.333333333333
            254
            153.458333333333)
          Alignment = taLeftJustify
          AlignToBand = False
          AutoSize = True
          AutoStretch = False
          Caption = 'QRLabel5'
          Color = clWhite
          Transparent = False
          WordWrap = True
          FontSize = 10
        end
        object QRLabel6: TQRLabel
          Left = 208
          Top = 144
          Width = 58
          Height = 17
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            44.9791666666667
            550.333333333333
            381
            153.458333333333)
          Alignment = taLeftJustify
          AlignToBand = False
          AutoSize = True
          AutoStretch = False
          Caption = 'QRLabel6'
          Color = clWhite
          Transparent = False
          WordWrap = True
          FontSize = 10
        end
        object QRLabel7: TQRLabel
          Left = 320
          Top = 168
          Width = 58
          Height = 17
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            44.9791666666667
            846.666666666667
            444.5
            153.458333333333)
          Alignment = taLeftJustify
          AlignToBand = False
          AutoSize = True
          AutoStretch = False
          Caption = 'QRLabel7'
          Color = clWhite
          Transparent = False
          WordWrap = True
          FontSize = 10
        end
      end
    end
  end
  object FontDialog1: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 344
    Top = 16
  end
  object Query1: TQuery
    CachedUpdates = True
    DatabaseName = 'aa'
    SQL.Strings = (
      'SELECT id, zdmc, ztmc, ztdx, ztys, wztop, wzleft'
      'FROM dbo.xfweizhi Dbo_xfweizhi')
    UpdateObject = UpdateSQL1
    Left = 208
    Top = 16
    object Query1id: TIntegerField
      FieldName = 'id'
      Origin = 'AA.xfweizhi.id'
    end
    object Query1zdmc: TStringField
      FieldName = 'zdmc'
      Origin = 'AA.xfweizhi.zdmc'
      FixedChar = True
      Size = 10
    end
    object Query1ztmc: TStringField
      FieldName = 'ztmc'
      Origin = 'AA.xfweizhi.ztmc'
      FixedChar = True
      Size = 10
    end
    object Query1ztdx: TIntegerField
      FieldName = 'ztdx'
      Origin = 'AA.xfweizhi.ztdx'
    end
    object Query1ztys: TIntegerField
      FieldName = 'ztys'
      Origin = 'AA.xfweizhi.ztys'
    end
    object Query1wztop: TSmallintField
      FieldName = 'wztop'
      Origin = 'AA.xfweizhi.wztop'
    end
    object Query1wzleft: TSmallintField
      FieldName = 'wzleft'
      Origin = 'AA.xfweizhi.wzleft'
    end
  end
  object UpdateSQL1: TUpdateSQL
    ModifySQL.Strings = (
      'update dbo.xfweizhi'
      'set'
      '  zdmc = :zdmc,'
      '  ztmc = :ztmc,'
      '  ztdx = :ztdx,'
      '  ztys = :ztys,'
      '  wztop = :wztop,'
      '  wzleft = :wzleft'
      'where'
      '  id = :OLD_id')
    InsertSQL.Strings = (
      'insert into dbo.xfweizhi'
      '  (zdmc, ztmc, ztdx, ztys, wztop, wzleft)'
      'values'
      '  (:zdmc, :ztmc, :ztdx, :ztys, :wztop, :wzleft)')
    DeleteSQL.Strings = (
      'delete from dbo.xfweizhi'
      'where'
      '  id = :OLD_id')
    Left = 240
    Top = 16
  end
end