【vfp开源代码栏目提醒】:网学会员鉴于大家对vfp开源代码十分关注,论文会员在此为大家搜集整理了“createview.prg”一文,供大家参考学习
CREATE SQL VIEW MyView REMOTE CONNECTION MyConnect1 AS ;
SELECT Employees.EmployeeID, Employees.LastName, Employees.FirstName;
FROM Employees;
WHERE Employees.EmployeeID=( ?lnVar )
ThisView="MyView"
DBSetProp(ThisView,"View","SendUpdates",.T.) &&发送更新
DBSetProp(ThisView,"View","BatchUpdateCount",1) &&成批更新的记录数
DBSetProp(ThisView,"View","CompareMemo",.T.) &&在WHERE子句中包含备注字段
DBSetProp(ThisView,"View","FetchAsNeeded",.T.) &&按需取得远端数据
DBSetProp(ThisView,"View","FetchMemo",.T.) &&取备注字段
DBSetProp(ThisView,"View","FetchSize",-1) &&每次取全部记录
DBSetProp(ThisView,"View","MaxRecords",-1) &&返回集合的所有行
DBSetProp(ThisView,"View","Prepared",.F.) &&不在后台服务器上预编译SQL
DBSetProp(ThisView,"View","ShareConnection",.T.) &&共享连接
DBSetProp(ThisView,"View","UpdateType",1) &&更新类型为UPDATE
DBSetProp(ThisView,"View","UseMemoSize",255) &&在长度大于等于255时使用备注字段
DBSetProp(ThisView,"View","Tables","dbo.Employees")
DBSetProp(ThisView,"View","WhereType",3) &&WHERE子句的类型
DBSetProp(ThisView+".employeeid","Field","Caption","雇员")
DBSetProp(ThisView+".employeeid","Field","DataType","I")
DBSetProp(ThisView+".employeeid","Field","UpdateName","dbo.Employees.EmployeeID")
DBSetProp(ThisView+".employeeid","Field","KeyField",.T.)
DBSetProp(ThisView+".employeeid","Field","Updatable",.T.)
DBSetProp(ThisView+".lastname","Field","Caption","姓")
DBSetProp(ThisView+".lastname","Field","DataType","C(20)")
DBSetProp(ThisView+".lastname","Field","UpdateName","dbo.Employees.LastName")
DBSetProp(ThisView+".lastname","Field","KeyField",.F.)
DBSetProp(ThisView+".lastname","Field","Updatable",.T.)
DBSetProp(ThisView+".firstname","Field","Caption","名")
DBSetProp(ThisView+".firstname","Field","DataType","C(10)")
DBSetProp(ThisView+".firstname","Field","UpdateName","dbo.Employees.FirstName")
DBSetProp(ThisView+".firstname","Field","KeyField",.F.)
DBSetProp(ThisView+".firstname","Field","Updatable",.T.)