unit11.dfm

酒店住宿管理系统,有完整的文件和源码, 可以下载使用

object zjmxcxForm: TzjmxcxForm
  Left = 199
  Top = 74
  Width = 680
  Height = 461
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #36164#37329#28165#31639#26597#35810
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clBlue
  Font.Height = -21
  Font.Name = #21326#25991#34892#26999
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 22
  object GroupBox1: TGroupBox
    Left = 24
    Top = 16
    Width = 505
    Height = 73
    Caption = #26597#35810#31867#22411
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -19
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object RadioButton1: TRadioButton
      Left = 40
      Top = 16
      Width = 105
      Height = 33
      Caption = #35746#25151#32534#21495
      TabOrder = 0
      OnClick = RadioButton1Click
    end
    object RadioButton2: TRadioButton
      Left = 155
      Top = 15
      Width = 113
      Height = 32
      Caption = #23458#25151#32534#21495
      TabOrder = 1
      OnClick = RadioButton2Click
    end
    object RadioButton3: TRadioButton
      Left = 272
      Top = 15
      Width = 110
      Height = 30
      Caption = #23458#20154#21517#31216
      TabOrder = 2
      OnClick = RadioButton3Click
    end
    object RadioButton4: TRadioButton
      Left = 384
      Top = 16
      Width = 105
      Height = 25
      Caption = #35777#20214#32534#21495
      TabOrder = 3
      OnClick = RadioButton4Click
    end
    object RadioButton7: TRadioButton
      Left = 272
      Top = 40
      Width = 105
      Height = 25
      Caption = #25805#20316#21592
      TabOrder = 4
      OnClick = RadioButton7Click
    end
    object RadioButton8: TRadioButton
      Left = 384
      Top = 41
      Width = 88
      Height = 23
      Caption = #20840#37096
      TabOrder = 5
      OnClick = RadioButton8Click
    end
    object RadioButton5: TRadioButton
      Left = 39
      Top = 42
      Width = 119
      Height = 25
      Caption = #35746#25151#26085#26399
      TabOrder = 6
      OnClick = RadioButton5Click
    end
    object RadioButton6: TRadioButton
      Left = 155
      Top = 43
      Width = 110
      Height = 22
      Caption = #32467#36134#26085#26399
      TabOrder = 7
      OnClick = RadioButton6Click
    end
  end
  object GroupBox2: TGroupBox
    Left = 24
    Top = 96
    Width = 561
    Height = 57
    Caption = #26597#35810#26465#20214
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -19
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object Label1: TLabel
      Left = 8
      Top = 23
      Width = 40
      Height = 19
      Caption = 'Label1'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -19
      Font.Name = #21326#25991#34892#26999
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 266
      Top = 21
      Width = 43
      Height = 19
      Caption = 'Label2'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -19
      Font.Name = #21326#25991#34892#26999
      Font.Style = []
      ParentFont = False
    end
    object Edit1: TEdit
      Left = 128
      Top = 17
      Width = 121
      Height = 27
      TabOrder = 0
      Text = 'Edit1'
    end
    object MaskEdit1: TMaskEdit
      Left = 128
      Top = 17
      Width = 115
      Height = 27
      EditMask = '!9999/99/00;1;_'
      MaxLength = 10
      TabOrder = 1
      Text = '    -  -  '
    end
    object MaskEdit2: TMaskEdit
      Left = 408
      Top = 19
      Width = 116
      Height = 27
      EditMask = '!9999/99/00;1;_'
      MaxLength = 10
      TabOrder = 2
      Text = '    -  -  '
    end
    object DateTimePicker1: TDateTimePicker
      Left = 128
      Top = 17
      Width = 137
      Height = 30
      Date = 38121.000000000000000000
      Time = 38121.000000000000000000
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -21
      Font.Name = #21326#25991#34892#26999
      Font.Style = []
      ParentFont = False
      TabOrder = 3
    end
    object DateTimePicker2: TDateTimePicker
      Left = 392
      Top = 16
      Width = 153
      Height = 30
      Date = 38121.671938657400000000
      Time = 38121.671938657400000000
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -21
      Font.Name = #21326#25991#34892#26999
      Font.Style = []
      ParentFont = False
      TabOrder = 4
    end
  end
  object BitBtn1: TBitBtn
    Left = 548
    Top = 40
    Width = 86
    Height = 33
    Hint = #28857#20987#35813#25353#38062#24320#22987#26597#35810
    Caption = #26597#35810
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -21
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    OnClick = BitBtn1Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      333333333333333FF3FF3333333333CC30003333333333773777333333333C33
      3000333FF33337F33777339933333C3333333377F33337F3333F339933333C33
      33003377333337F33377333333333C333300333F333337F33377339333333C33
      3333337FF3333733333F33993333C33333003377FF33733333773339933C3333
      330033377FF73F33337733339933C33333333FF377F373F3333F993399333C33
      330077F377F337F33377993399333C33330077FF773337F33377399993333C33
      33333777733337F333FF333333333C33300033333333373FF7773333333333CC
      3000333333333377377733333333333333333333333333333333}
    NumGlyphs = 2
  end
  object DBGrid1: TDBGrid
    Left = 24
    Top = 160
    Width = 609
    Height = 201
    DataSource = DataSource1
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -19
    Font.Name = #21326#25991#20013#23435
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clBlue
    TitleFont.Height = -21
    TitleFont.Name = #21326#25991#34892#26999
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = #35746#25151#32534#21495
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -16
        Font.Name = #21326#25991#20013#23435
        Font.Style = []
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clBlue
        Title.Font.Height = -19
        Title.Font.Name = #21326#25991#34892#26999
        Title.Font.Style = []
        Visible = True
      end
      item