unit_dm.dfm

delphi中用ADO控件写的简单的登录界面

object DM: TDM
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 317
  Top = 114
  Height = 246
  Width = 330
  object ADOConnection1: TADOConnection
    Left = 40
    Top = 24
  end
  object ADOQuery1: TADOQuery
    Parameters = <>
    SQL.Strings = (
      'select * from user')
    Left = 128
    Top = 24
  end
  object DataSource1: TDataSource
    Left = 120
    Top = 120
  end
  object ADOQuery2: TADOQuery
    Parameters = <>
    Left = 216
    Top = 24
  end
end