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

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