学猫跳跃合集（我的学猫框之路006）

在前面的学习中,采用命令的操作方式来操作表。今天学习为DAL_CA加上UI操作界面。

在vfp中打开qiyuprj项目

表单类设置为Qiyu_form_Singcursor

感谢群里的欧缘(254180823)老师，告诉如何设置表单类。

在主菜单中，找到工具，找到选项，找到表单

设定时，点开表单，在class文件夹下，点击qiyu单笔维护，类名选择qiuyu_form_singcursor,然后，点确定。

新建一个表单，拖入如下控件

设置表单的opcode为2，编辑模式

设置Qiyu_Grid_Soft1的RecordResource为DAL_Employees 的Alias别名,这里为Employees

表单的LOAD方法中加入如下代码

Thisform.Oca=Newobject("Dal_Employees","Dal_Employees.prg") If !Thisform.Oca.CursorFill(.T.) &&加载数据 Aerror(laerror) Messagebox(laerror(2)) Return 0 Endif

添加按钮Click方法

Thisform.Oca.Add() Thisform.Refresh()

删除按钮Click方法

thisform.Oca.delete()

保存按钮Click方法

If Thisform.Oca.Save() Wait "保存成功" Windows Else Wait "保存失败" Windows Endif

撤消按钮Click方法

If Thisform.Oca.Undo()>=0 Wait "撤消成功" Windows Endif

运行表单,即拥有了增删查改的功能