一、基本准备
1、安装SQL个人版+SP4;
2、安装VFP9+SP1+汉化。(看自己中意汉化否)
3、会做一点单机版的项目。
二、准备实施
1、启动SQL企业管理器,选择当前服务器,新建一数据库,命名 cj,在该库下建一表,字段为
   字段名   类型   宽度
   编号      C      6
   姓名      C      8
   职务      C      10
   股室      C      10
   电话      C   11
   将编号设为主键,保存,命名为 人员表;
 
2、建一ODBC,指向人员表。
(ODBC所在位置:开始-设置-控制面板-管理工具-数据源ODBC)
 
添加。
 
选择SQL,完成。
 
输入想要的名称、描述,服务器要选对,下一步
 
输入用户ID和密码,下一下。
 
更改数据库,下一步。
 
完成。
 
测试一下数据源。
 
至此,准备工作已完成。
三、实施过程
1、新建一项目,名自己定。
2、新建一程序,用来连接服务器,并将服务器上的数据下载到客户端。(因为用到的表比较小,可以整个下载下来,如果表比较大,最好是有选择地下载需要用到的记录)
程序思路如下:
先定义一个连接串nhandle,并使用用户名密码连接相应的数据库,测试连接是否成功。如果成功,则下载表到本地临时表(好象是视图?弄不明白,先当它是表),命名为gh,如果不成功,则提示连接失败,并提示再次连接否。
连接成功并下载好表后,设置表与服务器表的相应更新。(此设置可以为另一种形式,等做好这种形式后可试试另一种)
程序如下:
  public nhandle  &&&定义连接串名
  nhandle=sqlstringconnect("driver=sql server;server=cjc1010;uid=sa;pwd=aa;database=cj")  &&&我的连接类型是 SQL SERVER,服务器是cjc1010,用户名是sa,密码是aa,数据库是cj
if nhandle>0
  MESSAGEBOX(’连接成功!!!’)
  sqlexec(nhandle,"select 编号,姓名,职务,股室,电话 from 人员表 order by 编号","gh") &&将服务器中的‘人员表’表中的数据读到 gh 表中 
  sele gh
  cursorsetprop("tables","人员表","gh") &&设置临时表的更新目标表
  cursorsetprop("keyfieldlist",’编号’,"gh") &&设置临时表的关键字
  cursorsetprop("updatablefieldlist","编号,姓名,职务,股室,电话","gh")&&设置临时表的更新字段
  cursorsetprop("updatenamelist","编号 人员表.编号,姓名 人员表.姓名,职务 人员表.职务,股室 人员表.股室,电话 人员表.电话","gh") &&&用gh中的相应字段更新人员表
  cursorsetprop("sendupdates",.t.,"gh")&&设置为可更新
  cursorsetprop("wheretype",2)
  cursorsetprop("buffering",5)&&设置表缓冲
*  do form 表单1
else
  if messagebox("数据库连接失败,是否继续连接?",48+4,"连接失败提示")=6 &&回答"是"
     return
  else
    quit
  endif
endif
  
3、建一表单,用来操作下载到本地的临时表gh并更新服务器表。
A、在表单中放一表格grid1
B、在表单的init里写上
SELECT gh
thisform.grid1.RecordSource=’gh’  &&&将表格的数据源设置为表gh
**********如果想表格好看点,最好能定义一下表格各列的宽度
*thisform.grid1.colunm1.width=40
C、在表单中放新增,删除,保存到服务器,清空服务器数据四个按钮
新增按钮:反正是临时表,直接在表格里新增,以图快。你可以用文本框,这样可以控制是否有重复记录,输入是否符合要求等。至于如何才能达到你的要求,就看你自己的了。
新增按钮的click 过程代码:

SELECT gh
 APPEND BLANK
 thisform.grid1.SetFocus


删除按钮:在C/S里,删除只能打上删除号,不能pack,否则,死得很难看的。Pack要写在表单的退出中。因为不能使用pack,就用了set filter to !dele().这个东东在临时表中好象要移动一下记录指针才生效的。
删除按钮click代码:

sele gh
 bh=alltrim(编号)
 xm=alltrim(姓名)
 set filter to !dele()
 if messagebox(bh+xm+"的数据删除,将不能恢复,真的要删除吗?",48+4,"信息提示")=6 &&回答"是"
    sqlexec(nhandle,"delete from 人员表 where 编号=?bh")&&&删除服务器上相应的记录
    DELETE  &&&&删除临时表中的相应记录,注意不能在这使用pack
 ENDIF
 **************以下是移动指针
 if delete()
 if !eof()
    skip
 else
   if recn()>1
     skip -1
   endif
 endif
 endif
 thisform.grid1.setfocus


保存按钮:因为临时表直接绑到了表格中,在录入时就保存了,这里主要是指将临时表中的数据更新到服务器的表中,代码很简单。
保存按钮的click代码:

select gh
 TABLEUPDATE(.t.)


清空服务器相应数据表按钮:相当于本地表的zap
Click代码如下:

select gh
 if messagebox("你正在执行的操作是清空服务器的数据,真的要清空吗?",48+4,"信息提示")=6 &&回答"是"
    sqlexec(nhandle,"truncate table 人员表") &&清空服务器数据表
 ENDIF


至此,已基本完工。在程序中加上一句
Do form 表单
运行程序试一试?应该早就试了,我至此已运行很多次试了的。
4、完善一些功能。
A、表格的afterrowcolchange:我是不想每增加一个记录都去按一次新增按钮,于是就采用allowaddnew。

SELECT gh
 thisform.command2.Caption=’删除 ’+ALLTRIM(编号)+ALLTRIM(姓名)
 IF !EMPTY(ALLTRIM(编号))
   thisform.grid1.allowaddnew= .T.  
 ELSE
   thisform.grid1.allowaddnew=.f.
 ENDIF


B、表单的init:为了让刚才的allowaddnew生效,我先判断gh是否有记录,如果没有就先加个空记录。然后定义一下表格各列的宽度。

SELECT gh
 if recc()=0
    appe blan
 endif
 with thisform.grid1
    .recordsource=’gh’
    .columncount=5
    .column1.controlsource=’gh.编号’
    .column1.width=30
    .column2.controlsource=’gh.姓名’
    .column2.width=60
    .column3.controlsource=’gh.职务’
    .column3.width=60
    .column4.controlsource=’gh.股室’
    .column4.width=60
    .column5.controlsource=’gh.电话’
    .column5.width=90
 ENDWITH