注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

宝贝小屋

生活 工作 学习

 
 
 

日志

 
 

用vfp 做c/s的数据库操作(来源于网络)  

2010-07-16 20:37:02|  分类: 默认分类 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
一、基本准备
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
  评论这张
 
阅读(574)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017