给你做一个电毕碰话号码薄的例子,供你借鉴
先建一个电话号码薄的窗口:姓名编辑框,工作单位编辑框,电话号码编辑框。并添加一个“按钮1”。然后创建“电话号码薄.edb”数据库。在窗口程序中填入:
.版本 2
.子程序 __启动窗口_创建完毕
.子程序 _按钮1_被单击
.如果 (信息框 (“请检查填写是否正确,登记后无法更改,确定吗?”此誉, 4, ) = #是钮)
.如果 (姓名编辑框.内容 ≠ “”)
.如果 (单位编辑框.内容 ≠ “”)
.如果 (号码编辑框.内容 ≠ “”)
打开 (“电话号码薄.edb”, , , , , , )
置当前库 (“电话号码薄.edb”)
加空记录 ()
跳到 (取记录号 ())
写字段 (#序号, “电话号码薄”, 到文本 (取记录数 ()))
写字段 (#姓名, “电话号码薄”, 到文本 (姓名编辑框.内容))
写字段 (#工作单位, “电话号码薄”, 到文本 (单位编辑框.内容))
写字段 (#电话号码, “电话号码薄”, 到文本 (号码编辑框.内容))
.否则
信息框 (“姓名未填,请补填”, 0, )
.如果结束
.否则
信息框 (“工作单位未填,请补填”, 0, )
.如果结束
.否则
信息框 (“电话号码未填,请补填”, 0, )
.如果结束
.否则
信息框 (“资料填写不完整,登记不成功,请核对重新输入”, 0, )
.如果结束
不知您弄明白没手扒谈有
满意回答 能不能帮我想想捏? 我看了你的回答 看不懂 我也是和LZ同样的问题