第7章表单设计应用

1、数据库应用基础 东方学院 返回 例例7-1设计一个时间信息显示表单，时间可以在表单范围内左右移动 表单设计界面表单设计界面 表单的表单的Init事件代码：事件代码： Thisform.Timer1.Enabled=.T. Thisform.Fx=.T. 计时器的计时器的Timer事件代码：事件代码： Thisform.Label1.Caption=Time() IF Thisform.Label1.Left=Thisform.Width-Thisform.Label1.Width Thisform.FX=.F. ENDIF IF Thisform.FX=.T. Thisform.Label1.

2、Left=Thisform.Label1.Left+1 ELSE Thisform.Label1.Left=Thisform.Label1.Left-1 ENDIF Thisform.Refresh LOCATE FOR ALLTRIM(thisform.text1.Value)=ALLTRIM(姓名姓名) ; AND ALLTRIM(thisform.text2.Value)=SUBSTR(职工号职工号,3,4) ; ; FROM FROM 职工职工, ,商品商品, ,销售销售 WHERE WHERE 销售销售. .职工号职工号= =职工职工. .职工号职工号 AND ;AND ; 销售销售

3、. .商品号商品号= =商品商品. .商品号商品号; ; INTO TABLE ZGXS ORDER BY INTO TABLE ZGXS ORDER BY 职工职工. .职工号职工号 This.List2.Visible=.F.This.List2.Visible=.F. Thisform.list2.Clear Thisform.list2.Clear SELECT ZGXSSELECT ZGXS GO TOPGO TOP S=0S=0 Thisform.list2.AddItem(Thisform.list2.AddItem(姓名姓名 商品名称商品名称 单价单价 数量数量 金额金额) S

4、CAN FOR ALLTRIM(SCAN FOR ALLTRIM(姓名姓名)=ALLTRIM(Thisform.List1.Value)=ALLTRIM(Thisform.List1.Value) Thisform.list2.AddItem( Thisform.list2.AddItem(姓名姓名+ +商品名称商品名称+STR(+STR(单价单价,3)+STR(,3)+STR(数量数量,6),6)； +STR(+STR(单价单价* *数量数量,8),8) S=S+ S=S+单价单价* *数量数量 ENDSCANENDSCAN Thisform.list2.AddItem(Thisform.l

5、ist2.AddItem(销售金额合计：销售金额合计：+STR(S,6)+STR(S,6)+元元) Thisform.label2.Caption=Thisform.label2.Caption=职工职工 +Thisform.List1.Value+Thisform.List1.Value+销售业绩情况：销售业绩情况： Thisform.label2.Visible=.T.Thisform.label2.Visible=.T. Thisform.list2.Visible=.T.Thisform.list2.Visible=.T. Thisform.RefreshThisform.Refres

6、h （1 1）进入表单设计器，再从主菜单）进入表单设计器，再从主菜单“表单表单”下选择下选择“创建表创建表 单集单集”命令，即可建立一个表单集（命令，即可建立一个表单集（FormSet1FormSet1），其中已经），其中已经 包含了包含了Form1Form1表单，然后，在主菜单表单，然后，在主菜单“表单表单”下选择下选择“添加新添加新 表单表单”命令，给表单集添加命令，给表单集添加Form2Form2、Form3Form3表单。表单。 （2 2）在表单上右键点击，在弹出菜单中选）在表单上右键点击，在弹出菜单中选“数据环境数据环境”命令，命令， 将将“销售销售”表添加到数据环境。表添加到数据环

7、境。 （3 3）通过）通过“属性属性”窗口，可以选择窗口，可以选择Form1Form1表单、表单、Form2Form2表单和表单和 Form3Form3表单。表单。 DO CASE CASE This.Value=1 SELECT 职工职工 APPEND BLANK REPLACE 职工号职工号 WITH Thisform.text1.Value,商品号商品号 WITH ； Thisform.text2.Value,数量数量 WITH Thisform.text3.Value CASE This.Value=2 Thisform.text1.Value= Thisform.text2.Value= Thisform.text3.Value= CASE This.V