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

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

更新时间:2010-4-13:  来源:毕业论文
VF资料信息管理系统(开题报告+论文+源程序) 第12页
THISFORM.ModeControl
THISFORM.Refresh
“资料信息管理”表单的“Refresh”事件代码:
*——选择所在的工作区
SELECT DataInfo
*——如果表为空
IF EOF() .AND. BOF() OR RECCOUNT()=0
 THISFORM.bModify=.T.
 THISFORM.bBrowse=.F.
 THISFORM.ModeControl
 IF bDataAdmin=.T.
  THISFORM.MyAdmin.CmdNew.Enabled=.T.
 ENDIF
 THISFORM.MyAdmin.CmdExit.Enabled=.T.
ENDIF
【新增】按钮的“Click”事件代码:
*——选择“资料信息”表所在的工作区
SELECT DataInfo
*——保存记录号
THISFORM.OldRecord=RECNO()
*——到末记录
GO BOTTOM
*——声明本地变量
LOCAL sNum
*——数据表最后一条记录的值
sNum=DataInfo.资料编号
*——数据表末尾新增记录
APPEND BLANK
*——新增记录的“资料编号”值为自动增加的值
THISFORM.txt资料编号.Value=AutoAdd(sNum)
*——表单进入修改状态
THISFORM.bModify=.T.
THISFORM.bBrowse=.T.
THISFORM.ModeControl
*——新增记录的“存档日期”值为系统当前日期
THISFORM.txt存档日期.Value=Date()
*——刷新表单
THISFORM.Refresh
【修改】按钮的“Click”事件代码:
*——选择“资料信息”表所在的工作区
SELECT DataInfo
*——保存记录指针位置
THISFORM.OldRecord=RECNO()
*——表单进入修改状态
THISFORM.bModify=.T.
THISFORM.bBrowse=.T.
THISFORM.ModeControl
*——刷新表单
THISFORM.Refresh
【删除】按钮的“Click”事件代码:
*——确认对话框
YN=MESSAGEBOX("确定删除",4+32,"资料管理系统")
*——如果确认
IF YN=6
 *——设置表格控件的数据源为空
 THISFORM.Grid1.RecordSource=NULL
 SELECT DataInfo
 *——逻辑删除
 DELETE
 *——物理删除
 PACK
 *——设置表格控件的数据源
 THISFORM.Grid1.RecordSource="DataInfo"
 *——如果删除后表为空
 IF EOF() .AND. BOF() .OR. RECCOUNT()=0
  THISFORM.INIT
 ELSE
 *——如果不为空,移动记录指针
  IF EOF()
   SKIP-1
  ELSE
   SKIP
  ENDIF
 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.
 *——如果“资料名称”为空

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

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

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