unit2.dfm

基于delphi的编程实例

object LoginServ: TLoginServ
  OldCreateOrder = False
  Left = 192
  Top = 114
  Height = 150
  Width = 215
  object Query1: TQuery
    Active = True
    DatabaseName = 'DBDEMOS'
    SQL.Strings = (
      'select * from country')
    Left = 48
    Top = 32
  end
  object DataSetProvider1: TDataSetProvider
    DataSet = Query1
    Left = 104
    Top = 24
  end
end