您现在的位置：毕业论文 >> 论文 >> 正文

VF资料管理系统(ER图+源代码+SQL+DFD图) 第9页

更新时间：2008-12-28: 来源：毕业论文

VF资料管理系统(ER图+源代码+SQL+DFD图) 第9页
*——物理删除数据
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
*——如果检测无误
IF OK=.T.
LOCAL sUser,cName,cPart,cPass,nNum
sUser=ALLTRIM(THISFORM.txt用户名.Value)
IF THISFORM.FormMode="cNew"
  *——检测添加的用户名名称是否存在
  SELECT Sysuser
  Count FOR 用户名=sUser TO nNum
  *——如果存在
  IF nNum>0
   MESSAGEBOX("指定的用户名已经存在",48,"资料管理系统")
   THISFORM.txt用户名.Value=""
   THISFORM.txt用户名.Setfocus
   Return
  ENDIF
ENDIF
*——如果不存在
  *——获取表单中各数据项的值
  cName=ALLTRIM(THISFORM.txt姓名.Value)
  cPass=ALLTRIM(THISFORM.txt密码.Value)
  *——确定对话框
  YN=MESSAGEBOX("确定保存",4+32,"资料管理系统")
  *——如果确认
  IF YN=6
   IF THISFORM.FormMode="cNew"
    *——添加记录
    INSERT INTO SysUser(用户名,密码,姓名) VALUES (sUser,cPass,cName)
   ELSE
    *——修改信息
    Begin Trans
     Update SysUser Set 姓名=cName Where 用户名=sUser
     Update SysUser Set 密码=cPass Where 用户名=sUser
    END TRANS
   ENDIF
   *——对话框
   IF THISFORM.FormMode="cNew"
    MESSAGEBOX("添加成功",64,"资料管理系统")
   ELSE
    MESSAGEBOX("修改成功",64,"资料管理系统")
   ENDIF
   *——退出表单
   THISFORM.Release
  ENDIF
ENDIF
*——模糊比较
SET EXACT OFF
【退出】按钮的“Click”事件代码：
YN=MESSAGEBOX("确定退出",4+32,"资料管理系统")
IF YN=6
THISFORM.Release

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