saleanlyse.dfm

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

object Frmsaleanlyse: TFrmsaleanlyse
  Left = 396
  Top = 153
  Width = 432
  Height = 101
  BorderIcons = [biSystemMenu]
  Caption = #38144#21806#20998#26512
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 4
    Top = 2
    Width = 413
    Height = 59
    Caption = #26597#35810#26465#20214
    TabOrder = 0
    object Label1: TLabel
      Left = 10
      Top = 28
      Width = 65
      Height = 12
      AutoSize = False
      Caption = #24320#22987#26102#38388#65306
      Transparent = True
    end
    object Label2: TLabel
      Left = 166
      Top = 27
      Width = 63
      Height = 12
      AutoSize = False
      Caption = #32467#26463#26102#38388#65306
      Transparent = True
    end
    object BtnPrint: TSpeedButton
      Left = 338
      Top = 21
      Width = 56
      Height = 25
      Caption = #25171#21360
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFF000FFF
        FFFFFFFF0078800FFFFFFF00778008800FFFF07788788008800FF88877788880
        080F887777788888800F8F7777F8888888808F77FF77788888808FFF77997778
        88808F77AA7778807880F88F77788FF0700FFFF88F8FFFFF0FFFFFFFF88FFFFF
        F0FFFFFFFFF8FFFFFF00FFFFFFFF8FFF88FFFFFFFFFFF888FFFF}
      OnClick = BtnPrintClick
    end
    object startdate: TDateTimePicker
      Left = 72
      Top = 23
      Width = 89
      Height = 20
      CalAlignment = dtaLeft
      Date = 38735.5177193866
      Time = 38735.5177193866
      DateFormat = dfShort
      DateMode = dmComboBox
      ImeName = #20013#25991' ('#31616#20307') - '#26497#28857#20013#25991
      Kind = dtkDate
      ParseInput = False
      TabOrder = 0
    end
    object enddate: TDateTimePicker
      Left = 228
      Top = 24
      Width = 89
      Height = 20
      CalAlignment = dtaLeft
      Date = 38735.5184628704
      Time = 38735.5184628704
      DateFormat = dfShort
      DateMode = dmComboBox
      ImeName = #20013#25991' ('#31616#20307') - '#26497#28857#20013#25991
      Kind = dtkDate
      ParseInput = False
      TabOrder = 1
    end
  end
  object frReport1: TfrReport
    Dataset = frDBDataSet1
    InitialZoom = pzDefault
    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
    RebuildPrinter = False
    Left = 48
    Top = 16
    ReportForm = {19000000}
  end
  object ADOQuery1: TADOQuery
    AutoCalcFields = False
    Connection = dm.conn
    CursorType = ctStatic
    ParamCheck = False
    Parameters = <>
    Prepared = True
    SQL.Strings = (
      
        'SELECT a.caipinname,a.caipinprice,sum(b.caipincount) as shulian,' +
        'sum(b.caipincount*b.caipinprice) as saleprice,(sum(b.caipincount' +
        ')*a.caipinprice-sum(b.caipincount*b.caipinprice)) as cajia'
      'From Q_caipin a,Q_customertemp b'
      'where a.caipinid=b.caipinid'
      'group by a.caipinname,a.caipinprice')
    Left = 152
    Top = 16
  end
  object frDBDataSet1: TfrDBDataSet
    DataSet = ADOQuery1
    Left = 104
    Top = 16
  end
end