md.dfm

一个用Delphi做的不错的学生宿舍管理系统！界面比前一个好看！

object DataMd: TDataMd
  OldCreateOrder = False
  Left = 44
  Top = 251
  Height = 283
  Width = 464
  object ADOConn: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data\classroom.mdb;' +
      'Persist Security Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 56
    Top = 24
  end
  object ADOManage: TADOQuery
    Connection = ADOConn
    Parameters = <>
    Left = 176
    Top = 24
  end
  object ADOOrder: TADOQuery
    Active = True
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from tborder')
    Left = 176
    Top = 80
    object ADOOrderDSDesigner: TWideStringField
      FieldName = #23398#21495
      Size = 50
    end
    object ADOOrderDSDesigner2: TWideStringField
      FieldName = #22995#21517
      Size = 50
    end
    object ADOOrderDSDesigner3: TWideStringField
      FieldName = #24615#21035
      Size = 50
    end
    object ADOOrderDSDesigner4: TWideStringField
      FieldName = #23517#23460#21495
      Size = 50
    end
    object ADOOrderDSDesigner5: TDateTimeField
      FieldName = #20986#29983#24180#26376
    end
    object ADOOrderDSDesigner6: TDateTimeField
      FieldName = #20837#23398#26085#26399
    end
    object ADOOrderDSDesigner7: TWideStringField
      FieldName = #19987#19994
      Size = 50
    end
    object ADOOrderDSDesigner8: TWideStringField
      FieldName = #29677#32423
      Size = 50
    end
    object ADOOrderDSDesigner9: TWideStringField
      FieldName = #25919#27835#38754#35980
      Size = 50
    end
    object ADOOrderDSDesigner10: TWideStringField
      FieldName = #27605#19994#23398#26657
      Size = 50
    end
    object ADOOrderDSDesigner11: TWideStringField
      FieldName = #23478#24237#22320#22336
      Size = 50
    end
    object ADOOrderDSDesigner12: TWideStringField
      FieldName = #32852#31995#26041#24335
      Size = 50
    end
    object ADOOrderDSDesigner13: TWideStringField
      FieldName = #29366#24577
      Size = 50
    end
    object ADOOrderDSDesigner14: TMemoField
      FieldName = #22791#27880
      BlobType = ftMemo
    end
  end
  object ADOEmpleer: TADOQuery
    Active = True
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from empleer')
    Left = 176
    Top = 136
  end
  object ADOEnrol: TADOQuery
    Active = True
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from tbEnrol')
    Left = 176
    Top = 200
  end
  object ADOGrade: TADOQuery
    Connection = ADOConn
    Parameters = <>
    Left = 328
    Top = 24
  end
  object ADOWorth: TADOQuery
    Active = True
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from worth')
    Left = 336
    Top = 80
  end
  object ADORegiste: TADOQuery
    Active = True
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from registe')
    Left = 328
    Top = 152
  end
  object dsManage: TDataSource
    DataSet = ADOManage
    Left = 248
    Top = 24
  end
  object DSorder: TDataSource
    DataSet = ADOOrder
    Left = 240
    Top = 80
  end
  object dsempleer: TDataSource
    DataSet = ADOEmpleer
    Left = 248
    Top = 144
  end
  object DSEnrol: TDataSource
    DataSet = ADOEnrol
    Left = 248
    Top = 200
  end
  object DSGrade: TDataSource
    DataSet = ADOGrade
    Left = 392
    Top = 24
  end
  object DSWorth: TDataSource
    DataSet = ADOWorth
    Left = 392
    Top = 96
  end
  object DSRegiste: TDataSource
    DataSet = ADORegiste
    Left = 392
    Top = 152
  end
  object DSHouse: TDataSource
    DataSet = ADOhouse
    Left = 88
    Top = 128
  end
  object ADOhouse: TADOQuery
    Connection = ADOConn
    Parameters = <>
    Left = 24
    Top = 128
  end
  object DSTBPd: TDataSource
    DataSet = ADOBTPd
    Left = 96
    Top = 200
  end
  object ADOBTPd: TADOQuery
    Connection = ADOConn
    Parameters = <>
    Left = 32
    Top = 200
  end
  object ADOVisit: TADOQuery
    Active = True
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from visit')
    Left = 392
    Top = 208
  end
  object DSVisit: TDataSource
    DataSet = ADOVisit
    Left = 328
    Top = 208
  end
end