*FUNCTION CDTOCD****** 日期转换为大写的自定义函数 CDTOCD****** 语法 CDTOCD(cDate1,nMonth,nDay)****** 输入参数cDate1*** (1)字符型,1个参数或多个参数,只有第1个参数有效*** 14个字符，格式是“YYYY年MM月DD日”或者“YYYY..MM..DD..”(".."可以是任何无关字符)*** 10个字符，格式是“YYYY.MM.DD”(.也可以是任何无关字符)*** 8个字符，格式是“YYYYMMDD”*** (2)日期...

搞了很久的程序设计，特别是用Visual FoxPro，有辛苦也有喜悦。 早些日子，用FoxBASE+做了几个系统，用得不错。记得很清楚的一件事情是，在合资企业里，有一个工程师需要搞挂齿选择，让美国人做了一个程序，据说算了1天也没有什么结果。后来他跟我说了，我试着用FoxBASE+做了一个程序，效果很好，50个齿轮以内的数量运行几秒种就能全部找出高精度的结果。原来，我还能运用FoxBASE+解决一些问题，而且还能解决得很好。虽然那时候也很熟练使用FoxBASE+了，但好象能解决类似十分复杂的问题是不敢相信的。那是快乐的单身汉的时代，几个真正的“狐友”在一起切磋技艺，互相鼓励...

用表单FORM1进行登陆，文本框TEXT1输入用户名，文本框TEXT2输入密码，optiongroup1为身份标志；COMMAND1为确定；表"用户表.DBF"存放有关用户及密码信息。(1)在FORM1.INIT()将次数i设成全局变量并打开用户表CLOSE ALLIF FILE([用户表.DBF]) USE 用户表.DBFELSE CREATE TABLE 用户表 (用户名 C(12),密码 C(12),身份 C(12)) APPEND BLANK REPLACE 用户名 WITH [SYSYTEM],密码 WITH [SYSTEM],身份 WITH [SYSTEM]ENDIF...

组合框(COMBO1)是否展开(即下拉部分是否可见)的判断问题看起来很难实现，初看好象十分地没有意思，其实这是个很有意思的问题。这个问题本身不难，但找到解决这个问题的办法的过程却需要想象，且有助于开阔思路。COMBO1.MOUSEDOWN()记录了很多的信息:LPARAMETERS nButton, nShift, nXCoord, nYCoord 其中nButton记录按的是鼠标左键(1)还是右键(2)；nSfift的值表示是否按着Sfift键的同时点击鼠标(按着返回1;否则为0)；而nXCoord和nYCoord则记录着点击鼠标的时候坐标点的值。而想让组合框下拉部分展开，必须点...

假设一个表(表1.DBF)有若干个字段(字段1,字段2,......)要用表格(GRID1)和文本框(TEXT1,TEXT2,......)显示出来,还要有"首记录","上记录","下记录","尾记录"等命令按钮,还要点击GRID1某行后该行的记录也要显示在TEXT中.程序设计如下:(1)FORM1.INIT()SET TALK OFFSET DATE ANSISET CENTURY ONCLOSE ALLIF FILE("表1.DBF") USE 表1.DBFELSE RETURNENDIFTHISFORM.GRID1.RECORDSOURCETYPE=1THISFORM.GRID...

新建表单(FORM1)，里面添加TEXT1、TEXT2、GRID1、COMMAND1、COMMAND2等控件。你用TEXT1存放矩阵的行数(表1.DBF的记录总数)，用TEXT2存放矩阵的列数(表1.DBF的字段数)，GRID1显示表1.DBF的内容，COMMAND1为"修改表结构"，COMMAND2为"结束"， (1)FORM1.INIT()CLOSE ALLIF FILE("表1.DBF") USE 表1.DBFELSE CREATE TABLE 表1 (列1 N(12,4),列2 N(12,4)) APPEND BLANK REPLACE 列1 WITH 0,列2 WI...

用VFP编制计算器 Tiger5392 2006-06-12 1.控件及其分布 在表单中创建29个命令按钮和1个文本框。1个文本框在表单的最上面。29个命令按钮分布在表单的5行6列，其中第1行只有5列。这29个命令按钮分别是 BackSpace(向前删除字符),CE(清除文本框内容并清除内存数据),C(清除文本框),(,); MC(清除内存数据),7(数字7),8(数字8),9(数字9),/(除号),SQRT(求算术平方根); <P style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 21pt; mso-char-indent...

*************************************************** 一种加密和解密算法 JM.PRG (C)Copyright 2006-2006* 加密: ?JM("文件名.DBF",88) &amp;&amp;返回0为成功* 解密: ?JM("文件名.DBF",-88) &amp;&amp;返回0为成功* 作者: Tiger5392* 时间: * 建立时间 2006.06.11* 第1次修改时间 2006.06.11*********************************************...