求一初始表做法 - VFP论坛 - 编程论坛档案馆

楼主

问题点数：0 回复次数：11

求一初始表做法

小弟VFP已经有段时间了，再次感谢论坛上的朋友大力帮助，非常感谢，我现在想做一个按健删除所有表里面的内容。不知道怎么写。请高手帮忙!但是密码表就不用删除了呵呵!

搜索更多相关主题的帖子: 做法　

第 2 楼

得分:0

在按钮的Click事件中写入相应代码不行吗？

活到老，学到老！ http://www. E-mail:hu-jj@

第 3 楼

得分:0

我不那个意思，我的意思是说，比如我用了一年了，我想删除表里所有数据，我在菜单里面建一个菜单选项，按一下就可以删除所有表里面的内容!我不知道代码怎么写!

第 4 楼

得分:0

Zap

感言：学以致用。博客：http://www./blog/user14/65009/index.shtml email：Tiger5392@

第 5 楼

得分:0

ZAP不懂。版主能解释一下吗？

第 6 楼

得分:0

zap=
delete all
pack

第 7 楼

得分:0

zap=userfile\表1\表2\表3\表4\表5\表6
delete all
pack

是这样加吗？

第 8 楼

得分:0

zap是普通删除记录命令

use <文件名>
zap

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

把您的需求变成我们的信息让我们的信息成为您的财富

第 9 楼

得分: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]]

第 10 楼

得分:0

这问题已经搞了好久了。还是没搞定郁闷惨了!

[[italic] 本帖最后由 zhaocqdx 于 2008-1-5 19:19 编辑 [/italic]]