“登录”按钮的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=密码
毕业生基本信息录入:
实现功能:录入信息