loginut.~pas

密码：yfq 物流管理插件 物流管理系统－插件

unit loginut;

interface

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

type
  Tloginfm = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    yhm: TComboBox;
    mm: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  loginfm: Tloginfm;

implementation

{$R *.dfm}

procedure Tloginfm.BitBtn1Click(Sender: TObject);
begin
if yhm.Text='' then
begin
showmessage('请选择用户名');
exit;
end;
if (yhm.Text='姚富清') and (mm.Text='yfq') then
 loginfm.Close
 else
begin
showmessage('密码错误');
exit;
end;
end;

procedure Tloginfm.BitBtn2Click(Sender: TObject);
begin
application.Terminate;
end;

end.