学生姓名: 李 松 柏 学 模块。 成绩打印 初始化 用户管理 口令管理 主菜单 登录界面 主界面 系统管理 信息查询 成绩查询 成绩统计 主程序 系统组成结构图 1、主文件() 本系统主文件()如下: if file(“”) public userd,pword,qx,km,pd,an an=0 pd=.f. do form 主界面 do form 登录 if pd read events endif else messaebox(“用户数据库丢失,请重新安装本软件!”,16,“错误提示”) endif set sysmenu to deault close all set talk on 2、登录表单设计 登录表单的设计屏幕如下图所示。其功能是接受用户密码输入并检查其正确性。 登录表单中主要对象的属性设置如下: 对象 属性 属性值 Form1 Caption Form1 Name Fom1 Command1 Caption 确定 Name Command1 Command2 Caption 取消 Name Command2 Label1 Autosize .T. Caption 口令 Name Lbl口令 Text1 Fontsize 12 Passwordchar * Name Txt口令 登录表单中各事件代码如下: 其中“确定”按钮的CLICK事件代码如下: if(n>2) messagebox(“口令三次输入错误,不能使用本系统”,16,”错误信息”)
else locate for alltrim(用户名)==alltrim()and; Alltrim(口令)==alltrim() if found() userd=alltrim(..value) pword=alltrim() qx=alltrim(权限) pd=.t.
public 备份时间 if file(“”) 备份时间=fdate(“.”) if date()-备份时间>10 do form 提示 endif endif else messagebox(用户名或口令错误请重新输入16错误信息) thisform