unit_order_search.~pas

来自「美汇美容网网站管理系统」· ~PAS 代码 · 共 99 行

unit Unit_Order_Search;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, XPMenu, StdCtrls, CheckLst, ExtCtrls;

type
  TForm_Order_Search = class(TForm)
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    OKBtn: TButton;
    CancelBtn: TButton;
    Edit1: TEdit;
    CheckListBox1: TCheckListBox;
    XPMenu1: TXPMenu;
    procedure CancelBtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure OKBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_Order_Search: TForm_Order_Search;

implementation

uses Unit_DM;

{$R *.dfm}

procedure TForm_Order_Search.CancelBtnClick(Sender: TObject);
begin
  close;
end;

procedure TForm_Order_Search.FormCreate(Sender: TObject);
begin
  Self.Left:= Round(Screen.Width/2-Width/2);
  Self.Top :=Round(Screen.Height/2-Height/2);
end;

procedure TForm_Order_Search.OKBtnClick(Sender: TObject);
var
  sql,whereStr,fieldstr:String;
  i:integer;
begin
  if length(edit1.Text)<1 then
  begin
    application.MessageBox('请输入搜索内容.','提示',MB_OK);
    edit1.SetFocus;
    exit;
  end;

  sql:='select * from enterprise_order';
  whereStr:='';
  fieldstr:='';
  for i:=0 to checklistbox1.Items.Count-1 do
  begin
    if checklistbox1.Checked[i] then
    begin
      if checklistbox1.Items.Strings[i]='订单号' then fieldstr:='iNo';
      if checklistbox1.Items.Strings[i]='交易金额' then fieldstr:='fMoney';
      if checklistbox1.Items.Strings[i]='订单状态' then fieldstr:='vFettle';
      if checklistbox1.Items.Strings[i]='下单时间' then fieldstr:='dDate';
      if checklistbox1.Items.Strings[i]='收款人' then fieldstr:='vChamberlain';
      if checklistbox1.Items.Strings[i]='发货人' then fieldstr:='vShipper';

      if length(whereStr)<1 then
        whereStr:=fieldstr+' like ''%'+edit1.text+'%'''
      else
        whereStr:=whereStr+' or '+fieldstr+' like ''%'+edit1.text+'%''';
    end;
  end;

  if length(whereStr)<1 then
  begin
    application.MessageBox('请输入搜索范围.','提示',MB_OK);
    checklistbox1.SetFocus;
    exit;
  end;

  with dm.adsOrder do
  begin
    close;
    commandtext:=sql+' where '+wherestr;
    open;
  end;

  close;
end;

end.