unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Buttons, DB, DBTables;
type
  TFLogin = class(TForm)
    TPass: TTable;
    dsPass: TDataSource;
    Label1: TLabel;
    Label2: TLabel;
    edUser: TEdit;
    edPass: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Bevel1: TBevel;
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  FLogin: TFLogin;
implementation
{$R .dfm}
procedure TFLogin.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
  sUser, sPass : String;
  isAda : Boolean;
begin
  // form tidak diijinkan untuk bisa menutup
  CanClose := False;
  isAda := False;
  // jika user menekan tombol cancel, langsung tutup program
  if ModalResult = mrCancel then
    Application.Terminate;
  try
  // load data user dan password dari tabel dan simpan
  // pada variabel lokal
    with TPass do begin
      Open;
      if Locate('User',edUser.Text,[loCaseInsensitive]) then begin
        isAda := True;
        sUser := FieldByName('User').AsString;
        sPass := FieldByName('Pass').AsString;
      end;
      Close;
    end;
    // check, jika data ada pada tabel, check kembali user apakah sama,
    // jika sama check kembali passwordnya, jika sama maka form bisa ditutup
    if isAda then
      if edUser.Text = sUser then
        if edPass.Text = sPass then
          CanClose := True;
    // jika form gak bisa ditutup, berarti gak punya akses
    if not(CanClose) then
      ShowMessage('Anda Tidak Berhak Mengakses');
  except
    // bila terjadi kesalahan dalam program tampilkan letak kesalahan
    on e: exception do begin
      MessageDlg(e.ClassName+#10#13+e.Message, mtError, [mbOK], 0);
      Application.Terminate;
    end;
  end;
end;
end.[/code:1:ab569f0bd3]
kode pada FUtama :
[code:1:ab569f0bd3]unit Unit2;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
type
  TFUtama = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  FUtama: TFUtama;
implementation
uses Unit1;
{$R  .dfm}
procedure TFUtama.FormCreate(Sender: TObject);
begin
  // warning..!!
  // sebelum menggunakan perintah dibawah ini, form login harus dihapus
  // dari daftar auto-create form. dengan menekan tombol CTRL+SHIFT+F11
  try
    FLogin := TFLogin.Create(FLogin);
    with FLogin do begin
      ShowModal;
    end;
  finally
    FLogin.Free;
  end;
end;
end.