uselectemployee.pas

来自「说明: 比较简单的人事档案管理程序,包含了人事档案的大部分功能,做人事档案的兄」· PAS 代码 · 共 71 行

unit USelectEmployee;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, Grids, DBGrids, DB, ADODB, StdCtrls;

type
  TForm_SelectEmployee = class(TForm)
    DBGrid1: TDBGrid;
    SpeedButton1: TSpeedButton;
    ADOQSelectEmployee: TADOQuery;
    DS4: TDataSource;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    procedure SpeedButton1Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_SelectEmployee: TForm_SelectEmployee;

implementation
uses Umain, UFamily;
{$R *.dfm}

procedure TForm_SelectEmployee.SpeedButton1Click(Sender: TObject);
begin
  if ADOQSelectEmployee.eof then
  begin
    showmessage('请选择一条员工记录');
    exit;
  end
  else
  begin
    Edit1.Text := ADOQSelectEmployee.FieldValues['Employee_id'];
    edit2.Text := ADOQSelectEmployee.FieldValues['employee_Name'];
    edit3.Text := ADOQSelectEmployee.FieldValues['employee_FirstDept'];
    edit4.Text := ADOQSelectEmployee.FieldValues['employee_SecondDept'];
    close;
  end;
end;

procedure TForm_SelectEmployee.DBGrid1DblClick(Sender: TObject);
begin
  SpeedButton1Click(Sender);
end;

procedure TForm_SelectEmployee.FormShow(Sender: TObject);
begin
  with ADOQSelectEmployee do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * From Employee');
//  SQL.Add('WHERE Employee_type like''%'+'离'+'%''');
//  SQL.Add('or Employee_type like''%'+'辞'+'%''');
    open;
  end;
end;
end.