dayreport.dfm

小管理程序主要管理的小咖啡厅我是从网上下的经测试可用

object Frmdayreport: TFrmdayreport
  Left = 309
  Top = 180
  Width = 312
  Height = 100
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #33829#19994#26085#25253#34920
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 8
    Top = 3
    Width = 289
    Height = 62
    Caption = #26597#35810#26465#20214
    TabOrder = 0
    object Label1: TLabel
      Left = 15
      Top = 27
      Width = 72
      Height = 13
      AutoSize = False
      Caption = #35831#36873#25321#26085#26399#65306
      Transparent = True
    end
    object SpeedButton1: TSpeedButton
      Left = 200
      Top = 19
      Width = 66
      Height = 32
      Caption = #25171#21360
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFF000FFF
        FFFFFFFF0078800FFFFFFF00778008800FFFF07788788008800FF88877788880
        080F887777788888800F8F7777F8888888808F77FF77788888808FFF77997778
        88808F77AA7778807880F88F77788FF0700FFFF88F8FFFFF0FFFFFFFF88FFFFF
        F0FFFFFFFFF8FFFFFF00FFFFFFFF8FFF88FFFFFFFFFFF888FFFF}
      OnClick = SpeedButton1Click
    end
    object mydate: TDateTimePicker
      Left = 85
      Top = 24
      Width = 89
      Height = 21
      CalAlignment = dtaLeft
      Date = 38738.881962338
      Time = 38738.881962338
      DateFormat = dfShort
      DateMode = dmComboBox
      ImeName = #20013#25991' ('#31616#20307') - '#26497#28857#20013#25991
      Kind = dtkDate
      ParseInput = False
      TabOrder = 0
    end
  end
  object frReport1: TfrReport
    Dataset = frDBDataSet1
    InitialZoom = pzDefault
    ModifyPrepared = False
    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
    RebuildPrinter = False
    Left = 16
    Top = 24
    ReportForm = {19000000}
  end
  object frDBDataSet1: TfrDBDataSet
    DataSet = ADOQuery1
    Left = 144
    Top = 16
  end
  object ADOQuery1: TADOQuery
    Connection = dm.conn
    CursorType = ctStatic
    ParamCheck = False
    Parameters = <>
    SQL.Strings = (
      
        'TRANSFORM sum(Q_customertemp.caipincount*Q_customertemp.caipinpr' +
        'ice) AS heji'
      
        'SELECT Q_customertemp.chuanbiaohao as '#20256#31080#21495#30721',Q_customertemp.fangta' +
        'iid as '#25151#21488#32534#21495
      
        'FROM ((Q_caipin INNER JOIN Q_childclass ON Q_caipin.chclassid=Q_' +
        'childclass.chclassid) INNER JOIN Q_customertemp ON Q_caipin.Caip' +
        'inid=Q_customertemp.Caipinid) INNER JOIN Q_masterclass ON Q_chil' +
        'dclass.Mclassid=Q_masterclass.mclassid'
      'GROUP BY Q_customertemp.chuanbiaohao,Q_customertemp.fangtaiid'
      'PIVOT Q_masterclass.Mclass_name')
    Left = 112
    Top = 16
  end
end