Delphi进销存系统的设计与实现 第16页

6.1执行查询的程序说明

在管理程序中，查询就需要明确查询条件。该程序的逻辑表达式是根据用户查询条件随机组成，根据问题的需要预先规定若干个供用户选择的条件，允许用户随意输入这些条件或它们的信息组合。用户在查询窗口中输入条件，然后执行检索，程序将实现对用户输入的条件组成逻辑表达式并用于SQL查询语句的WHERE查询条件语句中。

    以客户查询为例，为了方便用户查询，把有关客户信息属性设为各个查询的条件，用户可根据任何一个条件查询，也可选择多个条件组合查询。如按客户信息的某一属性，如姓名、编号、联系人或电话等等，当然也可将这些属性进行组合索检，检索结果将在数据表中显示。

有些属性是可以进行模糊检索的，类似于汉字输入法。例如对姓名检索时，当输入名字的姓氏，结果所有以此姓的记录显示在结果表中，当输入姓名的前两个字，则所有以前两个字开始的记录显示在结果表中。

6.2清屏的程序说明

要清屏首先得找到屏幕显示程序的句柄，可调用API函数FINDWINDOW()实现，然后将其设为隐藏，可调用API函数SHOWWINDOW()实现，具体如下：

  h1:= FindWindow('Progman', nil);

  ShowWindow(h1, SW_HIDE);

退出后或将其设为显示： ShowWindow(h1, SW_SHOW);

1）隐藏状态栏的程序说明

  与清屏类似，调用API函数STRPCOPY()实现。

  StrPCopy(@wndClass[0], 'Shell_TrayWnd');

  h1:= FindWindow(@wndClass[0], nil);

  ShowWindow(h1, SW_HIDE);

2）对鼠标的控制，即使其在一定范围内移动。

 PwdFrm.Left:=round(screen.Width/2)-round(PwdFrm.Width/2);

 PwdFrm.Top:=round(Screen.Height/2)-round(PwdFrm.Height/2);

 << 上一页  [11] [12] [13] [14] [15] [16] [17] [18] [19] [20]  ... 下一页  >>