unit14.pas

来自「玉龙飞雪进销存管理系统,可以帮您管理进销存的软件」· PAS 代码 · 共 64 行

unit Unit14;

interface

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

type
  TFormmima = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Table1: TTable;
    Database1: TDatabase;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formmima: TFormmima;
  count:integer;

implementation

uses Unit1;

{$R *.dfm}

procedure TFormmima.FormCreate(Sender: TObject);
begin
table1.Active:=true;
count:=0
end;

procedure TFormmima.Button1Click(Sender: TObject);
var
results:variant;
begin
count:=count+1;
results:=table1.Lookup('name',edit1.text,'password');
if results=edit2.Text then
formz.show
else
begin
showmessage('错误的用户名或密码');
if (count=3) then close;
end;
end;
procedure TFormmima.Button2Click(Sender: TObject);
begin
close;
end;

end.