增删查改的一个类就搞定，少写代码多运动生活才更美好

有些人写了很多代码，认为软件开发不过如此，以为掌握了VFP的SQLEXEC就行了，

加菲猫来说说万变不离其中三板斧：

1 创建一个句柄

2 拼接SQL语句

3 然后执行SQLEXEC

程序如果是正常执行流程是没有问题，但万一网络中断，又该怎么样？

最该关注的异常处理流程一个也没有做，然后又喜欢COPY别人的错误处理，弹了一堆框，美其名曰:我有做错误处理。

一大堆功能，今天写个表，明天写个表，然后发现很多代码是重复的，于是又COPY一下，再重新改改，是不是大多数人的工作，就没有想到程序还有另外一种写法。跟随我，让VFP代码混合一切。

一、 连接账套数据库

框架目录中双击运行祺佑代码生成器（要预先配置好账套）

点击连接数据库，便会将数据库中的所有表列出来。

二、生成DAL_CA类

选中一个表点击生成按钮，将生成的代码(文件名:dal_employees.prg)，保存到项目中的DAL目录中。

三、项目管理器中添加这个DAL_CA类，点击菜单程序—>编译下。

四、增删查改测试一下

先运行一下环境设置，然后就可以测试了。

运行如下代码:

*-- Newobject 函数声明一个类
*-- 参数1 是类名称，参数2 是类所在的PRG文件*-- 1 DALCA类的实例化和查询所有记录
*-- 2 DALCA类一经实例化，即拥有增删改的功能
oDALCA=Newobject("DAL_Employees","dal_employees.prg")
oDALCA.CursorFill(.T.)
Browse

此时这个DAL就实例化成功了，对Employes表进行修改，删除，插入，调用一个save 命令即可以更新到数据库，可以完美配合用户界面层（UI层）

oDALCA=Newobject("DAL_Employees","dal_employees.prg")
oDALCA.CursorFill(.T.)
replace lastname WITH "5566" 
oDalCA.save()
Browse