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

VF车辆管理系统 第4页

更新时间:2008-6-30:  来源:毕业论文

VF车辆管理系统 第4页

use     &&关闭数据表

thisform.release     &&释放表单

定义全局变量cn,用于记录用户输入密码的次数。

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

public cn     &&定义全局变量

cn=0

在系统登录时,判断“管理员”表中是否有记录,如果没有,则以系统管理员的身份直接进入,并弹出系统对话框。在表单的Init 事件中添加以下代码:

use database\管理员表

if eof()=.t. and bof()=.t.

        close all

        thisform.visible=.f.      &&隐藏表单

        do form form\frm管理员档案      &&调入表单

        messagebox("亲爱的朋友:"+chr(10)+chr(13)+chr(10)+"欢迎使用明日车辆管理系统!";

+chr(10)+chr(13)+"这是您第一次登录系统!请首先添加一管理员!"+chr(10)+chr(13);

+chr(10)+ "    具体操作请查阅[帮助]----初次登录!",0,"初次登录")

else

若图片无法显示请联系QQ752018766,本论文免费,转发请注明源于www.751com.cn

                &&ListItems集合中添加一个列表项。

                thisform.container3.listview.listitems.add(,,管理员表.管理员姓名,管理员表.管理员头像)

                skip     &&记录指针向下移动一条记录

        enddo

endif

use

单击“登录”按钮,首先判断用户名是否正确,然后根据用户名判断密码是否正确,如果正确,根据该操作员的权限级别赋于用户相应的使用权限;如果不正确,弹出系统警告对话框。在“登录”按钮的Click 事件中添加以下代码:

use DataBase\管理员表      &&打开数据表

cname=alltrim(thisform.container3.label2.caption)      &&获得输入信息

ppassword=alltrim(thisform.Container3.text1.value)      &&获得输入信息

set order to 管理员姓名      &&指定控制索引文件

seek cname     &&快速查询

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

if alltrim(管理员表.管理员姓名)!=cname     &&判断输入的操作员姓名是否存在于表中

   cn=cn+1

   cMessagetitle='系统登录'

   cMessagetext='管理员表错误,请重新输入!'

   nDialogtype=32

   nanswer=messagebox(cmessagetext,ndialogtype,cmessagetitle)

       thisform.Container3.text1.enabled=.f.      &&设置控件无效

       thisform.Container3.listview.setfocus     &&Listview获得焦点

   if cn=3

      thisform.release     &&释放表单

   endif

else

if alltrim(管理员表.密码)!=ppassword    &&判断密码是否正确

   cn=cn+1

        cmessagetitle='系统登录'

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

        ndialogtype=32

        nanswer=messagebox(cmessagetext,ndialogtype,cmessagetitle)

              thisform.release

           endif

        else

        if 管理员表.管理员否=.t. then

                GLY=.t.

                else

                        GLY=.f.

                endif

                purview=0

                TC=.f.

                thisform.refresh

                thisform.release

        endif

endif

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

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

                thisform.release     && 释放表单

ListView 控件的Click 事件中添加以下代码:

thisform.container3.label2.caption=thisform.container3.listview.selecteditem.text                       thisform.container3.text1.enabled=.t.

thisform.container3.text1.setfocus      &&Text1获得焦点

3.3  车辆档案录入设计

用户单击主菜单档案录入下的车辆档案录入子菜单,进入了车辆档案录入界面,通过车辆档案录入界面可以添加、修改、删除车辆档案信息,并且可以支持快速浏览车辆档案信息以及显示当前记录号,按Esc键退出该界面。车辆档案录入表单运行结果如图4所示。

若图片无法显示请联系QQ752018766,本论文免费,转发请注明源于www.751com.cn

4  “车辆档案管理”表单运行结果

1.表单设计

1)新建一个表单,名称为Frm车辆档案。

2)在表单中添加Label控件、Text控件、Combo控件、MonthView控件(Microsoft MonthView Control, version 6.0)、Check控件、Edit控件、Commandgroup控件、Command控件和Container控件。

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

3                      “车辆档案管理”表单重要控件属性列表

控件名

属性

Text4

InPutMask

99-99-9999

Text3

RowSource

RowSourceType

驾驶员档案.姓名

6-字段

2.代码设计

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

store L to thisform.Container1.textcph.enabled,thisform.Container1.textlx.enabled,;

thisform.Container1.text3.enabled,thisform.Container1.text4.enabled,;

thisform.Container1.text5.enabled,thisform.Container1.text6.enabled,;

thisform.Container1.text7.enabled,thisform.Container1.text8.enabled,;

thisform.Container1.text9.enabled,thisform.Container1.text10.enabled,;

thisform.Container1.text11.enabled,thisform.container1.check1.enabled,;

thisform.container1.check2.enabled,thisform.container1.edit1.enabled    &&设置控件是否有效

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

sele 2

thisform.container1.text3.rowsource="驾驶员档案.姓名"

sele 3

thisform.container1.textlx.rowsource="车辆类型表.类型"

若图片无法显示请联系QQ752018766,本论文免费,转发请注明源于www.751com.cn

thisform.Container1.text3.value=alltrim(车辆档案.驾驶员)

thisform.Container1.text4.value=alltrim(dtoc(车辆档案.购置日期))

thisform.Container1.text5.value=alltrim(str(车辆档案.发动机号))

thisform.Container1.text6.value=alltrim(str(车辆档案.车架号))

thisform.Container1.text7.value=alltrim(车辆档案.厂牌型号)

thisform.Container1.text8.value=alltrim(str(车辆档案.载重))

thisform.Container1.text9.value=alltrim(str(车辆档案.坐位))

thisform.Container1.text10.value=alltrim(车辆档案.使用人或单位)

thisform.Container1.text11.value=alltrim(车辆档案.车辆所在单位)

if 车辆档案.年检审=.t.

        thisform.Container1.check1.value=1

else

        thisform.Container1.check1.value=0

endif

if 车辆档案.保险否=.t.

        thisform.Container1.check2.value=1

else

        thisform.Container1.check2.value=0

endif

thisform.Container1.edit1.value=alltrim(车辆档案.备注)

thisform.Container1.label16.caption= alltrim(str(recno()))

thisform.refresh

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

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

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