网站地图>收藏本站>设为首页
定做流程>服务项目>价格参考>付款方式>诚邀加盟>关于本站>联系我们
当前位置:5173毕业设计论文网文章资讯VFP

基于VFP学生办证领证信息管理系统

减小字体 增大字体 作者:佚名  来源:本站整理  发布时间:2011-04-25 00:21:00
QQ交谈在线咨询详情 5173论文网竭诚为您服务 本站永久域名:www.lw5173.com
(三)、查找按钮(如下图)
 
(1)、当用户在面对记录较多时,或者用户输入记录过久时,可能会导致搞忘,本编辑人员考虑到一个一个的去查看,这样既浪费时间,又容易出错,所有为了既准确、又快,特为用户编写了一个查询按钮,通过学号来对学生是否办领证进行查询。在学号处输入你要查找的学生的学号即可,然后单击查询按钮。
查询按钮代码如下:
分别在click事件中输入以下代码
***********************************
select 1
use date\bzgl.dbf         **调用bzgl .dbf**
if len(alltrim(thisform.text1.value))<>0       **判断所学号是否为空**
locate for bzgl.学号=thisform.text1.value    **查找当前输入的学号是否完全等于bzgl.dbf里面的学号**
if found()      **如果找到**
thisform.text2.value=班代码         **显示班代码**
thisform.text3.value=姓名           **显示姓名**
thisform.text4.value=bzgl.性别       **显示性别**
thisform.text5.value=bzgl.身份证号码 **显示身份证号码*
thisform.text6.value=bzgl.金额         **显示金额**
if thisform.text7.value                  **查看是否办证**
    repl 是否办证 with .t.
else
    repl 是否办证 with .f.
endif
if thisform.text8.value
    repl 是否领证 with .t.            **查看是否领证**
else
    repl 是否领证with .f.
endif
else
=messagebox("¸该学生的基本信息不存在",48,"警告!")   **如果没有找到,就显示“该学生的基本信息不存在”**
thisform.text1.value=""
endif
else
=messagebox("学号不能为空!",48,"警告!")     **当你没有输入学号时,直接单击查询按钮时,就会出现“学号不能为空”**
endif
thisform.text1.value=' '
this.refresh
*********************************************************************
 
(3)、退出
用户添加后,要进入下一个操作时,就需要退出本系统,进行下一步操作。
退出按钮代码如下:
*************
 thisform.release   **释放并退出此表单**
******************************************************************************

以上内容只是毕业设计作品的部分资料介绍,如果了解更多详情请联系客服QQ:57510459
     购买帮助>>

Tags:

作者:佚名

文章评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论