华南俳烁实业有限公司

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

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

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

. 文本框控件Text1

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

程序運(yùn)行時(shí)在文本框中輸入部門名,然后單擊“確定”命令按鈕計(jì)算該部門各

年度的銷售額(合計(jì))和利潤(rùn)(合計(jì))(利潤(rùn)為“銷售額-工資額”)，按年度升序?qū)⒔Y(jié)

果(含年度、銷售額和利潤(rùn)3個(gè)字段)保存在以部門名命名的dbf文件的同時(shí)，在

Grid1控件中顯示計(jì)算的結(jié)果。

要求：程序完成后必須運(yùn)行，并分別計(jì)算"筆記本產(chǎn)品部"和"計(jì)算機(jī)產(chǎn)品部"

按年度的銷售額和利潤(rùn)情況。

解題思路：

1.建立表單，在“表單設(shè)計(jì)器”中，在其“屬性”的Name處輸入“myform”。在“表單設(shè)計(jì)器”中，分別添加一個(gè)文本框Text1和表格Grid1。在“表單設(shè)計(jì)器”中，添加一個(gè)命令按鈕Command1，在其命令按鈕的“屬性”的Caption處輸入“確定”。雙擊“確定”按鈕，在“Command1.Click”編輯窗口中輸入下列程序

dn=thisform.text1.value

SELECT Sell.年度, SUM(Sell.銷售額) 銷售額,;

SUM(Sell.銷售額)- SUM(Sell.工資額) 利潤(rùn);

FROM sell where 部門號(hào) in;

(select 部門號(hào) from dept where 部門名=dn);

GROUP BY Sell.年度 into dbf &dn

thisform.grid1.recordsource=dn