frmguestcostfrom.~dfm

一个基于delphi7.0的客房管理系统。

object GuestCostForm: TGuestCostForm
  Left = 262
  Top = 184
  Width = 593
  Height = 244
  AutoSize = True
  Caption = #26053#23458#36153#29992
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 0
    Top = 0
    Width = 585
    Height = 185
    Color = clInfoBk
    DataSource = DataSource1
    FixedColor = clSilver
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object Button1: TButton
    Left = 8
    Top = 192
    Width = 75
    Height = 25
    Caption = #20851#38381
    TabOrder = 1
    OnClick = Button1Click
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 328
    Top = 192
  end
  object Table1: TTable
    DatabaseName = 'rooms'
    TableName = 'RoomInfo.DB'
    Left = 360
    Top = 192
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'rooms'
    SQL.Strings = (
      
        'select RoomInfo.'#25151#38388#21495',RoomInfo.'#25151#20215',RoomInfo.'#30331#35760#26102#38388',touristinfo.'#31163#24215#26085#26399',R' +
        'oomInfo.'#25307#24453#21333#20301',touristinfo.'#22995#21517' from RoomInfo,touristinfo where room' +
        'info.'#25151#38388#21495'=touristinfo.'#25151#38388#21495)
    Left = 392
    Top = 192
  end
end