您的位置: 网站首页 > 程序开发 > Visaul FoxPro程序设计 > 第11章 设备管理系统综合实例 > 【11.6.4 购物查询表单的制作】

11.6.4 购物查询表单的制作

 

11.6.4 购物查询表单的制作

选购表单的主要任务是列出本公司可供应的货品让用户选购,因此,需先设置一个查询表单供用户输入关键字来查询。

1)新建一个表单,在表单上添加相应的控件,其表单的布局安排如图11-34所示。

11-34  表单的布局安排

2)设置表单的主要属性。

·    Autocenter.T.—真。

·    Caption:购物查询——模糊查询。

·    Closeable.F.—假。

·    Maxbotton.F.—假。

3)命令按钮控件的属性。

·    Caption(Command1):确定。

·    Caption(command2):取消。

4)双击表单中的空白处(没有控件的地方),在弹出的代码窗口中选择Form1对象,在Load过程中输入以下代码。

Public  guanjianzi

5)双击文本框(Text1)控件,在init事件中输入以下代码。

This.setfocus

6)双击“确定”按钮,在Click事件输入以下代码。

guanjianzi=alltrim(upper(thisform.text1.value))

  IF guanjianzi==""

      MESSAGEBOX("没有输入,请检查!",0+48,"注意!")

  Thisform.text1.setfocus

  RETURN

  ENDIF

DO form  xuangou

Thisform.text1.value=""

7)双击“取消”按钮,输入以下代码。

Release all

Thisform.release

8)将此表单保存为“gwcx.scx”。

9)将此表单另存为“gwcx1.scx”,然后删去Labe12

10)设置表单的属性。

·    Caption:购物查询——按字首查询。

11)设置标签的属性。

·    CaptionLabe11):请输入货品名称的首字。

12)将此表单保存后,其设计界面如图11-35所示。

13)将此表单另存为“gwcx2.scx”表单,接下来设置gwcx2.scx的属性。

14)表单的属性:

·    Caption:购物查询——按字尾查询。

15)标签的属性:

·    CaptionLabe11):请输入货品名称的尾字。

16)保存此表单,其设计界面如图11-36所示。

          

11-35  设计的选购表单界面1              11-36  设计的选购表单界面2

至此,所有购物查询表单的制作工作全部完成。