unit6.dfm

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

object Form6: TForm6
  Left = 202
  Top = 107
  Width = 644
  Height = 631
  Caption = #21592#24037#20449#24687#24405#20837
  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 = 241
    Caption = #22635#20889#21592#24037#22522#26412#20449#24687
    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 = 73
      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 = 81
      Height = 16
      AutoSize = False
      Caption = #23130#23035#29366#20917#65306
    end
    object Label7: TLabel
      Left = 200
      Top = 80
      Width = 81
      Height = 16
      AutoSize = False
      Caption = #25919#27835#38754#35980#65306
    end
    object Label9: TLabel
      Left = 200
      Top = 160
      Width = 73
      Height = 16
      AutoSize = False
      Caption = #21592#24037#31561#32423#65306
    end
    object Label10: TLabel
      Left = 200
      Top = 120
      Width = 81
      Height = 16
      AutoSize = False
      Caption = #36523#20221#35777#21495#65306
    end
    object Label4: TLabel
      Left = 16
      Top = 120
      Width = 36
      Height = 16
      AutoSize = False
      Caption = #29983#26085#65306
    end
    object Label8: TLabel
      Left = 16
      Top = 160
      Width = 73
      Height = 16
      AutoSize = False
      Caption = #32856#20219#26085#26399#65306
    end
    object Label11: TLabel
      Left = 392
      Top = 160
      Width = 73
      Height = 16
      AutoSize = False
      Caption = #24037#20316#37096#38376#65306
    end
    object Label12: TLabel
      Left = 448
      Top = 224
      Width = 137
      Height = 13
      AutoSize = False
      Caption = #65288#24102'*'#21495#20026#24517#22635#20869#23481#65289
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label13: TLabel
      Left = 384
      Top = 40
      Width = 5
      Height = 16
      Caption = '*'
    end
    object Label14: TLabel
      Left = 528
      Top = 40
      Width = 5
      Height = 16
      Caption = '*'
    end
    object Label15: TLabel
      Left = 584
      Top = 120
      Width = 5
      Height = 16
      Caption = '*'
    end
    object Label16: TLabel
      Left = 192
      Top = 80
      Width = 5
      Height = 16
      Caption = '*'
    end
    object Label17: TLabel
      Left = 184
      Top = 160
      Width = 5
      Height = 16
      Caption = '*'
    end
    object Label18: TLabel
      Left = 384
      Top = 160
      Width = 5
      Height = 16
      Caption = '*'
    end
    object Label19: TLabel
      Left = 584
      Top = 160
      Width = 5
      Height = 16
      Caption = '*'
    end
    object employeeid: TEdit
      Left = 104
      Top = 32
      Width = 81
      Height = 24
      AutoSize = False
      ReadOnly = True
      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 = 112
      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 = 280
      Top = 152
      Width = 97
      Height = 24
      ItemHeight = 16
      TabOrder = 7
      Items.Strings = (
        ''
        'A'
        'B'
        'C')
    end
    object birthday: TDateTimePicker
      Left = 64
      Top = 112
      Width = 121
      Height = 24
      CalAlignment = dtaLeft
      Date = 38153.8395118982
      Time = 38153.8395118982
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 8
    end
    object jointime: TDateTimePicker
      Left = 88
      Top = 152
      Width = 89
      Height = 24
      CalAlignment = dtaLeft
      Date = 38153.8396999769
      Time = 38153.8396999769
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 9
    end
    object workgroup: TComboBox
      Left = 472
      Top = 152
      Width = 105
      Height = 24
      ItemHeight = 16
      TabOrder = 10
      Items.Strings = (
        ''
        #31649#29702#23618
        #23458#25151#37096
        #39184#39278#37096
        #21518#21220#37096
        #32593#32476#37096)
    end
    object insert: TButton
      Left = 432
      Top = 192
      Width = 65
      Height = 25
      Caption = #24405#20837
      TabOrder = 11
      OnClick = insertClick
    end
    object refresh: TButton
      Left = 512
      Top = 192
      Width = 65
      Height = 25
      Caption = #28165#23631
      TabOrder = 12
      OnClick = refreshClick
    end
  end
  object DBGrid1: TDBGrid
    Left = 16
    Top = 264
    Width = 601
    Height = 313
    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 = 200
    Width = 121
    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 = 8
      Top = 16
      Width = 65
      Height = 17
      Caption = #21319#24207
      TabOrder = 0
      OnClick = ascClick
    end
    object desc: TRadioButton
      Left = 64
      Top = 16
      Width = 49
      Height = 17
      Caption = #38477#24207
      TabOrder = 1
      OnClick = descClick
    end
  end
  object GroupBox3: TGroupBox
    Left = 168
    Top = 200
    Width = 265
    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 = 72
      Top = 16
      Width = 57
      Height = 17
      Caption = #22995#21517
      TabOrder = 1
    end
    object rank: TRadioButton
      Left = 128
      Top = 16
      Width = 65
      Height = 17
      Caption = #31561#32423
      TabOrder = 2
      OnClick = rankClick
    end
    object date: TRadioButton
      Left = 184
      Top = 16
      Width = 73
      Height = 17
      Caption = #32856#20219#26085#26399
      TabOrder = 3
    end
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 152
    Top = 248
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'my database'
    SQL.Strings = (
      'select * from employee')
    Left = 200
    Top = 240
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'My database'
    TableName = 'dbo.employee'
    Left = 248
    Top = 248
  end
end