vilueinfor.dfm

机器须安装SQL Server2000 程序安装完之后

object VilueInforForm: TVilueInforForm
  Left = 154
  Top = 153
  Width = 544
  Height = 376
  Caption = '营业查看'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 536
    Height = 349
    Align = alClient
    Caption = 'Panel1'
    TabOrder = 0
    object Splitter1: TSplitter
      Left = 257
      Top = 49
      Width = 3
      Height = 75
      Cursor = crHSplit
    end
    object GroupBox1: TGroupBox
      Left = 1
      Top = 1
      Width = 534
      Height = 48
      Align = alTop
      Caption = '条件选择'
      TabOrder = 0
      object Label1: TLabel
        Left = 16
        Top = 32
        Width = 48
        Height = 12
        Caption = '已结费用'
      end
      object Label2: TLabel
        Left = 232
        Top = 20
        Width = 72
        Height = 12
        Caption = '请选择时间段'
        Visible = False
      end
      object Label3: TLabel
        Left = 431
        Top = 19
        Width = 12
        Height = 12
        Caption = '到'
        Visible = False
      end
      object Label4: TLabel
        Left = 317
        Top = 20
        Width = 12
        Height = 12
        Caption = '从'
        Visible = False
      end
      object RadioButton1: TRadioButton
        Left = 16
        Top = 15
        Width = 81
        Height = 17
        Caption = '当天营业额'
        TabOrder = 0
        OnClick = RadioButton1Click
      end
      object RadioButton3: TRadioButton
        Left = 112
        Top = 15
        Width = 105
        Height = 17
        Caption = '按时间查看业额'
        TabOrder = 1
        OnClick = RadioButton3Click
      end
      object DateTimePicker1: TDateTimePicker
        Left = 416
        Top = 40
        Width = 89
        Height = 20
        CalAlignment = dtaLeft
        Date = 37743.7232135417
        Time = 37743.7232135417
        DateFormat = dfShort
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        TabOrder = 2
        Visible = False
      end
      object DateTimePicker2: TDateTimePicker
        Left = 336
        Top = 16
        Width = 89
        Height = 20
        CalAlignment = dtaLeft
        Date = 37743.9166377315
        Time = 37743.9166377315
        DateFormat = dfShort
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        TabOrder = 3
        Visible = False
      end
      object DateTimePicker3: TDateTimePicker
        Left = 448
        Top = 16
        Width = 73
        Height = 20
        CalAlignment = dtaLeft
        Date = 37743.9166981481
        Time = 37743.9166981481
        DateFormat = dfShort
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        TabOrder = 4
        Visible = False
        OnChange = DateTimePicker3Change
      end
    end
    object GroupBox2: TGroupBox
      Left = 1
      Top = 124
      Width = 534
      Height = 224
      Align = alBottom
      TabOrder = 1
      object Label5: TLabel
        Left = 16
        Top = 76
        Width = 72
        Height = 12
        Caption = '总营业额为：'
      end
      object Edit1: TEdit
        Left = 112
        Top = 72
        Width = 81
        Height = 20
        TabOrder = 0
      end
    end
    object Panel2: TPanel
      Left = 1
      Top = 49
      Width = 256
      Height = 75
      Align = alLeft
      Caption = 'Panel2'
      TabOrder = 2
      object DBGrid1: TDBGrid
        Left = 1
        Top = 1
        Width = 254
        Height = 73
        Align = alClient
        DataSource = DSOrder
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = '宋体'
        TitleFont.Style = []
      end
    end
    object Panel3: TPanel
      Left = 260
      Top = 49
      Width = 275
      Height = 75
      Align = alClient
      Caption = 'Panel3'
      TabOrder = 3
      object DBGrid2: TDBGrid
        Left = 1
        Top = 1
        Width = 273
        Height = 73
        Align = alClient
        DataSource = DSCost
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = '宋体'
        TitleFont.Style = []
      end
    end
  end
  object ADOQueryOrder: TADOQuery
    Connection = DM.ADOConnectionHotel
    Parameters = <>
    SQL.Strings = (
      'select * from orders')
    Left = 193
    Top = 65
    object ADOQueryOrderID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
      Visible = False
    end
    object ADOQueryOrderOrderNo: TStringField
      DisplayLabel = '定单号'
      DisplayWidth = 10
      FieldName = 'OrderNo'
      Size = 50
    end
    object ADOQueryOrderCustomID: TIntegerField
      DisplayLabel = '客户编号'
      FieldName = 'CustomID'
    end
    object ADOQueryOrderStartTime: TDateTimeField
      DisplayLabel = '入住时间'
      FieldName = 'StartTime'
    end
    object ADOQueryOrderEndTime: TDateTimeField
      DisplayLabel = '离开时间'
      FieldName = 'EndTime'
    end
    object ADOQueryOrderUsed: TIntegerField
      FieldName = 'Used'
      Visible = False
    end
    object ADOQueryOrderBooked: TIntegerField
      FieldName = 'Booked'
      Visible = False
    end
    object ADOQueryOrderChecked: TIntegerField
      FieldName = 'Checked'
      Visible = False
    end
    object ADOQueryOrderBookedTime: TDateTimeField
      FieldName = 'BookedTime'
      Visible = False
    end
    object ADOQueryOrderUnBookedTime: TDateTimeField
      FieldName = 'UnBookedTime'
      Visible = False
    end
    object ADOQueryOrderTotalCost: TIntegerField
      DisplayLabel = '总共花费'
      FieldName = 'TotalCost'
    end
    object ADOQueryOrderOperName: TStringField
      DisplayWidth = 10
      FieldName = 'OperName'
      Size = 50
    end
    object ADOQueryOrderSpecial: TStringField
      FieldName = 'Special'
      Visible = False
      Size = 50
    end
    object ADOQueryOrderChangeRoom: TIntegerField
      FieldName = 'ChangeRoom'
      Visible = False
    end
    object ADOQueryOrderZeKou: TFloatField
      FieldName = 'ZeKou'
    end
    object ADOQueryOrderCheckOperName: TStringField
      FieldName = 'CheckOperName'
      Visible = False
      Size = 50
    end
    object ADOQueryOrderChangeOperName: TStringField
      FieldName = 'ChangeOperName'
      Visible = False
      Size = 50
    end
    object ADOQueryOrderUnBookedOperName: TStringField
      FieldName = 'UnBookedOperName'
      Visible = False
      Size = 50
    end
    object ADOQueryOrderneedCost: TFloatField
      FieldName = 'needCost'
      Visible = False
    end
    object ADOQueryOrderpandycost: TFloatField
      FieldName = 'pandycost'
      Visible = False
    end
  end
  object ADOQueryCost: TADOQuery
    Connection = DM.ADOConnectionHotel
    DataSource = DSOrder
    Parameters = <
      item
        Name = 'orderno'
        Attributes = [paNullable]
        DataType = ftString
        Precision = 50
        Size = 50
        Value = Null
      end>
    SQL.Strings = (
      'select * from cost where orderno= :orderno')
    Left = 460
    Top = 65
    object ADOQueryCostID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
      Visible = False
    end
    object ADOQueryCostOrderNo: TStringField
      DisplayLabel = '定单号'
      DisplayWidth = 10
      FieldName = 'OrderNo'
      Size = 50
    end
    object ADOQueryCostCostResone: TStringField
      DisplayLabel = '费用原因'
      DisplayWidth = 10
      FieldName = 'CostResone'
      Size = 50
    end
    object ADOQueryCostCostTime: TDateTimeField
      DisplayLabel = '交易时间'
      FieldName = 'CostTime'
    end
    object ADOQueryCostCost: TIntegerField
      FieldName = 'Cost'
      Visible = False
    end
    object ADOQueryCostOperName: TStringField
      DisplayLabel = '操作员'
      DisplayWidth = 10
      FieldName = 'OperName'
      Size = 50
    end
    object ADOQueryCostCustomID: TIntegerField
      DisplayLabel = '客户编号'
      FieldName = 'CustomID'
    end
    object ADOQueryCostNeedCost: TIntegerField
      DisplayLabel = '所需费用'
      FieldName = 'NeedCost'
    end
    object ADOQueryCostCustomName: TStringField
      DisplayLabel = '客户姓名'
      DisplayWidth = 10
      FieldName = 'CustomName'
      Size = 50
    end
    object ADOQueryCostRoomNo: TStringField
      DisplayLabel = '房间号'
      DisplayWidth = 10
      FieldName = 'RoomNo'
      Size = 50
    end
  end
  object DSOrder: TDataSource
    DataSet = ADOQueryOrder
    Left = 153
    Top = 65
  end
  object DSCost: TDataSource
    DataSet = ADOQueryCost
    Left = 460
    Top = 113
  end
  object ADOQuerySum: TADOQuery
    Connection = DM.ADOConnectionHotel
    Parameters = <>
    Left = 73
    Top = 180
  end
end