billlookup.pas

三层ERP系统 (SQL)

unit BillLookup;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Base_Dll, StdCtrls, ExtCtrls, Mask, DBCtrlsEh, dxCntner,
  dxEditor, dxExEdtr, dxEdLib;

type
  TfrmBillLookup = class(TfrmBase_DLL)
    plEdit: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Edit4: TEdit;
    Edit3: TEdit;
    Label9: TLabel;
    Label10: TLabel;
    DTEdt1: TdxDateEdit;
    DTEdt2: TdxDateEdit;
    Label11: TLabel;
    Edit5: TEdit;
    Label12: TLabel;
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure DTedt1Change(Sender: TObject);
    procedure DTedt2Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmBillLookup: TfrmBillLookup;

implementation

uses Global;

{$R *.dfm}

procedure TfrmBillLookup.FormDestroy(Sender: TObject);
begin
  inherited;
  frmBillLookup:=nil;
end;

procedure TfrmBillLookup.Button1Click(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TfrmBillLookup.Button3Click(Sender: TObject);
begin
  inherited;
  edit1.Text:='';
  edit2.Text:='';
  edit3.Text:='';
  edit4.Text:='';
  DTedt1.Text:='';
  DTedt2.Text:='';
  edit5.Text:='';
end;

procedure TfrmBillLookup.Button2Click(Sender: TObject);
var
  sFilter:String;
begin
  inherited;
SearchTiao:='';
sFilter:='';
if edit1.Text <> '' then
  if sFilter='' then
   sFilter:= ' fBillNo like '+Vartosql('%'+Trim(edit1.text)+'%')
   else
  sFilter:= sFilter+' and fBillNo like '+Vartosql('%'+Trim(edit1.text)+'%');

if edit2.Text <> '' then
  if sFilter='' then
   sFilter:= ' fBillSelfNo like '+Vartosql('%'+Trim(edit2.text)+'%')
   else
   sFilter:= sFilter+' and fBillSelfNo like '+Vartosql('%'+Trim(edit2.text)+'%');

if DTedt1.Text <> '' then
  if sFilter='' then
   sFilter:=' fdate >='+Vartosql(Trim(DTEdt1.text))+' and fdate <='+Vartosql(Trim(DTEdt1.text))
   else
   sFilter:=sFilter+' and fdate >='+Vartosql(Trim(DTEdt2.text))+' and fdate <='+Vartosql(Trim(DTEdt2.text));

if edit3.Text <> '' then
  if sFilter='' then
   sFilter:=' fcompany like '+Vartosql('%'+Trim(edit3.text)+'%')
   else
   sFilter:= sFilter+' and fcompany like '+Vartosql('%'+Trim(edit3.text)+'%');

if edit4.Text <> '' then
  if sFilter='' then
   sFilter:=' fbillname like '+Vartosql('%'+Trim(edit4.text)+'%')
   else
   sFilter:= sFilter+' and fbillname like '+Vartosql('%'+Trim(edit4.text)+'%');

if edit5.Text <> '' then
  if sFilter='' then
   sFilter:=' fCreaUser like '+Vartosql('%'+Trim(edit5.text)+'%')
   else
   sFilter:= sFilter+' and fCreaUser like '+Vartosql('%'+Trim(edit5.text)+'%');

if sFilter<>'' then
  Searchtiao:=sFilter
  else
  Searchtiao:=' fid>0 ';

  self.Close;

end;

procedure TfrmBillLookup.DTedt1Change(Sender: TObject);
begin
  inherited;
   DTEdt2.Date := DTEdt1.Date ;
end;

procedure TfrmBillLookup.DTedt2Change(Sender: TObject);
begin
  inherited;
if DTedt1.Date < DTEdt2.Date then
   begin
   messageDlg('ら戳砞竚ぃタ絋 ! ',mtError,[mbOK],0);
   DTEdt1.Date := DTEdt2.Date ;
   end;
end;

end.