delphi用TTable 和Datasource连接数据库做登录窗口,怎么把用户名和密码关联起来
解决方案 »
- application.handle这个属性是什么意思?
- ehlib实现excel中冻结的功能怎么设置?
- 怎样运行一个外部文件并且等到它结束呢?
- 如何实现DOS命令所完成的功能
- 为何我们学delphi不能用QQ聊天?
- DBGrid中如何自动为结果集增加行号?
- 摩托遇到怪事~~决定研究一下~~有兴趣看看拉~~
- 又100分送出:简单问题,大家都用过,总结出来,反馈给大家,如果反映好,我将再开200分
- 对于这种情况,请各位大虾发表看法!
- 请问怎样在运行期间设置TADOConnection的ConnectionString属性,急!
- 向Webbrowser元素(Input)写内容时,XP成功,Win7失败,有代码,求助!
- 多线程处理串口问题
Query1.Close;
Query1.SQL.Text:='select 1 from 表名 where 帐户字段名 = '
+QoutedStr(edit1.Text) //假设edit1里输入的是帐户
+' and 密码字段名 = '
+QoutedStr(edit2.Text);//假设edit2里输入的是密码
Query1.Open;
if Query1.RecordCount>0 then
begin
showmessage('系统欢迎您的登陆。');
//登陆后的处理.....
end
else
begin
showmessage('请重新输入您的帐号和密码,注意大小写是否正确。');
//进行重新登陆....
end;如果你坚持探讨 TTable 在登陆时的用法,可以这么弄: Table1.Open;
if Table1.Locate('帐号字段名',edit1.Text,[]) then
begin
if Table1.FieldByName(edit2.Text).AsString= edit2.Text then
begin
showmessage('系统欢迎您的登陆。');
//登陆后的处理.....
end
else
begin
showmessage('请重新输入您的密码,注意大小写是否正确。');
//进行重新登陆....
end;
end
else
begin
showmessage('您输入的帐号不存在,请重新输入。');
end;
showmessage('驗證成功!');
else
showmessage('驗證失敗!');