第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.ENDIFIF Thisform.FX=.T.Thisform.Label1.Left=Thisfo

2、rm.Label1.Left+1ELSE Thisform.Label1.Left=Thisform.Label1.Left-1ENDIFThisform.RefreshLOCATE FOR ALLTRIM(thisform.text1.Value)=ALLTRIM(姓名姓名) ;AND ALLTRIM(thisform.text2.Value)=SUBSTR(职工号职工号,3,4) ;&用户姓名为职工姓名，用户口令为职工号后用户姓名为职工姓名，用户口令为职工号后4位。位。IF FOUND() MESSAGEBOX(用户身份正确！用户身份正确！,64,用户身份验证用户身份验证) Thi

3、sform.C=0ELSE MESSAGEBOX(用户姓名或口令无效！用户姓名或口令无效！,64,用户身份验证用户身份验证) Thisform.C=Thisform.C+1 IF Thisform.C2 &错误登录超过三次，退出表单。错误登录超过三次，退出表单。 MESSAGEBOX(连续三次登录错误，无权操作！连续三次登录错误，无权操作！,64,用户身份验证用户身份验证) Thisform.Release ENDIFENDIFThisform.Release表单的表单的INIT事件代码：事件代码：This.Caption=商品信息循环显示表单商品信息循环显示表单 &设置表单的

4、标题设置表单的标题Thisform.timer1.Interval=2000&设置计时器的时间间隔设置计时器的时间间隔This.SetAll(readonly,.T.)&设置各控件的只读属性设置各控件的只读属性SKIP&移动记录指针，实现商品信息循环显示移动记录指针，实现商品信息循环显示IF EOF() GO TOP ENDIFThisform.Refresh Set Talk Off&避免以后遇到避免以后遇到SUM等人机对话命令出现屏幕干扰等人机对话命令出现屏幕干扰Set Safety Off&避免复制文件，或重复建立单项索引时安全提示避免复制文件，或

5、重复建立单项索引时安全提示Use 职工职工&生成一个副本生成一个副本Copy To 职工职工1Use 职工职工1&对副本进行后续操作对副本进行后续操作 WITH ThisFFform.Spinner1 .Value = 0.Increment = 1.KeyboardHighValue = 30.KeyboardLowValue = 0.SpinnerHighValue = 30.SpinnerLlowVvalue = 0Endwith Index On Alltrim(部门部门) To BM Unique &为使每个部门只留下一条记录为使每个部门只留下一条记录Go T

6、opThis.DisplayValue=部门部门ScanThis.Additem(部门部门)EndscanSet Index ToPARAMETERS X,Y &接收金额、票面接收金额、票面2个参数个参数M=INT(X/Y) &票面张数票面张数N=X%Y &余额余额X=M &张数张数UY=N &余额余额WRETURNReplace All 基本工资基本工资 With Round(基本工资基本工资*(1+thisform.Spinner1.Value/100),0)Sum 基本工资基本工资 To MJBGZ For Alltrim(部门部门)=Aalltr

7、im(thisform.Combo1.DisplayVvalue)Thisform.Text1.Value=MJBGZU=MJBGZDeclare B(6)B(1)=100B(2)=50B(3)=10B(4)=5B(5)=2B(6)=1For I=1 To Thisform.Container1.Controlcount &记数属性记数属性W=B(i)=Thisform.Metj(U,W) &引用方式传递参数引用方式传递参数Thisform.Container1.Controls(i).Value=U &收集属性收集属性U=WEndforThisform.Refresh

8、Thisform.Text1.Value=0Thisform.Container1.Setall(value,textbox)Thisform.Spinner1.Value=0Go TopThisform.Combo1.Displayvalue=部门部门Thisform.Spinner1.SetfocusThisform.Refresh“退出退出”命令按钮命令按钮Command3的的Click事件事件Set Talk OnSet Safety OnSelect 职工职工1UseThisform.ReleaseThis.Caption=营销信息浏览表单营销信息浏览表单C=商品表销售表职工表商品表

9、销售表职工表FOR i=1 TO This.Pageframe1.PageCount This.Pageframe1.Pages( I ).Caption=SUBSTR(C,6*(i-1)+1,6)ENDFORD=表头前翻后翻表尾退出表头前翻后翻表尾退出FOR i=1 TO This.Commandgroup1.ButtonCount This.Commandgroup1.Buttons( I ).Caption=SUBSTR(D,4*(i-1)+1,4)ENDFORThis.SetAll(Readonly,.T.)This.SetAll(Readonly,.T.,EDITBOX)DO CAS

10、E CASE Thisform.Pageframe1.ActivePage=1 SELECT 商品商品 &当选中第一页时，选择商品表当选中第一页时，选择商品表 CASE Thisform.Pageframe1.ActivePage=2 SELECT 销售销售 &当选中第二页时，选择销售表当选中第二页时，选择销售表 CASE Thisform.Pageframe1.ActivePage=3 SELECT 职工职工 &当选中第三页时，选择职工表当选中第三页时，选择职工表ENDCASEDOCASE CASE This.Value=1 &表头表头 GO TOP This

11、.Command1.Enabled= .F. This.Command2.Enabled= .F. This.Command3.Enabled= .T. This.Command4.Enabled= .T. CASE This.Value=2 AND !BOF() &前翻前翻 SKIP-1 IF BOF() This.Command1.Enabled= .F. This.Command2.Enabled= .F. ENDIF This.Command3.Enabled= .T. This.Command4.Enabled= .T. CASE This.Value=3 AND !EOF(

12、) &后翻后翻 SKIP IF EOF() This.Command3.Enabled= .F. This.Command4.Enabled= .F. ENDIF This.Command1.Enabled= .T. This.Command2.Enabled= .T.CASE This.Value=4 &表尾表尾 GO BOTTOM This.Command1.Enabled= .T. This.Command2.Enabled= .T. This.Command3.Enabled= .F. This.Command4.Enabled= .F. CASE This.Value

13、=5 &退出退出 Thisform.Release ENDCASEThisform.Refresh 表单的表单的INITINIT事件对主要控件的属性进行设置，包括设置表单事件对主要控件的属性进行设置，包括设置表单和标签的标题属性，列表框的数据源属性以及利用和标签的标题属性，列表框的数据源属性以及利用SQLSQL的的SELECTSELECT查询语句将各表中所需要的字段事先提取并查询语句将各表中所需要的字段事先提取并保存到一个临时表保存到一个临时表ZGXSZGXS中，以其作为信息输出和统计的数中，以其作为信息输出和统计的数据来源据来源 （1 1）表单的）表单的INITINIT事件代码。事件

14、代码。SET SAFETY OFFSET SAFETY OFFThis.Caption=This.Caption=职工销售业绩查询表单职工销售业绩查询表单 This.label1.Caption=This.label1.Caption=选择职工姓名：选择职工姓名： This.label2.Caption=This.label2.Caption=职工销售业绩信息情况：职工销售业绩信息情况： This.list1.RowSourceType=6This.list1.RowSourceType=6This.list1.RowSource=This.list1.RowSource=职工职工. .姓名姓

15、名 This.list2.RowSourceType=0This.list2.RowSourceType=0This.list2.RowSource=This.list2.RowSource=SELECT SELECT 销售销售. .职工号职工号, ,姓名姓名, ,销售销售. .商品号商品号, ,商品名称商品名称, ,单价单价, ,数量数量; ; FROM FROM 职工职工, ,商品商品, ,销售销售 WHERE WHERE 销售销售. .职工号职工号= =职工职工. .职工号职工号 AND ;AND ;销售销售. .商品号商品号= =商品商品. .商品号商品号; ; INTO TABLE

16、ZGXS ORDER BY INTO TABLE ZGXS ORDER BY 职工职工. .职工号职工号This.List2.Visible=.F.This.List2.Visible=.F.Thisform.list2.Clear Thisform.list2.Clear SELECT ZGXSSELECT ZGXSGO TOPGO TOPS=0S=0Thisform.list2.AddItem(Thisform.list2.AddItem(姓名姓名 商品名称商品名称 单价单价 数量数量 金额金额)SCAN FOR ALLTRIM(SCAN FOR ALLTRIM(姓名姓名)=ALLTRIM

17、(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+单价单价* *数量数量 ENDSCANENDSCANThisform.list2.AddItem(Thisform.list2.AddItem(销售金额合计：销售金额合计：+STR(S,6)+STR(S,6)+元元

18、)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.Refresh（1 1）进入表单设计器，再从主菜单）进入表单设计器，再从主菜单“表单表单”下选择下选择“创建表创建表单集单集”命令，即可建立一个表单集（命令，即可建立一个表单集（FormSet1FormSet1），其中已经），其中已经包含了包含了Form1Form1