我放在create事件中,好象不行?错误!?
解决方案 »
- StringGrid1.Objects[0,1]中的objects是什么意思,有什么作用?
- 兄弟们,进下来!
- 请教c++builder及delphi 高手?帮帮忙,急着呢!!
- 在Delphi中能否实现当进行校验时, 出现一个校验提示, 程序就停在那里?
- 把一个bmp逆时针旋转90度
- 如何备份SQL数据库中的某一个表
- 请教Progressbar的问题?
- 服务端发送A消息,然后再发送B消息,现在客户端同时收到了A+B消息, 缓存导致的吗? 请教如何解决?
- 哪里有关于TTreeView 和 TListView控件的使用例程,还请网友指点!
- 请问如何在delphi中声明自定义数据类型?
- 我下载了kylix,可是如何安装呢?
- 有关数据窗体的DLL问题
Password=myPwd(myPwd就是你打开Access数据数据库的密码),否则就要多加一行UserName=myUserName(myUserName就是你打开Access数据库的用户名);
当然你也可以在TTable连接数据库之前,用代码给TTable的Params属性赋值的;
此外,LoginPrompt:= false;
还有要将每个数据控件的databaseName设置为TTable控件的Name
begin
close;
SQL.Clear;
Sql.add('select * from 用户登录');
Sql.add('where 用户名=:username');
Sql.add('and 密码=:passWrd');
ParamByName('username').asstring:=username.Text;
ParamByName('passwrd').asstring:=passwrd.Text;
Prepare;
Open;
end;
if DMfrm.query1.RecordCount=0 then //用户名与密码是否正确
begin
icount:=icount+1;
if icount<3 then
begin
messagedlg('密码错误,一共只有三次机会!',mtwarning,[mbOK],0);
passwrd.text:='';
passwrd.SetFocus;
modalResult:=mrCancel;
exit;
end
else
modalResult:=mrCancel;
end
else
modalResult:=mrOk ;
end;
对不起,可能我没讲清楚,我的access表,并没有密码,
我想去掉程序运行时出现的登陆窗口!
可能第一次还要确认一下,直接点OK就行了,下一次就不会再有提示了,试试吧!