手把手教你学vfp+sql2000的c/s系统吧
一、基本准备
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