在前面的学习中,采用命令的操作方式来操作表。今天学习为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
运行表单,即拥有了增删查改的功能
