| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1913 人关注过本帖
标题:求一初始表做法
只看楼主 加入收藏
zhaocqdx
Rank: 1
等 级:新手上路
帖 子:152
专家分:0
注 册:2007-11-17
收藏
 问题点数:0 回复次数:11 
求一初始表做法
小弟VFP已经有段时间了,再次感谢论坛上的朋友大力帮助,非常感谢,我现在想做一个按健删除所有表里面的内容。不知道怎么写。请高手帮忙!但是密码表就不用删除了呵呵!
搜索更多相关主题的帖子: 做法 
2007-12-30 18:17
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:400
帖 子:11857
专家分:43421
注 册:2006-5-13
收藏
得分:0 
在按钮的Click事件中写入相应代码不行吗?

活到老,学到老!http://www.(该域名已经被ISP盗卖了)E-mail:hu-jj@
2007-12-31 22:11
zhaocqdx
Rank: 1
等 级:新手上路
帖 子:152
专家分:0
注 册:2007-11-17
收藏
得分:0 
我不那个意思,我的意思是说,比如我用了一年了,我想删除表里所有数据,我在菜单里面建一个菜单选项,按一下就可以删除所有表里面的内容!我不知道代码怎么写!
2008-01-02 10:13
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
Zap

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2008-01-02 11:17
zhaocqdx
Rank: 1
等 级:新手上路
帖 子:152
专家分:0
注 册:2007-11-17
收藏
得分:0 
ZAP不懂。版主能解释一下吗?
2008-01-02 12:18
nkactuary
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2007-9-3
收藏
得分:0 
zap=
delete all
pack
2008-01-02 12:34
zhaocqdx
Rank: 1
等 级:新手上路
帖 子:152
专家分:0
注 册:2007-11-17
收藏
得分:0 
zap=userfile\表1\表2\表3\表4\表5\表6
delete all
pack



是这样加吗?
2008-01-03 14:58
hdzqs
Rank: 1
等 级:禁止访问
帖 子:218
专家分:0
注 册:2006-4-25
收藏
得分:0 
zap是普通删除记录命令
use <文件名>
zap

所有记录都删除了,需要确认一下,在命令状态下选择一个表试一下就知道了。

把您的需求变成我们的信息 让我们的信息成为您的财富
2008-01-04 23:00
zhaocqdx
Rank: 1
等 级:新手上路
帖 子:152
专家分:0
注 册:2007-11-17
收藏
得分:0 
图片附件: 游客没有浏览图片的权限,请 登录注册
运行第一个的时候就没问题可以删除

但运行第二个的时候就出错了,请教我!
图片附件: 游客没有浏览图片的权限,请 登录注册



确定代码如下:
do case
    case thisform.optiongroup1.option1.value=1
    USE "database\ygdaxxb"
delete all
*——确认对话框
YN=MESSAGEBOX("确定删除",4+32,"人事管理系统")
*——如果确认
IF YN=6
    *——逻辑删除
    DELETE
    *——物理删除
    PACK
    *——指定数据源
    RecordSource="ygdaxxb"
    *——刷新表单
    THISFORM.REFRESH
ENDIF
    case thisform.optiongroup1.option2.value=1
    USE "database\zgcf"
delete all
*——确认对话框
YN=MESSAGEBOX("确定删除",4+32,"人事管理系统")
*——如果确认
IF YN=6
    *——逻辑删除
    DELETE
    *——物理删除
    PACK
    *——指定数据源
    RecordSource="zgcf"
    *——刷新表单
    THISFORM.REFRESH
ENDIF
     case thisform.optiongroup1.option3.value=1
     USE "database\ygczsqb"
delete all
*——确认对话框
YN=MESSAGEBOX("确定删除",4+32,"人事管理系统")
*——如果确认
IF YN=6
    *——逻辑删除
    DELETE
    *——物理删除
    PACK
    *——指定数据源
    RecordSource="ygczsqb"
    *——刷新表单
    THISFORM.REFRESH
ENDIF
    case thisform.optiongroup1.option4.value=1
    USE "database\bmkpb"
delete all
*——确认对话框
YN=MESSAGEBOX("确定删除",4+32,"人事管理系统")
*——如果确认
IF YN=6
    *——逻辑删除
    DELETE
    *——物理删除
    PACK
    *——指定数据源
    RecordSource="bmkpb"
    *——刷新表单
    THISFORM.REFRESH
ENDIF
ENDCASE

[[italic] 本帖最后由 zhaocqdx 于 2008-1-5 19:18 编辑 [/italic]]
2008-01-05 18:18
zhaocqdx
Rank: 1
等 级:新手上路
帖 子:152
专家分:0
注 册:2007-11-17
收藏
得分:0 
这问题已经搞了好久了。还是没搞定郁闷惨了!

[[italic] 本帖最后由 zhaocqdx 于 2008-1-5 19:19 编辑 [/italic]]
2008-01-05 18:25
快速回复:求一初始表做法
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.038510 second(s), 10 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved