search.pas

pasa人力资源考勤管理系统

unit search;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, ADODB, StdCtrls, ExtCtrls, Grids, DBGrids, Buttons,Clipbrd, ComCtrls,
  Menus;

type
  Tformpubsearch = class(TForm)
    Panel1: TPanel;
    Edit1: TEdit;
    Label1: TLabel;
    ADODataSet1: TADODataSet;
    DataSource1: TDataSource;
    ADODataSet1cardno: TStringField;
    ADODataSet1name: TStringField;
    ADODataSet1workno: TStringField;
    ADODataSet1dept: TStringField;
    Panel2: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Label2: TLabel;
    ADODataSet1deptno: TStringField;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    ADODataSet2: TADODataSet;
    StringField1: TStringField;
    StringField2: TStringField;
    StringField3: TStringField;
    StringField4: TStringField;
    StringField5: TStringField;
    DataSource2: TDataSource;
    ADODataSet2peopleID: TStringField;
    ADODataSet1peopleid: TStringField;
    Timer1: TTimer;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  formpubsearch: Tformpubsearch;
implementation

uses main,datamol,publicfunction;
{$R *.DFM}

procedure Tformpubsearch.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
   if (key=#13) and (trim(edit1.text)<>'') then
   begin
     case pagecontrol1.activepageindex of
       0:begin
           adodataset1.close;
           adodataset1.commandtext:='Select workno,cardno,name,deptno,dept,peopleid from per24010 where (workno like '''+edit1.text+'%'+''' or cardno like '''+edit1.text+'%'+''' '+
                               ' or name like '''+edit1.text+'%'+''' or dept like '''+edit1.text+'%'+''' or peopleid like '''+edit1.text+'%'+''') and leave=0 ';
           adodataset1.open;
           label2.Caption:='当前附合条件资料数:'+inttostr(adodataset1.recordcount);
           label2.update;
         end;
       1:begin
           adodataset2.close;
           adodataset2.commandtext:='Select workno,cardno,name,deptno,dept,peopleid from per16010 where (workno like '''+edit1.text+'%'+''' or cardno like '''+edit1.text+'%'+''' '+
                               ' or name like '''+edit1.text+'%'+''' or dept like '''+edit1.text+'%'+''' or peopleid like '''+edit1.text+'%'+''')';
           adodataset2.open;
           label2.Caption:='当前附合条件资料数:'+inttostr(adodataset2.recordcount);
           label2.update;
         end;
       end;
   end;
end;

procedure Tformpubsearch.FormCreate(Sender: TObject);
begin
   left:=Screen.width-width-10;
   top:=80;
   adodataset1.open;
   adodataset2.open;
   pagecontrol1.activepageindex:=0;
end;

procedure Tformpubsearch.SpeedButton2Click(Sender: TObject);
begin
   formpubsearch.Hide;
end;

procedure Tformpubsearch.SpeedButton1Click(Sender: TObject);
begin
   sresult.astext:=adodataset1.fields[dbgrid1.selectedindex].asstring;
end;

procedure Tformpubsearch.FormActivate(Sender: TObject);
begin
   edit1.setfocus;
end;

procedure Tformpubsearch.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
   formpubsearch:=nil;
end;

procedure Tformpubsearch.Timer1Timer(Sender: TObject);
begin
   case pagecontrol1.activepageindex of
      0:begin
           label2.Caption:='当前附合条件资料数:'+inttostr(adodataset1.recordcount);
           label2.update;
        end;
      1:begin
           label2.Caption:='当前附合条件资料数:'+inttostr(adodataset2.recordcount);
           label2.update;
        end;
   end;
end;

end.