unit7.dfm

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

object Form7: TForm7
  Left = 276
  Top = 10
  Width = 644
  Height = 631
  Caption = #21592#24037#20449#24687#26597#35810
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 20
  object GroupBox1: TGroupBox
    Left = 16
    Top = 16
    Width = 601
    Height = 249
    Caption = #22635#20889#20851#38190#23383#26597#35810
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 40
      Width = 81
      Height = 16
      AutoSize = False
      Caption = #21592#24037#32534#21495#65306
    end
    object Label2: TLabel
      Left = 200
      Top = 40
      Width = 73
      Height = 16
      AutoSize = False
      Caption = #21592#24037#22995#21517#65306
    end
    object Label3: TLabel
      Left = 408
      Top = 40
      Width = 36
      Height = 16
      AutoSize = False
      Caption = #24615#21035#65306
    end
    object Label5: TLabel
      Left = 16
      Top = 80
      Width = 36
      Height = 16
      AutoSize = False
      Caption = #23398#21382#65306
    end
    object Label6: TLabel
      Left = 408
      Top = 80
      Width = 73
      Height = 16
      AutoSize = False
      Caption = #23130#23035#29366#20917#65306
    end
    object Label7: TLabel
      Left = 200
      Top = 80
      Width = 73
      Height = 16
      AutoSize = False
      Caption = #25919#27835#38754#35980#65306
    end
    object Label9: TLabel
      Left = 16
      Top = 128
      Width = 81
      Height = 16
      AutoSize = False
      Caption = #21592#24037#31561#32423#65306
    end
    object Label10: TLabel
      Left = 200
      Top = 128
      Width = 73
      Height = 16
      AutoSize = False
      Caption = #36523#20221#35777#21495#65306
    end
    object employeeid: TEdit
      Left = 104
      Top = 32
      Width = 81
      Height = 24
      AutoSize = False
      TabOrder = 0
    end
    object employeename: TEdit
      Left = 280
      Top = 32
      Width = 97
      Height = 24
      AutoSize = False
      MaxLength = 8
      TabOrder = 1
    end
    object idcard: TEdit
      Left = 280
      Top = 120
      Width = 297
      Height = 24
      AutoSize = False
      TabOrder = 2
    end
    object gender: TComboBox
      Left = 456
      Top = 32
      Width = 65
      Height = 24
      ItemHeight = 16
      TabOrder = 3
      Items.Strings = (
        ''
        #30007
        #22899)
    end
    object married: TComboBox
      Left = 488
      Top = 72
      Width = 89
      Height = 24
      ItemHeight = 16
      TabOrder = 4
      Items.Strings = (
        ''
        #26410#23130
        #24050#23130
        #31163#24322)
    end
    object politic: TComboBox
      Left = 280
      Top = 72
      Width = 97
      Height = 24
      ItemHeight = 16
      TabOrder = 5
      Items.Strings = (
        ''
        #20013#20849#20826#21592
        #20849#38738#22242#21592
        #27665#20027#20154#22763
        #32676#20247)
    end
    object edu: TComboBox
      Left = 64
      Top = 72
      Width = 121
      Height = 24
      ItemHeight = 16
      MaxLength = 4
      TabOrder = 6
      Items.Strings = (
        ''
        #21338#22763
        #30805#22763
        #26412#31185
        #39640#20013
        #20013#19987
        #21021#20013
        #25991#30450)
    end
    object employeerank: TComboBox
      Left = 96
      Top = 120
      Width = 89
      Height = 24
      ItemHeight = 16
      TabOrder = 7
      Items.Strings = (
        ''
        '1'#39640#23618#24178#37096
        '2'#20013#23618#24178#37096
        '3'#22522#23618#24178#37096
        '4'#27491#24335#21592#24037
        '5'#20020#26102#21592#24037)
    end
    object GroupBox4: TGroupBox
      Left = 16
      Top = 152
      Width = 273
      Height = 49
      Caption = #21592#24037#29983#26085
      TabOrder = 8
      object Label4: TLabel
        Left = 128
        Top = 24
        Width = 9
        Height = 16
        Caption = '~'
      end
      object lowbirth: TDateTimePicker
        Left = 8
        Top = 16
        Width = 105
        Height = 24
        CalAlignment = dtaLeft
        Date = 38153.7978918866
        Time = 38153.7978918866
        DateFormat = dfShort
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        TabOrder = 0
      end
      object highbirth: TDateTimePicker
        Left = 152
        Top = 16
        Width = 105
        Height = 24
        CalAlignment = dtaLeft
        Date = 38153.7980790625
        Time = 38153.7980790625
        DateFormat = dfShort
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        TabOrder = 1
      end
    end
    object GroupBox5: TGroupBox
      Left = 304
      Top = 152
      Width = 273
      Height = 49
      Caption = #32856#20219#26085#26399
      TabOrder = 9
      object Label8: TLabel
        Left = 128
        Top = 24
        Width = 9
        Height = 16
        Caption = '~'
      end
      object lowjoin: TDateTimePicker
        Left = 8
        Top = 16
        Width = 105
        Height = 24
        CalAlignment = dtaLeft
        Date = 38153.7990715394
        Time = 38153.7990715394
        DateFormat = dfShort
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        TabOrder = 0
      end
      object highjoin: TDateTimePicker
        Left = 152
        Top = 16
        Width = 105
        Height = 24
        CalAlignment = dtaLeft
        Date = 38153.7992382755
        Time = 38153.7992382755
        DateFormat = dfShort
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        TabOrder = 1
      end
    end
  end
  object DBGrid1: TDBGrid
    Left = 16
    Top = 272
    Width = 601
    Height = 249
    DataSource = DataSource1
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -16
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object GroupBox2: TGroupBox
    Left = 32
    Top = 216
    Width = 169
    Height = 41
    Caption = #25490#24207#26041#27861
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    object asc: TRadioButton
      Left = 24
      Top = 16
      Width = 65
      Height = 17
      Caption = #21319#24207
      TabOrder = 0
      OnClick = ascClick
    end
    object desc: TRadioButton
      Left = 96
      Top = 16
      Width = 49
      Height = 17
      Caption = #38477#24207
      TabOrder = 1
      OnClick = descClick
    end
  end
  object GroupBox3: TGroupBox
    Left = 216
    Top = 216
    Width = 377
    Height = 41
    Caption = #25490#24207#20869#23481
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    object id: TRadioButton
      Left = 16
      Top = 16
      Width = 49
      Height = 17
      Caption = #32534#21495
      TabOrder = 0
      OnClick = idClick
    end
    object name: TRadioButton
      Left = 96
      Top = 16
      Width = 57
      Height = 17
      Caption = #22995#21517
      TabOrder = 1
      OnClick = nameClick
    end
    object rank: TRadioButton
      Left = 184
      Top = 16
      Width = 65
      Height = 17
      Caption = #31561#32423
      TabOrder = 2
      OnClick = rankClick
    end
    object date: TRadioButton
      Left = 280
      Top = 16
      Width = 73
      Height = 17
      Caption = #32856#20219#26085#26399
      TabOrder = 3
      OnClick = dateClick
    end
  end
  object GroupBox6: TGroupBox
    Left = 16
    Top = 528
    Width = 233
    Height = 57
    Caption = #35760#24405#27983#35272#25353#38062
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    object DBNavigator1: TDBNavigator
      Left = 8
      Top = 24
      Width = 216
      Height = 25
      DataSource = DataSource1
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
      TabOrder = 0
    end
  end
  object GroupBox7: TGroupBox
    Left = 264
    Top = 528
    Width = 353
    Height = 57
    Caption = #21629#20196#25353#38062
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    object select: TButton
      Left = 8
      Top = 24
      Width = 65
      Height = 25
      Caption = #26597#35810
      TabOrder = 0
      OnClick = selectClick
    end
    object refresh: TButton
      Left = 272
      Top = 24
      Width = 65
      Height = 25
      Caption = #21047#26032
      TabOrder = 1
      OnClick = refreshClick
    end
    object modify: TButton
      Left = 96
      Top = 24
      Width = 65
      Height = 25
      Caption = #20462#25913
      TabOrder = 2
      OnClick = modifyClick
    end
    object delete: TButton
      Left = 184
      Top = 24
      Width = 65
      Height = 25
      Caption = #21024#38500
      TabOrder = 3
      OnClick = deleteClick
    end
  end
  object sqlemployee: TQuery
    Active = True
    DatabaseName = 'My database'
    SQL.Strings = (
      'select * from employee')
    Left = 192
    Top = 248
  end
  object DataSource1: TDataSource
    DataSet = sqlemployee
    Left = 256
    Top = 248
  end
end