find_u.pas

从盒子上面转过来的一个很小的软件

unit Find_U;

interface

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

type
  TFind = class(TForm)
    Panel1: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    SpeedButton3: TSpeedButton;
    Edit1: TEdit;
    Edit2: TEdit;
    cb1: TComboBox;
    cb2: TComboBox;
    cb3: TComboBox;
    cb4: TComboBox;
    cbx1: TComboBox;
    cbx2: TComboBox;
    cbx3: TComboBox;
    cbx4: TComboBox;
    Edit3: TEdit;
    Date1: TDateTimePicker;
    Edit4: TEdit;
    Date2: TDateTimePicker;
    Label0: TLabel;
    cb0: TComboBox;
    Edit0: TEdit;
    cbx0: TComboBox;
    l1: TLabel;
    procedure cb1Change(Sender: TObject);
    procedure cb2Change(Sender: TObject);
    procedure cb3Change(Sender: TObject);
    procedure cb4Change(Sender: TObject);
    procedure cb0Change(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Find: TFind;
  Function get_BH:string;
  Function get_RQ2:string;
  Function get_RQ1:string;
  Function get_FXS:string;
  Function get_all:string;
//  Function get_Check1:string;

implementation

uses DB_U, CXTJ_U, LBZY_U,DJ_U;

{$R *.dfm}
Function get_BH:string;
var
 str_BH,str_temp:string;
begin
 str_BH:='单据号'+' '+Find.cbx4.Text+' '+Find.edit2.text;
 if  (Find.cbx4.Text='') or (Find.edit2.text='') then
   str_temp:=''
 else
   str_temp:=str_BH;
result:=str_temp;
end;

Function get_RQ2:string;
var
 str_RQ2,str_temp:string;
begin
 str_RQ2:='日期'+' '+Find.cbx3.Text+' '+floattostr(Find.date2.date);
 if  Find.cbx3.Text='' then
   str_temp:=get_BH
 else
    if get_BH='' then
     str_temp:=str_RQ2
    else
     str_temp:=str_RQ2+' and '+get_BH;
result:=str_temp;
end;

Function get_RQ1:string;
var
 str_RQ1,str_temp:string;
begin
 str_RQ1:='日期'+' '+Find.cbx2.Text+' '+floattostr(Find.date1.date);
 if Find.cbx2.Text='' then
   str_temp:=get_RQ2
 else
    if get_RQ2='' then
     str_temp:=str_RQ1
    else
     str_temp:=str_RQ1+' and '+get_RQ2;
result:=str_temp;
end;

Function get_FXS:string;
var
 str_FXS,str_temp:string;
begin
 //if (FJHDTJ.cbx1.Text='<>') or (FJHDTJ.cbx1.Text='=') then
   str_FXS:='发型师'+' '+Find.cbx1.Text+' '+''''+Find.edit1.text+'''';
 if Find.cbx1.Text='like' then
   str_FXS:='发型师'+' '+Find.cbx1.Text+' '+''''+'%'+Find.edit1.text+'%'+'''';
 if  (Find.cbx1.Text='') or (Find.edit1.text='') then
   str_temp:=get_RQ1
 else
    if get_RQ1='' then
     str_temp:=str_FXS
    else
     str_temp:=str_FXS+' and '+get_RQ1;
result:=str_temp;
end;

Function get_all:string;
var
 str_all,str_temp:string;
begin
 //if (FJHDTJ.cbx0.Text='=') or (FJHDTJ.cbx0.Text='<>') then
   str_all:='姓名'+' '+Find.cbx0.Text+' '+''''+Find.edit0.text+'''';
 if Find.cbx0.Text='like' then
   str_all:='姓名'+' '+Find.cbx0.Text+' '+''''+'%'+Find.edit0.text+'%'+'''';
 if  (Find.cbx0.Text='') or (Find.edit0.text='') then
   str_temp:=get_FXS
 else
    if get_FXS='' then
     str_temp:=str_all
    else
     str_temp:=str_all+' and '+get_FXS;
result:=str_temp;
end;

{Function get_Check1:string;
var
 str_Check1,str_temp:string;
begin
 str_Check1:='JZ'+' '+'='+' '+'''是''';
 if  FJHDTJ.CheckBox1.Checked=True  then
   str_temp:=get_all
 else
    if get_all='' then
     str_temp:=str_Check1
    else
     str_temp:=str_Check1+' and '+get_all;
 result:=str_temp;
end;  }

procedure TFind.cb1Change(Sender: TObject);
begin
//cbx1.ItemIndex:=cb1.ItemIndex;
  if cb1.Text='' then
     cbx1.Text:='';
  if cb1.text='等于' then
     cbx1.Text:='=';
  if cb1.text='近似' then
     cbx1.Text:='like';
  if cb1.text='不等于' then
     cbx1.Text:='<>';
end;

procedure TFind.cb2Change(Sender: TObject);
begin
//cbx2.ItemIndex:=cb2.ItemIndex;
   if cb2.Text='' then
     begin
     cbx2.Text:='';
     date1.Visible:=False;
     end
   else
   date1.Visible:=True;
   date1.Date:=date();
   if cb2.text='大于' then
     cbx2.Text:='>';
   if cb2.text='大于等于' then
     cbx2.Text:='>=';
   if cb2.text='小于' then
     cbx2.Text:='<';
   if cb2.text='小于等于' then
     cbx2.Text:='<=';
   if cb2.text='等于' then
     cbx2.Text:='=';
   if cb2.text='不等于' then
     cbx2.Text:='<>';
end;

procedure TFind.cb3Change(Sender: TObject);
begin
//cbx3.ItemIndex:=cb3.ItemIndex;
   if cb3.Text='' then
     begin
     cbx3.Text:='';
     date2.Visible:=False;
     end
   else
   date2.Visible:=True;
   date2.Date:=date();
   if cb3.text='大于' then
     cbx3.Text:='>';
   if cb3.text='大于等于' then
     cbx3.Text:='>=';
   if cb3.text='小于' then
     cbx3.Text:='<';
   if cb3.text='小于等于' then
     cbx3.Text:='<=';
   if cb3.text='等于' then
     cbx3.Text:='=';
   if cb3.text='不等于' then
     cbx3.Text:='<>';
end;

procedure TFind.cb4Change(Sender: TObject);
begin
//cbx4.ItemIndex:=cb4.ItemIndex;
if cb4.Text='' then
   cbx4.Text:='';
if cb4.text='大于' then
   cbx4.Text:='>';
if cb4.text='大于等于' then
   cbx4.Text:='>=';
if cb4.text='小于' then
   cbx4.Text:='<';
if cb4.text='小于等于' then
   cbx4.Text:='<=';
if cb4.text='等于' then
   cbx4.Text:='=';
if cb4.text='不等于' then
   cbx4.Text:='<>';
end;

procedure TFind.cb0Change(Sender: TObject);
begin
//cbx0.ItemIndex:=cb0.ItemIndex;
  if cb0.Text='' then
     cbx0.Text:='';
  if cb0.text='等于' then
     cbx0.Text:='=';
  if cb0.text='近似' then
     cbx0.Text:='like';
  if cb0.text='不等于' then
     cbx0.Text:='<>';
end;

procedure TFind.SpeedButton1Click(Sender: TObject);
var
 str:string;
 JE1_V,JE2_V:double;
begin
      if get_all='' then
       str:=''
      else
       str:='where'+' '+get_all+' ';
      CustomerData.ADOQuery1.DisableControls;
      CustomerData.ADOQuery1.Close;
      CustomerData.ADOQuery1.SQL.Clear;
      CustomerData.ADOQuery1.sql.Add('select * from DJ '+str+' order by 年份,月份,单据号');//
      CustomerData.ADOQuery1.open;
      CustomerData.ADOQuery1.First;
      if l1.Caption='2' then begin
         JE1_V:=0;
         JE2_V:=0;
         while not CustomerData.ADOQuery1.eof do begin
          JE1_V:=JE1_V+CustomerData.ADOQuery1.fieldbyname('洗剪吹').Value;
          Je2_V:=Je2_V+CustomerData.ADOQuery1.fieldbyname('烫染').Value;
          CustomerData.ADOQuery1.Next;
         end;//
        CustomerData.ADOQuery1.EnableControls;
        CustomerData.ADOQuery1.First;
        CXTJ.JLS.Caption:='记录数：'+ inttostr(CustomerData.ADOQuery1.RecordCount);
        CXTJ.JE1.Caption:=FloatTostr(JE1_V);
        CXTJ.JE2.Caption:=FloatTostr(JE2_V);
      end;
      if l1.Caption='1' then
      DJ_write;
close;
end;

procedure TFind.SpeedButton2Click(Sender: TObject);
begin
Close;
end;

procedure TFind.FormActivate(Sender: TObject);
begin
cb0.Text:='';
cb1.Text:='';
cb2.Text:='';
cb3.Text:='';
cb4.Text:='';
cbx0.Text:='';
cbx1.Text:='';
cbx2.Text:='';
cbx3.Text:='';
cbx4.Text:='';
edit0.Text:='';
edit1.Text:='';
edit2.Text:='';
cbx0.ItemIndex:=-1;
cbx1.ItemIndex:=-1;
cbx2.ItemIndex:=-1;
cbx3.ItemIndex:=-1;
cbx4.ItemIndex:=-1;
date1.Visible:=False;
date2.Visible:=False;
end;

procedure TFind.SpeedButton3Click(Sender: TObject);
begin
LBZY.l1.Caption:='3';
LBZY.speedbutton4.Enabled:=True;
LBZY.speedbutton4.Visible:=True;
LBZY.ShowModal;
end;

end.