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

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

9 个解决方案

#1

到www.2ccc.com找个例子看看

#2

有一大堆东西好写，不想写...
只想接分，可以不？

#3

如果你最大可能用控件的話，有很多操作就是在拖拉控件上； 代碼已經沒有什麼了。


 翠下代碼不是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;

#4

引用 3 楼 starluck 的回复:

如果你最大可能用控件的話，有很多操作就是在拖拉控件上； 代碼已經沒有什麼了。 


翠下代碼不是DELPHI開發環境寫的，有可能有誤。 

Delphi(Pascal) code

procedure Form1.button1click(Sender:Tobject);
var
  Qry : TADOQuery;
  sql : String;
begin
  qry := Tadoquery.create(nil);
  qry.connection := ADOConnection1;  //  這個ADOCONNECTION1你要拉一個控件，QRY是我手工建的，你也可翠拖一個
  s…

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

#5

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

#6

引用 4 楼 Corn1 的回复:

引用 3 楼 starluck 的回复:


如果你最大可能用控件的話，有很多操作就是在拖拉控件上； 代碼已經沒有什麼了。 


翠下代碼不是DELPHI開發環境寫的，有可能有誤。 

Delphi(Pascal) code 

procedure Form1.button1click(Sender:Tobject); 
var 
  Qry : TADOQuery; 
  sql : String; 
begin 
  qry := Tadoquery.create(nil); 
  qry.connection := ADOConnection1;  //  這個ADOCONNECTION1你要拉一個控件，Q…

米兄。不好意思，我一邊寫啊，還要想這會不會錯呢，結果就錯了。。。。。。。。。。。。。。

#7

刘德华写的没错 

#8

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

#9

引用 8 楼 zxf_feng 的回复:

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

up