khcx.pas

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

unit khcx;

interface

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

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;
    edt6: TEdit;
    Label1: TLabel;
    dxDateEdit1: TdxDateEdit;
    dxDateEdit2: TdxDateEdit;
    ComboBox1: TComboBox;
    QDept: TADOQuery;
    ComboBox2: TComboBox;
    procedure btn3Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  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:='';
ComboBox1.Text:='';
edt8.Text:='';
ComboBox2.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  ComboBox1.Text<>'' then
 begin
   sqlstr:=sqlstr+'and Liable_dept='''+trim(ComboBox1.Text)+'''';///////////////////
 end;

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

frmAppealInfo.QBaseInfo.DisableControls;
frmAppealInfo.QBaseInfo.Close;
frmAppealInfo.QBaseInfo.SQL.Clear;
frmAppealInfo.QBaseInfo.SQL.Add(sqlstr);
frmAppealInfo.QBaseInfo.Open;
frmAppealInfo.QBaseInfo.EnableControls;
close;
end;

procedure Tfrmkhcx.FormCreate(Sender: TObject);
begin
//-------------------责任部门
  self.QDept.Close;
  self.QDept.SQL.Clear;
  self.QDept.SQL.Add(' select distinct WorkingProcedureName from dbo.CcWorkingProcedure ');
  self.QDept.open;
  ComboBox1.Items.Clear;
  with self.QDept do
  begin
    First;
    while not eof do
    begin
      ComboBox1.Items.Add(trim(QDept.FieldByName('WorkingProcedureName').AsString));
      next;
    end
  end;

  //-------------------产品线
  self.QDept.Close;
  self.QDept.SQL.Clear;
  self.QDept.SQL.Add(' select distinct product_line from dbo.Ccproductline ');
  self.QDept.open;
  ComboBox2.Items.Clear;
  with self.QDept do
  begin
    First;
    while not eof do
    begin
      ComboBox2.Items.Add(trim(QDept.FieldByName('product_line').AsString));
      next;
    end
  end;
  self.QDept.Close;
end;

procedure Tfrmkhcx.FormDestroy(Sender: TObject);
begin
frmkhcx:=nil;
end;

procedure Tfrmkhcx.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := cafree;
end;

end.