u_employ_select.pas

超信人力资源管理系统,一个用Delphi编写的人事管理系统

unit U_employ_select;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, DBGridEh;

type
  TF_employ_select = class(TForm)
    DBGridEh1: TDBGridEh;
    Q_main: TADOQuery;
    DataSource1: TDataSource;
    Q_mainEMp_id: TStringField;
    Q_mainEmp_name: TStringField;
    Q_mainEmp_bmcode: TStringField;
    Q_mainEmp_bmname: TStringField;
    Q_mainEMP_iccard: TStringField;
    procedure DBGridEh1DblClick(Sender: TObject);
    procedure DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
  private
    { Private declarations }
  public
    SEmp_id, SEmp_name, SEmp_iccard, SEmp_bmcode: string;
    { Public declarations }
  end;

var
  F_employ_select: TF_employ_select;

implementation

uses U_data;

{$R *.dfm}

procedure TF_employ_select.DBGridEh1DblClick(Sender: TObject);
begin
  if Q_main.RecordCount = 0 then exit;
  Semp_id := Q_main.fieldbyname('Emp_id').AsString;
  SEmp_name := Q_main.fieldbyname('Emp_name').AsString;
  SEmp_Iccard := Q_main.fieldbyname('Emp_Iccard').AsString;
  SEmp_Bmcode := Q_main.fieldbyname('Emp_Bmcode').AsString;
  F_employ_select.ModalResult := mrok;
end;

procedure TF_employ_select.DBGridEh1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumnEh;
  State: TGridDrawState);
begin
 MYDBGridEHDrawColumnCelL(DBGRIDEH1, Rect, Datacol, Column, State);
end;

end.