资源描述：
《VF实验三结构化程序设计》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、实验三结构化程序设计实验目的：(1)熟练掌握程序文件的建立、保存、运行和调试的方法。(2)重点掌握结构化程序设计的3种基本结构。实验要求：练习使用命令方式和菜单方式建立、保存和运行下述程序。若运行出现错误请调试。(1)编写程序S2-4-1.PRG,为“员工”表添加新纪录。(2)货物表的单价和库存量需要经常修改，试编写程序S2-4-2.PRG对货物表作数据维护。(3)分别用顺序查询(编程S2-4-3A.PRG)和SELECT-SQL命令查询(编程S2-4-3b.prg)员工个人完成订单情况。(4)编程S2-4-
2、4.PRG显示货物库存清单，要求计算岀每次货物的库存值和货物库存总值。实验步骤：(1)建立程序文件：执行命令MODIFYCOMMANDS2-4-1,在程序编辑窗口建立如下程序文件。*程序文件名：S2-4-1.PRG*功能：为“员工”表添加新纪录。CLEARUSE员工&&打开员工・dbfAPPENDBLANK&&添加一个空白记录@10,5SAY"添加新纪录"?&&插入一个空行INPUT”请输入工号:^TOghINPUT请输入姓名:?,TOxmINPUT"请输入电话："TOdhREPLACE工号WITHgh,姓名
3、withxm,电话withdh&&将输入的数据写入表中9■INPUT”是否输入照片(Y/N)TTOzpIFUPPER(ZP)二MODIFYGENERAL照片&&输入照片EDIFINPUT”是否输入备注(y/n)TTOBZIFUPPER(BZ)二"Y"MODIFYMEMORY备注&&输入备注ENIFDIPLAYUSEEs2-4-l.prg
4、=
5、
6、回*程序文件名:S2-4-1・PRG上*功能：为"员工"表添加新圮录。CLEARUSE员工&&打开员工.dbfAPPENDBLANK&&添加一个空白记录©10,5SAY
7、"添加新纟己录"_?&&插入一个空行INPUT"请输入工号:"TOghINPUT"请输入姓名:"TOxinINPUT"请输入电话:"TOdhREPLACE工号WITHgh,姓名心thxm,电话心thdh&&将输入的数据写入表中?INPUT"是否输入照片(Y/N):"TOzpIFUPPER(ZP)=VMODIFYGENERAL照片&&输入照片EDIFINPUT"是否输入备注(y/n):"TOBZIFUPPER(BZ)二"Y"MODIFYMEMORY备注皱输入备注ENIFDIPLAYUSE钉丨上述程序录入后，按c
8、trl+w保存文件，从而关闭文本编辑窗口。然后执行命令“DOS2-4-1"运行程序。若存在录入错误请调试。调试结果如下：护命令DOS2-4-1钉丨添加新纪录直输入工号:"inr请输入姓名：“俞诫"请输入电话:"13698551589"是否输入照片(VN):"Y“是否输入备注(Y/N)："Y“录是TE畦131111俞斌由.话昭片备疔13698551589GenMemo(2)S4-2-2.PRG编制如下：*程序文彳牛名：S4-2-2.PRG*功能：根据给出的货号，修改”货物“表的单价和库存量。CLEARUSE货物
9、@5,15SAY“修改货物的单价和库存量”INPUT”请输入货号”TOhhLOCATEFOR货号二hhIFFOUND()DISPLAYINPUT”请输入单价”：TOdjINPUT”请输入库存量JTOkclREPLACE单价WITHdj,;库存量WITHkcl?'请检杳修改后的数据：’DISPLAYELSE@12,20SAY”无此货号！”ENDIFUSEEs2-4-2.prg「u>”回II茨I*程序文件名：s4~2~2.PRG▲*功能：根据给出的货号，修改〃货物〃表的单价和库存量。CLEARUSE货物@5,15
10、SAY"修改货物的单价和库存量〃INPUT〃请输入货号"TOhhLOCATEFOR货号二hhIFFOUND()DISPLAYINPUT请输入单价："TOdjINPUT"请输入库存量："TOkclREPLACE单价WITHdj,;庫存量WITHkcl?'请检查修改后的数据：’DISPLAY@12,20SAY"无此货号!ENDIFUSE衬I程序运行结果如图241所示。在修改一项记录如H:(3)S2-4-3a.PRG编制如下:*程序文件名:S2-4-3a.PRG*功能：查询员工完成订单情况。CLEARUSE员工SE
11、TORDERTOghSELECT0USE订单SETRELATIONTO工号INTO员工SETSKIPTO员工@1,8SAY”查询员工完成订单情况："9■INPUT”输入工号TOghLOCATEFOR员工.工号二ghIFFOUND()LIST员工.工号，员工.姓名，订单.订单号，订单.订购EI期,;订单.客户编号FOR员工•工号=ghOFFELSE?，无订单！’EDIFUSE程序如下：Ss2-4-3.
