📄 11324.htm
字号:
<pre>a=alltrim(thisform.pageframe1.page2.Text1.value)
b=alltrim(thisform.pageframe1.page2.Text2.value)
c=alltrim(thisform.pageframe1.page2.Text3.value)
if empty(b) &&此条件成立则说明该文本框是空的
messagebox("请输入网站名称",16,"系统提示")
return
else
locate for 网站名称=b
if .not.eof() &&此条件成立,说明要添加的内容和表中有重复的
go top
messagebox("不允许有重复的网站名称",16,"系统提示")
thisform.pageframe1.page2.Text1.setfocus
return
endif
endif
if empty(c)
messagebox("请输入网站网址",16,"系统提示")
return
else
locate for 网站网址=c
if .not.eof()
go top
messagebox("不允许有重复的网站网址",16,"系统提示")
thisform.pageframe1.page2.Text1.setfocus
return
endif
endif
if empty(a)=.f.
locate for 编号=a
if .not.eof()
go top
messagebox("不允许有重复的网站编号",16,"系统提示")
thisform.pageframe1.page2.Text1.setfocus
return
else
msg=messagebox('确定要添加记录吗？',32+4,'系统提示')
if msg=6
append blank
go bottom
replace 网站信息表.编号 with alltrim(thisform.pageframe1.page2.Text1.value),;
网站信息表.网站名称 with alltrim(thisform.pageframe1.page2.Text2.value),;
网站信息表.网站网址 with alltrim(thisform.pageframe1.page2.Text3.value)
messagebox('保存记录成功！',64,'系统提示')
thisform.pageframe1.page2.Text1.value=""
thisform.pageframe1.page2.Text2.value=""
thisform.pageframe1.page2.Text3.value=""
thisform.pageframe1.page2.refresh
endif
endif
else
messagebox('请输入网站的编号！',16,'系统提示')
endif</pre>
<p> 3、“退出”按钮command2的click事件代码：</p>
<pre>msg=messagebox('确定要退出系统吗？',32+4,'系统提示')
if msg=6
thisform.release
endif</pre>
<p> 七、运行“表单1.scx”。</p>
<p> 本例代码在Win2003+VFP6.0环境下调试通过，源码下载地址：</p>
<p> <a target="_blank" href="http://club.bianceng.cn/thread-1042-1-1.html">http://club.bianceng.cn/thread-1042-1-1.html</a></p>
<p> <a href="/Programming/vfp/200902/11245.htm">查看全套“菜鸟也学VFP”教程</a></p><center><br /><script src="/js1/4682.js"></script></center>
<p>上一篇：<a href='/Programming/cs/jc/200904/11323.htm'>我眼中的C#</a> 下一篇：<a href='/PC/it/200904/11325.htm'>第十三届中国国际软件博览会即将举行</a> </p></td>
</tr>
<tr>
<td align="left" style="font-size:14px;" height="25"><IMG src="/images/t0.gif" width="12" height="12" align=absMiddle><strong>相关文章</strong><br /><table width='100%' border='0' cellspacing='0' cellpadding='0'>
<tr>
<td width='50%'>
·<a href="/Programming/vfp/200904/11319.htm">看实例学VFP：对组合框控件的再探索</a><br/>
</td>
<td width='50%'>
·<a href="/Programming/vfp/200904/11318.htm">看实例学VFP：文本框控件</a><br/>
</td>
</tr>
<tr>
<td width='50%'>
·<a href="/Programming/vfp/200904/11317.htm">看实例学VFP：进度条控件</a><br/>
</td>
<td width='50%'>
·<a href="/Programming/vfp/200904/11299.htm">看实例学VFP：模拟VB控件数组操作标签控件</a><br/>
</td>
</tr>
<tr>
<td width='50%'>
·<a href="/Programming/vfp/200903/11298.htm">看实例学VFP：选项按钮组控件</a><br/>
</td>
<td width='50%'>
·<a href="/Programming/vfp/200903/11297.htm">看实例学VFP：commondialog控件</a><br/>
</td>
</tr>
<tr>
<td width='50%'>
·<a href="/Programming/vfp/200903/11296.htm">看实例学VFP：复选框控件</a><br/>
</td>
<td width='50%'>
·<a href="/Programming/vfp/200903/11295.htm">看实例学VFP：超级链接控件的使用</a><br/>
</td>
</tr>
<tr>
<td width='50%'>
·<a href="/Programming/vfp/200903/11294.htm">看实例学VFP：用编辑框控件做个“摸奖机”</a><br/>
</td>
<td width='50%'>
·<a href="/Programming/vfp/200903/11293.htm">看实例学VFP：用列表框控件做个“开始菜单</a><br/>
</td>
</tr>
<tr>
<td width='50%'>
·<a href="/Programming/vfp/200903/11292.htm">看实例学VFP：Timer控件实例-动画</a><br/>
</td>
<td width='50%'>
·<a href="/Programming/vfp/200903/11291.htm">看实例学VFP：用sql命令修改表结构</a><br/>
</td>
</tr>
<tr>
<td width='50%'>
·<a href="/Programming/vfp/200903/11290.htm">看实例学VFP：用sql命令创建表</a><br/>
</td>
<td width='50%'>
·<a href="/Programming/vfp/200903/11289.htm">看实例学VFP：主程序及连编综合示例</a><br/>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td width="165" valign="top" class="guideb"><script src="/js1/1601.js"></script><table width="100%" border="0" cellpadding="0" cellspacing="0" valign="top">
<tr>
<td height="25" align="center" background="/templets/img/31bg3.gif"><strong>阅读排行</strong></td>
</tr>
<tr>
<td>·<a href="/Programming/vfp/200902/11252.htm">看实例学VFP：用SELECT语</a><br/>
·<a href="/Programming/vfp/200902/11245.htm">菜鸟也学VFP</a><br/>
·<a href="/Programming/vfp/200902/11256.htm">看实例学VFP：模糊查询</a><br/>
·<a href="/Programming/vfp/200902/11246.htm">看实例学VFP：示例数据库</a><br/>
·<a href="/Programming/vfp/200903/11288.htm">看实例学VFP：制作系统登</a><br/>
·<a href="/Programming/vfp/200903/11291.htm">看实例学VFP：用sql命令修</a><br/>
·<a href="/Programming/vfp/200902/11254.htm">看实例学VFP：用sql语句修</a><br/>
·<a href="/Programming/vfp/200902/11253.htm">看实例学VFP：用sql语句向</a><br/>
·<a href="/Programming/vfp/200903/11289.htm">看实例学VFP：主程序及连</a><br/>
·<a href="/Programming/vfp/200705/977.htm">vfp远程视图与spt应用详解</a><br/>
·<a href="/Programming/vfp/200903/11292.htm">看实例学VFP：Timer控件实</a><br/>
·<a href="/Programming/vfp/200902/11250.htm">看实例学VFP：删除数据表</a><br/>
·<a href="/Programming/vfp/200902/11247.htm">看实例学VFP：对表中记录</a><br/>
·<a href="/Programming/vfp/200902/11282.htm">看实例学VFP：表单集的例</a><br/>
·<a href="/Programming/vfp/200903/11287.htm">看实例学VFP：用顶层表单</a><br/>
</td>
</tr>
<tr>
<td><script src="/js1/1602.js"></script></td>
</tr>
<tr>
<td height="25" align="center" background="/templets/img/31bg3.gif"><strong>最新文章</strong></td>
</tr>
<tr>
<td><script src="/plus/js/0.js" language="javascript"></script></td>
</tr>
</table></td>
</tr>
</table>
<table cellspacing="0" cellpadding="0" width="760" align="center" bgcolor="#ffffff" border="0">
<tr>
<td align="center"><script src="/js1/content2.js"></script></td>
</tr>
</table>
<table width="760" border="0" cellspacing="0" cellpadding="0" align="center">
<tr height="26">
<td bgcolor="#e1f0fd" width="48"></td>
<td bgcolor="#6ab3f4" width="35"></td>
<td bgcolor="#0a518f" colspan="2" width="4"></td>
<td bgcolor="#c0c0c0" width="530" align="center"><a title="将本站设为你的首页" onclick="this.style.behavior='url(#default#homepage)';this.sethomepage('http://www.bianceng.cn');return false;" href="http://www.bianceng.cn/">设为首页</a> | <a class="navmenu"
title="将本站加入到你的收藏夹"
href="javascript:window.external.AddFavorite(location.href,document.title)">加入收藏</a> | <a href="/about/about.htm">关于本站</a> | <a href="/plus/flink.php">友情链接</a> | <a href="/about/banquan.htm">版权声明</a> | <a href="/plus/sitemap.html">网站地图</a> | <a href="/plus/rssmap.html">RSS订阅</a></td>
<td bgcolor="#0a518f" colspan="2" width="4"></td>
<td bgcolor="#6ab3f4" width="32"></td>
<td bgcolor="#e1f0fd" width="47"></td>
</tr>
<tr height="26">
<td colspan="9" bgcolor="#FFFFFF" align="center">编程入门网 版权所有,bianceng.cn,All Rights Reserved. <script src="/js/tongji.js"></script> 阅读次数：<script src="/plus/count.php?aid=11324&mid=0" language="javascript"></script></td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -