visualfoxpro自编小软件上机指导自编小软件上机指导二

《visualfoxpro自编小软件上机指导自编小软件上机指导二》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、自编小软件上机指导（二）上次上机应注意的事项：若在主程序中用了“_screen.visible=.f.”语句，则所有表单中的“showWindow”属性都选择为2—“作为顶层表单”。本节所讲内容是输入模块表单的编制一、建立数据表在项目LJD里建立数据库，不妨就叫“数据1”，在此数据库里建立表，不妨叫做“gzjb”，其中的字段如下图:工号

2、姓名~年月单位基本工资奖金社会保险税金10101■张三200704（会计系2000.00!500.00•300.0060.00^0201i李四200704］金融系2200.00^500.00■240.0060.00^0305200704I国贸系3000.0

3、0^800.00•350.00100.00^0401:赵六200704J工管系3200.00hl0.00•240.00110.00^0102200704!会计系2200.001610.00•200.00100.00!0202200704!金融系2150.001580.00•250.0080.00?0302200704!国贸系2300.00^700.00280.0090.00^0402200704］工管系2400.001600.00•260.0080.00^0103200704,会计系3000.001000.00•400.00120.00：0303200704］国贸系2600.001800.

4、00500.00110.00^0304译二200704!国贸系3000.001700.00400.00130.00^0301注二200704?国贸系3000.001800.00500.0080.00^0104i李东200704,会计系2800.001900.00480.0090.00^▲前四个字段是字符型，后四个字段是数值型。按工号索引，索引名取“GH”二、建立输入模块表单在项目中新建一表单，取名为“AA1”在表单数据环境屮添加数据表“gzjb”（一）最简单的输入表单在命令按钮“退出”的“Click”过程中输入ureleasethisfonrT在命令按钮“确定”的“click”过程屮输入s

5、elegzjblocaforallt(_L^)=allt(thisform.textl.value)ifeof()appeblankrepl工号withallt(thisform.text1.value),姓名withallt(thisform.text2.value)messagebox（"该职工姓名已经成功输入！!"）elsemessagebox（"该工号已经存在，请重新输入！"）thisform.textl.gotfocusendif这个输入表单很简单，但有些问题：1、工号没有规律，人数较多时难以管理，用户不知应如何输入工号，多少位？有何规律？2、已经输入了哪些姓名和工号？（二）简单

6、改进的输入表单拟在工号中增加部门或者系别信息，并列出已输入该系别的工号和姓名。创建一自由表,取名为“xibie”输入各系别的数据，将此表添加到表单的数据环境里O在表单AA1屮添加标签和组合框,在数据环境中将“gzjb”表的标题栏拖到表单的适当位置，得一表格，右击该表格，选择生成器，选择合适的字段。姓名•…请确定工号•…输入姓名•…请选择单位CombolTextlText2退岀确定并调整该表格的大小和位置。右击组合框，选择生成器，选择自由表“xibie”，选择字段“Ximc”，点击“确定”退出后，双击该组合框，在该组合框的uinteractivechange?,程屮输入thisform.te

7、xtl.value=xibie.xibm+,0Vselegzjbsetfilttoallt(单位)=allt(xibie.ximc)gotopthisform.refresh将命令按钮“确定”中的“click”过程中的语句repl工号withallt(thisform.text1.value),姓名withallt(thisform.text2.value)改为repl工号withallt(thisform.text1.value),姓名withallt(thisform.text2.value),单位withallt(thisform.comboLvalue)将命令按钮“退出”中的“Cl

8、ick”过程中的语句改为selegzjbsetfilttoreleasethisform三、修改主菜单中有关项目将菜单项冃“AAA”改为“输入有关数据”将菜单名称中“AA1”改为“增添新职工”，在结果中选择“命令”，在后而的命令栏中填入“doformaal"在菜单栏中单击“生成”选项