vfp最常用代码.pdf

《vfp最常用代码.pdf》由会员分享，可在线阅读，更多相关《vfp最常用代码.pdf（8页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、登陆界面 确认：if thisform.USER.value=alltrim(用户表.用户名).and.thisform.PASSWORD.value=alltrim(用户表.密码)do form 主界面.scx release thisform else =messagebox(对不起，用户名或密码错误！,0+56+0,用户名+密码错误)thisform.USER.value=thisform.PASSWORD.value=thisform.USER.setfocus endif 退出：RELEASE THISFORM 主程序代码 set fweek to 1 set mark to.set

2、 separator to,set point to.set talk off set safety off public xtbt xtbt=学生信息管理系统 _screen.caption=xtbt _screen.picture=Home.jpg do form 系统主页 release window 常用 read events 修改密码中确认修改 LOCAL jj jj=0 for i=1 to 3 s=text+alltrim(str(i)d=label+alltrim(str(i)if empty(thisform.&s.value)messagebox(thisform.&d.

3、caption+不能为空,64,系统提示)thisform.&s.setfocus ELSE IF s=text3 jj=1 ENDIF ENDIF ENDFOR IF jj=1 select 用户表 GO top locate for alltrim(thisform.text1.value)=alltrim(用户名)if found()if alltrim(thisform.text2.value)=alltrim(thisform.text3.value)replace 密码 with ALLTRIM(thisform.text2.Value)MESSAGEBOX(密码修改成功,64,系

4、统提示)thisform.text1.Value=thisform.text2.Value=thisform.text3.Value=thisform.text1.SetFocus ELSE MESSAGEBOX(两次输入密码不一致,请重新输入,48,系统提示)thisform.text2.Value=thisform.text3.Value=thisform.text2.SetFocus ENDIF ELSE MESSAGEBOX(用户名+ALLTRIM(thisform.text1.Value)+不存在,请确认重新输入,48,系统提示)thisform.text1.setfocus thi

5、sform.text1.SelStart=0 thisform.text1.SelLength=LEN(ALLTRIM(thisform.text1.Value)thisform.text2.Value=thisform.text3.Value=ENDIF ENDIF 返回 do form 功能选项.scx release thisform 运动的时间 代码 ThisForm.label1.Caption =TtoC(datetime()数据维护 首记录 go top thisform.refresh 上一个 skip-1 if bof()messagebox(hehe,已到文件头,48)en

6、dif thisform.refresh 下一个 skip+1 if eof()messagebox(hehe,已到文件尾,48)endif thisform.refresh 未记录 go bottom thisform.refresh 增加 append blank go bottom thisform.refresh 删除 if messagebox(确实要删除吗？,1,提示！)=1 delete pack endif thisform.refresh 关闭 release thisform 预订信息查询 locate all for bo1.value=预定表.客户中文名 thisfor

7、m.text1.value=预定表.预订名称 thisform.text2.value=预定表.性别 thisform.text3.value=预定表.住客籍贯 thisform.text4.value=预定表.预定时间 thisform.text5.value=预定表.房间类型 thisform.text6.value=预定表.入住时间 thisform.text7.value=预定表.离开时间 thisform.text8.value=预定表.预订数量 thisform.text9.value=预定表.住客总人数 thisform.text10.value=预定表.确认方式 thisfor

8、m.text11.value=预定表.预付方式 thisform.text12.value=预定信息表.预付款 thisform.text13.value=预定信息表.应付款 thisform.text14.value=预定信息表.差额 thisform.text15.value=预定表.联系方式 房间信息查询 locate all for bo1.value=房间信息表.房间号 thisform.text1.value=房间信息表.房间号 thisform.text2.value=房间信息表.房间类型 thisform.text3.value=房间信息表.单价 你要做什么 入住 do for

9、m 登记表单.scx release thisform 预定 do form 预定表单.scx release thisform 退出 do form 主界面.scx release thisform time 1 i=int(rand()*255)j=int(rand()*255)k=int(rand()*255)thisform.label1.forecolor=rgb(i,j,k)2 if thisform.label1.left+thisform.label1.width432 thisform.timer2.enabled=.f.thisform.timer3.enabled=.t.

10、else thisform.label1.left=thisform.label1.left+2 endif 3 if thisform.label1.left860 thisform.label1.left=100 thisform.label1.top=100 else thisform.label1.left=thisform.label1.left+20 thisform.label1.top=thisform.label1.top+20 endif if alltrim(thisform.text1.value)=张三 if thisform.text2.value=123456 thisform.Label4.caption=欢迎使用该系统 else thisform.Label4.caption=用户名或密码有误 endif endif 放大字体 thisform.Label2.fontsize=thisform.Label2.fontsize+2 变红 thisform.Label2.forecolor=RGB(255,0,0)注册 locate all for alltrim(Mima.Yhm)=alltrim(thisform.text1.text)close all quit