khcx.pas

产品信息系统!关于产品基础信息的系统!功能强大!

unit khcx;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, Buttons, DB, ADODB,ClientAppeal, dxCntner,
  dxEditor, dxExEdtr, dxEdLib;

type
  Tfrmkhcx = class(TForm)
    lbl16: TLabel;
    lbl1: TLabel;
    lbl2: TLabel;
    lbl3: TLabel;
    lbl4: TLabel;
    lbl5: TLabel;
    lbl10: TLabel;
    lbl13: TLabel;
    lbl14: TLabel;
    lbl6: TLabel;
    btn1: TBitBtn;
    btn2: TBitBtn;
    btn3: TBitBtn;
    edt1: TEdit;
    edt2: TEdit;
    edt3: TEdit;
    edt4: TEdit;
    edt5: TEdit;
    edt8: TEdit;
    edt7: TEdit;
    edt6: TEdit;
    Label1: TLabel;
    edt9: TEdit;
    dxDateEdit1: TdxDateEdit;
    dxDateEdit2: TdxDateEdit;
    procedure btn3Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmkhcx: Tfrmkhcx;

implementation



{$R *.dfm}

procedure Tfrmkhcx.btn3Click(Sender: TObject);
begin
Close;
end;

procedure Tfrmkhcx.btn1Click(Sender: TObject);
begin
edt1.Text:='';
edt1.SetFocus;
edt2.Text:='';
edt3.Text:='';
edt4.Text:='';
edt5.Text:='';
edt6.Text:='';
edt7.Text:='';
edt8.Text:='';
edt9.Text:='';
end;

procedure Tfrmkhcx.btn2Click(Sender: TObject);
var sqlstr:string;
begin
sqlstr:='select *  from CcClientAppeal where 1=1 ';

if (dxDateEdit1.Text<>'') and (dxDateEdit2.Text<>'') then
//if (datetostr(dtp1.Date)<>'') and (datetostr(dtp2.Date)<>'') then
 begin
 // sqlstr:=sqlstr+' and Appeal_Date<'''+datetostr(dtp2.Date)+''' and Appeal_Date>='''+datetostr(dtp1.Date)+'''';
    sqlstr:=sqlstr+' and Appeal_Date<'''+ dxDateEdit2.Text+''' and Appeal_Date>='''+ dxDateEdit1.Text+'''';
 end;
if  edt1.Text<>'' then
 begin
   sqlstr:=sqlstr+'and ournal_No='''+trim(edt1.Text)+'''';
 end;
if  edt2.Text<>'' then
 begin
   sqlstr:=sqlstr+'and buyer='''+trim(edt2.Text)+'''';
 end;
if  edt3.Text<>'' then
 begin
   sqlstr:=sqlstr+'and hth='''+trim(edt3.Text)+'''';
 end;
if  edt4.Text<>'' then
 begin
   sqlstr:=sqlstr+'and xh='''+trim(edt4.Text)+'''';
 end;

if  edt5.Text<>'' then
 begin
   sqlstr:=sqlstr+'and sizes='''+trim(edt5.Text)+'''';
 end;

if  edt6.Text<>'' then
 begin
   sqlstr:=sqlstr+'and type='''+trim(edt6.Text)+'''';
 end;

if  edt7.Text<>'' then
 begin
   sqlstr:=sqlstr+'and Liable_dept='''+trim(edt7.Text)+'''';
 end;

if  edt8.Text<>'' then
 begin
   sqlstr:=sqlstr+'and Liabler='''+trim(edt8.Text)+'''';
 end;
if  edt9.Text<>'' then
 begin
   sqlstr:=sqlstr+'and product_line='''+trim(edt9.Text)+'''';
 end;

frmClientAppeal.QBaseInfo.Close;
frmClientAppeal.QBaseInfo.SQL.Clear;
frmClientAppeal.QBaseInfo.SQL.Add(sqlstr);
frmClientAppeal.QBaseInfo.Open;
close;
end;

end.