F.
ELSE
*--如果记录指针在数据表的首部
IF RECNO()=1 .OR. BOF()
THIS.Cmdtop.ENABLED=.F.
THIS.Cmdpre.ENABLED=.F.
THIS.Cmdnxt.ENABLED=.T.
THIS.Cmdbtm.ENABLED=.T.
ELSE
*--如果记录指针不在数据表的首部也不在尾部
THIS.Cmdtop.ENABLED=.T.
THIS.Cmdpre.ENABLED=.T.
THIS.Cmdnxt.ENABLED=.T.
THIS.Cmdbtm.ENABLED=.T.
ENDIF
ENDIF
ENDIF
4.3.3"命令按钮工具栏"类
【推出】按钮的"Click"事件代码:
LOCAL YN
YN=Messagebox("确定退出",4+32,"资料管理系统")
IF YN=6
THISFORM.Release
ENDIF
6.2 创建系统主表单
6.2.1 创建主程序
*--系统环境设置
CLEAR
CLEAR ALL
SET ESCAPE OFF && 禁止运行的程序在按ESC键被中断
SET TALK OFF && 关闭命令显示
SET SAFETY OFF && 覆盖时不要确认
SET STAT BAR OFF && 将状态栏关闭
SET SYSMENU OFF && 可关掉VFP系统菜单区域
SET SYSMENU TO && 关闭系统菜单
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"事件:
*--调用系统主菜单
上一篇:
信息管理系统论文1(DELPHI)
下一篇:
超市进销存管理系统的开发