11.6.5 交易统计表单的制作
11.6.5 交易统计表单的制作
交易统计有买入和卖出两种，共四个表单，分别对应两个查询表单和两个显示查询结果的表单。
|
图11-37 设计买入交易统计表单 |
（1）新建买入交易统计表单injy.scx，并按如图11-37所示进行设计和布局。
（2）设置表单基本属性。
· Autocenter：.T.—真。
· Caption：买入。
· Closeable：.F.—假。
· Maxbotton：.F.—假。
（3）设置标签控件的名称。
· Caption(labe11)：请输入日期：年-月-日。
· Caption(labe12)：查询由。
· Caption(labe13)：开始至。
（4）设置所有文本框控件的属性。
· IntetraHeight：.T.—真。
· FontSize：12。
· FontName：宋体。
· Value：{}。
（5）设置按钮的属性。
· Caption(Command1)：确定。
· Caption(command2)：取消。
（6）双击表单Form1，并编写其Load事件代码。
set date ansi
set century on
（7）双击“确定”按钮，并编写其Click事件代码。
t1=thisform.text1.value
t2=thisform.text2.value
ru1=0
ru2=0
OPEN DATABASE 设备数据库
USE mairu
GO top
LOCA FOR 日期>=t1 and 日期<=t2
DO case
CASE found()
COUNT for 日期>=t1 and 日期<=t2 to ru1
SUM(总金额) for 日期>=t1 and 日期<=t2 to ru2
Clear
DO form 买入统计
OTHERWISE
MESSAGEBOX("对不起！在这段时间内没有入货！;
要改个时间段重新查询吗？",4+32+0,"出错了！")
Thisform.text1.value={}
Thisform.text2.value={}
Thisform.text1.setfocus
ENDCASE
（8）双击“取消”按钮，并为其编写Click事件代码。
Thisform.release
（9）保存该表单为injy.scx然后运行，输入一个时间段，其运行效果如图11-38所示。
图11-38 运行买入交易统计查询表单
2．卖出交易统计查询表单
（1）将如图11-37所示的表单打开，然后另存为outjy.scx。
注意：由于卖出交易统计查询表单的属性与买入交易统计表单基本一致，所以下面只列出不同的属性。
（2）设置表单基本属性。
· Caption：出货。
（3）双击表单，并编写其Load事件代码。
Set cent on
Set date ansi
（4）双击“确定”按钮，并编写其Click事件代码。
t1=thisform.text1.value
t2=thisform.text2.value
ru1=0
ru2=0
OPEN DATABASE 设备数据库
USE maichu
GO top
LOCA FOR 日期>=t1 and 日期<=t2
DO case
CASE found()
COUNT for 日期>=t1 and 日期<=t2 to ru1
SUM(总金额) for 日期>=t1 and 日期<=t2 to ru2
Clear
DO form 卖出统计
OTHERWISE
MESSAGEBOX("对不起！在这段时间内没有出货！;
要改个时间段重新查询吗？",4+32+0,"出错了！")
Thisform.text1.value={}
Thisform.text2.value={}
Thisform.text1.setfocus
ENDCASE
（5）双击“取消”按钮，并为其编写Click事件代码。
Thisform.release
（6）保存并运行该表单，输入一个时间段，其运行效果如图11-39所示。
图11-39 运行出货交易统计查询表单
3．买入交易统计结果表单
（1）新建如图11-40所示的表单，并添加两个文本框、一个命令按钮和四个标签控件。
图11-40 设计买入的统计表单
（2）设置表单基本属性。
· Autocenter：.T.—真。
· Caption：买入的统计。
· Closeable：.F.—假。
· Maxbotton：.F.—假。
（3）设置标签控件的名称。
· Caption(labe11)：这段时间内买货共有。
· Caption(labe12)：次。
· Caption(labe13)：买入总金额为。
· Caption(labe14)：元。
（4）设置文本框控件的属性。
· IntetraHeight：.T.—真。
· Fontsize：12。
· Fontname：宋体。
（5）双击表单，并编写其Load事件代码。
This.text1.value=ru1
This.text2.value=ru2
This.command1.sctfocus
（6）双击“确定”按钮，并编写其Click事件代码。
Thisform.release
（7）最后保存该表单为“买入的统计.scx”。若在如图11-38所示的表单中（injy）输入合适的日期段后，系统自动会调入“买入的统计”表单，如图11-41所示。
图11-41 被调入的买入统计表单
4．卖出交易统计结果表单
（1）将如图11-40所示的表单打开，然后另存为“卖出的统计.scx”，如图11-42所示。
注意：由于卖出交易统计查询表单的属性与买入交易统计表单基本一致，所以下面只列出不同的属性。
|
图11-42 卖出交易统计表单 |
· Caption：卖出的统计。
（3）设置标签控件的名称。
· Caption(labe11)：这段时间内卖货共有。
· Caption(labe13)：卖出总金额为。
（4）双击表单，并编写其Load事件代码。
this.text1.value=ru1
this.text2.value=ru2
this.command1.setfocus
（5）双击“确定”按钮，并编写其Click事件代码。
Thisform.release
（6）最后保存该表单。若在如图11-39所示的表单中（outjy）输入合适的日期段后，系统自动会调入“卖出的统计”表单，如图11-43所示。
图11-43 被调入的卖出统计表单