unit2.~dfm

这是我们班实习的时候做的一个宠物医院管理系统。sql数据库

object DataModule2: TDataModule2
  OldCreateOrder = False
  Left = 220
  Top = 191
  Height = 345
  Width = 257
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    OnDataChange = DataSource1DataChange
    Left = 48
    Top = 208
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initi' +
      'al Catalog=pethospital;Data Source=.'
    Provider = 'SQLOLEDB.1'
    Left = 96
    Top = 24
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from AccountTable ')
    Left = 144
    Top = 208
  end
end