unit30.pas

来自「人力资源管理系统的源代码和毕业论文 人力资源管理系统是一个典型的信息管理系」· PAS 代码 · 共 79 行

unit Unit30;

interface

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

type
  TForm30 = class(TForm)
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label6: TLabel;
    Label17: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    DBGrid1: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    Button3: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
       procedure VisibleChanging; override;//
  public
    { Public declarations }
  end;

var
  Form30: TForm30;

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

procedure TForm30.FormClose(Sender: TObject; var Action: TCloseAction);
begin
visible:=false;
end;



procedure TForm30.Button2Click(Sender: TObject);
begin
if not  adotable1.Eof then
begin
adotable1.Delete;
adotable1.Refresh;
edit1.Text:='';
edit2.Text:='';
end;
end;

procedure TForm30.Button1Click(Sender: TObject);
begin
visible:=false;
end;

procedure TForm30.Button3Click(Sender: TObject);
begin
          if not adotable1.Locate('name',edit1.Text,[]) then
          begin
          adotable1.Edit;
          adotable1.Append;
          adotable1.FieldByName('name').AsString:=edit1.Text;
          adotable1.FieldByName('pass').AsString:=edit2.Text;
          adotable1.Post;
          end
end;

end.