lookupslipfile.pas

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

unit LookupSlipFile;

interface

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

type
  TfrmLookupSlipFile = class(TfrmLookupBase)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    ComboBox1: TComboBox;
    Qdept: TADOQuery;
    DsDept: TDataSource;
    dxDateEdit1: TdxDateEdit;
    dxDateEdit2: TdxDateEdit;
    Label14: TLabel;
    Label15: TLabel;
    ComboBox2: TComboBox;
    DSProduct_line: TDataSource;
    QProduct_line: TADOQuery;
    procedure FormDestroy(Sender: TObject);
    procedure bitbtnClearClick(Sender: TObject);
    procedure bitbtnOkClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmLookupSlipFile: TfrmLookupSlipFile;

implementation

{$R *.dfm}

uses Global,DataModule;

procedure TfrmLookupSlipFile.FormDestroy(Sender: TObject);
begin
  inherited;
  frmLookupSlipFile:=nil;
end;

procedure TfrmLookupSlipFile.bitbtnClearClick(Sender: TObject);
begin
  inherited;
  Edit1.Text:='';
  Edit2.Text:='';
  ComboBox2.Text:='';
  ComboBox1.Text:='';
  Edit4.Text:='';
  Edit5.Text:='';
  Edit6.Text:='';
end;

procedure TfrmLookupSlipFile.bitbtnOkClick(Sender: TObject);
begin
  inherited;
  sFilter:='';
  if pos('%',Edit1.Text)>0 then
    sFilter:=sFilter + ' and hth like '''+trim(Edit1.Text)+''''
  else
  begin
    if Edit1.Text<>'' then
      SFilter:=SFilter + ' and hth='''+trim(Edit1.Text)+'''';
  end;

  if pos('%',Edit2.Text)>0 then
    sFilter:=sFilter + ' and buyer like '''+trim(Edit2.Text)+''''
  else
  begin
    if Edit2.Text<>'' then
      SFilter:=SFilter + ' and buyer='''+trim(Edit2.Text)+'''';
  end;

  if pos('%',Edit4.Text)>0 then
    sFilter:=sFilter + ' and xh like '''+trim(Edit4.Text)+''''
  else
  begin
    if Edit4.Text<>'' then
      SFilter:=SFilter + ' and xh='''+trim(Edit4.Text)+'''';
  end;

  if pos('%',Edit5.Text)>0 then
    sFilter:=sFilter + ' and sizes like '''+trim(Edit5.Text)+''''
  else
  begin
    if Edit5.Text<>'' then
      sFilter:=sFilter + ' and sizes='''+trim(Edit5.Text)+'''';
  end;

  if  (Pos('%',Edit6.Text)>0) then
    sFilter:=sFilter + ' and plate like '''+Edit6.Text+''''
  else
  begin
    if (Edit6.Text<>'') then
      sFilter:=sFilter + ' and plate='''+Edit6.Text+'''';
  end;

  if ComboBox1.Text<>'' then
    sFilter:=sFilter + ' and Liable_dept='''+trim(ComboBox1.Text)+'''';

  if ComboBox2.Text<>'' then
    sFilter:=sFilter + ' and product_line='''+trim(ComboBox2.Text)+'''';

  if (dxDateEdit1.Text<>'') and (dxDateEdit2.Text<>'') then
    sFilter:=sFilter + ' and dates>='''+ dxDateEdit1.Text+''' and dates<'''+ dxDateEdit2.Text+'''' ;

  ModalResult:=mrOk;
end;

procedure TfrmLookupSlipFile.FormCreate(Sender: TObject);
begin
  inherited;

   // ---------------- 时间
// DBDateTimeEditEh1.Value:=Now;
// DBDateTimeEditEh2.Value:=Now;

//-------------------责任部门
  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.Qproduct_line.Close;
  self.Qproduct_line.SQL.Clear;
  self.Qproduct_line.SQL.Add(' select distinct product_line from dbo.Ccproductline ');
  self.Qproduct_line.open;
  ComboBox2.Items.Clear;
  with self.Qproduct_line do
  begin
    First;
    while not eof do
    begin
      ComboBox2.Items.Add(trim(Qproduct_line.FieldByName('product_line').AsString));
      next;
    end
  end;

end;

end.