我是delphi初学着,在做登录界面时碰到以下问题:请高手赐教;不胜感激。
在制作登录界面时如何将数据库内(Access的数据库)用户名和密码与TEdit的内容对应起来;要用Table的什么属性或方法,其中用户名多个且密码与用户名一一对应。
在制作登录界面时如何将数据库内(Access的数据库)用户名和密码与TEdit的内容对应起来;要用Table的什么属性或方法,其中用户名多个且密码与用户名一一对应。
解决方案 »
- 为什么会发生这样的事呢?DBGrid问题,高人指点下。
- 机会,稍纵即逝。
- 波特率为9600的串口,1秒钟最多能接收多少数据,这个是怎么计算的呢?
- 各为大虾请进,如何将USB接口的摄象头的当前桢中所选取的区域保存为BMP图象?100!!!
- 一个菜鸟的问题啊?
- 怎么通过多级代理(代理服务器+代理服务器)访问一些特定的网站?
- 在QReport中,主副明细报表中,为什么只能显示一条主表记录和相应的副表记录?(有N条记录)
- 谁有有关Delphi和XML编程的列子,高分相求!希望大家帮忙!!!(急!!!!!)
- <<<<<<<<<<关于动态创建popupmenu的项目问题>>>>>>>>>>>
- 關于InterBase數据庫的問題
- 臨時表排序問題,請教..........
- 创建TFileStream,用idicpserver发送,怎么总抱错?
begin
Adoquery1.Close;
Adoquery1.SQL.clear;
Adoquery1.SQL.Text := 'select 密码 from 登陆表 where 用户名=:name';
Adoquery1.Parameters.ParamByName('name').Value:=edit1.Text;
ADOQuery1.Open;
ADOQuery1.Active := true;
password:=DM1.ADOQuery1.Fields[0].AsString ;
if not AnsicompareText(edit2.Text,password)=0 then
begin
edit1.Text:='';
edit2.Text:='';
ShowMessage('登陆成功');
close;
end
else begin
showmessage('用户名或密码错误');
edit1.Text:='';
edit2.Text:='';
end;
end;