如何用delphi连接数据库做一个登陆界面，

Question

  用的是delphi7.0 
  我想做个WINDOWS程序一个combox来记录账号，一个Edit密码，其中每次登陆都要记住账号。。点BUTTON来验证用户名密码是否正确。。   
  用SQL 2005数据库 我想最大可能的应用控件来连接数据库以节省代码  
  请问BUTTON的代码该怎么写在线等 

Answer 1

如果你最大可能用控件的話，有很多操作就是在拖拉控件上； 代碼已經沒有什麼了。
 翠下代碼不是DELPHI開發環境寫的，有可能有誤。
procedure Form1.button1click(Sender:Tobject);
var
  Qry : TADOQuery;
  sql : String;
begin
  qry := Tadoquery.create(nil);
  qry.connection := ADOConnection1;  //  這個ADOCONNECTION1你要拉一個控件，QRY是我手工建的，你也可翠拖一個
  sql := 'select user from Login where loginID= '+Quotedstr(combobox1.text)+'  and pwd = '+QUotedstr(Edit1.text);
  qry.sql.text := sql;
  qry.open;
  if not qry.isempty then 
  begin
    application.Messagebox('帳號或密碼錯誤','warning',MB_OK+MB_IconError);
    exit;
  end else ...( 登錄）
end;

Answer 2

你的代码有一个小问题：
if not qry.isempty then
改成
if qry.IsEmpty then

Answer 3

代码很简单了,楼上的都说的很清楚了,关键你明白如何去做就好了
验证其实就是根据用户名或ID查找密码,看是否符合条件,就是简单的sql查找语句,没什么的

Answer 4

记录登录的信息可以用一个INI文件来记录