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获得焦点
用户单击主菜单档案录入下的车辆档案录入子菜单,进入了车辆档案录入界面,通过车辆档案录入界面可以添加、修改、删除车辆档案信息,并且可以支持快速浏览车辆档案信息以及显示当前记录号,按Esc键退出该界面。车辆档案录入表单运行结果如图4所示。
图4 “车辆档案管理”表单运行结果
(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-字段 |
在表单的 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] 下一页