苏州学思堂教育:VFP程序代码（二）

来源：百度文库编辑：偶看新闻时间：2024/04/30 05:24:02

VFP程序代码（二）

(2007-09-09 21:15:54)

转载标签：

vfp数据库

分类：VFP编程二、主程序设计1、主程序（用顶层表单，不能调用计算器、报表设计器）public drivedrive=alltrim(sys(16)) 设置通用路径dr=substr(drive,1,2)with _screen .visible=.f. .windowstate=2endwith close allapplication.visible=.f.deactivate window"project manager"set default to&dr\njjl,&dr\njjl\scx,&dr\njjl\dbf,&dr\njjl\\vcx,&dr\njjl\bmp,&dr\njjl\frm,&dr\njjl\prgdo &dr\njjl\prg\settingdo form &dr\njjl\scx\rh_dlon shutdown quitread eventsdo &dr\njjl\prg\reset （1）、登录表单（顶层表单）密码文本框LostFocus事件代码public userif alltrim(thisform.text1.value)==alltrim(b_rh.口令)user=b_rh.用户级别thisform.releasedo form e:\njjl\scx\njjl_mainelsectitle="农机监理信息管理系统"ctext="密码错误，重新输入吗？"yn=messagebox(ctext,4+32,ctitle)do casecase yn=6thisform.text1.value=""thisform.text1.setfocuscase yn=7ctitle="农机监理信息管理系统"ctext="不要入侵我的系统!"messagebox(ctext,48,ctitle)thisform.releasequitendcaseendif 2、*主程序（不用顶层表单，建立一窗口，可调用计算器、报表设计器）close allpublic useruser=2deactivate window"project manager"set default to d:\fcgl,d:\fcgl\scx,d:\fcgl\dbf,d:\fcgl\vcx,d:\fcgl\bmp,d:\fcgl\frm,d:\fcgl\prgdo d:\fcgl\prg\settingdo form d:\fcgl\scx\dl_fcwith _screen .icon='d:\fcgl\bmp\classlib.ico' .visible=.f. .caption='房地产信息管理系统' .windowstate=2 endwithdefine window mywin from 0,0 to 150,150 ;fill file d:\fcgl\bmp\小屋.jpgactivate window mywin bottomdo d:\fcgl\mpr\cd_fc.mpron shutdown quitread eventsdo d:\fcgl\prg\reset （1）、登录表单（顶层表单）密码文本框LostFocus事件代码 if thisform.text1.value=b_rh.口令user=b_rh.用户级别thisform.release*application.visible=.t._screen.windowstate=2 _screen.visible=.t.*_screen.enabled=.t.elsectitle="房地产信息管理系统"ctext="密码错误，重新输入吗？"yn=messagebox(ctext,4+32,ctitle)do casecase yn=6thisform.text1.value=""thisform.text1.setfocuscase yn=7ctitle="房地产信息管理系统"ctext="不要入侵我的系统!"messagebox(ctext,32,ctitle)thisform.releasequitendcaseendif 三、数据录入：（有主索引字段，防止重复输入）1、表单init事件代码use d:\txl\dbf\b_txlgo bottomTHISFORM.TEXT1.VALUE=姓名THISFORM.TEXT2.VALUE=手机thisform.text1.enabled=.f.thisform.text2.enabled=.f.thisform.command1.caption='添加' 2、text1(主索引字段) lostfocus事件代码（姓名为主索引）sele b_txllocate for alltrim(姓名)==alltrim(thisform.text1.value)　＊用双等号if found()messagebox('此记录已存在！',48,'信息提示')thisform.text1.value=姓名thisform.text2.value=手机thisform.text1.enabled=.f.thisform.text2.enabled=.f.thisform.command1.caption='添加'endif 3、‘确定’按钮单击事件代码sele b_txlif this.caption='确定'appe blankreplace next 1 姓名with THISFORM.TEXT1.VALUEreplace next 1 手机with THISFORM.TEXT2.VALUEthis.caption='添加'*THISFORM.TEXT1.VALUE=''*THISFORM.TEXT2.VALUE=''thisform.text1.enabled=.f.thisform.text2.enabled=.f.THISFORM.TEXT1.setfocuselsethisform.text1.enabled=.t.thisform.text2.enabled=.t.THISFORM.TEXT1.VALUE=''THISFORM.TEXT2.VALUE=''THISFORM.TEXT1.setfocusthis.caption='确定'endif

mp3中vfp的程序代码请VFP编程高手帮忙写出程序代码！~ 程序代码程序代码程序代码知识求解（VFP）急求JAVA小程序代码（20分重赏） vb程序代码 ASP程序代码电脑程序代码什么是程序代码关于VFP（Visual FoxPro） 2（Fe2+）+Br2==2（Fe3+）+2（Br—） br是哪个国家网站的尾字母（好像叫域名） BR文件是什么 BR啥意思 exploit.vbs.phel.br Backdoor.Gpigeon.2006.br 请问什么是BR流? <BR>是什么意思? 我要考VFP(省二的),我考那几个知识点 VFP公司办公室管理系统(论文）!!! VFP安装问题（高手请进）求一段简单的程序（VFP）