unit15.~pas

来自「该源码采用DELPHI语言,主要实现了对员工信息管理的功能.」· ~PAS 代码 · 共 75 行

unit Unit15;

interface

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

type
  TForm15 = class(TForm)
    Button1: TButton;
    DBGrid1: TDBGrid;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    procedure DBGrid1CellClick(Column: TColumn);
    procedure Button1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    //procedure FormClose(Sender: TObject; var Action: TCloseAction);
    //procedure DBGrid1CellClick(Column: TColumn);
  private
    { Private declarations }
    procedure VisibleChanging; override;
  public
    { Public declarations }
    procedure setEdit(var e,f:TEdit);
  end;

var
  Form15: TForm15;
  tName:TEdit;
  tNub:TEdit;

implementation
 procedure TForm15.VisibleChanging;
begin
end;
{$R *.dfm}


procedure TForm15.DBGrid1CellClick(Column: TColumn);
begin
begin
if not adoquery1.Eof then
begin
tName.Text:=adoquery1.FieldByName('姓名').AsString;
tNub.Text:=adoquery1.FieldByName('员工号').AsString;
end;
end;

end;
procedure TForm15.Button1Click(Sender: TObject);
begin
close;

end;


procedure TForm15.setEdit(var e,f:TEdit);
begin
  tName:=f;
  tNub:=e;
end;

procedure TForm15.FormActivate(Sender: TObject);
begin
adoquery1.Active:=false;
adoquery1.Close;
adoquery1.open;
adoquery1.Active:=true;
end;


end.