如何在程序中用语句对PARADOX的DB数据库加密码?(设计期无密码)(100分)

已答问题里有！

http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=2145
王寒松的答案应该是你要找的答案！

我霸王先生的贴出来了,不好意思!!! 这样比较方便!!
动态的添加PARADOX表的方法

下面给出的函数 AddMasterPassword 完成添加PARADOX表
主口令的工作
AddMasterPassword(Table1, 'MyNewPassword')

procedure AddMasterPassword(Table: TTable; pswd: string);
const
RESTRUCTURE_TRUE = WordBool(1);

var
TblDesc: CRTblDesc;
hDb: hDBIDb;

begin
{表打开？表是独占吗？}
if (Table.Active = False) or (Table.Exclusive = False) then
raise EDatabaseError.Create('数据表必须在独占方式才可以添加口令');

{初始化表描述区 }
FillChar(TblDesc, SizeOf(CRTblDesc), 0);

with TblDesc do
begin
{ 把表名放到描述区 }
StrPCopy(szTblName, Table.TableName);
{ 把表类型放到描述区 }
StrCopy(szTblType, szPARADOX);

StrPCopy(szPassword, pswd);

{ 设置BPROTECTED为TRUE }
bProtected := RESTRUCTURE_TRUE;
end;

{ 从当前的HANDLE里得到DATABASE的HANDLE }
Check(DbiGetObjFromObj(hDBIObj(Table.Handle), objDATABASE, hDBIObj(hDb)));
{ 关闭表 }
Table.Close;
{ 添加主口令到PARADOX表里}
Check(DbiDoRestructure(hDb, 1, @TblDesc, nil, nil, nil, FALSE));
{添加一个新口令到SESSION}
Session.AddPassword(pswd);
{重新打开表 }
Table.Open;
end;

添加副口令的办法与此类似

呵呵, DbiAddPassword就可以:
Check(DbiSetCurrSession(thesession));
Check(DbiAddPassword(PChar(password)));

^_@

BDE 有例子
procedure AddPassWordToTable(Table: TTable;PassWord:String);
const
RESTRUCTURE_TRUE = WordBool(1);
var
TblDesc: CRTblDesc;
hDb: hDBIDb;
begin
{ Make sure that the table is opened and is exclusive }
if not Table.Active or not Table.Exclusive then
raise EDatabaseError.Create('Table must be opened in exclusive ' +
'mode to add passwords');
{ Initialize the table descriptor }
FillChar(TblDesc, SizeOf(CRTblDesc), #0);
with TblDesc do begin
{ Place the table name in descriptor }
StrPCopy(szTblName, Table.TableName);
{ Place the table type in descriptor }
StrCopy(szTblType, szPARADOX);
{ Master Password, Password }
if PassWord='' then bProtected:=False
else bProtected := RESTRUCTURE_TRUE;
StrPCopy(szPassword, PassWord);
{ Set bProtected to True }
end;
{ Get the database handle from the cursor handle }
Check(DbiGetObjFromObj(hDBIObj(Table.Handle), objDATABASE, hDBIObj(hDb)));
{ Close the table }
Table.Close;

{ Add the master password to the Paradox table }
Check(DbiDoRestructure(hDb, 1, @TblDesc, nil, nil, nil, False));
{ Add the new password to the session }
Session.AddPassword(PassWord);
{ Re-Open the table }
Table.Open;
end;

多人接受答案了。