毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 论文 >> 正文

VFP客房管理系统 第2页

更新时间:2008-3-27:  来源:毕业论文

VFP客房管理系统 第2页

do form kfgl\form\kfyd

在“住宿登记”按钮的Click事件中添加以下代码:

do form kfgl\form\zsdj

在“退宿结帐”按钮的Click事件中添加以下代码:

do form kfgl\form\tsjz

在“住宿查询”按钮的Click事件中添加以下代码:

do form kfgl\form\zsquery

在“客房查询”按钮的Click事件中添加以下代码:

do form kfgl\form\kfquery

在“房态查看”按钮的Click事件中添加以下代码:

do form kfgl\form\fangtaiquery

在“宿费提醒”按钮的Click事件中添加以下代码:

do form kfgl\form\sftx

在“客房信息”按钮的Click事件中添加以下代码:

do form kfgl\form\kfmanage

根据用户的使用权限,设置按钮是否有效。在vcxmain1类的Init事件中添加以下代码:

if purview>4 or pqtgl=.f.

   this.parent.vcxmain1.kfyd.enabled=.f.

   this.parent.vcxmain1.zsdj.enabled=.f.

   this.parent.vcxmain1.tsjz.enabled=.f.

else

   this.parent.vcxmain1.kfyd.enabled=.t.

   this.parent.vcxmain1.zsdj.enabled=.t.

   this.parent.vcxmain1.tsjz.enabled=.t.

endif

if purview>4 OR pcxtj=.f.

   this.parent.vcxmain1.zscx.enabled=.f.

   this.parent.vcxmain1.sftx.enabled=.f.

else

   this.parent.vcxmain1.zscx.enabled=.t.

   this.parent.vcxmain1.sftx.enabled=.t.

endif

if purview>4 OR pkfgl=.f.

   this.parent.vcxmain1.kfcx.enabled=.f.

   this.parent.vcxmain1.ftck.enabled=.f.  

else

   this.parent.vcxmain1.kfcx.enabled=.t.

   this.parent.vcxmain1.ftck.enabled=.t.

endif

if purview>4 OR pjcinfo=.f.

   this.parent.vcxmain1.kfinfo.enabled=.f.

else

   this.parent.vcxmain1.kfinfo.enabled=.t.

endif

vcxmain1类的“退出”按钮的Click事件中添加以下代码:

quit

4.2  系统登录界面设计

用户进入系统前,必须通过系统登录进入主程序界面,系统登录界面主要用于确认用户的身份及使用权限,并且可对系统信息起到保密作用。系统登录界面如图3所示。若图片无法显示请联系QQ752018766

3  系统登录界面运行结果

1.表单设计

1)在客房管理系统项目中,添加一个新表单,名称为Admin

2)在表单中添加Combo控件、Text控件、Label控件、Command控件、Image控件。

3)重要控件属性如表1所示。

1                            重要控件的重要属性及值

控件名

属性

Combo1

RowSource

RowSourceType

tabpurview.操作员姓名

6-字段

Text1

PasswordChar

*

2.代码设计

定义全局变量cnmanagercn存放输入操作员或密码的次数,当cn大于3时,将自动退出系统。manager存放操作员姓名,在系统中应用到操作员姓名时,系统自动添加。

在表单的Init事件中添加以下代码:

public cn ,manager      &&定义全局变量

cn=0   &&给全局变量赋初值

在表单的Resize事件中添加根据用户选择操作员所拥有的权限级别为全局变量赋值的代码。

purview=val(alltrim(tabpurview.权限级别))

pqtgl=tabpurview.前台管理

pkfgl=tabpurview.客房管理

pcxtj=tabpurview.查询统计

pgzgl=tabpurview.挂帐管理

pjcinfo=tabpurview.基础信息设置

psyscsh=tabpurview.系统初始化

psyswh=tabpurview.系统文护

在“确定”按钮的Click事件中添加以下代码实现判断操作员和密码是否正确的功能。如果操作员或密码不正确,将提示重新输入,三次后仍不正确,系统将自动退出。

public manager     &&定义全局变量

manager=alltrim(thisform.combo1.value)

use kfgl\database\tabpurview    &&打开数据表

cname=alltrim(thisform.Combo1.value)

ppassword=alltrim(thisform.text1.value)

set order to 操作员姓名     &&指定操作员姓名为控制索引

if empty(操作员姓名)

   thisform.resize     &&执行表单的Resize事件

   manager=alltrim(thisform.combo1.displayvalue)

        store .t.to pqtgl,pkfgl,pcxtj,pgzgl,pjcinfo,psyscsh,psyswh

       do form form\fdesktop    &&调入表单

       thisform.release

else

   seek cname    &&快速查询

     set exact on      &&设置字符精确比较

 if alltrim(tabpurview.操作员姓名)!=cname

    cn=cn+1

   cMessagetitle='系统登录'

cMessagetext='操作员错误,请重新输入!'

   nDialogtype=4+32

nanswer=messagebox(cmessagetext,ndialogtype,cmessagetitle)

do case

  case nanswer=6    &&选择“是”时的操作

      thisform.combo1.value=''

      thisform.combo1.setfocus

  case nanswer=7      &&选择“否”时的操作

messagebox('不要乱来!',48, '系统登录')

thisform.release    &&释放表单

endcase

if cn=3

thisform.release

endif

else

if alltrim(tabpurview.密码)!=ppassword

cn=cn+1

cmessagetitle='系统登录'

cmessagetext='密码错误,请重新输入!'

ndialogtype=4+32

nanswer=messagebox(cmessagetext,ndialogtype,cmessagetitle)

do case

           case nanswer=6   &&当用户单击“是”按钮

              thisform.text1.value=''

              thisform.text1.setfocus

           case nanswer=7

               messagebox('不要乱来!',48, '系统登录')

               thisform.release

        endcase

        if cn=3

            thisform.release

         endif

      else

          thisform.resize   &&执行表单的Resize事件

          manager=alltrim(thisform.combo1.displayvalue)

          do form form\fdesktop

          thisform.release

    endif

   endif

 endif

set exact off     &&设置字符非精确比较

在“取消”按钮的Click事件中添加以下代码:

cmessagetitle='系统登录'

cmessagetext='真的想要退出吗?'

nDialogtype=4+32

nanswer=messagebox(cMessagetext,nDialogtype,cMessagetitle)

if nanswer=6

  thisform.release    &&释放表单

endif

4.3  客房信息设计

用户进入系统后,单击主菜单基础信息设置下的客房信息子菜单选项,进入客房信息界面时可以通过查询条件查询客房基本信息,并以文本框和列表两种方式显示客房信息。客房信息表单运行结果如图4所示。

上一页  [1] [2] [3] [4] [5] [6] [7] 下一页

VFP客房管理系统 第2页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。