vfp-自定义方法
lygcw9602
这个作者很懒,什么都没留下…
展开
-
年月日时分秒星期的设置方法
TRANSFORM(VAL(DTOS(DATE())),'@ 9999年99月99日')+" "+TRANSFORM(val(chrtran(time(),":","")),'@ 99时99分99秒')+" "+"星期"+SUBSTR("一二三四五六日",DOW(DATE(),2)*2-1,2)结果:2012年01月30日 19时21分16秒 星期一原创 2012-01-30 17:20:40 · 1094 阅读 · 0 评论 -
拼音库提取程序
CREATE CURSOR WINPYK (词条 C(40),多音 C(8),汉字 C(28),拼音 C(12))NROW=ALINES(AHZ,FILETOSTR([WINPY.TXT]),CHR(13)+CHR(10))FOR I=1 TO NROW NROW1=ALINES(AH,AHZ(I),[ ]) && 提取行记录 NLEN=LEN(AH(1))-LEN原创 2012-09-24 22:05:12 · 591 阅读 · 0 评论 -
VFP的GRID中行记录上移或下移一行
说明:当前数据表已经建立了索引文件的,先关闭索引文件,否则影响执行效果。 下面的代码是在DFWXJ(清风)的提示下完成的,在此特别感谢DFWXJ(清风)。本代码属于共创作品。因为文章类别管理里没有共创分类,只好用原创了,请DFWXJ(清风)谅解。IF THIS.VALUE=1 &&行记录上移 YH=RECNO() && 源行 MDH=YH-1 && 目的行 I原创 2012-01-18 11:18:20 · 3834 阅读 · 0 评论 -
如何排名次
SELECT 1use pmb**表结构(ID N 4 ZF N 4 MC N 6)INDEX ON ZF TAG ZF DESCENDING &&降序copy to pmb1SELECT 2use pmb1Y=1 && 分数最高者名次(mc)为1 X=ZFFOR I=1 TO RECCOUNT() GO I原创 2012-01-14 13:15:35 · 1368 阅读 · 2 评论 -
区位码转换为双字节字符(含汉字)
SET TALK OFFCLEARQM="" *CREATE CURSOR QWM (QWM C(4),ZF C(2))FOR I=1 TO 87 QM=IIF(I<10,'0'+STR(I,1),STR(I,2)) @ 0,62 SAY "第 "+STR(I,2)+" 区" FONT "宋体",12 ROW=3 COL=1 W原创 2012-01-28 20:19:47 · 953 阅读 · 0 评论 -
身份证号码中,年龄、性别的提取方法
以18位居民身份证号码为例SFZH="320705197803240519"*----"年龄"提取方法:DDATE=CTOD(STUFF(STUFF(SUBSTR(SFZH,7,8),5,0,"."),8,0,".")) &&将提取的出生日期字符串转换为日期型数据NL=YEAR(DATE())-YEAR(DDATE)+IIF(MONTH(DATE())-MONTH(DDATE)>0原创 2012-02-24 00:21:34 · 1454 阅读 · 1 评论 -
身份证号码验证方法
************************** 身份证号码验证方法**************************PARAMETERS SFZCLEARCLOSE TABLES**oldgzq=select()LOCAL RQ,XB,ZFZHSFZ="34052219870228001X"XB="男"SFZH=""*----身份证号码位数验证原创 2012-03-05 01:08:40 · 3089 阅读 · 1 评论 -
VFP中如何查找表中指定字段内容重复(竖重)的记录
select *,count(*) from T order by a,b,c group by a,b,c having count(*)>1说明:T是你要查重的表,A,B,C是要查重的字段,COUNT(*)>1 记录数大于1说明有重复记录原创 2012-02-14 00:10:06 · 9481 阅读 · 0 评论 -
VFP中如何判断GRID单元格的值是否被修改
为表单设置一属性:mVALUE当焦点进入文本框时,在GOTFOCUS事件:IF !EMPTY(THIS.VALUE) THISFORM.mVALUE=THIS.VALUEENDIF当焦点离开文本框前,在VALID事件:IF EMPTY(THISFORM.mVALUE) OR THIS.VALUE==THISFORM.mVALUEELSE MESSAGEBOX原创 2012-02-12 00:06:10 · 3563 阅读 · 0 评论 -
自制进度条的设置方法
自制进度条的设置方法:在表单上分别加入容器控件(Container1)及标签控件(Label1)各一个。容器控件属性设置如下:BackColor=Rgb(255,255,255),SpecialEffect=1,Width=202标签控件属性设置如下:BackColor=Rgb(0,0,255),Caption="",Left=Container1.Left+1,Width原创 2012-02-08 02:51:25 · 2585 阅读 · 0 评论 -
拼音库提取程序[最新版]
*---拼音库提取程序T1=SECONDS()CREATE CURSOR WINPYK (词条 C(40),多音 C(8),汉字 C(28),拼音 C(12))APPEND FROM WINPY.TXT DELIMITED WITH BLANKREPLACE ALL 汉字 WITH LEFT(词条,(LEN(词条)-LENC(词条))*2),拼音 WITH SUBSTRC(词条,(原创 2012-09-26 14:38:54 · 672 阅读 · 0 评论