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）设置标签的属性。

·    Caption（Labe11）：请输入货品名称的首字。

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

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

（14）表单的属性：

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

（15）标签的属性：

·    Caption（Labe11）：请输入货品名称的尾字。

（16）保存此表单，其设计界面如图11-36所示。

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

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