ufrm_filter1.pas

来自「完整的进销存系统。 设计文件及完整的源代码。 Delphi6.0」· PAS 代码 · 共 131 行

//  *******************************************
//  *    Program name: ufrm_sql               *
//  *    AUTHOR      : Guo xuliang            *
//  *    Date        : 2005/05/12             *
//  *    Purpose     :保存查询条件，对数据过滤*
//  *******************************************

unit ufrm_filter1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ToolWin, ComCtrls, ImgList, StdCtrls, Buttons;

type
  Tfrm_filter1 = class(TForm)
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    IList_tools: TImageList;
    Memo1: TMemo;
    Memo2: TMemo;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
  private
    { Private declarations }
    u_table:string;
  public
    { Public declarations }
    u_wc,u_wcdesc:string;    
    procedure init(p_table:string);
  end;

var
  frm_filter1: Tfrm_filter1;

implementation
uses udm,ufrm_sql,uglobal_var;
{$R *.dfm}
procedure Tfrm_filter1.init(p_table:string);
begin
  u_table:=p_table;
  with dm.pub1 do
    begin
      g_sqlstr:='SELECT * FROM ZH_FILE WHERE ZH01='''+p_table+'''';
      close;
      sql.Clear;
      sql.Add(g_sqlstr);
      open;
      u_wcdesc:=fieldbyname('ZH02').AsString;
      u_wc:=fieldbyname('ZH03').AsString;
      close;
    end;
  if (u_wcdesc='') or(u_wc='') then
    begin
      u_wcdesc:='ALL';
      u_wc:=' 1=1 ';
    end;
  memo1.Lines.Clear;
  memo2.Lines.Clear;
  memo1.Lines.Add(u_wcdesc);
  memo2.Lines.Add(u_wc);
end;

procedure Tfrm_filter1.BitBtn1Click(Sender: TObject);
begin
  with dm.p_update1 do
    begin
      g_sqlstr:='SELECT * FROM ZH_FILE WHERE ZH01='''+u_table+'''';
      close;
      sql.Clear;
      sql.Add(g_sqlstr);
      open;
      if eof and bof then
        begin
          append;
          fieldbyname('ZH01').AsString:=u_table;
          fieldbyname('ZH02').AsString:=u_wcdesc;
          fieldbyname('ZH03').AsString:=u_wc;
        end
      else
        begin
          edit;
          fieldbyname('ZH02').AsString:=u_wcdesc;
          fieldbyname('ZH03').AsString:=u_wc;
        end;
      try
        post;
      except
        cancel;
      end;
    end;
end;

procedure Tfrm_filter1.ToolButton2Click(Sender: TObject);
begin
  u_wc:='1=1';
  u_wcdesc:='ALL';
  memo1.Clear;
  memo2.Clear;
  memo1.Lines.Add(u_wcdesc);
  memo2.Lines.Add(u_wc); 
end;

procedure Tfrm_filter1.ToolButton1Click(Sender: TObject);
begin
  Application.CreateForm(Tfrm_sql,frm_sql);
  frm_sql.init(u_table);
  if (frm_sql.ShowModal=mrok) then
    begin
      u_wc:=frm_sql.sqlstr2;
      u_wcdesc:=frm_sql.sqlstr1;
    end;
  try
    frm_sql.release;
  except
    ;
  end;
  memo1.Clear;
  memo2.Clear;
  memo1.Lines.Add(u_wcdesc);
  memo2.Lines.Add(u_wc); 
end;

end.