怎样编程访问有密码的paradox表格

Question

用TSession 控件procedure TApplicationCommonForm.CommonSessionPassword(Sender: TObject;var Continue: Boolean);begin
   CommonSession.AddPassword('database_password');
  Continue:=TRUE;
end;

Answer 1

自动(login)一个有口令保护的Paradox表？
首先，这个table的属性必须为false(否则在一开始就会提示输入口令)，
把TABLE的SESSION属性设置为DEFAULT
然后把这两条指令放入form的onCreate中去：Session.AddPassword('My secret password');
Table1.Active := True;
即可！关闭这个table时，可以用下面命令清除口令
 session.RemovePassword('My secret password');(注：以上均只对Paradox适用)祝你好运！