unit26.~dfm

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

object sydwform: Tsydwform
  Left = 177
  Top = 115
  Width = 502
  Height = 349
  Caption = #20351#29992#21333#20301#20449#24687
  Color = clSkyBlue
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object BitBtn1: TBitBtn
    Left = 88
    Top = 272
    Width = 75
    Height = 25
    Caption = #20462#25913
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -21
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 224
    Top = 272
    Width = 75
    Height = 25
    Caption = #30830#23450
    Enabled = False
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -21
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = BitBtn2Click
  end
  object BitBtn3: TBitBtn
    Left = 360
    Top = 272
    Width = 75
    Height = 25
    Caption = #36864#20986
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -21
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = BitBtn3Click
  end
  object GroupBox1: TGroupBox
    Left = 72
    Top = 48
    Width = 369
    Height = 217
    Caption = #20351#29992#21333#20301#22522#26412#20449#24687
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -24
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    object Label2: TLabel
      Left = 32
      Top = 85
      Width = 96
      Height = 25
      Caption = #21333#20301#22320#22336
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -24
      Font.Name = #21326#25991#34892#26999
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 36
      Top = 127
      Width = 48
      Height = 25
      Caption = #37038#32534
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -24
      Font.Name = #21326#25991#34892#26999
      Font.Style = []
      ParentFont = False
    end
    object Label1: TLabel
      Left = 32
      Top = 44
      Width = 96
      Height = 25
      Caption = #21333#20301#21517#31216
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -24
      Font.Name = #21326#25991#34892#26999
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 34
      Top = 167
      Width = 48
      Height = 25
      Caption = #30005#35805
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -24
      Font.Name = #21326#25991#34892#26999
      Font.Style = []
      ParentFont = False
    end
    object DBEdit1: TDBEdit
      Left = 160
      Top = 38
      Width = 169
      Height = 32
      DataField = #20351#29992#21333#20301
      DataSource = DataSource1
      Enabled = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -21
      Font.Name = #21326#25991#20013#23435
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
    object DBEdit2: TDBEdit
      Left = 160
      Top = 78
      Width = 169
      Height = 32
      DataField = #22320#22336
      DataSource = DataSource1
      Enabled = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -21
      Font.Name = #21326#25991#20013#23435
      Font.Style = []
      ParentFont = False
      TabOrder = 1
    end
    object DBEdit3: TDBEdit
      Left = 160
      Top = 120
      Width = 145
      Height = 32
      DataField = #37038#32534
      DataSource = DataSource1
      Enabled = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -21
      Font.Name = #21326#25991#20013#23435
      Font.Style = []
      ParentFont = False
      TabOrder = 2
    end
    object DBEdit4: TDBEdit
      Left = 160
      Top = 160
      Width = 145
      Height = 32
      DataField = #30005#35805
      DataSource = DataSource1
      Enabled = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -21
      Font.Name = #21326#25991#20013#23435
      Font.Style = []
      ParentFont = False
      TabOrder = 3
    end
  end
  object ADOTable1: TADOTable
    Active = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mindy paradise\p' +
      'roject\mindyparadisehotel.mdb;Persist Security Info=False'
    CursorType = ctStatic
    TableName = #20351#29992#21333#20301
    Top = 8
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Top = 40
  end
end