如何让FOXPRO中的DBF文件加密

作者&投稿:左阅 (若有异议请与网页底部的电邮联系)
如何给文件夹加密?~

这个还真没有办法加密
加密之后dbf文件就打不开了
怎么在vfp中使用呢

方法1,对表的内容加密(必须使用对称算法)
方法2,修改dbf文件的扩展名
比如将temp.dbf修改为temp.dat
平时使用use temp就能打开表
这时候必须使用use temp.dat才能打开表
打开之后的操作和之前是一样的
这样只是个障眼法

网上有很多这样的资料,一般由加密解密构成!给你一份资料,你学习学习吧!!!一、加密、解密思路

我们知道数据库文件(.dbf)的数据结构分为三部分:文件头部分、字段描述部分和记录部分。文件头部分的第一个字节是chr(03),这样,就可以
通过修改文件头的第一个字节,使启用正常的打开方式不能浏览数据库内容,达到加密的目的;解密时,将加密数据库文件的文件头第一个字节修改为
正常的数据库文件的第一个字节,即可对它进行正常操作。

二、加密函数

function jiami

parameters dbf_f_name,curs_set

dbf_f_name=upper(alltr(dbf_f_name))

private all

if .not. file(dbf_f_name)

=messagebox(""要加密的文件不存在!!"",0+48,""错误提示"")

else

if ! "".DBF"" $ dbf_f_name

dbf_f_name=dbf_f_name+"".DBF""

endif

hle=FOPEN(dbf_f_name,2)

if hle>0 &&打开文件成功

fbyte=FREAD(hle,1)

=FSEEK(hle,0)

=FWRITE(hle,iif(fbyte==chr(3),chr(0),chr(26)))

&&假如第一个字节是chr(3)则用chr(0),否则用chr(26)写入

=FCLOSE(hle)

else

=messagebox(""试图文件打开错误!!"",0+48,""加密错误提示"")

endif hle>0

endif

return

三、解密函数

function jiemi

parameters dbf_f_name,curs_set

dbf_f_name=upper(alltr(dbf_f_name))

private all

if .not. file(dbf_f_name)

=messagebox(""要解密的文件不存在!!"",0+48,""错误提示"")

else

if ! "".DBF"" $ dbf_f_name

dbf_f_name=dbf_f_name+"".DBF""

endif

hle=FOPEN(dbf_f_name,2)

if hle>0

fbyte=FREAD(hle,1)

=FSEEK(hle,0)

if fbyte=chr(0).or.chr(26)

=FWRITE(hle,iif(fbyte=chr(0),chr(3),chr(245)))

endif

=FCLOSE(hle)

else

=messagebox(""试图文件打开错误!!"",0+48,""解密错误提示"")

endif hhandle>0

endif

return

四、调用加(解)密函数

启动VFP,将加密、解密函数在程序调用之前定义,然后建立表单,在表单中建立两个命令按钮,命名为“加密”、“解密”;

在命令按钮“加密”的click事件中添加代码:“=jiami(""要加密的数据库文件名"",off)”

如果要加密多个数据库文件,则调用几次加密函数即可);

同理在命令按钮“解密”的click事件中添加代码:“=jiemi(""要解密的数据库文件名"",off)”,如果要解密多个加密数据库文件,则多调用几
次解密函数即可。

在表单中,点击“加密”按钮,则执行加密操作,点击“解密”按钮,执行解密操作。


visual foxproVisual FoxPro 6.0 系统设置选项卡及功能
Visual FoxPro 6.0的系统设置选项卡包含了一系列功能丰富的设置,以适应用户的个性化需求。首先,显示选项卡允许用户调整界面细节,如是否显示标题栏、时钟、命令结果或系统信息等,提供更加直观的操作体验。在常规设置中,用户可以调整数据输入和编程习惯,例如选择是否启用警告声提示,以及是否自动填充新记录,...

在Visual Foxpro中数据表的索引有哪几种,它们有何特点
主索引、侯选索引、普通索引、唯一索引 主索引:用来建立主索引的关键字值不能重复,也不能取空值。一个数据库表只能建立一个主索引。自由表不能建立主索引。主索引只能在表设计器中“索引”选项卡中建立,不能用命令建立。候选索引:用来建立主索引的关键字值不能重复,也不能取空值。一个数据库表可...

在Visual Foxpro中数据表的索引有哪几种,它们有何特点?
主索引、侯选索引、普通索引、唯一索引 主索引:用来建立主索引的关键字值不能重复,也不能取空值。一个数据库表只能建立一个主索引。自由表不能建立主索引。主索引只能在表设计器中“索引”选项卡中建立,不能用命令建立。候选索引:用来建立主索引的关键字值不能重复,也不能取空值。一个数据库表可...

在Visual Foxpro6.0中,怎样实现表单之间的跳转?如何实现数据库与表单的...
这不叫表单之间的跳转,应该建立多个表之间的链接,数据库也不是和表单链接的,而是将表添加到数据库中,或者直接建立数据库表,一些基本的概念你都还没有搞清楚,现在让你做学籍管理系统太难了,你应该找本书,找个案例,从头研究一下,如果时间充裕,应该重新学习一下基础知识。

在visual foxpro在中怎样编辑程序 输入三角形的三条边,判断它是何种类...
clear input "请输入第一条边:" to a input "请输入第二条边:" to b input "请输入第三条边:" to c if a+b<c or a+c<b or b+ck ?"是钝角三角形"case c<k ?"是锐角三角形"endcase endif

求Visual Foxpro常用函数
Visual Foxpro函数一、 数值函数 数值函数用于数值运算,其自变量与函数都是数值型数据。1.取绝对值函数ABS( )【格式】ABS(<nExp>)【功能】计算nExp的值,并返回该值的绝对值。2.指数函数EXP( )【格式】EXP(<nExp>)【功能】求以e为底、nExp值为指数的幂,即返回ex的值。3.取整函数INT( ...

FoxPro到底是个什么软件,它有什么用处??
visual foxpro是数据库管理系统,是介于数据库和用户的管理系统,集成开发语言,提供数据库操作前端界面的制作,提供c\/s模式开发,提供api和activitx函数和控件的接口,是开发小型数据库的前端工具。数据库管理系统是一个能够提供数据录入、修改、查询的数据操作软件,具有数据定义、数据操作、数据存储与管理、...

FOXPRO 命令有哪些?
FoxPro命令的一般格式 --- 命令格式 FoxPro命令一般由命令名及通过字句所指定的操作对象、操作范围、操作条件等若干选择项所构成,其一般格式如下: <命令名>[<表达式>][〈范围〉][FOR<条件>][WHILE〈条件〉][TO FILE<文件名>| TO PRINTER|TO ARRAY <数组表>|TO <内存变量>] [ALL [L...

在foxpro中,表达式 和 表达式表 有何区别?请举例说明好吗谢谢
在FoxPro中的表达式有:数值型表达式,字符型表达式,日期型表达式,关系型表达式,逻辑型表达式。它们的运算优先级为:数值运算符高于关系运算符,关系运算符高于逻辑运算符。所有同一级的都是从左到右进行的,括号内的运算优先执行,(嵌在最内层括号内的运算首先进行)。依此由内向外执行。

foxpro 怎样计算总分
select 数学+物理+化学 as 总分 from 表名 foxpro是支持直接执行sql语句的。update 表名 set 总分=数字+物理+化学

积石山保安族东乡族撒拉族自治县19513333436: 如何让FOXPRO中的DBF文件加密 -
乐正罚益中: 这个还真没有办法加密 加密之后dbf文件就打不开了 怎么在vfp中使用呢 方法1,对表的内容加密(必须使用对称算法) 方法2,修改dbf文件的扩展名 比如将temp.dbf修改为temp.dat 平时使用use temp就能打开表 这时候必须使用use temp.dat才能打开表 打开之后的操作和之前是一样的 这样只是个障眼法

积石山保安族东乡族撒拉族自治县19513333436: 如何让FOXPRO中的DBF文件加密
乐正罚益中: 网上有很多这样的资料,一般由加密解密构成!给你一份资料,你学习学习吧!!! 一、加密、解密思路 我们知道数据库文件(.dbf)的数据结构分为三部分:文件头部分、字段描述部分和记录部分.文件头部分的第一个字节是chr(03),这样,...

积石山保安族东乡族撒拉族自治县19513333436: 如果没有dbf选项怎么办呢
乐正罚益中: 你好,没有DBF的,一定有PDF类型,如果需要添加到DBF文件,可以在FOXPRO里面执行APPEND FROM命令或者选择菜单IMPORT从EXCEL文件.希望我的回答可以帮助到你!

积石山保安族东乡族撒拉族自治县19513333436: 同格式DBF文件纵向合并 -
乐正罚益中: 我只是方便操作 双击打开任意一个文件 在打开的窗口中有个小窗口,如果没有出现就按CTRL+F2 输入.0 将四个文件分别命名为1.dbf 2.dbf3先确定你电脑里安装FOXPRO6,也就是命令窗口.dbf4.dbf 当然不命名也没关系

积石山保安族东乡族撒拉族自治县19513333436: 怎么在Excel中导入dbf库? -
乐正罚益中: 导入外部数据" 就可以了 2、启动FOXPRO. 文件类型选"DBASE 文件 .DBF&quot:菜单“打开”,打开数据库,导出数据 2)1、Excel里可以直接导入啊.菜单"数据"-"-"导入数据",进入FOXPRO环境 1)、菜单方式

积石山保安族东乡族撒拉族自治县19513333436: dbf如何导入oracle -
乐正罚益中: 先把DBF附加到FoxPro中,然后与一个程序,把它导入到Oracle中即可.提示foxpro连接:sDBDriver = "sun.jdbc.odbc.JdbcOdbcDriver";sConnStr = "jdbc:odbc:driver=Microsoft FoxPro VFP Driver (*.dbf);"+ "UID=;"+ "Deleted=...

积石山保安族东乡族撒拉族自治县19513333436: 怎样把visual foxpro中扩展名为.dbf文件转成excel工作表,请大侠教两招.在此表示感谢! -
乐正罚益中: 将另一个表中的记录追加到当前表中 append from 表名|?[fields 字段集合][for 条件][type delimited 文件格式] [type delimited 文件格式]可将其他数据文件追加到当前工作区中的表中. 例如,将excel编辑的数据文件date1.xls追加到book.dbf文件中可...

积石山保安族东乡族撒拉族自治县19513333436: FOXPRO中,如何导入EXCELL文件为DBF文件 -
乐正罚益中: 哦,那你必须现有DBF的库结构(字段与excel的相同),然后把dbf导出成excel文件,此时再把你要倒入的excel复制粘贴到刚倒出的excel里(字节数不要改,就是不要拉动导出excel的列宽),然后导入即可.

积石山保安族东乡族撒拉族自治县19513333436: 如何用excel导入dbf文件 -
乐正罚益中: 我建议用Microsoft Access建库,导入数据为表,修改库结构(字段)属性,再导出DBF文件!另外还有一个比较好的的方法: 打开 FOXPRO,选择开始菜单中的导入,就可以了,数据库结构不用修改

积石山保安族东乡族撒拉族自治县19513333436: 如何向ORACLE 中导入DBF 文件 -
乐正罚益中: 我认为如果一次性的可用SQL*LOAD导入,如果是经常性的可用VFP编一个小程序直接写到你的ORACLE的一个表中, 我们就是这样的做

本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
© 星空见康网