unit30.dfm

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

object Form30: TForm30
  Left = 248
  Top = 161
  Width = 613
  Height = 480
  Caption = #32467#36134
  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#26700#21495#32467#36134
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 32
      Width = 48
      Height = 20
      AutoSize = False
      Caption = #26700#21495#65306
    end
    object Label2: TLabel
      Left = 152
      Top = 32
      Width = 89
      Height = 20
      AutoSize = False
      Caption = #32467#36134#26085#26399#65306
    end
    object ComboBox1: TComboBox
      Left = 56
      Top = 24
      Width = 89
      Height = 28
      ItemHeight = 20
      TabOrder = 0
      Text = 'ComboBox1'
    end
    object DateTimePicker1: 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 = 1
    end
    object btnok: TBitBtn
      Left = 368
      Top = 24
      Width = 65
      Height = 25
      TabOrder = 2
      Kind = bkOK
    end
    object exit: TBitBtn
      Left = 512
      Top = 24
      Width = 65
      Height = 25
      TabOrder = 3
      Kind = bkCancel
    end
    object print: TButton
      Left = 440
      Top = 24
      Width = 65
      Height = 25
      Caption = 'Print'
      TabOrder = 4
    end
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 80
    Width = 585
    Height = 353
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -16
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
end