access问题!(100分)

  • 主题发起人 guanxianjun
  • 开始时间
G

guanxianjun

Unregistered / Unconfirmed
GUEST, unregistred user!
我是新手
我想作一个登陆框,我用access作了一个数据库,里面有一表:usertb1,里面有user和psw
两个字段,验证正确后进入主界面。我用ADO连接,请给出思路,最好有源代码,用ado中
那几个控件?属性?方法?由于没有书,请各位帮忙,分不够在加!!
 
控件用adoconnection,adoquery就可以了
首先用adoconnection连接到access数据库,然后将adoquery连到adoconnection上
并且指明表名。
下面是登录框上确定按钮的代码:
var
uesrs,passwd:string;
begin
adoconnection.connected:=true;
users:=trim(i_user.text);
passwd:=trim(i_passwd.text);
adoquery.close;
adoquery.sql.add('select users from usertb1 where passwd=:passwd');
adoquery.open;
if adoquery.recordcount=1 then
begin
form1.close;
f_main.show;
end
else
application.messagebo('没有这个用户!请验证用户和密码!','信息',0);
end;
 
主要用到ADOTable或ADOQuery控件,较好的办法用ADOConnection和ADOTable(或ADOQuery)
两个控件结合使用。
1、将ADOConnection的ConnectionString属性设为Provider=Microsoft.Jet.OLEDB.4.0;
Data Source=c:/db1.mdb;Persist Security Info=False
LoginPrompt属性设为False;KeepConnection属性设为True;
2、将ADOTable的Connection属性设为ADOConnection1;TableName属性设为usertb1;
3、简单程序代码:
procedure TForm1.FormCreate(Sender: TObject);
begin
ADOConnection1.Connected := True;
ADOTable1.Open;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
with ADOTable1 do
begin
SetKey;
FieldByName('user').AsString := Edit1.Text;
if GotoKey then
if ADOTable1.FieldValues['pws'] <> Edit2.Text then
Application.Terminate;
else
begin
进入主程序;
……
end;
end;
4、更多的功能:比如判断输入次数,判断用户名和密码是否输入等请自己编写。
 
顶部