lookupgeneralccinput.pas

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

unit LookupGeneralCcinput;

interface

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

type
  TfrmLookupGeneralCcinput = class(TfrmLookupBase)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    dxDateEdit1: TdxDateEdit;
    Time_input: TdxDateEdit;
    Label7: TLabel;
    Label5: TLabel;
    EditModel_No: TEdit;
    EditPlate: TEdit;
    Label4: TLabel;
    Label3: TLabel;
    EditSizes: TEdit;
    Editxh: TEdit;
    Label2: TLabel;
    Label1: TLabel;
    EditNumber: TEdit;
    Edit1: TEdit;
    Label6: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Label8: TLabel;
    Label9: TLabel;
    EditEmpolder_No: TEdit;
    Label10: TLabel;
    procedure bitbtnClearClick(Sender: TObject);
    procedure bitbtnOkClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmLookupGeneralCcinput: TfrmLookupGeneralCcinput;
implementation

{$R *.dfm}

procedure TfrmLookupGeneralCcinput.bitbtnClearClick(Sender: TObject);
begin
  inherited;
  if PageControl1.Pages[0].Showing then
  begin
    EditNumber.Text:='';
    Edit1.Text:='';
    Editxh.Text:='';
    EditSizes.Text:='';
    EditPlate.Text:='';
    EditModel_No.Text:='';
    EditEmpolder_No.Text:='';
    Time_input.Text:='';
    dxDateEdit1.Text:='';
  end
  else
  begin
    Edit1.Text:='';
    Edit3.Text:='';
    Edit4.Text:='';
  end;  
end;

procedure TfrmLookupGeneralCcinput.bitbtnOkClick(Sender: TObject);
begin
  inherited;
  sFilter:='';
  if PageControl1.Pages[0].Showing then
  begin
    if (EditNumber.Text<>'') and (Edit1.Text<>'') then
      sFilter:=sFilter + ' and number>='''+trim(EditNumber.Text)+''' and number<'''+trim(Edit1.Text)+''' ';

    if (EditNumber.Text<>'') and (Edit1.Text='') then
      sFilter:=sFilter + ' and number='''+trim(EditNumber.Text)+''' ';

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

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

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

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

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

    if Time_input.Text<>'' then
      sFilter:=sFilter + ' and Time_input>='''+Time_input.Text+''' and Time_input<'''+dxdateedit1.Text+'''';
  end
  else
  begin
      sFilter:='组合查询';
  end;
  ModalResult:=mrOk;
end;

procedure TfrmLookupGeneralCcinput.FormDestroy(Sender: TObject);
begin
  inherited;
  frmLookupGeneralCcinput:=nil;
end;

procedure TfrmLookupGeneralCcinput.FormCreate(Sender: TObject);
begin
  inherited;
  EditNumber.Text:='';
  Edit1.Text:='';
  Editxh.Text:='';
  EditSizes.Text:='';
  EditPlate.Text:='';
  EditModel_No.Text:='';
  EditEmpolder_No.Text:='';
  Time_input.Text:='';
  dxDateEdit1.Text:='';
  Edit1.Text:='';
  Edit3.Text:='';
  Edit4.Text:='';
end;

end.