电脑报官方论坛

 找回密码
 注册
查看: 1212|回复: 1

用VFP6.0编写系统的问题 [复制链接]

中流砥柱

市民

Rank: 8Rank: 8

树叶
0
金币
425
积分
358
发表于 2008-6-19 22:19:24 |显示全部楼层
最近我用VFP6.0编写了一个系统,只是运行的时候出了些问题,想问一下怎么解决呢?个人能力有限,不知怎么改,所以就想问一下.谢谢了.代码如下:

set talk off
set safety off
clear
text
      通信录管理系统
      1.输入  2.修改
      3.插入  4.删除
      5.查询  0.退出
end text
do while.t.
@8,0 clear
@8,34 say"请输入0~6:"get xz  defaule space
read
do case
case xz="1"
do sr
case xz="2"
do xg
case xz="3"
do cr
case xz="4"
do sc
case xz="5"
do cx
case xz="6"
do cx
case xz="0"
wait"系统关闭"windows timeout
exit
endcase
enddo
use
clear
set talk on
set safetvon
*数据输入过程
procedure sr
?"记录输入结束后请按ctrl+W存盘"
append
*数据修改过程
procedure xg
?"记录输入结束后请按ctrl+w存盘"
go 1
browse
*记录插入过程
procedure cr
?"将浏览窗口中的光标移动新记录插入的位置按ESC键继续"
browse
jlh=recno()
ifrecono()<>reccout()
go jlh+1
copy to qy restet
go jlh+1
delete rest
pack
appe blank
appe from qy
else
appe blank
endie
@8.0 clear
@24.0 say"输入要插入的记录,按ctrl+w存盘"
browse
*记录删除过程
retu to master
proc yzbm
inde on 邮政编码 tag ybm
brow titl "通信录"+"按邮政编码显示"noappend nomodify
retu to master
proc cx
flag="1"
do while flag="1"
@8,0 clear
@8,5 say"请输入姓名(可以只输入姓名中的几个或一个字):"get ycxmdefault spacel8
read
ycxm1=all trim(ycxm)
locate for"&ycxm1"$姓名
if found()
?"按任意键继续"
brow title"通信录"+soace(5)"&ycxm"+"资料"for"&ycxm $姓名 naoppend nomodify"
else
@10,5 say"查无此人"
endif
@20,0 clear
@20.5 "是否继续查询(y/n):"get yn defallit space(1)
read
if upper (y/n)="n"
flag="0"
endif
enddo

中流砥柱

市民

Rank: 8Rank: 8

树叶
0
金币
425
积分
358
发表于 2008-6-22 22:30:59 |显示全部楼层
有没有朋友知道怎么修改呢?谢谢了.
您需要登录后才可以回帖 登录 | 注册

感谢版主

Archiver|手机版|电脑报官方网站 ( 渝ICP备10009040号 

GMT+8, 2021-1-27 03:30

Powered by Discuz! X2

© 2001-2011 Comsenz Inc.

回顶部