unit31.pas

来自「基于delphi的人才管理系统。可实现所有基本功能。」· PAS 代码 · 共 82 行

unit Unit31;

interface

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

type
  TForm31 = class(TForm)
    ADOTable1: TADOTable;
    Label2: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button3: TButton;
    Button1: TButton;
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    ashow:boolean;
  end;

var
  Form31: TForm31;


implementation

uses
  Unit1 ;



{$R *.dfm}

procedure TForm31.Button3Click(Sender: TObject);
begin
if adotable1.Locate('name',edit1.Text,[]) then
begin
  if    trim(adotable1.FieldByName('pass').AsString)=edit2.Text then
  begin
  showmessage('欢迎使用');
  form1.visible:=true;
  form31.free;
  end
  else
  showmessage('用户名或密码错误');
end
 else
  showmessage('用户名或密码错误');

end;

procedure TForm31.Button1Click(Sender: TObject);
begin
  application.Terminate;
end;

procedure TForm31.FormPaint(Sender: TObject);
begin
if not ashow then
begin
form1.Hide;
ashow:=true;
end;


end;

procedure TForm31.FormCreate(Sender: TObject);
begin
ashow:=false;
end;

end.