给80分...小问题

Question

请问一下,怎么用DELPHI做一个注册登陆系统啊...
请帮一下小弟,问题完成马上给分

Answer 1

不就提交和查询的一个程序嘛我简单说思路吧：
注册：用几个edit让用户输入，提交后保存到数据库
登陆：用户输入的username和pass查询数据库，如果没有匹配就showmessage,匹配就form.show

Answer 2

是啊,就是在EDIT框输入USERNAME和PASSWORD,要和数据库的表匹配那个语句不会写呀
edit1.text:=~???比如那个表名是登陆.DB,那应该怎么写啊??谢谢,,

Answer 3

在登陆界面form1上放两个EDIT,分别判断用户名和密码，再放一个“确定”按钮。将ADOQuery1连接你的用户数据库。procedure TForm1.FormCreate(Sender: TObject);
begin
  ADOQuery1.Open;
end;procedure TForm1.Button1Click(Sender: TObject);//确定按钮
begin
 if trim(Edit1.Text)<>ADOQuery1.FieldByName('用户名').Value then
  begin
      MessageDlg('用户名错误',mtWarning,[mbOk],0);
      Edit1.Clear;
      Form1.FocusControl(Edit1);
  end
 else
 if trim(Edit2.Text)<>ADOQuery1.FieldByName('用户密码').Value then
   begin
      MessageDlg('密码错误',mtWarning,[mbOk],0);
      Edit2.Clear;
      Form1.FocusControl(Edit2);
    end
 else
    begin
       Form2.Show;  //form2为进入的程序界面
       form1.Close ;
    end
end;即可实现登陆核对界面要注册的话是添加用户的程序，用一个添加数据库程序即可。

Answer 4

可以把数据保存到注册表或ini文件中，不一定要使用数据库的

Answer 5

procedure TForm2.Button1Click(Sender: TObject);
begin
  try
    if zhi=2 then begin
    Application.Terminate ;
    end;
   T1.Filter :='name ='''+edit1.Text+'''' ;
   T1.Filtered :=true ;
   T1.Open ;
  except
  end;
  if T1.RecordCount=1 then
    begin
     if T1['pass'] =edit2.Text then begin
     self.Hide ;
     form1.Show ;
    end else
     Application.MessageBox('密码错误,请重新输入','系统错误',MB_ICONSTOP);
     zhi:=zhi+1 ;
    end;
end;

Answer 6

用个ADOQUERY查询循环不就行拉，第一个没匹配就adoquery1.next啊

Answer 7

其实把写在一个ini文件里还要简单一点.

Answer 8

看楼主的登陆是怎么样的了
1.如果用户和密码都是服务器的,可以把服务器名和用户名保存在.INI文件中,密码验证,可以在TADOCONNECTION.Connect成功时登陆,失败时为密码错误.
2.如果是用户名和密码都保存在数据库中,可以按上面各位说的方法.

Answer 9

ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * form tablename where user='+edit1.text+' '+'and password='+ edit2.text);
ADOQuery1.Open;
if ADOQuery1.RecordCount<0 then
  showmessage('密码错误');

Answer 10

ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * form tablename where user='+edit1.text+' '+'and password='+ edit2.text);
ADOQuery1.Open;
if ADOQuery1.IsEmpty and (Application.MessageBox('密码错误!','错误')=idOK) then exit;