計(jì)算機(jī)等級考試二級VFP上機(jī)試題及解題思路(68)

　　三、綜合應(yīng)用(1小題，計(jì)30分)

　　建立一個(gè)文件名和表單名均為myform的表單文件，表單上有：

　　. 表格控件grid1(RecordSourceType屬性手工設(shè)置為"別名")

　　. 文本框控件Text1

　　. 命令按鈕控件Command1(文本為"確定")

　　程序運(yùn)行時(shí)在文本框中輸入部門名，然后單擊"確定"命令按鈕計(jì)算該部門各年度的銷售額(合計(jì))和利潤(合計(jì))(利潤為"銷售額-工資額")，按年度升序?qū)⒔Y(jié)果(含年度、銷售額和利潤3個(gè)字段)保存在以部門名命名的dbf文件的同時(shí)，在Grid1控件中顯示計(jì)算的結(jié)果。

　　要求：程序完成后必須運(yùn)行，并分別計(jì)算"筆記本產(chǎn)品部"和"計(jì)算機(jī)產(chǎn)品部"按年度的銷售額和利潤情況。

　　本題主要考核點(diǎn)：建立表單及SQL的使用等知識點(diǎn)。

　　本題解題思路：

　　1、以myform為表單名創(chuàng)建表單，文件名為myform。

　　2、按要求添加表格控件grid1、文本框控件、命令按鈕控件Command1。設(shè)置grid1的RecordSourceType屬性為"別名"，Command1名稱為"確定"。

　　3、在"確定"按鈕的CLICK事件代碼中輸入x="SELECT Sell.年度, sum(Sell.銷售額) as 銷售額,sum(Sell.銷售額 - Sell.工資額) as 利潤"

　　x=x+" FROM test_db!sell where 部門號 in (select 部門號 FROM DEPT.DBF WHERE 部門名='"+myform.text1.value+"')"

　　x=x+" GROUP BY Sell.年度"

　　x=x+" ORDER BY Sell.年度"

　　x=x+" INTO TABLE "+myform.text1.value

　　&x

　　myform.Grid1.recordsource=myform.text1.value

　　保存后，按題面要求輸入相應(yīng)部門名運(yùn)行此表單。