unit23.dfm

一个用DELPHI编的酒店管理系统。 其中数据库：SQL Server2000, 只需恢复 My database文件夹中 My database_Data.MDF和 My database_Log.

object Form23: TForm23
  Left = 258
  Top = 72
  Width = 613
  Height = 480
  Caption = #36864#25151
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 20
  object GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 585
    Height = 65
    Caption = #36873#25321#25151#21495#32467#36134
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 32
      Width = 48
      Height = 20
      AutoSize = False
      Caption = #25151#21495#65306
    end
    object Label2: TLabel
      Left = 152
      Top = 32
      Width = 89
      Height = 20
      AutoSize = False
      Caption = #36864#25151#26085#26399#65306
    end
    object outdate: TDateTimePicker
      Left = 240
      Top = 24
      Width = 113
      Height = 28
      CalAlignment = dtaLeft
      Date = 38154.8745209375
      Time = 38154.8745209375
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 0
    end
    object print: TButton
      Left = 432
      Top = 24
      Width = 65
      Height = 25
      Caption = #25171#21360
      TabOrder = 1
    end
    object Button1: TButton
      Left = 360
      Top = 24
      Width = 65
      Height = 25
      Caption = #30830#23450
      TabOrder = 2
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 504
      Top = 24
      Width = 65
      Height = 25
      Caption = #36864#20986
      TabOrder = 3
    end
    object roomid: TEdit
      Left = 64
      Top = 24
      Width = 81
      Height = 28
      TabOrder = 4
      Text = 'roomid'
    end
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 80
    Width = 585
    Height = 121
    DataSource = DataSource1
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -16
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object DBGrid2: TDBGrid
    Left = 8
    Top = 208
    Width = 585
    Height = 225
    DataSource = DataSource2
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -16
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object checkin: TTable
    DatabaseName = 'my database'
    TableName = 'dbo.checkin'
    Left = 184
    Top = 80
  end
  object addcustom: TTable
    DatabaseName = 'my database'
    TableName = 'dbo.addcustom'
    Left = 328
    Top = 216
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'my database'
    SQL.Strings = (
      'select * from checkin')
    Left = 280
    Top = 72
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 120
    Top = 80
  end
  object DataSource2: TDataSource
    DataSet = Query2
    Left = 280
    Top = 216
  end
  object Query2: TQuery
    Active = True
    DatabaseName = 'my database'
    SQL.Strings = (
      'select * from addcustom')
    Left = 392
    Top = 216
  end
end