u_departselect.pas

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

unit U_Departselect;

interface

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

type
  TF_DepartSelect = class(TF_Form_base)
    DBGridEh1: TDBGridEh;
    Panel1: TPanel;
    BitSelect: TBitBtn;
    Bitexit: TBitBtn;
    Q_mainDep_id: TStringField;
    Q_mainDep_name: TStringField;
    Q_mainDep_manager: TStringField;
    Q_mainDep_tel: TStringField;
    procedure BitSelectClick(Sender: TObject);
    procedure DBGridEh1DblClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitexitClick(Sender: TObject);
  private
    { Private declarations }
  public
    SDep_id, SDep_name: string;
    { Public declarations }
  end;

var
  F_DepartSelect: TF_DepartSelect;

implementation

{$R *.dfm}

procedure TF_DepartSelect.BitSelectClick(Sender: TObject);
begin
  inherited;
  if Q_main.RecordCount = 0 then exit;
  SDep_id := Q_main.fieldbyname('Dep_id').AsString;
  SDep_name := Q_main.fieldbyname('Dep_name').AsString;
  F_DepartSelect.ModalResult := Mrok;
end;

procedure TF_DepartSelect.DBGridEh1DblClick(Sender: TObject);
begin
  inherited;
  BitSelect.Click;
end;

procedure TF_DepartSelect.FormShow(Sender: TObject);
begin
  inherited;
  Q_main.Open;
end;

procedure TF_DepartSelect.BitexitClick(Sender: TObject);
begin
  inherited;
close;
end;

initialization
  RegisterClass(TF_DepartSelect);
end.