tutorial login multi user dengan delphi (Sistem Informasi Perpustakaan)

Bagi Anda yang ingin belajar membuat sistem informasi, atau mahasiswa yang dapat tugas dari dosennya untuk membuat sistem informasi dengan delphi, maka saya di sini akan memberi tahu tutorialnya step by step. Di sini tutorial sistem informasi yang akan saya share adalah sistem informasi perpustakaan. Baiklah, tanpa panjang lebar lagi, lets go.....

1.      Pertama-tama buatlah database Access.

Buka Ms. Access dan simpan dengan nama Perpustakaan (sesuka hati Anda), dan ubah format Save As Typenya menjadi Microsoft Office Access (2002-2003 format).

Kemudian buat tabel dengan nama User, dan desainlah tabelnya seperti ini:

Nama tabel	Type	Field
*UserName	Text	6
Password	Text	6
Nama	Text	25
Level	Text	15
Tgl Login	datetime	-

• Tabel kedua dengan nama Karyawan

Nama tabel	Type	Field
No	Text	3
*NIK	Text	6
Nama	Text	25
Alamat	Text	50
Tempat Lahir	Text	25
Tanggal Lahir	Datetime	-
Jenis Kelamin	Text/lookup wizard	15
Agama	Text/lookup wizard	8
Pendidikan	Text/lookup wizard	10
Status Perkawinan	Text/lookup wizard	8
Jabatan	Text/lookup wizard	15
No Telp	Text	12

• Tabel ketiga dengan nama Anggota

Nama tabel	Type	Field
No	Text	3
*No_Identitas	Text	6
Nama	Text	25
Alamat	Text	50
Tempat Lahir	Text	25
Tanggal Lahir	Datetime	-
Jenis Kelamin	Text/lookup wizard	15
Agama	Text/lookup wizard	8
No Telp	Text	12

• Tabel keempat dengan nama Buku

Nama tabel	Type	Field
No	Text	3
*Kode Buku	Text	5
Judul Buku	Text	30
Kategori	Text/lookup wizard	20
Letak	Text	20
Tahun Terbit	Text	4
deskripsi	Text	50
Nama Penulis	Text	25
Nama Penerbit	Text	25

•  Tabel kelima dengan nama Transaksi

Nama tabel	Type	Field
No_Transaksi	Text	3
No_Identitas	Text	6
Kode Buku	Text	5
Nama	Text	25
Judul Buku	Text	25
Jumlah Pinjam	Text	1
Tanggal Pinjam	Datetime	-
Tanggal Harus Kembali	Datetime	-
Tanggal Kembali	Datetime	-
Denda	Text	8
Terlambat	Text	8

Catatan : simpanlah database access didalam folder tempat kita membuat project Delphi.

2.      Setelah itu buka Delphi, kemudian buka project baru dan simpan dengan nama

Perpustakaan (sesuka hati), dan unitnya simpan dengan nama Login.

3.      Desainlah form login (unit login tadi) seperti gambar dibawah ini:

•  Atur komponennya seperti table di bawah:

           

Palate	Caption	Name	Properties
Label1	SISTEM INFORMASI PERPUSTAKAAN
Label2	USERNAME
Label3	PASSWORD
Label4	Silahkan login dahulu
Edittext1		euser
Edittext2		epass	Passwordchar(*)
Button1	LOGIN	blogin
Button2	BATAL	bbatal

1.      Kemudian kita akan menghubungkan dan merelasikan form dengan database accessnya. Caranya adalah klik New, Datamodul.

•  Pada unit data modul, save dengan nama dmperpustakaan dan atur properties namenya menjadi datamodul1.
•   Setelah itu letakkan komponen 1 AdoConnection (ADO),  5  AdoTable, dan 5 DataSource (Data Access).
•  Cara mengatur adoconnection. Pada properties, cari Connectionstring, pilih use connection string – Build, pilih  Ms Access 2003 ke bawah pilih Microsoft Jet4.0 OLE DB Povider) – Next, Select or enter a database name -> cari lokasi penyimpanan database Perpustakaan.
•   Klik Test Connection, jika berhasil akan keluar jendela: Test connection succeeded
•   Klik OK
• Atur komponen pada form data modul tersebut sebagai berikut:

Nama komponen	Object Inspector
AdoConnection1	LoginPrompt	False
AdoTable1	Name	Tbl1
	Connection	AdoConnection1
	TableName	User
	Active	True
AdoTable2	Name	Tblkaryawan
	Connection	AdoConnection1
	TableName	Karyawan
	Active	True
AdoTable3	Name	Tblanggota
	Connection	AdoConnection1
	TableName	Anggota
	Active	True
AdoTable4	Name	Tblbuku
	Connection	AdoConnection1
	TableName	Buku
	Active	True
AdoTable5	Name	Tbltransaksi
	Connection	AdoConnection1
	TableName	Transaksi
	Active	True
DataSource1	Name	Ds1
	dataset	Tbl1
DataSource2	Name	Dskaryawan
	dataset	Tblkaryawan
DataSource3	Name	Dsanggota
	dataset	Tblanggota
DataSource4	Name	Dsbuku
	dataset	Tblbuku
DataSource5	Name	Dstransaksi
	dataset	Tbltransaksi

1.      Kemudian masuk pada tahap pengkodingan login multi user + hak aksesnya. Klik 2 kali pada area form yang kosong, lalu cari implementation, dan di bawahnya isi seperti ini :

implementation

uses dmperpustakaan;

Catatan :setiap kali Anda membuat form baru, jangan lupa untuk menuliskan kode di atas pada implementationnya, baru Anda bisa mengkoneksikan dbgrid, dan dbnavigator.

Ø  Klik 2 kali pada button LOGIN, lalu isi koding seperti di bawah :

begin

if DataModule1.tbl1.Locate('UserName',euser.Text,[])

             and DataModule1.tbl1.Locate('Password',epass.Text,[])

            then

            begin

            if DataModule1.tbl1['Level']='user'

            then

            begin

//jika form menu utama Anda terdapat pada form2, maka tulislah form2

              form3.DataUser1.visible:=false;

             form3.DataKaryawan1. visible:=false;

            form3.Buku1. visible:=false;

            showmessage(‘Selamat Datang User’);

form3.showmodal

             end

             else

            showmessage(‘Selamat Datang Admin’);  

             form3.ShowModal;

            end

             else

            ShowMessage('Maaf UserName tidak tersedia');

            euser.Text:='';

             epass.Text:='';

end;

Ø  Lalu pada button BATAL, klik 2 kali, dan isi koding seperti di bawah ini:

Begin

Application.Terminate;

End;

Selesai deeh menu loginnya, dan sudah siap masuk ke form menu utama.... selamat mencoba...... jangan menyerah jika Anda gagal, teruslah mencoba....!!!!!