如何用代码去掉Paradox 表的密码，当然了，密码是知道的。

Question

如何用代码去掉Paradox 表的密码，当然了，密码是知道的。

Answer 1

procedure TForm1.FormCreate(Sender: TObject);
begin
  Session.AddPassword('密碼');
end;

Answer 2

to  jaunmai() 
这个是打开表的时候不要密码，我是想彻底去掉这个表的密码！

Answer 3

试试,当然,还要代码!
Table1.DBSession.RemovePassword();

Answer 4

to  aiirii(aiirii) 还是不行的啊！

Answer 5

Session1.RemovePassword('ddd') 试试这个，BDE，N年前就不用了

Answer 6

这是我以前写的一个更改口令的程序块，你把新口令设为：空，赋值给变量就可以了
自己参照的看一下，不难procedure TfrmPassword.btnOkClick(Sender: TObject);
begin
   if dmOperator.dataOperator.adoqryOperator.Active then
      dmOperator.dataOperator.adoqryOperator.Close;
   if gPassword=edtOldPassword.Text then
      begin
      usPassword:=edtNewP.Text;
      if usPassword='' then
         showmessage('新口令不允许为空，请输入有效口令')
      else if usPassword=edtNewPok.Text then
           begin
           dmOperator.dataOperator.adoqryOperator.Open;
           dmOperator.dataOperator.adoqryOperator.SQL.Clear;
           dmOperator.dataOperator.adoqryOperator.SQL.Add('update Operator set password='''+usPassword+'''');
           dmOperator.dataOperator.adoqryOperator.SQL.add(' where OperatorId='''+gId+'''');
           dmOperator.dataOperator.adoqryOperator.ExecSQL;
           showmessage('口令更改成功！');
           frmPassword.Close;
           end
           else
           showmessage('请输入确认口令！');
      end
   else
      showmessage('口令出错，请重新输入');end;