Pembuatan form Login

FORM LOG IN SISTEM INFORMASI SARANA PRASARANA

 

Oleh:

JOKO TURWANTO

NIM : 2011.15.458.0016

JURUSAN TEKNIK INFORMATIKA

FAKULTAS TEKNIK

UNIVERSITAS WAHIDIYAH 

hy guy jumpa lagi bersama saya kali ini untuk pembahasan kita kali ini yaitu tentang bagai mana cara membuat form log in, yang mmana form log in ini bertujuan untuk keamanan program agar tidak sembarang orang yang bisa memakainya, baik langsung saja ya guys langakh awal untuk membuat form log in, kita harus mendesain interfacenya dulu menggunakan delphi. seperti biasa langkah awal kita buka delphi kemudian buka form baru dengan cara
caranya kita pilih file+New+kemudian pilih form-Delphi seperti gambar di bawah 















ini masih lanjutanya yang for awalya guys karna pembahasan kita masih lanjut hingga nanti benar benar jadi Sofware sistem informasi sarana prasarana
nah setelah kita sudah membuat form selanjutnya kita masukan kimponen yang kita gunakan dalam pembuatan program tersebut 
Rancangan Form Login 
Form login ini akan tampil sebelum menujunke tampilan utama dan setelah form Awal. Form ini berfungsi untuk mengatur operator, yang berhak mengakses program ini. dalam pembuatan form ini di butuhkan beberapa komponen yang terdapat pada Tool Palette adapun beberapa komponen yang kita gunakan pada tool Palette ini adalah sebagai berikut : 

Nama komponen	Caption	Nama
TImage1	-	Image1
Tlabel1	Nama	Label1
Tlabel2	Pasword	Label2
TEdit1		Edit1
TEdit2		Edit2
TADOConnection1	-	ADOConnection1
TADOQuery	-	TADOQuery1

untuk picture kita beri gambar yang kita inginkan langkahnya sama seperti perbuatan form awal. Adapun rancangan dari form login seperti gambar di bawah ini :   
setelah perancangan interfacenya selesai selanjutnya kita buat data basenya di microsift Access agar pasword bisa di tambah, ganti dan di hapus tentunya agar menjadi praktis nantinya langsung saja kita buatProses Pembuatan buat data base dengan ms access dengan nama "DataSaranaPrasarana".
buka ms Access dengan klik star pada komputer kemudian klik microsoft Acces  2010 seperti gambar berikut


 

Klik blank database, ubah format penyimpanan menjadi format .mdb masukan nama table kemudian klik ok seperti gambar berikut,

 


Klik kanan pada tabel kemudian klik design view maka akan muncul Save As dan beri nama "Login" seperti gambar berikut

 

Kemudian buat data loginya seperti gambar di bawah selesai deh  pembuatan data base loginya,


 

kemudian kita konneckan interfacenya dengan delphi adapun cara menonekanya sebagai berikut

Klik pada properti Connection String pada object inspector hingga uncul kotak dialog sebagai berikut :

Klik tombol build, maka akan muncul kotak dialog data link properties, pilih microsoft jet 4.0 OLE DB Provider, lalu ketik nex kemudian klik pada tombol di sebelah kanan,seperti gambar berikut :

Kemudian pilih database microsoft access yang akan kita koneksikan yang telah kita buat sebelumnya kemudian klik open seperti gambar berikut :

Selanjutnya klik test connection, jika telah terjadi koneksi antara program yang kita buat dengan database microsoft Access yang telah di buat maka akan muncul kotak dialog sebagai berikut :

Setelah data terkoneksi ok selesai sudah proses koneksi data base Microsoft access dan delphi

kemudian tinggal kita masukan kode pada tombol Batal caranya kita klik 2x pada tombol batal dan masukan kode sebagai berikut

Edit1.Text:= ' ' ;
Edit2.Text:= ' ' ; 

dan klik 2x juga pada tombol masuk kemudian masukan kode sebagai berikut

procedure TForm2.Button1Click(Sender: TObject);
begin
 with ADOQuery1 do begin
    Close;
    SQL.Clear; 

    SQL.Add('select * from login where username='+
    QuotedStr(edit1.Text));
    Open;
  end;
  if ADOQuery1.RecordCount = 0 then
      Application.MessageBox('Maap, username tersebut tidak ada', 'Informasi',
      MB_OK or MB_ICONINFORMATION)
  else begin
    if ADOQuery1.FieldByName('pasword').AsString <> edit2.Text
      then Application.MessageBox('Pastikan username atau pasword benar', 'Error',
      MB_OK or MB_ICONERROR)
  else begin
    Hide;
    Form3.Show;
    end
  end;
Form2.Hide;
end;

selesai deh pengkodingan kita kali ini di form login (agar bisa berjalan maka kita juga harus menyediakan form2 karena para koding perintah selanjutnya ketika nama dan pasword benar maka akan langsung menuju ke form selanjutnya.

oy guys kalu bisa data base yang di butuhkan seperti data sarana prasarana, data barang masuk, barang keluar DLL langsung di buat di sini langkahnya sama seperti pembuatan form login tadi jadi nanti pada pembahasan berikutnya tinggal membuat perancangan interfacenya saja menggunakan delphi.
terimakasih semoga bermanfaatya silakan untuk sharing tinggalkan pesan atau
di WA : 085363732389
 
dprwscout717@gmail.com