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

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

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

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

　　. 文本框控件Text1

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

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

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

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

　　本題解題思路：

　　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)部門名運行此表單。