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

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

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

资料管理系统
*——刷新表单
THISFORM.Refresh
【删除】按钮的“Click”事件代码：
*——确认对话框
YN=MESSAGEBOX("确定删除",4+32,"资料管理系统")
*——如果确认
IF YN=6
*——设定表格控件的数据源为空
THISFORM.Grid1.RecordSource=NULL
*——删除数据
SELECT UserInfo
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

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