unit20.~dfm

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

object DtszcxForm: TDtszcxForm
  Left = 215
  Top = 57
  Width = 736
  Height = 609
  Caption = #24403#26085#25910#25903#26597#35810
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  Scaled = False
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 56
    Top = 216
    Width = 84
    Height = 22
    Caption = #35746#25151#32534#21495
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -21
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 56
    Top = 268
    Width = 84
    Height = 22
    Caption = #23458#25151#32534#21495
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -21
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 392
    Top = 216
    Width = 84
    Height = 22
    Caption = #23458#25143#21517#31216
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -21
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 392
    Top = 272
    Width = 84
    Height = 22
    Caption = #35777#20214#21495#30721
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -21
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 56
    Top = 319
    Width = 84
    Height = 22
    Caption = #23454#25910#37329#39069
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -21
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
  end
  object Label6: TLabel
    Left = 63
    Top = 427
    Width = 42
    Height = 22
    Caption = #35828#26126
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -21
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
  end
  object Label7: TLabel
    Left = 56
    Top = 373
    Width = 42
    Height = 22
    Caption = #26085#26399
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -21
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
  end
  object Label8: TLabel
    Left = 48
    Top = 32
    Width = 147
    Height = 22
    Caption = #24403#21069#35760#24405#21495#20026#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -21
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
  end
  object Label9: TLabel
    Left = 192
    Top = 34
    Width = 57
    Height = 31
    AutoSize = False
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -21
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
  end
  object Label10: TLabel
    Left = 394
    Top = 319
    Width = 63
    Height = 22
    Caption = #25805#20316#20154
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -21
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
  end
  object DBGrid1: TDBGrid
    Left = 48
    Top = 72
    Width = 633
    Height = 129
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = #35746#25151#32534#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = #23458#25151#32534#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = #23458#20154#21517#31216
        Visible = True
      end
      item
        Expanded = False
        FieldName = #35777#20214#32534#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = #23454#25910#37329#39069
        Visible = True
      end
      item
        Expanded = False
        FieldName = #25805#20316#20154
        Visible = True
      end
      item
        Expanded = False
        FieldName = #26085#26399
        Visible = True
      end
      item
        Expanded = False
        FieldName = #35828#26126
        ReadOnly = True
        Visible = True
      end>
  end
  object BitBtn1: TBitBtn
    Left = 247
    Top = 528
    Width = 84
    Height = 28
    Caption = #25171#21360
    DragCursor = crHandPoint
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -24
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 407
    Top = 528
    Width = 84
    Height = 28
    Caption = #36864#20986
    Default = True
    DragCursor = crHandPoint
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -24
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = BitBtn2Click
  end
  object Edit1: TEdit
    Left = 161
    Top = 212
    Width = 121
    Height = 29
    Enabled = False
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -20
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
    TabOrder = 3
  end
  object Edit2: TEdit
    Left = 161
    Top = 263
    Width = 121
    Height = 29
    Enabled = False
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -20
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
    TabOrder = 4
  end
  object Edit3: TEdit
    Left = 502
    Top = 211
    Width = 121
    Height = 29
    Enabled = False
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -20
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
    TabOrder = 5
  end
  object Edit4: TEdit
    Left = 502
    Top = 263
    Width = 121
    Height = 29
    Enabled = False
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -20
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
    TabOrder = 6
  end
  object Edit5: TEdit
    Left = 161
    Top = 315
    Width = 121
    Height = 29
    Enabled = False
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -20
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
    TabOrder = 7
  end
  object Edit6: TEdit
    Left = 161
    Top = 423
    Width = 400
    Height = 29
    Enabled = False
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -20
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
    TabOrder = 8
  end
  object Edit7: TEdit
    Left = 161
    Top = 368
    Width = 121
    Height = 29
    Enabled = False
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -20
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
    TabOrder = 9
  end
  object BitBtn3: TBitBtn
    Left = 136
    Top = 472
    Width = 105
    Height = 31
    Caption = #31532#19968#26465
    DragCursor = crHandPoint
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -24
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
    TabOrder = 10
    OnClick = BitBtn3Click
  end
  object BitBtn4: TBitBtn
    Left = 248
    Top = 472
    Width = 105
    Height = 31
    Caption = #19978#19968#26465
    DragCursor = crHandPoint
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -24
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
    TabOrder = 11
    OnClick = BitBtn4Click
  end
  object BitBtn5: TBitBtn
    Left = 360
    Top = 472
    Width = 105
    Height = 31
    Caption = #19979#19968#26465
    DragCursor = crHandPoint
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -24
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
    TabOrder = 12
    OnClick = BitBtn5Click
  end
  object BitBtn6: TBitBtn
    Left = 472
    Top = 472
    Width = 105
    Height = 31
    Caption = #26368#21518#19968#26465
    DragCursor = crHandPoint
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -24
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
    TabOrder = 13
    OnClick = BitBtn6Click
  end
  object Edit8: TEdit
    Left = 502
    Top = 314
    Width = 121
    Height = 29
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -20
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
    TabOrder = 14
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=D:\mi' +
      'ndy paradise\project\mindyparadisehotel.mdb;Mode=Share Deny None' +
      ';Extended Properties="";Persist Security Info=False;Jet OLEDB:Sy' +
      'stem database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database P' +
      'assword="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mo' +
      'de=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk T' +
      'ransactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Creat' +
      'e System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLE' +
      'DB:Don'#39't Copy Locale on Compact=False;Jet OLEDB:Compact Without ' +
      'Replica Repair=False;Jet OLEDB:SFP=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Top = 40
  end
  object ADODataSet1: TADODataSet
    CursorType = ctStatic
    AfterScroll = ADODataSet1AfterScroll
    Parameters = <>
  end
end