base_lookup.pas

用delphi编写的数据库管理软件

unit Base_Lookup;

interface

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

type
  TfrmBase_Lookup = 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;
    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 }
  protected
    handWorkNoField:string;
    Otherfield1:String;
    Otherfield2:string;
    DateField:String;
  public
    { Public declarations }
  end;

var
  frmBase_Lookup: TfrmBase_Lookup;

implementation

uses Global;

{$R *.dfm}

procedure TfrmBase_Lookup.FormDestroy(Sender: TObject);
begin
  inherited;
  frmBase_Lookup:=nil;
end;

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

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

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

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

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

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

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

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

  self.Close;

end;

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

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

end.