毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 论文 >> 正文

VF资料信息管理系统(开题报告+论文+源程序) 第7页

更新时间:2010-4-13:  来源:毕业论文
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
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。