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

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

更新时间:2010-4-13:  来源:毕业论文
VF资料信息管理系统(开题报告+论文+源程序) 第9页
【删除】按钮的“Click”事件代码:
*——确认对话框
YN=MESSAGEBOX("确定删除用户",4+32,"资料管理系统")
*——如果确认
IF YN=6
 *——精确比较方式
 SET EXACT ON
 *——如果要删除的用户为当前登录系统用户
 IF ALLTRIM(SysUser.用户名)=cCurUser
  *——警告对话框
  MESSAGEBOX("不能删除当前用户",48,"资料管理系统")
  RETURN
 ENDIF
 SELECT SysUser
 *——表单中表格控件的数据源为空
 THISFORM.Grid1.RecordSource=NULL
 *——逻辑删除数据
 DELETE
 *——物理删除数据
 PACK
 *——重新指定表单中表格控件数据源
 THISFORM.Grid1.RecordSource="sysuser"
ENDIF
*——刷新表单
THISFORM.Refresh
【权限】按钮的“Click”事件代码:
cUserSet=ALLTRIM(Sysuser.用户名)
DO FORM SetPurv With cUserSet
THISFORM.Refresh
【退出】按钮的“Click”事件代码:
YN=MESSAGEBOX("确认退出",4+32,"资料管理系统")
IF YN=6
 THISFORM.Release
ENDIF
6.3.3 创建“添加用户”表单
“添加用户”表单的“Init”事件代码:
*——声明参数用来接收参数值
PARAMETER cFormMode
*——使用表单属性来保存参数值
THISFORM.FormMode=cFormMode
*——如果表单用来修改用户
IF THISFORM.FormMode="cModify"
 SELECT SysUser
 *——更改表单的标题
 THISFORM.Caption="修改用户信息"
 *——在“系统用户信息”表单中查询
 Locate For 用户名=cUserSet
 IF FOUND()
  *——显示信息
  THISFORM.txt用户名.Value=用户名
  THISFORM.txt姓名.Value=姓名
  THISFORM.txt用户名.ReadOnly=.T.
 ELSE
  MESSAGEBOX("指定的用户不存在",48,"资料管理系统")
  THISFORM.Release
 ENDIF
ENDIF
【确定】按钮的“Click”事件代码:
*——声明本地变量,储存表单中各数据项中的数据是否正确
LOCAL OK
*——本地变量的默认值为“.T.”
OK=.T.
*——精确比较
SET EXACT ON
*——进入数据检查
DO CASE
 *——如果在“新增状态”下“用户名”栏为空
 CASE EMPTY(THISFORM.txt用户名.VALUE) .AND. THISFORM.FormMode="cNew"
  MESSAGEBOX("用户名不能为空",48,"资料管理系统")
  THISFORM.txt用户名.SetFocus
  OK=.F.
 *——如果“姓名”栏为空
 CASE EMPTY(THISFORM.txt姓名.Value)
  MESSAGEBOX("姓名不能为空",48,"资料管理系统")
  THISFORM.txt姓名.SetFocus
  OK=.F.
 *——如果“密码”栏为空
 CASE EMPTY(ALLTRIM(THISFORM.txt密码.Value)) .AND. EMPTY(ALLTRIM(THISFORM.txt确认密码.VALUE))
  MESSAGEBOX("密码不能为空",48,"资料管理系统")
  THISFORM.txt密码.SetFocus
  OK=.F.
 *——如果两次密码不一致
 CASE ALLTRIM(THISFORM.txt密码.Value) <> ALLTRIM(THISFORM.txt确认密码.VALUE)
  MESSAGEBOX("密码与确认密码不一致",48,"资料管理系统")
  THISFORM.txt密码.SetFocus
  OK=.F.
ENDCASE*——如果检测无误

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... 下一页  >> 

VF资料信息管理系统(开题报告+论文+源程序) 第9页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

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