VF实例编程:在VFP中建立C/S机制_第2页

考试站(www.examzz.com)   【考试站:中国教育考试第一门户】   2011年11月10日
  四、用VFP实现C/S系统的基本方法

  在建立C/S系统时,实现步骤为:

  第一步,根据后端数据源的类型装入相应的ODBC驱动程序,同时做一些相应的设置。

  下面以安装SQLServer的驱动程序为例进行说明:

  DataSourceName标识数据源的名子

  Description说明存储在数据源中的数据

  Server标识网络上SQLServer的名字,目前可选的服务器有MSWindowsforworkgroups;BanyanVINES;MSLANManager;IBMLANServer或DECPathworks;TCP/IPNetworks;NovellNetWare。

  NetworkAddress说明SQLServerDBMS的网址

  NetworkLibrarySQLServer驱动程序所用的与网络通讯的动态链接库

  还有其他一些用于说明诸如数据库名、所用语言等选项的参数,需根据情况确定。设置完上述参数后,即完成了ODBC驱动程序的安装。

  第二步,进入VisualFoxPro中,建立与后端数据源的联接。

  因为联接属于数据库的一部分,所以必须先进入VisualFoxPro,创建或打开一个数据库,然后建立命名联接(用指令:CreateConnectionΙ联接的名字Λ),在VisualFoxPro提供的ConnectionDesigner窗口中填写一些值及属性(见上节所列),就完成了一个联接的建立。

  第三步,建立远程视图。

  因为远程视图从逻辑上说属于本地数据库的一部分,所以在建立远程视图前,必须先打开数据库(用命令:OpenDatabaseΙ数据库名Λ),并进入该数据库的修改状态(用命令:ModifyDatabaseΙ数据库名Λ)。在VisualFoxPro弹出的DatabaseDesigner窗口内的工具条中,选点NewRemoteView图标,随后VisualFoxPro会让你选择命名联接和远程数据库中的表;在你完成这些选择后,VisualFoxPro会再弹出一个ViewDesigner窗口,让你在这个窗口中进一步确定,这个表中的哪些数据项将出现在所建立的远程视图中。这些数据项将在SelectedOutput下的列表框中显示出来。

  第四步,建立应用程序。

  下面举例说明建立应用程序的方法。为了说明方便,这里把MSAccess数据库作为远程数据库(选其他数据库时的处理方法及步骤均相同),在其上建立一个名为worker的表,见右表1。

  假定我们已按上述前三步的方法装好了ODBC驱动程序,

  已打开了名为MyData的本地数据库,并建立了名为MyCon的与远程数据库的联接。

  例1.在图2窗口内,查看职工状况表。

  我们需要先在本地库上建一个远程视图。可以用上述第三步的方法,把远程视图名定为V1,此时需选择联接名为MyCon。下面是V1的描述语句:

  SELECTworker.Wrk-id,worker.Wrk-name,worker.brithday,worker.specialityFROMworker

  然后再建一个表单(Form),在上面做一个Grid型的组件(对象),把该组件的RecordSource属性值设成V1。这就完成了一个(远程)职工信息观察窗口的制作。

  例2.在图3所示的Form内,当在“职工代号”对应的文本框内输入一个代号值后,就在其他的文本框内显示这个职工的其他信息。

  可参照上例方法建立远程视图V2。其描述语句为:

  SELECTworker.Wrk-id,worker.Wrk-name,worker.Brithday,worker.specialityFROMworker;

  WHEREworker.Wrk-idΚ?Cinp

  然后再建一个Form,做成图3的样子,各文本框(对象)的ControlSource分别指定为V2.wrk-name、V2.brithday、V2.speciality。最后再定义与职工代号对应的文本框的Valid方法:cinpΚthis.Valus

  Κrequery(″V2″)

  thisform.Refersh

  例3.直接在程序中使用SPT,查看远程数据库中的职工信息:

  connectionΚSQLCONNECT(′MSAccessDatabasese′,′username′)

  IFconnectionΛ0

  IFSQLEXEC(connection,′select fromtable′1,′MyCursor′)Λ0

  brow

  ELSE

  WAITWindows′不能查看这个远程数据库!′

  ENDIF

  ELSE

  WaitWindows′无法建立联接!′

  ENDIF


首页 1 2 尾页

相关文章