里就不具体写代码了。 实例中的权限密码是:0=全权 1=可修改自己的密码 2=不能作任何修改 口令=aaaaaa 口令=666666 口令=888888
需要以上程序
源代码实例的,这里下载 从以上代码中可以看出,里面没有什么新的东西,所用的工具或资料,在我网上都 可找到,我只不过是把它们拼凑一下而已。您可把这个实例编译成 EXE 文件(VFP5.0 的 朋友可能无法把共享版的 Vfpjmdbf.vcx 编进去),先在您的机器上运行一下,然后再 把它们直接拷贝到另外一台机器上一试,您看看还能运行否? 当然,别人只要用 REFOX7.06 把里面的 Main.prg 反编译出来,去掉: “ do form (Dqml+'pass')”这一句,还是可以非法拷贝的,那怎么办? 最好的办法是加密您的 EXE 文件,这样您的软件就比较保险了,最起码 Refox 等现成 的反编译工具是不可能反编译的。 在我网上有加密 VFP&;EXE 的工具下载,您可下载一试。 需要说明的是:在我网上下载的
vfpjmdbf.vcx 和 Vfp&;Exe.exe 都是共享版,功能和 使用次数都有一定的限制,如果您觉得还可以,请您花很少一点钱来注册这两个工具,
注册后,我将提供正式版和今后的
免费升级。(最新 Vfp&;Exe.exe 可以设置您自己的图表了)
如何把数字转换为汉字大写金额代码分析 [编程心得]又和您见面了,这次所写的是:怎样才能合理利 用 VFP 本身所提供的命令和函数来组织代码、编制程序,以提高 运行效率。为了能说明
问题,我以数字转换为大
写为例,通过对 三组代码的对比来谈谈我个人对此问题的认识。 每种语言提供给我们的命令或函数,可以说最能体现这种语 言的本质,而每个程序员如何运用和组织这些命令或函数,则可 以直接反映这个程序员对这种语言的理解和掌握程度。现在虽然 更多的是强调如何学习和掌握面向对象的编程方法,以及如何灵 活运用这些对象中的事件和方法来组织代码,但我们切不可忽视 对这些最基本的语言命令或函数的
学习、理解和灵活掌握。 下面我们以数字转换为大写为例来加以说明: 对于如何把数字转换为汉字大写金额的编程,我在网上看到 了许多种写法,代码最多的一种写法,其代码竟多达 100 多行, 让人看了眼花缭乱,很难理解,而代码最少的却连 10 行都不到, 而其运行结果却是完全相同,可见理解和合理组织编程语言所提 供的命令和函数是何等的重要。 考虑到版面的原因,那近百行的代码我就不具体举例了,下 面的这些代码是我自行组织编写的,如有雷同,则纯属巧合: 代码一、 FUNCTION Rmbzh 1. PARA nDhsj 2. rmbxx=allt(str(nDhsj,12,2)) 3. lszs=allt(str(int(nDhsj))) 4. cd0=len(lszs) 5. dws0='元拾佰千万拾佰千亿' 6. sh0='壹贰叁肆伍陆柒捌玖零'
rmbdx='' cd1=cd0 for I=1 to cd0 lspd=right(lszs,cd1) if val(lspd)=0 rmbdx=rmbdx+iif(cd1>4,'万元','元') exit endi ss=int(val(subs(lszs,I,1))) if ss#0 rem0=SUBSTRC(sh0,ss,1)+SUBSTRC(dws0,cd1,1) else rem0=iif(I#cd0,'零','元') endi rmbdx=rmbdx+rem0 cd1=cd1-1 endf do while atc('零零',rmbdx)>0 cc=10-atc('零零',rmbdx) rmbdx=strtr(rmbdx,'零零',SUBSTRC(dws0,cc,1),1,1) rmbdx=strtr(rmbdx,'零零','零',1,1) rmbdx=strtr(rmbdx,'零零','',1,1) endd lsxs=allt(str(nDhsj,12,2)) lsxs=right(lsxs,2) if val(lsxs)#0 ss=int(val(subs(lsxs,1,1))) rem0=SUBSTRC(sh0,ss,1)+'角' rmbdx=rmbdx+rem0 ss=int(val(subs(lsxs,2,1))) rem0=iif(ss=0,'整',SUBSTRC(sh0,ss,1)+'分') rmbdx=rmbdx+rem0 else rmbdx=rmbdx+'整' endi Retu rmbdx 这组代码是从纯数字的角度去考虑如何转换的,所以显得不 够简洁, 比如第 3 行和第 31 行,分别把整数部分和小数部分加以 分开,各自进行转换,就显的没有这个必要,但它也有可取之处, 比如: 1.充分利用了系统提供的函数,尤其是 SUBSTRC()这个双字节 函数。 2.它运行的结果可以达到完全口语化的汉语金额,如: 1