新的数据和索引类型

　　上一次 VFP 有新的数据或者索引类型的时候已经是很久以前了。VFP 9 增加了三种新的数据类型和一种新的索引类型。这些新的数据类型使得与其它已经支持这些数据类型的数据库引擎一起工作变得容易了。新的 binary 索引为象 DELETED() 这样的逻辑条件增强了 Rushmore 优化。

　　VFP 3 给产品增加了几个新的数据类型……Double、Currency、Integer 、以及 DateTime……还有两种新的索引类型 Candidate 和 Primary。然而，从那以后，对数据类型唯一的改动是 VFP 8 里增加的 Integer 字段的自动增长，而它也并非是一个新的数据类型。

　　由于一些其它的数据库引擎，比如 SQL Server，支持范围很广的多种数据类型，VFP 不得不将这些数据类型映射到它自己的少量数据类型中。有时候，这种映射实在不够完美。VFP 9 通过增加了三种数据类型来帮助解决这个问题。

　　Varchar

　　第一种新数据类型是 Varchar。Varchar 其实并不是一种新数据类型；本质上它不过是没有加上填补上空格的字符型而已。Varchar 的单字符缩写是“V”。

　　由于 DBF 结构没有重大的改动（尽管新的数据类型对结构有一些影响；参见本章中后面部分的“新的数据类型是如何影响 DBF 文件的”一节），Varchar 字段其实是作为固定长度的字段储存的。不过，当你访问一个 Varchar 字段的时候，它的值将先被trim 过，而不是填补空格以使得它的长度等于字段的长度。狐社

　　这是一个从 TestVarchar.PRG 中拿来的例子，它建立一个带有一个 Varchar 字段的游标，并演示其跟 Character 的不同：

　　create cursor Test (CField C(20), VField V(20)) insert into Test values ('Fox Rocks', 'Fox Rocks') insert into Test values ('Fox Rocks ', 'Fox Rocks ') go top ? len(CField), len(VField) && displays 20 and 9 skip ? len(CField), len(VField) && displays 20 and 12

　　注意第二条记录的 Varchar 字段中包含有三个空格，特别指定要包含在值中的空格在被储存到字段中去时是被认为有意义的。

　　VFP 9 增加 Varchar 以更好的为其它象 SQL Server 这样支持这种数据类型的数据库提供支持。例如，在 VFP 8 中，如果你建立了一个来自包含有 Varchar 字段的 SQL Server 表的远程视图，然后使用 TABLEUPDATE() 来将改动写入到 SQL Server 中去，在被更新记录中的 Varchar 字段将被填补上空格，因为这些空格存在于 VFP 8 视图中。在 VFP 9 做同样的事情会得到期望的结果：Varchar 字段不会被填补上空格。

　　TestVarcharWithSQLServer.PRG 对此做了演示。它打开在 Test 数据库中的一个基于 SQL Server Northwind 示例数据库的 Customers 表的视图。在该表中的 CompanyName 字段被定义为 Varchar，但视图把它定义为 Character。更新这个表会强制用空格填补字段后再放入数据库中。将视图中的这个字段数据类型改为 Varchar、并再次更新这个表就会去掉多余的空格。

　　* 连续到 SQL Server Northwind 数据库。根据你的情况改动连接串

　　lnHandle = sqlstringconnect('driver=SQL Server;server=(local);' + ; 'Database=Northwind;trusted_connection=yes;') if lnHandle < 1 return endif lnHandle < 1

　　* 打开示例数据库

　　open database Test

　　* Ensure the CompanyName field in the CustomerView view is Character, then open * the view and display the contents of CompanyName in the first record.

　　dbsetprop('CustomerView.CompanyName', 'Field', 'DataType', 'C(40)') use CustomerView connstring (lnHandle) messagebox('CompanyName in the first record is ' + CompanyName + ; ', which is ' + transform(len(CompanyName)) + ' characters.')

　　* 更新这条记录并保存它

　　replace CompanyName with trim(CompanyName) tableupdate() use

　　* 现在将 CompanyName 定义为 Varchar后再做一次。 * 可以看到第一条记录中由于我们刚才保存的改动而有着多余的空格

　　dbsetprop('CustomerView.CompanyName', 'Field', 'DataType', 'V(40)') use CustomerView connstring (lnHandle) messagebox('CompanyName in the first record is ' + CompanyName + ; ', which is ' + transform(len(CompanyName)) + ' characters.')

　　* 更新记录并保存它

　　replace CompanyName with trim(CompanyName) tableupdate() requery() messagebox('CompanyName in the first record is ' + CompanyName + ; ', which is ' + transform(len(CompanyName)) + ' characters.')

　　* 清理并退出

　　sqldisconnect(lnHandle) close databases all