delphi 用ado做登陆框

不要那么复杂了，自己写一个好了，下面是我的源码

建立一个BUTTON按钮，双击BUTTON,写如下语句

with adoquery1 do

begin

sql.clear

sql.add('select * from userpassword where username=:name and password=:password')

Parameters[0].Value:=edit1.Text//输入用户名的EDIT

Parameters[1].Value:=edit2.Text//输入密码的EDIT

OPEN

end

if adoquery1.RecordCount<>0 then //进入登陆后的界面

else showmessage('用户名或密码错误')

关于ado链接方法看下面：

DELPHI中建立与数据库链接有几种方法，BDE,ADO等。这里我只介绍一种ADO，因为我觉得这是最常用而且是最好用的方法。

1. 准备工作开始，新建一个FORM。在控件栏找到ADO一栏，把里面的ADOConnection和ADOQuery两个各建立一个放在FORM里。这两个控件是不可见的，所以你可以随便放在FORM的任何位置。然后再找到DATA ACCESS一栏，把它下属的DataSource控件一放到FORM里。OK,这三个就可以建立连接了。

2.设置，首先我们设置ADOConnection，这个控件就是与数据连接的控件。双击它d出配置窗口，单击BUILD..按钮，出现数据库链接属性窗口，如果是本地的数据库可以在下拉列表选择服务器名称或者自己直接输入服务器名称（远程的直接输入IP即可），然后输入登录密码和选择数据库。设置完成点击测试连接，显示成功说明链接正常，单击完成退出设置。

ADOQuery这个控件呢是负责进行用SQL语言 *** 作数据库的，在它的属性栏有个connection属性，点击它的下拉菜单选择刚刚建立好的ADOConnection1，DataSource控件则是存放结果的地方，把它的DataSet属性设置成ADOQuery1。这样我们就可以通过调用ADOQuery来对数据库进行 *** 作了。

链接好数据库以后就可以对数据库进行 *** 作了。最常见的用法是建立一个DBGRID，然后把他的connection属性选成我们的DAtasource1。如果你想预先设置好SQL语句的话，在ADOQUERY的左边属性栏里的SQL栏，点那个三个点的省略号输入你想查询的SQL语句。然后ACTIVE属性设置成TRUE，这样一运行，在DBGRID里就会显示你的SQL查询结果了。

用TADOConnection连接你所需要连接的Access，双击TADOConnection后点击build，提供程序选择“Microsoft Jet 4.0 OLE DB Provider”，下一步，选择你目录下的Access数据库文件，测试连接d出“测试连接成功”即可，一般会把TADOConnection属性的LoginPromit设为False，KeepConnection设为True，当然这个只是静态链接的，你也可以根据需要动态修改TADOConnection的ConnectionString即可。

然后用TADOQuery连接TADOConnection，TDataSource连接TADOQuery，表格连接TDataSource就差不多了，具体的你得看书中的基础用法。

以下以ADOQuery控件为例

在窗体上分别添加一个Button、ADOQuery、DataSource、DBGrid

设置属性分别为

DBGrid1的DataSource为DataSource1

DataSource1的DataSet为ADOQuery1

Button1的Caption为连接数据库

双击Button1，在事件里面添加如下代码

procedure TForm1.Button1Click(Sender: TObject)

var

DatabasePath: string

begin

DatabasePath:= ExtractFilePath(Application.ExeName) + 'Data.mdb'

with ADOQuery1 do

begin

ConnectionString:= 'Provider=Microsoft.Jet.OLEDB.4.0Data Source=' +

DatabasePath + 'Persist Security Info=False'

SQL.Clear

SQL.Add('SELECT * FROM TableMain')

Open

end

end

自己改一下数据库名和SQL语句就可以实现返回数据库中相应数据的目的了。

---