📄 11318.htm
字号:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>看实例学VFP：文本框控件 - 编程入门网</title>
<meta name="keywords" content="看实例学VFP：文本框控件">
<meta name="description" content="看实例学VFP：文本框控件">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="/images/style.css" rel="stylesheet" type="text/css" />
<script src="/js1/head.js"></script>
</head>
<body leftmargin="0" topmargin="0" bgcolor="#efefef" oncopy=nocopy()>
<TABLE width="760" cellPadding="0" cellSpacing="0" bgcolor="#eff7fe" align="center">
<TR>
<TD><a href="/index.htm"><img src="/images/logo1.gif" width="150" height="60" border="0"></a></TD>
<TD width="470" align="right"><script src="/js1/top.js"></script></TD>
<TD width="125" align="center"><script src="/js1/topsy.js"></script></TD>
</TR>
</TABLE>
<table width="760" border="0" cellpadding="1" cellspacing="0" class="bklan" align="center">
<tr>
<td align="center" bgcolor="#eff7fe" height="24"> | <a href='/Programming/index.htm'>编程语言</a> | <a href='/webkf/index.htm'>web开发</a> | <a href='/data/index.htm'>数据库</a> | <a href='/Network/index.htm'>网络技术</a> | <a href='/OS/index.htm'>操作系统</a> | <a href='/Servers/index.htm'>服务器</a> | <a href='/web/index.htm'>网页设计</a> | <a href='/Design/index.htm'>图形设计</a> | <a href='/Office/index.htm'>办公软件</a> | <a href='/soft/index.htm'>常用软件</a> | <a href='/shadu/index.htm'>杀毒频道</a> | <a href='/PC/index.htm'>学电脑</a> |</td>
</tr>
</table>
<table cellspacing="0" cellpadding="0" width="760" align="center" bgcolor="#ffffff" border="0">
<tr>
<td align="center"><script src="/js1/content1.js"></script></td>
</tr>
</table>
<table width="760" border="0" cellpadding="0" cellspacing="0" align="center">
<tr>
<td height="25" background="/templets/img/31bg3.gif" align="left" class="guidet"> → 当前位置:<a href='http://www.bianceng.cn/'>首页</a>→<a href='/Programming/index.htm'>编程语言</a>→<a href='/Programming/vfp/index.htm'>vfp</a>→正文</td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td valign="top" class="guidet" width="595"><table width="100%" border="0" cellpadding="0" cellspacing="0" class="ct">
<tr>
<td align="center" valign="middle" class="til"><h3> 看实例学VFP：文本框控件 </h3>
发布时间：2009-04-08 来源：编程入门网 作者：老马<br />
<script src="/js1/468.js"></script>
</td>
</tr>
<tr>
<td style="font-size:14px" align="left" class="til"><table border="0" align="right" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><script src="/js1/300.js"></script></td>
</tr>
</table><p> 文本框控件(textbox)主要用于接收或显示数据，在vfp中是一个常用控件，差不多每个程序都要用到它。<a href="/vfpjc/chapter5/5-4.htm">vfp基础教程-文本框(textbox)控件</a>及<a href="/vfpjc/chapter3/3-3.htm">vfp基础教程-数组</a>中已经分别对文本框控件和数组做了介绍，本文来设计一个将这二者结合起来应用的例子。</p>
<p> 关于文本框控件数据源的处理：</p>
<p> 如果在表单中使用数据环境，可以在“数据环境设计器”中拖动表的各个字段到表单上，系统会自动生成各个字段对应的标签及文本框，并且文本框的数据源会自动与表中对应的字段绑定，这是一种处理方式；另外也可以不使用数据环境，先向表单添加文本框，然后在设计时或运行时在代码中为文本框赋数据源，本文就是这样的一个例子，运行界面如下 ：</p>
<p><img alt="" border="0" src="/upimg/userup/0904/0Q335011V0.jpg" /></p>
<p> 在上图中，对表单上的各个文本框控件的数据源等相关属性值采用了与在<a href="/Programming/vfp/200904/11299.htm">看实例学VFP：模拟VB控件数组操作标签控件</a>一例中类似的方式来处理，相关说明见代码中的注释。</p>
<p> 制作步骤如下 ：</p>
<p> 一、新建表单，将其caption属性值设置为“编程入门网-文本框及数组的综合应用”，保存为“表单1.scx”。 </p>
<p> 二、向表单上添加三个label控件label1～label3，将它们的caption属性值依次设置为“编号”、“网站名称”和“网站网址”，并把这三个label控件排成一列。</p>
<p> 三、向表单上添加三个文本框控件Text1～Text3，并把它们排成一列与label1～对应起来。</p>
<p> 四、在表单下方添加四个命令按钮command1～command4，将它们的caption属性值依次设置为“第一条”、“上一条”、“下一条”和“最后一条”。</p>
<p> 五、适当调整各控件的位置，调整后的表单设计器如下图：</p>
<p><img alt="" border="0" src="/upimg/userup/0904/0Q33535Q22.jpg" /></p>
<p> 六、添加事件代码：</p>
<p> 1、表单的init事件代码：</p>
<pre>set safety off
use 网站信息表
copy to 结构 structure extended &&复制网站信息表的结构
use 结构
go top
dime stru(3) &&定义数组
do while !eof()
select 结构
for i=1 to 3
mt1="text"+alltrim(str(I))
thisform.&mt1..backstyle=0 &&将文本框的backstyle属性值均设为0
thisform.&mt1..disabledForeColor=RGB(0,0,255) &&指定失效控件的前景色
thisform.&mt1..enabled=.f. &&将文本框的enabled属性值均设为.f.
stru(I)=结构.field_name &&将"结构"表的field_name字段值依次赋给三个数组元素
skip
endfor
enddo
use 网站信息表
for j=1 to 3
sjy=alltrim("网站信息表."+stru(j))
mt2="text"+alltrim(str(J))
thisform.&mt2..controlsource=sjy &&依次为三个文本框控件赋数据源
endfor</pre>
<p> 2、表单的unload事件代码：close data</p>
<p> 3、“第一条”命令按钮command1的click事件代码：</p>
<pre>if bof()=.f.
go top
endif
thisform.refresh</pre>
<p> 4、“上一条”命令按钮command2的click事件代码：</p>
<pre>if bof()=.f.
skip -1
endif
thisform.refresh</pre>
<p> 5、“下一条”命令按钮command3的click事件代码：</p>
<pre>if eof()=.f.
skip
endif
thisform.refresh</pre>
<p> 6、“最后一条”命令按钮command4的click事件代码：</p>
<pre>if eof()=.f.
go bottom
endif
thisform.refresh</pre>
<p> 七、运行“表单1.scx”。</p>
<p> 本例代码在Win2003+VFP6.0环境下调试通过。</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/vfp/200904/11317.htm'>看实例学VFP：进度条控件</a> 下一篇：<a href='/Programming/vfp/200904/11319.htm'>看实例学VFP：对组合框控件的再探索</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/11317.htm">看实例学VFP：进度条控件</a><br/>
</td>
</tr>
<tr>
<td width='50%'>
·<a href="/Programming/vfp/200904/11299.htm">看实例学VFP：模拟VB控件数组操作标签控件</a><br/>
</td>
<td width='50%'>
·<a href="/Programming/vfp/200903/11298.htm">看实例学VFP：选项按钮组控件</a><br/>
</td>
</tr>
<tr>
<td width='50%'>
·<a href="/Programming/vfp/200903/11297.htm">看实例学VFP：commondialog控件</a><br/>
</td>
<td width='50%'>
·<a href="/Programming/vfp/200903/11296.htm">看实例学VFP：复选框控件</a><br/>
</td>
</tr>
<tr>
<td width='50%'>
·<a href="/Programming/vfp/200903/11295.htm">看实例学VFP：超级链接控件的使用</a><br/>
</td>
<td width='50%'>
·<a href="/Programming/vfp/200903/11294.htm">看实例学VFP：用编辑框控件做个“摸奖机”</a><br/>
</td>
</tr>
<tr>
<td width='50%'>
·<a href="/Programming/vfp/200903/11293.htm">看实例学VFP：用列表框控件做个“开始菜单</a><br/>
</td>
<td width='50%'>
·<a href="/Programming/vfp/200903/11292.htm">看实例学VFP：Timer控件实例-动画</a><br/>
</td>
</tr>
<tr>
<td width='50%'>
·<a href="/Programming/vfp/200903/11291.htm">看实例学VFP：用sql命令修改表结构</a><br/>
</td>
<td width='50%'>
·<a href="/Programming/vfp/200903/11290.htm">看实例学VFP：用sql命令创建表</a><br/>
</td>
</tr>
<tr>
<td width='50%'>
·<a href="/Programming/vfp/200903/11289.htm">看实例学VFP：主程序及连编综合示例</a><br/>
</td>
<td width='50%'>
·<a href="/Programming/vfp/200903/11288.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/200902/11254.htm">看实例学VFP：用sql语句修</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/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/200902/11250.htm">看实例学VFP：删除数据表</a><br/>
·<a href="/Programming/vfp/200902/11247.htm">看实例学VFP：对表中记录</a><br/>
·<a href="/Programming/vfp/200903/11292.htm">看实例学VFP：Timer控件实</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=11318&mid=0" language="javascript"></script></td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -