还是不行,不过还是谢谢你了,呵呵
这是一个删除按钮的click事件,代码是
select zgdab
if recc()=0
=messagebox("数据库中无记录可供删除",0+48,"系统提示")
else
if len(allt(thisform.text1.value))=0
=messagebox("请输入职工编号",0+48,"系统提示")
thisform.text1.setfocus
return
endif
yn=messagebox("确定要删除该职工档案?",4+32,"信息提示")
select zgdab
delete
pack
if yn=6
messagebox("职工号“"+zgh+"”姓名“"+xm+"”的档案已删除!",0+48)
endif
select zgdab
go bottom
thisform.text1.setfocus
endif
thisform.refresh
是不是我代码有错呀,
我刚开始学,不是很懂呀
这是一个删除按钮的click事件,代码是
select zgdab
if recc()=0
=messagebox("数据库中无记录可供删除",0+48,"系统提示")
else
if len(allt(thisform.text1.value))=0
=messagebox("请输入职工编号",0+48,"系统提示")
thisform.text1.setfocus
return
endif
yn=messagebox("确定要删除该职工档案?",4+32,"信息提示")
select zgdab
delete
pack
if yn=6
messagebox("职工号“"+zgh+"”姓名“"+xm+"”的档案已删除!",0+48)
endif
select zgdab
go bottom
thisform.text1.setfocus
endif
thisform.refresh
是不是我代码有错呀,
我刚开始学,不是很懂呀