delphi中数据模块怎么制作?我参照的一个程序它把所有的数据组件,控件都放在DM上了.我很是好奇.想知道它究竟是在解决一个怎样的问题.

我想做一个连接数据库的登录界面.总也不成功.
 with ADOquery1 do
 begin
 Close;
 SQL.Clear;
 SQL.Add('Select * from userinfo Where username="'+Edit1.Text+'"');
 Open;
 if (ADOquery1.FieldByName('password').AsString=edit2.Text) and(ADOquery1.RecordCount<>0) then
 begin
 mima.Edit1.Text:=login.Edit1.Text;
 edit1.Text:='';
 edit2.Text:='';
 if ADOquery1.FieldByName('quanxian').AsBoolean=false  then
 begin
   self.Close;
  sfxt.n2.Enabled:=false;
   sfxt.n3.Enabled:=false;
  sfxt.SpeedButton1.Enabled:=false;
   sfxt.SpeedButton2.Enabled:=false;
   sfxt.ShowModal;
 end
 else  begin
   self.Close;
  sfxt.n2.Enabled:=true;
   sfxt.n2.Enabled:=true;
   sfxt.SpeedButton1.Enabled:=true;
  sfxt.SpeedButton2.Enabled:=true;
  sfxt.ShowModal;
 end;
 end
 else  begin
 MessageDlg('用户名或密码错误请重新输入~~!',mtConfirmation,[mbYes],1);
 Edit2.SetFocus;
 end;
调试时,弹出对话框,说是参数不足,期待值为1.
怎么办啊?
各位大侠帮帮我!