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

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

更新时间：2010-4-13: 来源：毕业论文

VF资料信息管理系统(开题报告+论文+源程序) 第15页
DELETE
PACK
*——指定表格控件的数据源
THISFORM.Grid1.RecordSource="UserInfo"
*——移动记录指针
IF EOF() .AND. BOF() .OR. RECCOUNT()=0
  THISFORM.INIT
ELSE
  IF EOF()
   SKIP-1
  ELSE
   SKIP
  ENDIF
ENDIF
THISFORM.Refresh
ENDIF
【取消】按钮的“Click”事件代码：
*——声明本地变量
LOCAL YN
*——确认对话框
YN=MESSAGEBOX("确定取消",4+32,"资料管理系统")
*——如果确认
IF YN=6
*——选择“资料信息”表所在工作区
SELECT UserInfo
*——取消对记录的修改
TABLEREVERT(.F.)
*——如果“资料信息”表为空
IF EOF() .AND. BOF() .OR. RECCOUNT()=0
  *——表单初始化
  THISFORM.Init
ELSE
  *——回到浏览状态
  GO THISFORM.OldRecord
  THISFORM.bModify=.F.
  THISFORM.bBrowse=.F.
  THISFORM.ModeControl
ENDIF
*——刷新表单
THISFORM.Refresh
ENDIF
【保存】按钮的“Click”事件代码：
*——声明本地变量
LOCAL OK,YN
*——本地变量赋初值
OK=.T.
*——检查表单中数据项的输入情况
DO CASE
*——如果编号为空
CASE EMPTY(ALLTRIM(THISFORM.txt编号.Value))
  MESSAGEBOX("编号不能为空",48,"资料管理系统")
  THISFORM.txt编号.SetFocus
  OK=.F.
*——如果姓名为空
CASE EMPTY(ALLTRIM(THISFORM.txt姓名.Value))
  MESSAGEBOX("用户姓名不能为空",48,"资料管理系统")
  THISFORM.txt姓名.SetFocus
  OK=.F.
*——如果部门为空
CASE EMPTY(THISFORM.cmb部门.Value)
  MESSAGEBOX("部门不能为空",48,"资料管理系统")
  THISFORM.cmb部门.SetFocus
  OK=.F.
ENDCASE
IF OK=.T.
*——确认对话框
YN=MESSAGEBOX("确定保存",4+32,"资料管理系统")
*——如果确认
IF YN=6
  *——试图保存
  IF TABLEUPDATE(.F.)=.F.
   *——保存失败
   MESSAGEBOX("编号重复",48,"资料管理系统")
   THISFORM.txt编号.SetFocus
  ELSE
   *——保存成功
   THISFORM.bModify=.F.
   THISFORM.bBrowse=.F.
   THISFORM.ModeControl
  ENDIF
  THISFORM.Refresh
ENDIF
ENDIF

<< 上一页 [11] [12] [13] [14] [15] [16] 下一页