⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 unit11.dfm

📁 餐厅结账管理程序提供中小型餐厅所需要的点菜结账功能
💻 DFM
📖 第 1 页 / 共 2 页
字号:
        Alignment = taCenter
        AlignToBand = True
        AutoSize = True
        AutoStretch = False
        Caption = #36134#21333#32479#35745#25253#34920
        Color = clWhite
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -27
        Font.Name = #26999#20307'_GB2312'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = False
        WordWrap = True
        FontSize = 20
      end
    end
    object ColumnHeaderBand1: TQRBand
      Left = 48
      Top = 88
      Width = 698
      Height = 23
      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 = (
        60.8541666666667
        1846.79166666667)
      BandType = rbColumnHeader
      object QRLabelRankNum: TQRLabel
        Left = 49
        Top = 4
        Width = 51
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          129.645833333333
          10.5833333333333
          134.9375)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = False
        AutoStretch = False
        Caption = #24212#20184'(Y)'
        Color = clWhite
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -15
        Font.Name = #26999#20307'_GB2312'
        Font.Style = []
        ParentFont = False
        Transparent = True
        WordWrap = True
        FontSize = 11
      end
      object QRLabelRankName: TQRLabel
        Left = 8
        Top = 4
        Width = 37
        Height = 20
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          52.9166666666667
          21.1666666666667
          10.5833333333333
          97.8958333333333)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = False
        AutoStretch = False
        Caption = #39184#26700
        Color = clWhite
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -15
        Font.Name = #26999#20307'_GB2312'
        Font.Style = []
        ParentFont = False
        Transparent = True
        WordWrap = True
        FontSize = 11
      end
      object QRLabel1: TQRLabel
        Left = 105
        Top = 4
        Width = 58
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          277.8125
          10.5833333333333
          153.458333333333)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = False
        AutoStretch = False
        Caption = #23454#20184'(Y)'
        Color = clWhite
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -15
        Font.Name = #26999#20307'_GB2312'
        Font.Style = []
        ParentFont = False
        Transparent = True
        WordWrap = True
        FontSize = 11
      end
      object QRLabel2: TQRLabel
        Left = 169
        Top = 4
        Width = 59
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          447.145833333333
          10.5833333333333
          156.104166666667)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = False
        AutoStretch = False
        Caption = #25214#38646'(Y)'
        Color = clWhite
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -15
        Font.Name = #26999#20307'_GB2312'
        Font.Style = []
        ParentFont = False
        Transparent = True
        WordWrap = True
        FontSize = 11
      end
      object QRLabel3: TQRLabel
        Left = 234
        Top = 4
        Width = 60
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          619.125
          10.5833333333333
          158.75)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = False
        AutoStretch = False
        Caption = #26085#26399
        Color = clWhite
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -15
        Font.Name = #26999#20307'_GB2312'
        Font.Style = []
        ParentFont = False
        Transparent = True
        WordWrap = True
        FontSize = 11
      end
      object QRLabel4: TQRLabel
        Left = 302
        Top = 4
        Width = 52
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          799.041666666667
          10.5833333333333
          137.583333333333)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = False
        AutoStretch = False
        Caption = #26102#38388
        Color = clWhite
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -15
        Font.Name = #26999#20307'_GB2312'
        Font.Style = []
        ParentFont = False
        Transparent = True
        WordWrap = True
        FontSize = 11
      end
      object QRLabel5: TQRLabel
        Left = 361
        Top = 4
        Width = 53
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          955.145833333334
          10.5833333333333
          140.229166666667)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = False
        AutoStretch = False
        Caption = #25805#20316#21592
        Color = clWhite
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -15
        Font.Name = #26999#20307'_GB2312'
        Font.Style = []
        ParentFont = False
        Transparent = True
        WordWrap = True
        FontSize = 11
      end
      object QRLabel6: TQRLabel
        Left = 420
        Top = 4
        Width = 69
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          1111.25
          10.5833333333333
          182.5625)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = False
        AutoStretch = False
        Caption = #25551#36848#20449#24687
        Color = clWhite
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -15
        Font.Name = #26999#20307'_GB2312'
        Font.Style = []
        ParentFont = False
        Transparent = True
        WordWrap = True
        FontSize = 11
      end
    end
    object GroupFooterBand1: TQRBand
      Left = 48
      Top = 135
      Width = 698
      Height = 25
      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 = (
        66.1458333333333
        1846.79166666667)
      BandType = rbSummary
      object QRLabelTotal: TQRLabel
        Left = 4
        Top = 2
        Width = 77
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          10.5833333333333
          5.29166666666667
          203.729166666667)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = #38144#21806#39069'('#20803'):'
        Color = clWhite
        Transparent = False
        WordWrap = True
        FontSize = 10
      end
      object QRExprTotal: TQRExpr
        Left = 94
        Top = 2
        Width = 176
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          248.708333333333
          5.29166666666667
          465.666666666667)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Color = clWhite
        ResetAfterPrint = True
        Transparent = False
        WordWrap = True
        Expression = 'SUM(MasterTable.ShouldPay)'
        FontSize = 10
      end
    end
  end
  object MasterTable: TTable
    Active = True
    DatabaseName = 'Ch14'
    TableName = 'Pay.DB'
    Left = 56
    Top = 28
    object MasterTableTableNum: TIntegerField
      FieldName = 'TableNum'
    end
    object MasterTableShouldPay: TFloatField
      FieldName = 'ShouldPay'
    end
    object MasterTableActuallyPay: TFloatField
      FieldName = 'ActuallyPay'
    end
    object MasterTableCharge: TFloatField
      FieldName = 'Charge'
    end
    object MasterTableDate: TDateField
      FieldName = 'Date'
    end
    object MasterTableTime: TTimeField
      FieldName = 'Time'
    end
    object MasterTableDescription: TMemoField
      FieldName = 'Description'
      BlobType = ftMemo
      Size = 100
    end
    object MasterTableUserID: TIntegerField
      FieldName = 'UserID'
    end
  end
end

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -