VF资料管理系统(ER图+源代码+SQL+DFD图) 第7页
THIS.Cmdnxt.ENABLED=.F.
THIS.Cmdbtm.ENABLED=.F.
ELSE
*——如果在记录指针在数据表的末尾
IF RECNO()=RECCOUNT() .OR. EOF()
THIS.Cmdtop.ENABLED=.T.
THIS.Cmdpre.ENABLED=.T.
THIS.Cmdnxt.ENABLED=.F.
THIS.Cmdbtm.ENABLED=.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”事件：
*——调用系统主菜单
DO MainMenu.MPR WITH This
*——显示当前登录用户
THISFORM.OLEcontrol1.Panels(2).Text=cCurUser
*——刷新表单
THISFORM.Refresh
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>
VF资料管理系统(ER图+源代码+SQL+DFD图) 第7页下载如图片无法显示或论文不完整，请联系qq752018766
