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

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

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

VF资料信息管理系统(开题报告+论文+源程序) 第13页
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
【取消】按钮的“Click”事件代码：
*——声明本地变量
LOCAL YN
*——确认对话框
YN=MESSAGEBOX("确定取消",4+32,"资料管理系统")
*——如果确认
IF YN=6
*——选择“资料信息”表所在工作区
SELECT DatAInfo
*——取消对记录的修改
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 SelTJ
*——查询条件默认为“.T.”
SelTJ=".T."
*——如果SearchKey1文本框中的值非空
IF .NOT. EMPTY(ALLTRIM(THISFORM.MySearch.SearchKey1.Value))
SelTJ=SelTJ + " AND '" + ALLTRIM(THISFORM.MySearch.SearchKey1.Value) + "' $ 资料编号"
ENDIF
*——如果SearchKey2文本框中的值非空
IF .NOT. EMPTY(ALLTRIM(THISFORM.MySearch.SearchKey2.Value))
SelTJ=SelTJ + " AND '" +ALLTRIM(THISFORM.MySearch.SearchKey2.Value)+ "' $ 资料名称"
ENDIF
*——如果SearchKey3文本框中的值非空
IF .NOT. EMPTY(ALLTRIM(THISFORM.MySearch.SearchKey3.Value))
SelTJ=SelTJ + " AND '" + ALLTRIM(THISFORM.MySearch.SearchKey3.Value)+ "' $ 所属部门"
ENDIF
*——选择“资料信息”表所在工作区
SELECT DataInfo
*——清除可能存在的过滤条件
SET FILTER TO
*——设置过滤条件
SET FILTER TO &SelTJ
*——
GO TOP
*——刷新表单
THISFORM.Refresh
6.4.2 创建“用户信息管理”表单
“用户信息管理”表单的“ModeControl”方法
*——声明本地变量
LOCAL bModify,bBrowse,OK
*——使用本地变量存储属性值
bModify=THISFORM.bModify

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