会计电算化教学幻灯片应用篇...ppt

* * * 　　 * 　　 * 　　 * 　　 * 　　 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 以详细设计说明书中的银行对账模块为依据，编写的源程序如下:(普通菜单程序设计) PROCEDURE YHDZ 银行对账 SET TALK OFF FLAG＝’0’ DO WHILE .T. CLEAR @ 1,1 SAY “1—录入对账单” @ 2,1 SAY “2—对账” @ 3,1 SAY “3—输出对账结果” @ 4,1 SAY “4—输出已达账” @ 5,1 SAY “0－退出” @ 6,1 SAY “请选择[0-4]:” GET FLAG READ DO CASE CASE FLAG＝’1’ DO LRDZD CASE FLAG＝’2’ DO DZ CASE FLAG＝’3’ DO SCDZJG CASE FLAG＝’4’ DO SCYDZ CASE FLAG＝’0’ CLOSE DATA CLEAR EXIT ENDCASE ENDDO RETURN 【删除已达账】模块的详细设计 PROCEDURE 删除已达账 请输入：要删除已达账的银行科目代码――XKMDM 屏幕提示： 是否要删除（XKMDM）已达账（Y/N） 注意：删除前请备份对账数据！！ IF 回答“Y” 删除企业对账文件中（XKMDM）银行科目的已达记录 删除银行对账文件中（XKMDM）银行科目的已达记录 显示“删除已达账工作结束” ELSE 显示“已达账未被删除” ENDIF 返回调用模块 PROCEDURE SCYDZ 删除已达账模块程序 CLEAR SET TALK OFF YN=’Y’ STORE SPACE（12） TO XKMDM @ 1,10 SAY “请输入:要删除已达账的银行科目代码” GET XKMDM READ DO CHECK 科目代码正确性检查 CLEAR @ 2,10 SAY “删除”+ XKMDM + “科目已达账” @ 3,10 SAY “┌───────────────────┐” @ 4,10 SAY “│是否要删除(XKMDMX)已达账(Y/N) │” @ 5,10 SAY “│注意：删除前请备份对账数据！！ │” @ 6,10 SAY “└───────────────────┘” @ 7,10 SAY “真的删除已达账吗[Y/N]?” GET YN READ IF YN = ’Y’ USE YHDZ INDEX YHDZ DELE FOR (KMDM=XKMDM).AND.YDBJ PACK USE QYDZ INDEX QYDZ DELE FOR (XKMDM=KMDM).AND.YDBJ PACK @ 15,10 SAY “删除已达账工作结束!” WAIT “ ” ELSE @ 15,10 SAY “已达账未被删除!” WAIT “ ” ENDIF CLEAR CLOSE DATA RETURN 银行对账(生成下拉菜单程序)的说明: Yhdzmenu --- 定义菜单栏的名称； AT LINE 2 --- 限定主功能选项水平排列的菜单放置于桌面窗口或用户自定义窗口中的第2列； COLOR SCHEME 5 --- 为菜单栏指定颜色； Padyhdz --- 定义菜单中选项名称，主要是让各后续命令(如 ON SELECTION PAD…)辨认之用。显示在菜单栏上的项目内容是利用PROMPT定义。即“银行对账”； MARGIN --- 如果加入关键字MARGIN，则下拉菜单中各子功能选项与左右方的边框间会加入一格空白； RELATIVE --- 有此项，屏幕显示菜单顺序与BAR后的序号有关，即按序号排序后显示，若中间有空号，则用空行代替；若没有此项，屏幕显示菜单顺序与BAR后的序号无关，按编写程序顺序显示。 系统菜单设计 1、建立下拉菜单的步骤 （1）定义光带菜单：DEFINE MENU （2）定义光带中各项目：DEFINE PAD （3）选择一个项目后，激活弹出式菜单： ON PAD PADNAME OF MENU NAME 命令 （4）定义若干个弹出子菜单：DEF