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

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] 下一页

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

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