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

怎样在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;

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

码农们的机器人:LEGO MindStorms EV3 详解 JavaScript 中的 this 对话PaaS平台dotCloud布道师:“轻量级”与“重量级”虚拟化 微软:谷歌企业生产力软件依然不行 IT旅途——程序员面试经验分享 17岁女高中生赢得编程马拉松大赛冠军 雅虎宣布开发新的搜索工具 创新用户界面 前谷歌高管给初入职场新人的14条忠告 业界良心 Facebook下一步将开源交换机 Google Glass:未上市先遇阻 TIOBE 2013年5月编程语言排行榜:Objective-C再度反超C++ 开发者需知的10类工具 林仕鼎:架构设计与架构师 跨平台工具火拼:Icenium与PhoneGap Build谁属王者? 索尼终于想明白了:PlayStation生态走向开放 高达10亿美元,Facebook为什么要收购Waze? Cocos2D-X成全球第二大游戏引擎 仅次于Unity 亲爱的苹果,能不能别让应用太廉价? 陈晓影:一位女海归曲折的拓荒故事 IDG李丰:在中国,创业公司最好是一个One Man Company Google Drive新增“保存到Drive”按钮功能 可自行添加 腾讯CDC创始人唐沐加盟小米 总经理陈妍接任 老板我想辞职:因为小米100万元征集一张壁纸 移动周报:GitHub上最火的Android开源项目 免费才是王道:盘点开发者须知的25个免费数据可视化工具 Pivotal获通用电气1.05亿美元支持 或将改变大数据和物联网的游戏规则 大掌门与阿里云和解:云生态系统呼之欲出 刘有涛:恩信科技云计算大潮中扬帆起航 Cloudera释放Impala 1.0:与Hadoop完全整合,各方面完爆Hive 云通讯平台:让你的应用会说话 触宝用户过亿,CEO王佳梁常说的词是“创新” 文件和字符混和上传问题 诸位大虾请帮忙? 各位大虾:哪里有vb.net下载啊? 请教:“开始”菜单中的“文档”菜单不见了! 急!急!急! 一个关于模式对话框的问题 oracle 用sql plus /spool 输出 查询结果时怎么把 查询sql 本身 去掉(不输出) ? 世界杯“蓝色厄运”理论:英格兰胜巴西 德国淘汰美国(转贴) !!请 “arxing(阿行)”回答!!about 对象池!!!! 各位老大,怎样将给定的中文根据拼音排序? access97中的报表中显示中文字段时为什么是乱码,怎样解决,急呀!老大们!! 急:在哪儿可以下载java的反编译器jad.exe????? 请帮忙 做过数据分析的高手请进。。。(我感觉很头疼的一个问题!) 共享Interent怎样实现? 请问绿色程序是如何制作的??? Windows API和C 请问怎样把form中的picture属性中的图片删除? 请看看这个问题? 中程书上的错误?(清华) 各位大虾过来看看,救救我啊! flash简单问题 已知IP,求计算机名 求备份方案,oracle 数据库! 求解決方案:怎樣在運行狀態下增加或取消文本輸入框的滾動條. 大家发表些看法! 各位 帮帮忙,关于答复文档的 如何获取手机中的短消息发送结果状态报告,需要懂一点手机短信的朋友 有没有办法去掉jre1.4下向JTextField输入中文时弹出来的那个恶心的输入窗口? 将web工程加到sourcesafe的问题,十万火急,帮忙解决一定给分,分数不够可以其他方式给。 在sqlserver中有字段类型为image,如何往该字段放图象?200分 基础问题 NT ,when boot ,can not find system 关于internet上的控件打包??????????????? 请各位高手帮忙解决!谢谢!! 谁能告诉我那几个网络论坛比较好 如何实现socket 的多线程 高手请这边来瞧瞧 如何在ODBC应用程序中使用CListView? excelapplication控件???教教我吧,我不知道为什么?很简单的。 关于internet上的控件打包??????????????? 谁知道autovuex.ocx 控件(可以显示CAD等图形)哪儿有下载??拒绝up 大家都用VC吧,这个怎么实现? 能否用变量的内容说明对象 在 广州那边招DELPHI程序员的公司多不多呀! 请问在网页里,图片在装载完前,显示的区域是一个小方框再扩成一个图像,是怎么做的? 如何在ODBC应用程序中使用CListView? 关于获取list控件值的问题!在线等候!谢谢! 请帮忙提供一点怎样学习Delphi的知识! fireworks4.0英文版关于动画的制作? 求租西三环,紫竹院,首师大,航天桥,花园村附近的一居,价位在1000左右 WORD问题 原形容作品的文词优美,意境深远,使人感受很深,震动很大.的词是什么? 文章:《宝贵的一分钟》不要读后感,财富悬赏100! 有6张扑克牌反扣在桌面上2,3,4点的各2张,任意点数之和有几种可能摸起2张,这2张扑克牌上的情况 读书笔记 词语(8个) 句子(3句) 感悟(100字)描写生动形象,含义隽永深刻的作文 形容感动的词 往一个长30厘米、宽20厘米、深15厘米的水箱中加4.8升水,这是水面离箱口还有厘米?要解释,要列式 一道文字数学题 形容感想的词比如 XX的感想 一个圆柱形水桶的侧面积是18.84平方分米,水桶的底面半径是1分米.求水桶的体积.用计算的方式. 某寄宿制幼儿园小班有x名同学,大班有y名同学,课间加餐时,小班同学每人分两根香蕉,大班同学每人分三根香蕉,则2x+3y表示该园分发的香蕉的总根数,那么2x+3y还可以表示——?(任意给出一个情 用什么词来形容感慨亲们太狠了,姐内牛满面 一个圆柱水桶,侧面积是18.84平方分米,水桶的底面半径是1分米,求水桶的体积 用铁皮焊15个边长是25厘米的正方形、高4分米无盖水桶,至少要多少铁皮?急问。 计算二重积分∫∫D根号(4-x²-y²)dxdy,其中D为以X的平方+Y的平方=2X为边界的上半圆域 蚕是不是昆虫说明白点 是还是不是 为什么是 在一幅比例尺为1:400000的地图上,量的A.B两地的距离为10厘米;在此比例尺为1:500000的地图上,A.B两地的距离是多少厘米? 求二重积分∫∫正弦sin根号下(X^2+Y^2)dxdy,D为圆周X=根号下A^2-Y^2和X=0围成的区域.是A的平方减去Y的平方。我看过答案里面有3.1415926...的怕艾的字符也有正弦A和余弦A. 蚕是昆虫吗蚕是不是昆虫 甲乙两同学的身高都是1.6×10的二次方(厘米),但是甲说比乙高9厘米,有这种可能吗?说明理由. 亲身到了那个地方,感受深切的四字词语是什么 蚕是不是昆虫,说原因 小明、小亮两同学的身高都约是1.6乘10的2的平方CM,问小明可不可能比小亮高9CM 亲身到了那个地方,形容感受亲切词语 常见昆虫的昆虫有蚕吗? 小张与小李的身高均为1.7x10²cm,但小张说他比小李高9cm,有这种可能吗?请举例说明. 求解小张与小李的身高均为1.7x10²cm,但小张说他比小李高9cm,有这种可能吗?请举例说明.求解 2+根号6的整数部分为x,小数部分为y,试求x+根号6乘y 蚕属于昆虫吗回答是或否 求心形线围成图形的面积. 什么四字词语表示形容好像亲身到了那个地方? 2010关于世博会的作文关于世博会的作文,跟环境有关的 心形线参数方程求面积!第一步的几分上下限是怎么定的呀, 哪些词能形容这样的感觉?澎湃、恐惧、兴奋、幸福、短暂、感叹.这样的感觉是一瞬间发生的.是怎么一回事? 2010______的中国人作文 一个圆锥形容器,底面直径是6厘米,高是8厘米.如果把这个容器装满水导入底面半径是2厘米的圆柱形形容器里,圆柱形容器水深多少米? 一分钟演讲稿多少字 2010上海世博会会虽已结束,但"__________"这个主题留给我们中国人的思考永不会 甲乙两位同学的身高都是1.6乘10的平方cm,但甲说比乙高9cm,有这种可能吗?若有请举例说明. 语文课前三分钟演讲,800字左右的纯原创演讲稿!讲述一个成语或者是论语的意思,然后结合自己的实际情况来具体描述,以自身经历为主线来诠释所讲的成语或论语的意思.举例子:一诺千金 意 我的家庭 600—700字! 有一块正方形木板,现在把它锯成一个最大的圆形,这块木板的面积减少了百分之几? 椭圆的面积怎么求? 给我一篇不少于80个单词的介绍我的家庭和我(英文)初中作文,我就是懒得写, 一个长方体铁皮水桶,底面是2.5分米的正方形,高4分米,焊接这样一个水桶,至少用一个长方体铁皮水桶,底面是2.5分米的正方形,高4分米,焊接这样一个水桶,至少用多少铁皮皮 椭圆的面积怎样求? 计算二重积分:1、∫∫[D]cos(x+y)dxdy,其中D由y=x,y=pai以及x=0所围成 我好想**(初中作文) 如何求椭圆的面积 二重积分的计算 ∫∫cos(y^2)dxdy D 是由x=1 y=2 y=x-1 所围成的区域 求∫∫cos(y^2)dxdy 舍弃也是一种美初中作文怎么写 怎么求椭圆的面积? 初中作文《我梦想的家园》事物说明文 初中作文:有一种放弃叫获得,600字速度,好的加分 慧能组什么词 家乡的河初中作文 设根号13的整数部分是x,小数部分是y,求x-y的值. 作文开学打算(演讲时规定时间为1分钟左右,字写少点) 初中作文家乡的变化我家是锦州的.非常急!多少字都行快,马上就要 一个圆柱和一个圆锥等底等高,她们的体积和是50.24立方分米.如果圆柱的底面半径是2分米,这个圆柱的高是 信息技术老师要求每位七年级学生40分钟打完一篇文章.已知.要独立打完这篇文章,小宝需要50分钟,小贝只需要30分钟为了完成任务,小宝打了30分钟后请求小贝帮忙合作 ,他们能在要求的时间完 有6张扑克牌,3,4,5点的各2张任意摸起2张,2张扑克牌上的点数和有几种可能情况?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘