关于PARADOX表密码的问题！

[zyb]

如何用DELPHI编程实现：
给PARADOX表添加、修改密码，在打开数据库时校验密码？
请提供程序实例代码！[e-mail]

[渤海海峡]

只要用session.addpassword,session.getpassword...就可以了。
具体的看看帮助。

[zyb]

假设只有Table1,DataSource1两个控件，又如何实现呢？

[supershan]

I have Source code;
please wait for a moment!

[zyb]

劳驾楼上的supershan大侠将代码实例妹给我一份吧？[e-mail]

[zyb]

为什么各位大侠对我的这个问题一点儿也不重视呢？
我曾经试着用Desktop给一个Paradox表加上密码，在程序中打开该表时也提示输入密码，但是为什么用Desktop再次打开该表时却不提示输入密码呢？

[渤海海峡]

这样就不提示了：
（table1对应一个加密的pardox表，口令：123,和datasource没关系）
只要在打开表之前，将口令加入session即可。
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
session.AddPassword('123');
table1.Open;
end;

[Rich_Zhou]

用table1.Session.addPassWord('密码');
这样可以防止使用的Session不是缺省得Session
你用Desktop在次打开不提示输入密码 是因为Desktop没有退出 Session 的各个参数没有发生变化 内存中仍有该密码值

[zyb]

即使我重新启动机器，打开Desktop，再次打开已设置了密码的Table表，也不提示要求输入密码，这是为什么呢？-----请热心肠的大侠指点！

[supershan]

我的Email收到了吗？它可解决你的问题，你说的打开Desktop不提示输入密码，我试了它还是提示输入密码，不知你是怎么设的？