u_research.~pas

小型劳资管理系统,用visual basic+access编写

{*******************************************************}
{                                                       }
{                    人事考勤管理系统                   }
{                                                       }
{            版权所有 (C) 2002  美利达工艺有限公司      }
{                                                       }
{*******************************************************}

unit U_research;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls, Grids, DBGrids, DB, DBTables,
  ComCtrls, Mask;

type
  TF_research = class(TForm)
    DBGrid1: TDBGrid;
    Image1: TImage;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    SpeedButton1: TSpeedButton;
    Label2: TLabel;
    Edit2: TEdit;
    SpeedButton2: TSpeedButton;
    Label3: TLabel;
    Edit3: TEdit;
    SpeedButton3: TSpeedButton;
    Label4: TLabel;
    SpeedButton4: TSpeedButton;
    GroupBox2: TGroupBox;
    Label5: TLabel;
    Button1: TButton;
    Query1: TQuery;
    DataSource1: TDataSource;
    StatusBar1: TStatusBar;
    SpeedButton5: TSpeedButton;
    Label6: TLabel;
    ComboBox1: TComboBox;
    Label8: TLabel;
    ComboBox2: TComboBox;
    Label10: TLabel;
    ComboBox3: TComboBox;
    Label12: TLabel;
    ComboBox4: TComboBox;
    Edit4: TEdit;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Query1AfterOpen(DataSet: TDataSet);
    procedure SpeedButton5Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_research: TF_research;

implementation
 uses QR_employees;
{$R *.dfm}

procedure TF_research.SpeedButton1Click(Sender: TObject);
begin
with query1 do
  begin
  close;
  sql.Clear ;
  sql.Add('select * from v_rszl where work_num='+''''+edit1.Text+'''');
  open;
  end;

end;

procedure TF_research.SpeedButton2Click(Sender: TObject);
begin
with query1 do
  begin
  close;
  sql.Clear;
  sql.add('select * from v_rszl where cardnum='+''''+edit2.text+'''');
  open;
  end;

end;

procedure TF_research.SpeedButton3Click(Sender: TObject);
begin
with query1 do
  begin
  close;
  sql.Clear;
  sql.add('select * from v_rszl where name='+''''+edit3.Text+'''');
  open;
  end;

end;

procedure TF_research.SpeedButton4Click(Sender: TObject);
begin
with query1 do
  begin
  close;
  sql.Clear ;
  sql.add('select * from v_rszl where ic_id='+''''+edit4.Text+'''');
  open;
  end;
  
end;

procedure TF_research.FormCreate(Sender: TObject);
begin
query1.Active:=true;
edit1.Clear;
edit2.Clear ;
edit3.Clear;
edit4.Clear ;
end;

procedure TF_research.Query1AfterOpen(DataSet: TDataSet);
begin
 StatusBar1.Panels[1].Text:=inttostr(Query1.RecordCount);
end;

procedure TF_research.SpeedButton5Click(Sender: TObject);
begin
  if FQR_employees=nil then
    FQR_employees:=TFQR_employees.Create(self);
    FQR_employees.Query1.Active :=true;
    FqR_employees.Query1.Close;
    FqR_employees.Query1.sql.Clear ;
    FqR_employees.Query1.sql.add('select * from v_rszl order by ejbm_name,in_date');
    FqR_employees.Query1.open;
    FQR_employees.Preview;
end;

procedure TF_research.Button1Click(Sender: TObject);
begin
with query1 do
     begin
      close;
      sql.Clear;
      sql.Add('select * from v_rszl where sex='+''''+combobox1.text+'''');
      sql.Add(' and marry='+''''+combobox2.Text+'''');
      sql.Add('and home_ori='+''''+combobox3.text+'''');
      sql.add('and degree='+''''+combobox4.Text+'''');
      sql.Add(' order by in_date');
      open;
      end;
end;

procedure TF_research.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
speedbutton1.Click ;
end;

procedure TF_research.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
speedbutton2.Click ;
end;

procedure TF_research.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
speedbutton3.click;
end;

procedure TF_research.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
speedbutton4.click;
end;

end.