以下是引用计算机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