xiaoanlyes.dfm

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

object Frmxiaoanlyes: TFrmxiaoanlyes
  Left = 250
  Top = 217
  Width = 580
  Height = 418
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #28040#36153#20998#26512
  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 = 4
    Top = 2
    Width = 557
    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 SpeedButton1: TSpeedButton
      Left = 364
      Top = 20
      Width = 56
      Height = 25
      Caption = #26597#35810
      Glyph.Data = {
        9A020000424D9A020000000000009A0100002800000010000000100000000100
        08000000000000010000120B0000120B0000590000005900000000000000FFFF
        FF00FF00FF00AB00AB008B008B0079017900FF03FF00FA2FFA00FA95FA00F75F
        F4003C133900D7B48C00C2A07200D7A56000E7961100EB9F2200D08A0A00C495
        4100D1921200E7CC6200F0DD8F00F3E39E00FFFFEE007D8F0A00748904001566
        0000146801000087000000830000008200000081000000740000006E0000006A
        000000690000005E0000004C0000004B0000004400000473040000510200018A
        0300038A0600046606004370440000530300025E050004910B0001760800067A
        0E00077F1200468C4D000A9E1A000C9E1D0012811E0014A628002A9A3A000DA1
        230019962D0021A737000AAA27000F8E2700209635001BA138002CD8510016B5
        3A0018B23C0019B8420025BD50002CC6550025CB580027CB59002BD15E0036DA
        67003AE76F0039E9720045F680004DFF880040D7760055D4810078C79E00005F
        4F0005817F003ACCCB0000C4CE000D9AA40036EBFF0038EDFF0000D8FF000202
        02020202022525020202020202020202020202022E4C1E250202020202020202
        020202022E4C1E250202020202020202020202022E4C1E250202020202020202
        020202022E4C1E250202020202020202020202022E4437250202020202020202
        0202022E4843392F250202020202020202022E4A4742352A1D25020202020202
        022E4D4B464134291C1B2502020202022E49453F3D32272122201F250202022E
        2B191A30385354523E3B3A3125022E23180F0E173C4F5658554E40503624022E
        0D1513102D28335751262C090A0202020B161412020202020202080603050202
        020C11020202020202020807040202020202020202020202020202080202}
      OnClick = SpeedButton1Click
    end
    object SpeedButton2: TSpeedButton
      Left = 459
      Top = 20
      Width = 56
      Height = 25
      Caption = #25171#21360
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFF000FFF
        FFFFFFFF0078800FFFFFFF00778008800FFFF07788788008800FF88877788880
        080F887777788888800F8F7777F8888888808F77FF77788888808FFF77997778
        88808F77AA7778807880F88F77788FF0700FFFF88F8FFFFF0FFFFFFFF88FFFFF
        F0FFFFFFFFF8FFFFFF00FFFFFFFF8FFF88FFFFFFFFFFF888FFFF}
      OnClick = SpeedButton2Click
    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 DBChart1: TDBChart
    Left = 8
    Top = 80
    Width = 553
    Height = 297
    AllowZoom = False
    AnimatedZoom = True
    AnimatedZoomSteps = 5
    BackWall.Brush.Color = clWhite
    BackWall.Brush.Style = bsClear
    PrintProportional = False
    Title.Font.Charset = DEFAULT_CHARSET
    Title.Font.Color = clBlue
    Title.Font.Height = -21
    Title.Font.Name = #38582#20070
    Title.Font.Style = []
    Title.Text.Strings = (
      #20154#22343#28040#36153#20998#26512)
    LeftAxis.LabelsSize = 1
    LeftAxis.TickLength = 2
    LeftAxis.TitleSize = 4
    Legend.ShadowSize = 0
    View3D = False
    View3DWalls = False
    TabOrder = 1
    object Series1: TBarSeries
      ColorEachPoint = True
      Marks.ArrowLength = 20
      Marks.BackColor = 16631432
      Marks.Visible = True
      DataSource = ADOQuery1
      SeriesColor = 4259584
      BarWidthPercent = 5
      XValues.DateTime = True
      XValues.Name = 'X'
      XValues.Multiplier = 1
      XValues.Order = loAscending
      XValues.ValueSource = 'currdate'
      YValues.DateTime = False
      YValues.Name = 'Bar'
      YValues.Multiplier = 1
      YValues.Order = loNone
      YValues.ValueSource = 'pingjun'
    end
  end
  object ADOQuery1: TADOQuery
    Connection = dm.conn
    CursorType = ctStatic
    ParamCheck = False
    Parameters = <>
    SQL.Strings = (
      
        'select currdate,sum(yingshou) as totalsale,sum(guestcount) as to' +
        'talcount,sum(yingshou)/sum(guestcount) as pingjun'
      'from q_custpay'
      'group by currdate')
    Left = 144
    Top = 24
  end
  object frReport1: TfrReport
    Dataset = frDBDataSet1
    InitialZoom = pzDefault
    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
    RebuildPrinter = False
    Left = 48
    Top = 24
    ReportForm = {19000000}
  end
  object frDBDataSet1: TfrDBDataSet
    DataSet = ADOQuery1
    Left = 96
    Top = 24
  end
end