登陆窗体如何连接数据库?

//delphi的用ado连接
//adoquery-数据表
adoquery1.close; //关闭连接
adoquery1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+数据库路径+';Persist Security Info=False';//数据连接字符串
with adoquery1 do
begin
close; //关闭
sql.clear;//清空sql语句
//查询密码帐户sql语句
sql.text:='select * from login where name=:name and passwor=:pwd';
Parameters.ParamByName('name').Value:=tbname.text; //给参数name赋值
Parameters.ParamByName('pwd').Value:=tbmima.text; //给参数pwd赋值
open;//打开
//当查询出的条件大于0，就说明有这个账号和密码
if recordcount >0 then
begin //当存在该账号和密码就执行。。。。
showmessage('登陆成功');
//显示主窗体
end
else //不存在就执行以下代码
begin
showmessage('用户名或密码错误，请重新输入');
tbname.clear; //清空
tbmima.clear; //清空
tbname.setfocus;//设置焦点
end;
end;
这个是个例子，供你参考，买些书看看，或着去网上下载些源码看看别人怎么写的<