Delphi 7 Menu Login dengan Database Desktop

Sudah lama rasanya saya tidak membuat postingan mengenai ini lagi, maka disini saya coba kembali lagi.

Kali ini saya akan menulis tentang bagaimana menbuat menu login dengan Borland Delphi 7. Semoga masih ada yang bisa memanfaatkannya.

sebelum memulai mari kita buat dulu databasenya. Disini saya menggunakan Database Desktop - Paradox 7. Pertama-tama, buka program Delphi 7, lalu pilih menu Tool -> Database Desktop.

Setelah tampilan Database Desktop berhasil dibuka pilih File -> New -> Table. disana akan muncul Table type pilihlah Paradox 7 lalu OK.

Lihat gambar agar lebih jelas.

Buat Database seperti gambar dibawah ini, untuk Type ketikkan saja A untuk type data berupa teks, lalu untuk memberi tanda * (bintang) untuk lambang primary key, gunakan spasi -> Save As, untuk menyimpan data.

Setelah data disimpan kita perlu membuat alias. Agar kita tidak perlu menulis alamat/tempat penyimpanan database terlalu panjang saat membuat listing programnya.

Caranya, ,asih di Database Desktop. Pilih Tools -> Alias Manager -> Pilih New -> Isikan database name dan pilih Browse untuk mengganti Path atau tempat kita menyimpan Database kita. Setelah itu OK

Lihat gambar agar lebih jelas.

Kalau ada tulisan seperti ini pilih saja yes, tanda Alias berhasil dibuat. kalau tidak bisa cek lagi, mungkin nama alias kita sudah ada atau sudah dipakai sebelumnya sehingga tidak bisa lagi digunakan.

Setelah dibuat isikan datanya seperti gambar di bawah.

Setelah itu desain tampilan form login dengan menambahkan Table dari tab BDE

Untuk Table , ganti

Name : tblogin
DatabaseName : login (nama alias)
TableName : tlogin (nama tabel sewaktu membuat database)

Active : true


pada tombol OK isikan listing seperti berikut

procedure TFlogin.Button1Click(Sender: TObject);
begin
  tblogin.First;

  while not tblogin.Eof do
    if(Edit1.Text=tblogin['User']) and (Edit2.Text=tblogin['Password']) then
    begin
      nmutama.show;
      exit;
    end

    else
    begin
      tblogin.Next;
      if(Edit1.Text=tblogin['User']) and (Edit2.Text=tblogin['Password']) then
      begin
        nmutama.show;
        exit;
      end

      else
      begin
         ShowMessage('data tidak ditemukan!');
         Edit1.Text:='';
         Edit2.Text:='';
         Edit1.SetFocus;
         exit;
      end;

    end;

  end;
 
end.

Lalu jalankan program. jangan lupa membuat form untuk halaman utama(FhalUtama) atau tampilan halaman setelah login berhasil.

 Sekian dulu postingan dari saya semoga bermanfaat.

Posted in: Delphi 7, Seputar Pemprograman