说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

怎样在Paradox表中加密码?-Delphi资料

HTML文档下载 WORD文档下载 PDF文档下载
怎样在Paradox表中加密码?-Delphi资料

在 Database Desktop 中打开要加密的 Paradox 表,点 Restructure 按钮

打开表结构设计对话框,然后在 Table Properties 里选 Password Security

按 Defind 按钮 就可以设置密码了。以后打开这个表时都会要求输入密码。

动态的添加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;

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

备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘