| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2257 人关注过本帖
标题:我想向表中录入数据,表是六列的简单表,用什么方法实现方便?
只看楼主 加入收藏
计算机80后1
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2016-10-14
结帖率:0
收藏
已结贴  问题点数:20 回复次数:19 
我想向表中录入数据,表是六列的简单表,用什么方法实现方便?
rt,哪位有时间指点我一下.
2016-10-26 12:44
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:3 
数组最方便
INSERT INTO dbf_name FROM ARRAY ArrayName

坚守VFP最后的阵地
2016-10-26 12:50
mywisdom88
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:191
帖 子:3147
专家分:8408
注 册:2015-3-25
收藏
得分:0 
数组也不简单啊,还要往数组写数据呢。
append blank最简单。


2016-10-26 13:27
ILoveVFD
Rank: 3Rank: 3
等 级:论坛游侠
威 望:3
帖 子:218
专家分:147
注 册:2015-5-2
收藏
得分:3 
browse 最简单
2016-10-26 15:01
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
关键是在什么地方往表中写数据,如果是直接在表中写数据,三楼的方法最简单;如果是在表单中往表中写数据,数组最简单,这要看你的控件名(NAME)是如何规范的。

坚守VFP最后的阵地
2016-10-26 15:08
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:3 
三楼的方法最简单  append blank
2016-10-26 15:28
计算机80后1
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2016-10-14
收藏
得分:0 
先感谢各位。我需要的是有一个菜单,菜单中有一项是数据录入,选择后出现数据录入画面,输入数据后保存到数据表中。数据录入的画面用什么方法实现。
2016-10-26 15:39
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
上面不是已经告诉你解决方法了吗

坚守VFP最后的阵地
2016-10-26 15:46
mywisdom88
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:191
帖 子:3147
专家分:8408
注 册:2015-3-25
收藏
得分:0 
以下是引用计算机80后1在2016-10-26 15:39:55的发言:

先感谢各位。我需要的是有一个菜单,菜单中有一项是数据录入,选择后出现数据录入画面,输入数据后保存到数据表中。数据录入的画面用什么方法实现。

我做个假设,你的表名是:test.dbf,你的录入界面是表单: test.scx,你表单上面有3个 TextBox控件,分别叫:Text1,Text2,Text3,你还有2个按钮 叫:command1,command2
*开始拉
*表单 test.scx的 init 中写上
thisform.text1.value=""
thisform.text2.value=""
thisform.text3.value=""

*按钮command1 的 init中写上
this.caption="增加"

*按钮command1 的 Click中写上
thisform.text1.value=""
thisform.text2.value=""
thisform.text3.value=""
thisform.text1.setfocus

*按钮command2 的 init中写上
this.caption="保存"

*按钮command2 的 Click中写上
if used("test")
   select test
else
   create cursor test(名称1 c(10),名称2 c(10),名称3 c(10))
endif
local mc1,mc2,mc3
mc1=allt(thisform.text1.value)
mc2=allt(thisform.text2.value)
mc3=allt(thisform.text3.value)
*如果你想判断空的记录不能增加
if empty(mc1) or empty(mc2) or empty(mc3)
   messagebox("不能空")
endif
* 方法1
insert into test(名称1,名称2,名称3) values(mc1,mc2,mc3)
* 方法2
append blank
repl 名称1 with mc1,名称2 with mc2,名称3 with mc3
* 方法3 用数组,但本列,不适合用数组

*最后,查看数据
brow

2016-10-26 17:05
hyswcyh
Rank: 8Rank: 8
等 级:贵宾
威 望:20
帖 子:391
专家分:896
注 册:2004-11-23
收藏
得分:3 
gather memo memvar  &&将内存变量的值保存到表中

scatter memvar memo  &&将表中的数据读到内存变量中

例1:一个表中有三个字段,分别是xh,xm,zy,要实现在表单中录入的信息保存到表中。
解:建立表单,创建三个文本控件,把每个文本控件的controlsource分别设置为m.xh、m.xm、m.zy;
在创建一个命令按钮,在它的click中写上:
append blank
gather memo memvar
即可。
例2:一个表中有三个字段,分别是xh,xm,zy,并有五条记录,要实现将表中的数据读取到单按件上显示出来。
在例1中已设置好的环境,只要打开表,将记录指针指向你需要显示的记录,后代码如下:
scatter memvar memo
thisform.refresh
即可
看看有什么效果!这个算是我认为比较简单的了。
2016-10-26 21:20
快速回复:我想向表中录入数据,表是六列的简单表,用什么方法实现方便?
数据加载中...
 
   



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

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