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查询结果了。

sql设置好用户名跟密码以后比如sa

密码123

打开delphi放一个按钮，然后在控件栏那里选datacontrol，选第一个dbgrid放到form上，选dataaccess里面的第一个datasource，然后选ado——adoconnection放到form上，再选ado——adoquery放到form上。点选adoconnection左边的框体有个connectionstring点"…"：d出来的对话框中点Build，然后选择从下数上来第五个，双击或者下一步，填入用户名跟密码(sa

123)，在“3.选择数据库”那里选择要打开的数据库，选上保存密码，点一下“测试连接”，点OK退出。出来以后继续在左边框体里面找LoginPrompt改成False。到adoquery了，点上它然后在左边框体的

Connection

那里下拉选择ADOConnection1，然后点选datasource，在左边框体找到dataset下拉选择adoquery1，然后再点选dbgrid，在左边框体找到datasource，下拉选择datasource1。双击刚才创建的按钮，假设你要打开的数据表名叫“

销售订单

”，输入

adoquery1.close

adoquery1.sql.clear

adoquery1.sql.add('select

*

from

销售订单

')

adoquery1.open

运行，按按钮如果dbgrid有数据显示表示连接成功了，以上所有功能实现均可通过代码或者手工设置。

1 Delphi中ADOConnection的服务器名称可以通过Properties窗口中的ConnectionString属性来设置。

2 在ConnectionString属性中，可以指定连接字符串，其中包含了服务器名称、数据库名称、登录名和密码等信息。

3 如果你知道服务器名称，则可以直接在连接字符串中设置，例如：Provider=SQLOLEDB.1Password=xxxPersist Security Info=TrueUser ID=xxxInitial Catalog=xxxData Source=服务器名称。

---