VFP60学习笔记修订Word下载.docx
- 文档编号:19078702
- 上传时间:2023-01-03
- 格式:DOCX
- 页数:8
- 大小:19.70KB
VFP60学习笔记修订Word下载.docx
《VFP60学习笔记修订Word下载.docx》由会员分享,可在线阅读,更多相关《VFP60学习笔记修订Word下载.docx(8页珍藏版)》请在冰豆网上搜索。
改变容器大小选项:
在“全部”选项卡里输入Height(高度).Width(宽度值)
改变图片显示容器属性:
在属性框中选择Stretch.默认是0‘剪载’,改成变填充,可将图片在容器中全部显示.
修改窗体介绍:
在属性栏选Caption.添加窗体背景图,在属性栏里选Picture,点上面的浏览‘按钮’,进行查找图片文件.
三、VFP中”退出”按扭代码和猜数游戏中”开始”程序码
1、退出:
在方法程序中双击ClickEvent,输入:
thisform.release&
&
本表单.释放
2、开始:
thisform.label1.visible=.f.&
重新开始,abel1标签的可见为假,即赢字隐去.
thisform.label2.visible=.f.&
将label2标签的可见为假,即"
输"
字隐去.
thisform.text1.value=int(rand()*10)&
设置本表单text1文本框的随机值.本例中随机值是10。
thisform.text2.value=int(rand()*10)&
设置text2文本框的随机值.本例中随机值是10。
thisform.text3.value=int(rand()*8)&
设置text3文本框的随机值.
ifthisform.text1.value=7.or.;
thisform.text2.value=7.or.;
thisform.text2.value=7&
假如text1的值等于7或者text2等于7或者text3等于7.如果为两行及以上可用分号(;
)分开,最后一行不用分号,不影响命令执行。
thisform.label1.visible=.t.&
那么label1标签的可见为真,即"
赢"
字显示出来
else&
否则
thisform.label2.visible=.t.&
label2标签可见为设为真,即"
字显示出来.
endif&
结束假设
在表单属中选择AutoCenter,将其值改为‘真’,表示表单自动居中。
为了使表单运行时不再运行其它语句,在属性窗体中选WindowType,将其值改为‘1’模式,只有在关闭表单后其它程序才能使用。
修改表单名称:
Caption修改名称
方框透明:
BackStyle中修改为透明
对象名称.setfocets
程序将自动在该方框中设置输入焦点.
SELECTJbqk.妇女编码,Jbqk.妇女姓名,Jbqk.妇女身份证,Jbqk.妇女民簇,Jbqk.妇女婚姻,Jbqk.女婚变日期,Jbqk.丈夫姓名,Jbqk.丈夫身份证,Jbqk.丈夫民簇,Jbqk.丈夫婚姻,Jbqk.避孕时间,Jbqk.避孕状况,Jbqk.xynh,Jbqk.xynvh,Syjjtzn.孩次,Syjjtzn.性别,Syjjtzn.是否合法,Syjjtzn.子女出生,Syjjtzn.生育备注;
(指明调用哪些字段,每一个字段前必须加有表名称,字段名之间用英文或半角下的逗号“,”分开)
FROMjbqkINNERJOINsyjjtzn;
(指明调用表的名称)
ONJbqk.妇女编码=Syjjtzn.妇女编码;
(指明两个表关联的字段名)
ORDERBYJbqk.妇女编码;
(设定排序字段名,本例中为升序)
INTOTABLEg:
\资料类\数据库文件\ylfn\出生查询2.dbf(查询结果保存路径)
以“表”形式浏览内容:
brow(表式浏览)
条件:
for(浏览条件)
显示字段名:
fields例如:
browfieldsfnxfhm(回车)只显示字段名为fnxfhm的内容(注意:
两个命令之间不能用for)
包含命令:
$例如:
将fnxm中包含“陈”字的显示出来
Browfor“陈”$fnxm
相对等于命令:
=(包括)
绝对等于命令:
==(完全相等)
大于命令:
>
fncsrq大于1970.03.21的显示出来:
browforfncsrq>
{^1970.03.21}
replaceallfnsfhmwithsubstr(fnsfhm,1,6)+substr(dtoc(fncsrq),3,2)+substr(dtoc(fncsrq),6,2)+substr(dtoc(fncsrq),9,2)+substr(fnsfhm,13,3)forlen(alltrim(fnsfhm))=15
replaceallfnsfhmwithsubstr(fnsfhm,1,6)+substr(dtoc(fncsrq),1,4)+substr(dtoc(fncsrq),6,2)+substr(dtoc(fncsrq),9,2)+substr(fnsfhm,15,4)forlen(alltrim(fnsfhm))=18
1、育龄妇女初婚时达到晚婚年龄的人数
selectcount(fnxm)fromjbqk.dbfwhereyear(fnchrq)-year(fncsrq)>
=23
2、显示达到某个条件的内容
Browforyear(fnchrq)–year(fncsrq)>
=23
FontSize:
设定字号大小
Alignment:
文档对齐方式
Caption:
标题属性(可输入文字内容)
Visible:
可见属性(真或假)
ClickEvent:
按动事件
thisform.release:
ForeColor:
设置文字或前景颜色
Disabledback:
设置背景颜色
=23(select为选择命令,count为统计计算命令,from为调用表命令)
selectcount(fnxm)fromjbqk.dbfwhere(year(fnchrq)-year(fncsrq)>
=23andmonth(fnchrq)>
=month(fncsrq)andday(fnchrq)>
=day(fncsrq))or(year(fnchrq)-year(fncsrq)>
23andmonth(fnchrq)<
month(fncsrq))or(year(fnchrq)-year(fncsrq)>
23andday(fnchrq)<
day(fncsrq))
设置焦点:
意思是程序开始后默认动作处
mand1.SetFocus&
本表单.command1.设置焦点.command1是开始按扭的名称,程序开始时系统自动在该处显示动作虚框。
表单后缀名是scx
DATE()返回目前的系统日期
TIME()返回目前的系统时间
UPPER()将小写字母转换成大写字母
LOWER()将大写字母转换成小写字母
CTOD()将字符型转换成日期型格式
DTOC()将日期型转换成字符型格式
LEN()计算字符表达式的长度
ALLTRIM()删除字符串前置和尾部空白
TRIM()删除字符串尾部空白
LTRIM()删除字符串前置空白
SUBSTR()节选字符串的位数,第一个数为第几位,第二个数为连续的个数
STR()将数值表达式转换成字符串
VAL()将字符串转换成数值表达式
Year()取年份
Month()取月份
Day()取天日
STUFF()字符串替换,如:
REPLACEallfnhjddmwithSTUFF(fnhjddm,7,3,“999”)意思是将字段fnhjddm中从第7位起取3个字符替换成999
字段名”Fnhjddm”是妇女户籍地代码
字符常量都必须包含在引号中
日期常量都必须包含在大括号中
逻辑常量都必须包含在句点(.)中
SELECTJBQK.Fnbm,JBQK.Pyxm,JBQK.Fnxm,JBQK.Fnxjd,JBQK.xynh,xynvh;
(指定字段名命令)(字段名,每一个字段名必须带有表的名称,如:
jbqk.fnxm,)
FROME:
\乡级软件安装\数据表\乡级软件安装\BFHFS\JBQK.DBF;
(指定路径命令)(文件的路径……………………………………………….)
WHERE(JBQK.PYXM='
zz'
)
(显示的条件命令)(显示的条件,可以不用条件)
意思是:
显示E盘下的乡级软件安装\数据表\乡级软件安装\BFHFS\JBQK.DBF表的几个字段内容,一行不够用另起一行时在上一行的后面加分号,表示继续执行下一行命令
SELECTJbqk.fnbm,Jbqk.fnxm,Jbqk.fngzdw,Jbqk.fnsfhm,Jbqk.fnmz,Jbqk.fnhyzk,Jbqk.fnhbrq,Jbqk.zfxm,Jbqk.zfsfhm,Jbqk.zfmz,Jbqk.zfhyzk,Jbqk.byzk,Jbqk.byksrq,Jbqk.xynh,Jbqk.xynvh,Syjjtzn.znhc,Syjjtzn.znxb,Syjjtzn.zcsx,Syjjtzn.zncsrq,Syjjtzn.sybz;
FROMjbqkINNERJOINsyjjtzn;
ONJbqk.fnbm=Syjjtzn.fnbm;
INTOCURSOR查询4
二十、将系统日期格式设置为年月日格式
SETDATEANSI(将系统日期格式设置为年月日格式)
SETCENTURYon(年份为四位)
计算年龄
selectcount(fnxm)fromjbqk.dbfwhereyear(fnchrq)-year(fncsrq)<
=20
另外一个计算晚育的句子:
selecoun(*)aswy,left(fnbm,12)asdwdmintodbftempdbfromtempwywher((year(zncsrq)-year(fncsrq))*12+month(zncsrq)-month(fncsrq))>
=283
3、替换领取独生子女证时间
日期为当前月的最后一天
gomonth(date(),1)-day(gomonth(date(),1))
下个月的第一天
gomonth(gomonth(date(),iif(day(date())=1,1,0))-day(gomonth(date(),iif(day(date())=1,1,0))-1),1)
40、另外一个替换独生子女日期命令
SELECT表
GOtop
DOWHILENOTEOF()
aa=VAL(SUBSTR(DTOC(出生时间),1,4))
bb=VAL(SUBSTR(DTOC(出生时间),6,2))
IFbb=12
REPLACE领证时间WITHCTOD(ALLTRIM(STR(aa+1))+'
01'
+'
ELSE
REPLACE领证时间WITHCTOD(ALLTRIM(STR(aa))+ALLTRIM(STR(bb+1))+'
ENDIF
SKIP
ENDDO
修改身份号码
1、以下命令将修复身份证号码和出生年月日相同,15位和18位的分别修复:
替换命令
如:
想替换现居地代码,
1、先用browfor查出要查看的内容,例如:
查县直县委办(县委办代码是401)代码等于空的,请打入:
browforfndwdm='
'
{回车}。
2、然后,再用replfndwdmwith'
371421600401'
{回车}
3、替换日期型字段内容
replace妇女初婚日期with妇女婚变日期forempty(妇女初婚日期)=.t.and.婚姻状况='
初婚'
4、将妇女出生日期前面加上“371421”后面加上“321”组成一个15位的身份证号码替换到身份证号码字段里面:
replaceallfnsfhmwith"
371421"
+subs(dtoc(fncsrq),7,4)+subs(dtoc(fncsrq),1,2)+subs(dtoc(fncsrq),4,2)+"
331"
用命令修改字段名
select字段1as"
名称1"
....from表1intocousor临时表
select临时表
copytoXXX.xlstypexl5
AlterTablexsAddColumnBJC(8)表示在表XS中添加一个字段BJ;
AltertablexsAlterBJC(10)表示把XS表中BJ字段宽度改为10;
AlterTablexsRenaemcolumnBJtoBJMC表示将XS表中的BJ字段改名为BJMC;
AlterTablexsDropColumnBJMC表示删除BJMC字段
(1)把"
婚姻变更日期"
替换成"
初婚日期"
的内容
replaceall婚姻变更日期with初婚日期
(2)身份证号为18位,取第17位不是奇数
browfor(val(substr(身份证,17,1))%2)=0andlen(alltrim(身份证))=18
(3)身份证号为15位,取第15位不是偶数
browfor(val(substr(身份证,15,1))%2)=1andlen(alltrim(身份证))=15
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VFP60 学习 笔记 修订