Dalam program pembuatan database dengan delphi pertama kali
kita harus membuat data base nya dahulu diluar program Delphi. Kali ini kita
mebuat database nya menggunakan microsoft access sebelum kita masukkan data nya
pertama kita harus menaruh file microsoft access kedalam folder yang kita
inginkan.
Cara mudah
menambah field adalah dengan menekan tombol tab dan untuk menambahkan record
adalah dengan menekan arah panah ke bawah untuk menambahkan record. Setelah itu
kita masukkan data-data nya kedalam microsoft access di database kali ini
membuat 4 field dan 11 record. Field digunakan untuk membuat kolom seperti nama
barang, sedangkan record adalah digunakan untuk membuat field yang lengkap atau
baris yang lengkap.Lalu pada program kali ini kita menggunakan 4 field
masing-masing field itu adalah : Nomor , NPM, Nama Mahasiswa, dan Asal Sekolah.
Lalu cara
mengganti nya nama field id ke nama field nomor adalah dengan mengklik kanan
field tersebut lalu klik rename field setelah itu masukkan nama field tersebut
dengan nomor, begitupun dengan field NPM cara menggantinya pun dengan mengklik
kanan field 1 lalu klik kiri rename field lalu ganti nama field tersebut dengan
NPM,sama hal nya dengan field Nama Mahasiswa cara menggantinya adalah klik
kanan field 2 lalu setelah itu klik kiri rename field lalu gantikan nama filed
tersebut dengan nama mahasiswa dan yang sama hal nya NPM dan Nama Mahasiswa
cara mengganti nama field 3 dengan Asal Sekolah adalah dengan mengklik kanan
field 3 lalu klik kiri rename field 3 lalu masukkan nama field nya dengan Asal
Sekolah.
Setelah itu
kita masukkan data-data nya kedalam masing-masing field tersebut jika sudah
selesai membuat datanya lalu di save as setelah itu kita ganti nama file nya
setelah itu save as type nya kita ubah microsoft access 2002-2003. Kenapa save
as type nya kita gunakan microsoft access 2002-2003 karena Delphi tidak support
terhadap ekstension file selain .mdb di microsoft access.
Setelah
selesai membuat database tersebut kita menamakan database nya dengan table1.
Lalu kita masuk ke dalam Delphi tersebut komponen-komponen yang dibutuhkan
untuk menghubungkan antara delphi tersebut dengan database antara lain adalah:ADO
Connection,ADO Table, Data Source, DB Navigator, DB Grid.
Pertama kita
masuk ADO Connection untuk membuat komponen tersebut adalah dengan menuju
component pallete ADO lalu kita klik kiri ADO Connection setelah lalu klik kiri
pada Form1.
Setelah
menambahkan ADO Connection lalu kita masukkan komponen ADO Table tersebut
dengan cara mengklik kiri component pallete ADO lalu klik kiri ADO Table
setelah itu kita taruh ke dalam Form1 dengan cara mengklik kiri dalam Form1.
Lalu kita
masukkan komponen Data Source ke dalam Form1 dengan cara klik kiri component
pallete Data Access lalu pilih komponen Data Source setelah itu klik kiri Data
Source lalu masukkan ke dalam Form1 dengan mengklik kiri Form1.
Lalu kita tambahkan
komponen DB Navigator adalah dengan klik kiri component pallete Data Controls
lalu klik DB Navigator setelah itu masukkan ke dalam Form1 dengan cara klik
kiri pada Form1.
Lalu kita
tambahkan komponen DB Grid adalah dengan klik kiri component pallete Data
Controls lalu klik DB Grid setelah itu masukkan ke dalam Form1 dengan cara klik
kiri pada Form1.
Setelah
selesai memasukkan komponen-komponen yang dibutuhkan lalu kita hubungkan Delphi
7 dengan Microsoft Access pertama kita klik kiri dua kali pada ADO Connection
setelah itu kita masuk ke dalam Form1.ADO Connection1 Connection string setelah
itu klik kiri build.
Lalu masuk
ke dalam menu Data Link properties setelah itu kita pilih OLE DB Provider pada
program kali ini kita pilih OLE DB provider Microsoft Jet 4.0 OLE DB Provider
setelah mengklik kiri Microsoft Jet 4.0 OLE DB Provider lalu klik kiri next
Setelah itu
kita klik browse setelah itu pilih file Microsoft Access yang telah dibuat
sebelumnya lalu kita klik Test Connection samapai muncul dialog message “Test
Connection Succeded” lalu klik OK. Kenapa kita harus Test Connection adalah
berfungsi sebagai mengetest sambungan antara Delphi 7 dengan data di Microsoft
Access agar tidak terjadi error pada saat data dihubungkan ke Delphi lalu klik
OK.
Setelah itu
kita klik kiri ADO Connection lalu kita masuk ke dalam Object Inspector yang
terletak di bawah kiri stelah itu masuk ke dalam properties.Di dalam properties
ADO Connection disini ada yang harus diganti yaitu login prompt dan Connected
pertama login prompt kita ganti dengan nilai false. Kenapa kita ganti False agar pada saat penghubungan
antara Delphi 7 dengan Microsoft Access tidak diminta login untuk menghubungkan
nya. Lalu setelah itu kita ganti Connected dengan nilai True. Kenapa harus
diganti nilai true karena Connected adalah agar terjadi hubungan antara Delphi
dengan Microsoft Access.
Setelah
itu klik kiri pada ADO Table fungsi dari ADO Table adalah digunakan untuk
menyimpan sementara dalam bentuk table. Setelah itu kita masuk ke dalam menu
Object Inspector yang terletak dibawah kiri setelah itu masuk ke dalam
properties ada beberapa yang harus di ganti atau di isi antara lain
Connection, Table Name, dan Active. Lalu
kita isikan Connection dengan ADOConnection1 kenapa Connection di isi dengan
ADOConnection1 karena ADOConnection di sini kita memakai nama ADOConnection nya
dengan ADOConnection1. Lalu kita isikan Table name nya dengan table1 kenapa di
isikan dengan table 1 karena penamaan table dalam data di microsoft access yang
telah di buat adalah dengan nama table 1. Lalu kita ganti nilai active dari
false ke true karena fungsi dari nilai true adalah untuk mengaktifkan bahwa
terjadi penghubungan antara ADOConnection ke ADOTable.
Setelah
itu klik kiri pada Data Source setelah itu masuk ke dalam menu Object Inspector
yang terletak kiri bawah setelah itu masuk ke dalam properties Data Source. Di
dalam properties data source kita hanya cukup mengisi Dataset nya dengan cara
mengklik kiri Data Set nya lalu pilih DataTable1. Kenapa kita memilih
DataTable1 karena di dalam program kali ini kita menamakan Data Table nya
adalah dengan nama Data Table 1.
Setelah
selesai pada komponen Data Source kali ini kita masuk ke dalam komponen DB
Navigator.DB Navigator digunakan untuk fungsinya untuk
mengarahkan posisi record Dalam DB Navigator itu masuk ke dalam Object Inspector yang
terletak pada kiri bawah lalu kita klik properties di dalam properties ini kita
harus mengganti atau mengisi antara lain Data Source dan Show Hint . Lalu kita
isikan Data Source dengan Data Source 1
karena Data Source dalam program ini kita buat dengan nama Data Source 1.
Sedangkan Show Hint kita ganti nilai nya dari false ke true digunakan untuk
Bila kursor kita diatas komponen, maka akan muncul suatu keterangan(Hints).
Setelah
itu kita masuk ke dalam komponen DB lalu masuk ke dalam Object Inspector yang
terletak pada kiri bawah lalu kita klik properties di dalam properties ini kita
harus mengganti atau mengisi antara lain Data Source dan Show Hint . Lalu kita
isikan Data Source dengan Data Source 1
karena Data Source dalam program ini kita buat dengan nama Data Source 1.
Sedangkan Show Hint kita ganti nilai nya dari false ke true digunakan untuk
Bila kursor kita diatas komponen, maka akan muncul suatu keterangan(Hints).
Lalu
setelah itu kita disini mengubah lebar dari table yaitu dengan double klik kiri
DBGrid lalu setelah itu akan muncul kotak dialog kotak editing DBgrid1.Column
disitu kita klik kiri toolbar add all field lalu akan muncul field-field yang
telah kita buat sebelum nya. Untuk mengubah nya adalah dengan mengklik kiri
pada field yang ingin kita ubah lalu pada Object Inspector nya kita ubah Width
dengan sesuai yang kita inginkan.
Setelah
itu kita buat program ini agar ketika sedang
dijalankan program nya maka akan di butuhkan proses login yaitu dengan kita
buat sintaks nya. Pertama kita klik 2 kali Form nya lalu kita tuliskan sintaks
nya.
Setelah
itu pertama kita tuliskan sintaks nya var username, password:string; fungsi
dari sintaks ini adalah digunakan untuk mendeklarasikan variabel dimana dalam
program kali ini kita membuat variabel nya adalah username dan password setelah
itu kita harus memilih tipe data nya. Dalam variabel username dan pass kali ini
kita menggunakan tipe data string.
Setelah
itu kita tuliskan sintaks begin fungsi dari sintaks ini adalah digunakan
memulai sebuah pemrograman di dalam Delphi. Setelah itu kita tuliskan sintaks username:=
inputbox('admin','masukkan username', 'username'); fungsi dari sintaks inputbox
adalah digunakan untuk membuat box untuk menginput username sedangkan ‘admin’
digunakan untuk memasukkan kata admin ke dalam title box lalu ,‘masukkan username’ digunakan untuk membuat
message masukkan username lalu fungsi ,’username’) adalah digunakan untuk
sebagai tempat untuk memasukkan
username.
Setelah
itu tuliskan sintaks username :=inputbox('admin','masukkan password',
'password'); fungsi dari sintaks inputbox adalah digunakan untuk membuat box
untuk menginput password sedangkan ‘admin’ digunakan untuk memasukkan kata
admin ke dalam title box lalu ,‘masukkan
password’ digunakan untuk membuat message masukkan password lalu fungsi
,’password adalah digunakan untuk sebagai tempat untuk memasukkan username.
Lalu
tuliskan sintaks if username <>'irfan'then fungsi if adalah digunakan
untuk melakukan pengkondisian sedangkan username digunakan untuk sebagai
variabel sedangkan <> ‘irfan’then adalah digunakan untuk jika operator
tidak sama dengan username irfan maka akan masuk ke kondisi lain sedangkan then
digunakan untuk apabila kondisi tersebut tidak terpenuhi maka akan masuk ke
kondisi lain. Lalu kita tuliskan sintaks begin kembali untuk membuat sebuah
blok program. Lalu kita masukkan sintaks messagedlg('akses ditolak', mtWarning,
[mbYes],0); fungsi dari messagedlg adalah digunakan dialog message sedangkan
dari ‘akses ditolak’ adalah digunakan untuk mengisi dialog message akses
ditolak. Lalu ,mtWarning adalah
digunakan untuk menampilkan gambar segitiga kuning yang di dalam nya ada tanda
seru, sedangkan [mbYes] digunakan untuk memunculkan button YES di dalam dialog
message. Sedangkan ,0 ); digunakan untuk menentukan parameter dari dialog
message.
Lalu
kita tuliskan sintaks Application.Terminate; digunakan untuk jika salah dalam
memasukkan username maka program tersebut otomatis akan keluar. Lalu kita
tuliskan sintaks end; fungsi nya adalah untuk mengakhiri sebuah blok program.
Lalu
tuliskan sintaks if password <>'irfan'then fungsi if adalah digunakan
untuk melakukan pengkondisian sedangkan password digunakan untuk sebagai
variabel sedangkan <> ‘irfan’then adalah digunakan untuk jika operator
tidak sama dengan password irfan sedangkan then digunakan untuk apabila kondisi
tersebut tidak terpenuhi maka akan masuk ke kondisi lain. Lalu kita tuliskan sintaks
begin kembali untuk membuat sebuah blok program. Lalu kita masukkan sintaks
messagedlg('akses ditolak', mtWarning, [mbYes],0); fungsi dari messagedlg
adalah digunakan dialog message sedangkan dari ‘akses ditolak’ adalah digunakan
untuk mengisi dialog message akses ditolak. Lalu ,mtWarning adalah digunakan untuk menampilkan
gambar segitiga kuning yang di dalam nya ada tanda seru, sedangkan [mbYes]
digunakan untuk memunculkan button YES di dalam dialog message. Sedangkan ,0 );
digunakan untuk menentukan parameter dari dialog message.
Lalu
kita tuliskan sintaks Application.Terminate; digunakan untuk jika salah dalam
memasukkan password maka program tersebut otomatis akan keluar. Lalu kita
tuliskan sintaks end; fungsi nya adalah untuk mengakhiri sebuah blok program.
Sedangkan sintaks end. adalah digunakan untuk mengakhiri sebuah program yang
telah dibuat.
Tidak ada komentar:
Posting Komentar