专栏首页加菲猫的VFP小白领不小心点了关闭工作白费,码农小张决定为获姑娘芳心又开夜车

小白领不小心点了关闭工作白费,码农小张决定为获姑娘芳心又开夜车

“啊”,突然一时尖叫,码农小张一听就知道是小丽,他连忙站了起来,跑过去一看,小丽看着小张,顿时就直接哇哇大哭,哭得那个梨花带雨,连妆都花了。小张好一阵哄,结果才发现原来是她没按保存,而是按了软件右上角的叉,结果软件也没有提醒,一天的工作白费了。看着小丽的样子,小张顿时心软了,于是说拍拍胸脯,我来搞定,以后不会再出现保存不提醒了。

小张晚上留了下来加班,小李跑过来跟小张说,今天下班的时候,一辆保时捷停到了公司的楼下。小张恩了一声,也没有当回事,继续挑灯夜战。

表单设为私有工作期

表单Load事件添加如下代码

CURSORSETPROP("Buffering", 5)  &&开放式表缓冲
SET MULTILOCKS ON 
use ryxx in 0

表单的QUERYUNLOAD事件添加检测修改代码

select ryxx
for gnCount = 1 TO FCOUNT( ) && 循环次数等于字段的数目

if GETFLDSTATE(FIELD(gnCount))>=2 && 显示各字段,具体看GETFLDSTATE()函数
  isNeedToSave=.t.
  exit && 当有某个字段被修改后,即退出判断
endif
endfor


if isNeedToSave
ans=messagebox("要保存所做的修改吗?",3+32,"询问")
do case
   case ans=6 && 选择是
     =tableupdate(.t.)
   case ans=7 && 选择否
     =tablerevert(.t.)
   case ans=2 && 选择取消
endcase
endif

主界面关闭应该也需要触发关闭提醒

最后的主程序关闭退出代码

Release Windows (TMPFORM[I].Name)发触发表单的QUERYUNLOAD事件

注:祺佑业务管理系统为主表单的caption,最后才能关。

If _Screen.FormCount>0
  Dimension TMPFORM[_SCREEN.FORMCOUNT]
  For I=1 To _Screen.FormCount
    TMPFORM[I]=_Screen.Forms(I)
  Endfor

  For I=1 To _Screen.FormCount
    If Inlist(TMPFORM[I].Caption,"祺佑业务管理系统","Toolbar1","维护精灵")

    Else
      Release Windows (TMPFORM[I].Name)
  *    TMPFORM[I].RELEASE
      If  Vartype(TMPFORM[I])='O'
        Exit
      Endif
    Endif
  Endfor
Endif

If _Screen.FormCount<=2
  Close All
Else
  Return 0
Endif
ON ERROR 
Clear Event
Clear Dlls
Set Library To
Quit

连编测试成功! 小张看看自己涨红的眼睛,说值了,这个时候,他还在想小丽不会再出现保存不了的情况了。

写在最后面的话

加菲猫的VFP公众号接受投稿,一经采用,即有稿费,稿费暂定50元一篇。

加菲猫的vfp倡导用VFP极简混合开发,少写代码、快速出活,用VFP,但不局限于VFP,各种语言混合开发。

已经带领一百多名会员成功掌到VFP的黑科技,进入了移动互联网时代,接下来我们要进入物联网领域。

本文分享自微信公众号 - 加菲猫的VFP(VFPPLUS),作者:加菲猫的VFP

原文出处及转载信息见文内详细说明,如有侵权,请联系 yunjia_community@tencent.com 删除。

原始发表时间:2021-09-14

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

我来说两句

0 条评论
登录 后参与评论

相关文章

  • 最近话题火爆的四件事你知道不?

    身为一个互联网人,就要秉承着你的钱就是我的,我的钱还是我的的精神,多关注些身边的事,虽然不一定会和你有直接关系。

    良月柒
  • 【新媒体】16个经典广告创意文案:拿走直接用!

    某航天中心的指挥塔内,年轻人马克聚精会神地注视着面前的显示屏。忽然,显示屏上同时出现了两个移动的目标,而且这两个飞行物正越飞越近,有迎头相撞的危险。马克心急如焚...

    曾响铃
  • 一个SAP开发人员的养蚕流水帐

    南方长大的80后,对蚕应该不会太陌生。大家还记得你们小时候学过的课文《蚕姑娘》么?课文开头是这样的:

    Jerry Wang
  • 据说只有程序员看得懂这些段子

    腾讯NEXT学位
  • 程序员,被代码耽误的段子手

    来自:简书,作者:kuntoria 链接:https://www.jianshu.com/p/ab2a1c1e87fa

    昱良
  • QQ如何把你消息传递给好友的?(上篇)

    张叔叔先告诉大家一个数据:QQ注册用户量累计超过10个亿,QQ日活超过3亿,月活超过5亿。日活直白点说就是每天使用QQ的用户量,月活就是每个月累计活跃的用户量。...

    张叔叔讲互联网
  • 大数据在美国,已完成从灰姑娘到公主的蜕变

    要想富先修路,美国从上世纪50年代开始修路,建起了全美的高速公路网。修路不是一件简单的事情,要人要钱要技术,不过这也正好解决了就业、刺激了经济。路修好了又拉近了...

    华章科技
  • 程序员,你为何而工作为什么而工作把自己当成一个企业别矫情,无效的努力没毛线用小结

    章鱼喵
  • QQ如何把你消息传递给好友的?(下篇)

    话说你已经成功注册了QQ号码,取名叫“村头小伙”。你的同学小芳“村里那个姑娘”也接受了你的好友申请。之后的日子里面,你们经常通过QQ发送文字和语音,偶尔还会视频...

    张叔叔讲互联网
  • 暮去朝来

    1. 下班了。心情通常疲惫而沮丧:回家的交通估计又要一塌糊涂,拿出 Google Map 导航,该死的女声义正言辞的告诉你 “despite usual tra...

    包子面试培训
  • 上了名校才知道,我们到底输在哪里

    你看那北大毕业的还有卖猪肉的,清华毕业的还当保安,我手下刚招来的985大学的高材生,来了还不是要从打杂开始干?

    IT派
  • 比抖音更狠,它正在摧毁年轻人的未来!

    “最起初,我只是想买一只刚上市的iphone6s。一个月还300,我完全可以负担的起。谁知欲望和贪念就像滚雪球一样越滚越大,噩梦就是从这个时候开始的。

    IT派
  • 我在华为20年之小趣事回忆

    原文出处: panshaoqin(@魔法爸爸) 收拾好行李,从杜塞尔多夫机场乘机回国,突然间想起今天(2015年8月15日)是我来公司20年的纪念日。1995...

    wangxl
  • 要想学机器学习,先科学把妹!

    导语:小编今天就让大家放松一下,明天再推技术文章,昨天七夕看到了一篇“好”文章,其实我只是单纯地觉得这些名字太高大上了,爱因斯坦把妹法- -。另外,小编Tom邀...

    IT派
  • Python爬取糗事百科所有段子

    D:\Python\venv\Scripts\python.exe D:/Python/venv/test8.py

    py3study
  • 益联益家内蒙古草原游学·希拉穆仁大草原

    2018年7月2日,益联益家董事长张翔轩、副董事长王坤锋携各地区会员前往内蒙古,开启为期4天3夜的“益联益家内蒙古游学之旅”。一起走进壮美的原生态内蒙古大草原,...

    益联益家
  • 百万网红带货忙,十万黑产敛财狂

    引子:直播带货爆发背后是黑产的狂欢 2020年初突如其来的新冠疫情,线下购物和传统电商需求萎缩,而短视频+直播带货模式成为了零售行业大风口。与此同时,防水墙却...

    腾讯防水墙
  • qt王者荣耀皮肤抽奖器

    说一下过程吧,第一步,就是先准备好皮肤的图片,皮肤的图片在王者荣耀的官网是可以下载的,但是过百的下载量确实有点大了,动了个小心思,网上找了一个用py写的爬虫...

    花狗Fdog
  • 爬了下知乎神回复,已笑趴~~~

    A: 这暗示了,在你连iPhone都买不起的时候,他就买了房子。 世界真是不公平呀!

    良月柒

扫码关注云+社区

领取腾讯云代金券