VF资料信息管理系统(开题报告+论文+源程序) 第7页
SET CENTURY ON && 显示四位年代
SET DATE ANSI && 指定日期表达式的显示格式为yy.mm.dd
*——避免多次运行程序
*——声明API函数“FindWindow”
DECLARE Integer FindWindow IN USER32.DLL String lpClassName,String lpWindowName
lpWindowName="资料管理系统"
IF .NOT. FindWindow(0,lpWindowName)==0 &&寻找窗口标题
=MESSAGEBOX("程序已经运行了",48,"资料管理系统")
QUIT
ENDIF
_Screen.Caption=lpWindowName
*——声明全局变量
PUBLIC cCurUser && 声明全局变量，用来保存系统中的登录用户
PUBLIC bDataAdmin,bDataBrow,bUserAdmin,bUserBrow,bLendAdmin,bLendBrow,bSysUser,bUserPurv,bAct
*——调用登录表单
DO FORM Logon && 显示登录表单
*——进入事物处理
READ EVENTS && 进入事务处理
6.2.2 创建“AutoAdd”程序
*——作用：使“000000XX”形式的编号自动加1
FUNCTION AUTOADD(nCode)
*——获取字符串长度
nLen=Len(nCode)
*——将字符型转换为数值型，即获取非0部分的数值
nCode = VAL(nCode)
*——非0部分数字加1
nCode = nCode + 1
*——转换为字符型
nCode = ALLTRIM(STR(nCode))
*——获取转换后的字符串的长度
nLength = LEN(nCode)
*——在数字之前加上前置“0”
nZero="0000000000"
nCode = SUBSTR(nZero,1,nLen-nLength) + nCode
*——返回结果
RETURN nCode
ENDFUNC
6.2.3 创建“GetPurv”程序
*——在数据库中读取登录的系统用户权限信息
*——选择“系统用户信息”表所在的工作区
SELECT Sysuser
*——精确比较
SET EXACT ON
*——查找登录用户
LOCATE FOR ALLTRIM(用户名)=cCurUser
*——如果找到
IF FOUND()
*——读取用户权限信息全局变量中
bDataAdmin=SysUser.资料信息管理
bDataBrow=SysUser.资料信息浏览
bUserAdmin=SysUser.用户信息管理
bUserBrow=SysUser.用户信息浏览
bLendAdmin=SysUser.借阅信息管理
bLendBrow=SysUser.借阅信息浏览
bSysUser=SysUser.系统用户管理
bUserPurv=SysUser.用户权限管理
bAct=SysUser.资料借还操作
ELSE
*——如果登录的用户不在表中
*——结束事务处理
CLEAR EVENTS
*——退出Visual FoxPro
QUIT
ENDIF
*——模糊比较
SET EXACT OFF
6.2.4 创建系统主表单
“Init”事件：
*——调用系统主菜单
DO MainMenu.MPR WITH This
*——显示当前登录用户
THISFORM.OLEcontrol1.Panels(2).Text=cCurUser
*——刷新表单
THISFORM.Refresh
“Unload”事件：
*——清除事件循环
Clear Events
*——退出Visual FoxPro
Quit
6.3创建系统用户管理模块
6.3.1 创建“系统登录”表单
【确定】按钮的“Click”事件代码
*——改为精确比较
SET EXACT ON
*——试图登录次数自动加1
THISFORM.i=THISFORM.i+1
*——选择“系统用户信息”表所在的工作区
SELECT SysUser
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>
VF资料信息管理系统(开题报告+论文+源程序) 第7页下载如图片无法显示或论文不完整，请联系qq752018766
