VFP程序设计实习报告(3)

2019-03-29 08:10

“登录”按钮的click事件代码如下: i=i+1

locate for alltrim(学生密码表.学号)==alltrim(thisform.txt学号.value) if found() AND alltrim(学生密码表.密码)==alltrim(thisform.txt密码.value) do 学生入口.mpr(教师入口.mpr) release thisform else

if i<3 then

=messagebox(\密码错误请重新输入!!!\警告\

thisform.txt密码.value=\

thisform.txt密码.setfocus else

=messagebox(\对不起,您是非法用户,系统将退出!!!\严重警告\ quit endif endif

“退出”按钮的代码如下:

Release Thisform

“返回主界面”按钮的代码如下: do form 启动.scx

release thisform

4.教师入口菜单

5.学生入口菜单

6.毕业生基本信息表单

毕业生信息录入系统登录界面

实现功能:验证教师登录,符合身份进行信息录入界面。

该登录界面的数据环境为:教师密码表 Form1的属性如下: Height=401

Picture= d:\\photos\\getca984wd0.jpg TitleBar=0-关闭 Width=556

Form1的Init事件代码如下: public a as integer public i as integer i=0

thisform.combo1.setfocus thisform.left=300 thisform.top=80

“登录”按钮的属性如下: Caption=登录 FontBold=.T. FontSize=20 Height=37 Left=84 Top=288 Width=97

“登录”按钮的click事件代码如下:

i=i+1

locate for alltrim(教师密码表.用户名)==alltrim(thisform.combo1.value)

if found() AND alltrim(教师密码表.密码)==alltrim(thisform.text1.value) a=recno()

do form 毕业生基本信息录入表单.scx

release thisform else

if i<3 then

=messagebox(\密码错误请重新输入!!!\警告\

thisform.text1.setfocus else

=messagebox(\对不起,您是非法用户,系统将退出!!!\严重警告\ quit endif endif

“退出”按钮的属性为: Caption=退出

FontBold=.T. FontBold=.T. FontSize=20 FontSize=20 Height=37 Forecolor=0,0,255 Left=84 Height=37 Top=348 Left=144 Width=97 Top=228

Width=97 “退出”按钮的Click事件代码如下:

release thisform Label5的属性如下: Label1的属性如下: Backstyle=0-透明 Backstyle=0-透明 Caption=该界面只允许管理员进入,

FontBold=.T. Caption=毕业生信息录入系统

FontBold=.T. FontSize=16 FontSize=30 Forecolor=255,0,0 Forecolor=128,0,64 Height=25 Height=36 Left=264 Left=96 Top=300 Top=36 Width=264 Width=384 Label6的属性如下: Label2的属性如下: Backstyle=0-透明 Backstyle=0-透明 Caption=其他用户不得入内!!!

FontBold=.T. Caption=登录界面

FontBold=.T. FontSize=16 FontSize=30 Forecolor=255,0,0 Forecolor=128,0,64 Height=25 Height=36 Left=264 Left=192 Top=336 Top=84 Width=252 Width=168 Combo1的属性如下: Label3的属性如下: BorderStyle=0-无

Height=24 Backstyle=0-透明

Left=264 Caption=用户名

FontBold=.T. RowSource=教师密码表.用户名 FontSize=20 RowSourceType=6-字段 Forecolor=0,0,255 Top=168 Height=36 Width=121 Left=144 Text1的属性如下: Top=168 Backstyle=0-透明 Width=97 Height=25

Left=264 Label4的属性如下:

Top=28 Backstyle=0-透明

Width=121 Caption=密码

毕业生基本信息录入:

实现功能:录入信息


VFP程序设计实习报告(3).doc 将本文的Word文档下载到电脑 下载失败或者文档不完整,请联系客服人员解决!

下一篇:关于Java您不知道的5件事

相关阅读
本类排行
× 注册会员免费下载(下载后可以自由复制和排版)

马上注册会员

注:下载文档有可能“只有目录或者内容不全”等情况,请下载之前注意辨别,如果您已付费且无法下载或内容有问题,请联系我们协助你处理。
微信: QQ: