1、简单应用:操作步骤如下:1.选择“文件/新建”命令,新建一个项目,项目文件名为PROJ1;2.单击“代码”列表,并选中“程序”项,单击“添加”按钮,并选中考生文件夹下MAIN.PRG,将该程序添加到项目中;3.单击“文档”列表,并选中“表单”项,单击“新建”按钮,新建一个新表单;4.在表单属性窗口中,Caption设置为“列表框应用”,Height设置为260,Width设置为400;5.选择标签控件,在表单的适当位置拖放产生Label1标签,在该控件的属性窗口中,将Caption设置为“可选定字段”;6.选择标签控件,在表单的适当位置拖放产生Label2标签,在该控件的属性窗口中,将Capt
2、ion设置为“排序字段”;7.在表单空白处单击右键,选择“数据环境”,将表B01添加到表单的数据环境;8.选择列表框控件,在表单的适当位置拖放产生List1列表框,在该控件的属性窗口中,RowSourceType设置为“结构”;9.选择列表框控件,在表单的适当位置拖放产生List2列表框;10.选择命令按钮控件,在表单的适当位置拖放,在该控件的属性窗口中,Caption设置为“添加到右边”,其Click事件参考代码如下: THISFORM.LIST2.ADDITEM(THISFORM.LIST1.VALUE) 11.选择命令按钮控件,在表单的适当位置拖放,在该控件的属性窗口中,将Caption
3、设置为“关闭”,其Click事件参考代码如下: THISFORM.RELEASE12.选择“文件/保存”命令,在弹出的对话框中将其保存到考生文件夹中,文件名为SCRE1;13.单击工具栏中的“运行”按钮运行该表单,调试通过后关闭表单设计窗口;14.单击“连编”按钮,在“连编选项”对话框中选中“连编可执行文件”;15.单击“确定”按钮,在“另存为”对话框的应用程序名处输入“PROJ1”;16.单击“保存”按钮,完成连编。综合应用:操作步骤:1.使用MODI COMM PROG1 命令进入编程窗口。 参考程序1: SELECT 科目, CNT(*) AS 人数, AVG(分数) AS 平均成绩;
4、FROM CJ GROUP BY 科目 ORDER BY 科目; INTO TABLE KSCJ.DBF ALTER TABLE KSCJ ALTER 科目 C(30) ALTER 人数 N(10) ALTER 平均成绩 N(16,2) CANCEL 参考程序2: CREATE TABLE KSCJ(科目 C(30), 人数 N(10) ,平均成绩 N(16,2) USE CJ INDEX ON 科目 TAG 科目 UNIQ COPY TO CCJ CLOSE INDEX SELECT KSCJ APPEND FROM CCJ SCAN KM=KSCJ.科目 SELECT CJ COUNT A
5、LL FOR CJ.科目=KM TO RS AVERAGE ALL 分数 FOR CJ.科目=KM TO PJF REPLACE 人数 WITH RS ,平均成绩 WITH PJF ENDSCAN2.使用CREATE MENU MENU1命令创建菜单,建立菜单项“计算”和“退出(Q)”。 “计算”项中结果选“命令”,选项中填写“DO PROG1.PRG”或“DO PROG1”; “退出(Q)”项中结果选“命令”,选项中填写“QUIT”或“RETURN”或“CANCEL”; 生成菜单程序,运行菜单并执行“计算”项。第二套:1.复制数据表、追加记录: USE ASTUD COPY TO AST A
6、PPEND FROM AXSDA2.建立索引: USE AXSDA INDEX ON 性别+学号 TAG XBXH &或用表设计器建立3.统计与变量操作: AVERAGE 入学分 TO PJF &或用CALCULATE AVG(入学分) TO PJF SAVE TO MPJF4.在表单属性窗口中,Caption设置为“追加记录”,Height设置为300,Width设置为400;5.在表单上右击,选择“数据环境”,将B01.DBF表添加到数据环境中;6.选择表格控件,在表单的适当位置拖放;7.选择标签控件,在表单的适当位置拖放产生Label1标签,在其属性窗口中,将Caption设置为“准考证
7、号”;8.选择标签控件,在表单的适当位置拖放产生Label2标签,在其属性窗口中,将Caption设置为“姓名”;9.选择标签控件,在表单的适当位置拖放产生Label3标签,在其属性窗口中,将Caption设置为“成绩”;10.选择文本框控件,在表单的适当位置拖放产生Text1、Text2与Text3文本框,然后在Text3的属性窗口中,将Value设置为0;11.选择命令按钮控件,在表单的适当位置拖放,在其属性窗口中,Caption设置为“追加”,其Click事件参考代码如下: APPEND BLANK REPL 准考证号 WITH THISFORM.TEXT1.VALUE REPL 姓名
8、WITH THISFORM.TEXT2.VALUE REPL 成绩 WITH THISFORM.TEXT3.VALUE12.选择命令按钮控件,在表单的适当位置拖放,在其属性窗口中,将Caption设置为“关闭”,其Click事件参考代码如下:13.选择“文件/保存”命令,在弹出的对话框中将其保存到考生文件夹中,文件名为SCRE1;14.单击工具栏中的“运行”按钮运行该表单,调试通过后关闭表单设计窗口;15.单击“连编”按钮,在“连编选项”对话框中选中“连编可执行文件”;16.单击“确定”按钮,在“另存为”对话框的应用程序名处输入“PROJ1”,单击“保存”按钮,完成连编。 参考程序: SET
9、TALK OFF USE FCXS COPY TO FCJ USE FCJ S=B2-4*A*C IF S=11 APPEND BLANK REPL 数值 WITH A(I) NEXT USE RETURN2.使用CREATE MENU MENU1命令创建菜单,建立菜单项“计算(C)”和“退出”。 “计算(=20102.数据表的复制: COPY TO AFZY FOR 主要设备=.F. SUM 价格 TO ASUMA FOR 主要设备=.T. &或用CALCULATE SUM(价格) TO ASUMA FOR 主要设备=.T. SUM 价格 TO ASUMB FOR 主要设备=.F. &或用CALCULATE SUM(价格) TO ASUMB FOR 主要设备=.F. SAVE TO MFSB4.在表单属性窗口中,Caption设置为“考试登录”,Height设置为135,Width设置为260;5.在表单控件工具栏中3次选择标签控件,在表单的适
copyright@ 2008-2023 冰点文库 网站版权所有
经营许可证编号:鄂ICP备19020893号-2