帮帮忙,实在试不出来,怎么用代码给paradox表增,删,改口令.Addpassword等方法是用来开口令的.

gum 2001-04-13 03:03:00
加精
...全文
70 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
gum 2001-04-14
  • 打赏
  • 举报
回复
good! dephi我虽不懂,但启发解决了问题,分的双手奉上.
tide 2001-04-13
  • 打赏
  • 举报
回复

不懂delphi,只好找抄原来保存的一份资料,但原能对你有帮助。

add a password to a paradox table ?

Homepage: http://www.swissdelphicenter.ch


unit Unit2;

interface
uses bde,SysUtils,dbtables,windows;

Function TablePasswort(var table: ttable; password:string) : boolean;


implementation


function StrToOem(const AnsiStr: string): string;
begin
SetLength(Result, Length(AnsiStr));
if Length(Result) > 0 then
CharToOem(PChar(AnsiStr), PChar(Result));
end;


Function TablePasswort(var table: TTable; password:string) : boolean;
var pTblDesc : pCRTblDesc;
hDb : hDBIDb;

begin
Result := false;
with Table do begin
if Active and (not Exclusive) then Close;
if (not Exclusive) then Exclusive := True;
if (not Active) then Open;
hDB := DBHandle;
Close;
end;
GetMem(pTblDesc,SizeOf(CRTblDesc));
FillChar(pTblDesc^,SizeOf(CRTblDesc),0 );
with pTblDesc^ do begin
StrPCopy(szTblName, StrToOem(table.tablename));
szTblType:= szParadox;
StrPCopy(szPassword, StrToOem(Password));
bPack := True;
bProtected := True;
end;
if DbiDoRestructure(hDb, 1, pTblDesc, nil, nil, nil, FALSE )<> DBIERR_NONE then exit;
if pTblDesc <> nil then FreeMem(pTblDesc, SizeOf(CRTblDesc));
result := true;
end;




「已注销」 2001-04-13
  • 打赏
  • 举报
回复
难度不小

对俺来说

俺把这个问题往前推一推

期待解决
一套操作数据库(*.db,DBF) 的工具,功能非常的强大。 2000版功能: 包括建立数据表、除数据表、索引、排序、打印、预览、数据转换、数据备份、修数据表结构、输出文本、输出HTML文件、统计查询、字段求合、生成决策图表等功能。 2002版新增功能: 1、多窗口(MDI)与单窗口两种模式 2、提供最近使用路径 3、提供BDE版本检查 4、设置进入口令 5、给数据表填加口令 5、设置启动目录 6、复制记录、复制当前字段名称、复制字段名列表、复制选择区域数据 7、进SQL执行功能 8、进数据转换功能 9、记录查找功能 10、自动生成创建表SQL语句 11、设置数据移动位数 12、进了建立索引功能,现可以建立主重索引(多个字段) 13、自动显示当前字段类型/宽度/字段总数/索引字段 Xp版新增功能: 1、加入了功能强大的报表设计、报表打印功能。可自己根据数据库设计报表,还可以把设计好的报表另存为报表文件,也可输出如Html格式等。 2、加入了BDE数据库驱动程序,解决了以前下载后没有驱动程序不能正常运行的问题。 Xp 2002.11 版新增功能:(右击菜单) 1、加入对数据的剪切、复制、粘贴、除功能。可直接把一张表内的数据复制到另一张表内,也可以把一张表的某字段的数据复制到另一张表的某字段。功能非常实用。(选择区域内数据) 2、加入输出Excel、Html、rtf、csv、txt文件格式。(选择区域内数据)

13,871

社区成员

发帖
与我相关
我的任务
社区描述
C++ Builder相关内容讨论区
社区管理员
  • 基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧