coding Aplikasih login tanpa data base delphi7 lengkap dengan vidio

unit lOGIN;

interface

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

type
  TlOGIN_tANPADATABASE = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    sSkinManager1: TsSkinManager;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  lOGIN_tANPADATABASE: TlOGIN_tANPADATABASE;

implementation

uses Math, lOGINTANPADATABASE;

{$R *.dfm}

procedure TlOGIN_tANPADATABASE.BitBtn1Click(Sender: TObject);
begin
If (Edit1.Text='admin') and (Edit2.Text='kamuganteng') then
begin
lOGIN_tANPADATABASE.Visible:=False;
Welcome.Visible:=True;

MessageDlg('anda berhasil login',mtInformation,[mbOK],0);

end;
end;

procedure TlOGIN_tANPADATABASE.BitBtn2Click(Sender: TObject);
begin
Edit1.Clear;
Edit2.Clear;
end;

end.

vidio aplikasi Login Tanpa database Delphi7: