Visual FoxPro Sedna Beta

订购：http://www.huachu.com.cn/itbook/itbookinfo.asp?lbbh=10054628
http://www.china-pub.com/computers/common/info.asp?id=34809

第25章 Visual FoxPro Sedna Beta

Visual FoxPro Sedna Beta是对Visual FoxPro 9.0的附加功能，在安装该Beta版本前，不必卸载以前的CTPs版本。默认情况下，Sedna将安装在Program Files目录下的Microsoft Visual FoxPro 9\Sedna Beta文件夹中。

该安装程序包含6个组件：VistaDialogs4COM、Upsizing Wizard、Data Explorer、NET4COM、MY for VFP和VS 2005 Extension for VFP。

25.1 VistaDialogs4COM

VistaDialogs4COM是一个由Microsoft VistaBridgeLibrary提供的可视COM类的集合，VistaDialogs4COM提供了允许Visual FoxPro开发者访问Windows Vista任务对话框和公共对话框才功能。

VistaDialogs4COM文件夹包含下列内容：

l VistaDialogs4COM.dll -- 包含VistaBridgeLibrary的COM组件的DLL

l VistaDialogs4COM -- 包含VistaDialogs4COM的VB.NET源代码文件夹

l VFP Sample -- 包含VistaDialogs4COM使用演示的VFP示例项目文件夹

图1是Sedna Beta附带的对话框演示示例。我们在其中填写了一些内容信息，然后单击“显示对话框”按钮。图2是折叠时对话框的样式，图3是扩展后对话框的样式。

图1

图2

图3

图4是Vista中“打开”对话框与原来版本的区别。图5是Vista中“另存为”对话框与原来版本的区别。

图4

图5

下面是一个打开Vista“另存为”对话框的代码示例：

loSaveFileDialog = Createobject("VistaDialogs4COM.CommonSaveFileDialog")

IF NOT loSaveFileDialog.ShowDialog()

?loSaveFileDialog.FileName&&显示所选择的文件名

ENDIF

VistaDialogs4COM其他需要注意的地方：

VistaLibrary4COM需要Windows Vista环境，这些API在Windows的早期版本中不可用。 VFP Sample文件夹包含有一些图像文件，可以从中看出Vista对话框与先前版本的差异。

25.2 SQL Server升迁向导

这是一个对Visual FoxPro 9.0 SP1升迁向导的更新，该向导包含在Program Files目录下的Microsoft Visual FoxPro 9\Sedna Beta\UpsizingWizard文件夹中。执行UpsizingWizard.app可以打开这个新向导。

该更新包括：

l 更加整洁的界面和感受。

l 更加简化的步骤。

l 步骤5允许用户决定是否使用大容量导入技术，这可以改进上载性能。

l 允许指定一个DBC、DSN、一个现有连接或是一个连接字符串进行连接。

l 对于使用SQL保留关键字作为名称的字段，现在使用名称限定符作为升迁后的名称（如“[Order]”）。

l 调用向导时如果lQuiet设置为“真”，则不显示用户界面。在升迁过程中将使用RAISEEVENT()触发事件，因此调用者可以显示升迁进度。

l 当升迁到Microsoft SQL Server 2005时，对性能进行了改进。

l 剪裁所有被升迁为Varchar的Character字段。

l BlankDateValue属性现在可用。在升迁时空日期将被设置为空，在以前则被设置为01/01/1900。

l 扩展对象支持，这允许开发者挂钩到升迁处理的每个步骤并修改升迁行为。另一种方法是子类化升迁引擎。

l 支持含有空格的表名称。

l UpsizingWizard.APP可以通过传递参数方式启动，参数可以包括数据的源名称和路径、目标数据库，以及目标数据库是否被创建的布尔指示。

25.3 Database Explorer

这是对Visual FoxPro 9.0 SP1 Data Explorer的更新，该程序包含在Program Files目录下的Microsoft Visual FoxPro 9\Sedna Beta\DataExplorer文件夹中。执行DataExplorer.app可以打开Database Explorer。

该更新包括：

l 修补了从Data Explorer到表单的VFP数据表拖放操作。

l 修补了展开自由表节点时不显示表列的问题。

l 拖放操作现在遵从字段对SQL Server数据的影射设置。

l 允许对特定对象进行排序。

l 对本地视图显示SQL ShowPlan。

l 为查询队列中的VFP表/视图查询现实ShowPlan。

l 添加Showplan参数设置到Options对话框中，使用showplan功能。注意：Showplan是SQL Server 2005新增的一种访问权限控制。

l 用于执行新功能的上下文菜单项。

25.4 NET4COM

NET4COM库是一个包含.NET Framework 2.0子集的COM类集合，.NET Framework是一个命名空间的丰富集合和提供综合功能的API，开发者可以用于创建运行在.NET平台上的应用程序。当VFP具有了一个丰富的API库时，一些能够使用功能则不再仅仅限制于VFP库。

安装NET4COM DLL时将安装一些示例文件到计算机中，同时安装程序也将注册NET4COM.dll。NET4COM文件夹包含下列内容：

NET4COM.dll – 包含.NET Framework 2.0子集的COM组件

Source -- 包含NET4COM 项目文件和源代码的文件夹

VFPSamples-- 包含使用NET4COM的VFP示例代码的文件夹

VB6Samples-- 包含使用NET4COM的VB6示例代码的文件夹

FFC -- 包含NET4COM的FFC

NET4COM调用起来相当简单，在Visual FoxPro的IntelliSense技术提示下，各个方法的语法格式一目了然。例如，下面是调用NET4COM.Network类库进行Ping测试并下载文件的示例。

CLEAR

LOCAL x AS NET4COM.INetwork

x=CREATEOBJECT("NET4COM.Network")

? IIF(x.IsAvailable(),"网络可用","网络不可用")

? IIF(x.Ping("localhost"),"Ping 成功","Ping 失败")

? "下载文件..."

x.DownloadFile("http://foxcentral.net","_output.txt")

?? "完成。"

MODIFY FILE _output.txt

ERASE _output.txt&&删除文件

RETURN

25.5 MY for VFP

对于Visual FoxPro的MY类库类似于NET4COM，但是MY简化了对NET4COM的调用，使得对一些常用功能的调用更加容易定位。

Sedna安装程序将安装MY类库和相关文件到MY文件夹中。要安装MY到Visual FoxPro中，可以执行MY文件夹中的MY.APP。

MY文件夹包含了一个帮助文件MY.CHM，描述了MY的使用方法。例如，下面是调用MY.COMPUTER.NETWORK.DOWNLOADFILE方法从网络上下载文件的示例代码：

LOCAL MY AS MY

MY = NEWOBJECT('MY', 'MY.VCX')

lcFile = FULLPATH('ROADMAP.HTML')

ERASE (lcFile)

lnResult = MY.COMPUTER.NETWORK.DOWNLOADFILE('HTTP://MSDN.MICROSOFT.COM/VFOXPRO/ROADMAP',lcFile)

IF lnResult = 0

MY.APP.EXECUTE(LCFILE)

ENDIF lnResult = 0

25.6 VS2005 Data Provider扩展

这是一个对Visual Studio 2005的数据提供器扩展─DDEX (Data Designer EXtensibility) provider for VFP，这允许VFP数据源能够与Visual Studio 2005更好地集成，并允许VFP数据源在Visual Studio数据设计器中工作。

如果安装了Visual Studio 2005，Sedna安装程序将注册DDEX。注册成功后，VFP则出现在Visual Studio连接对话框中的数据源列表中。如图6所示。

图6