hecking++

Program Data Akademik


Program Data Akademik

Program ini untuk mengimput dan mencari data pada database dengan system komputerisasi, program ini di buat mengunakan Delphi versi 7, dan database mengunakan Microsoft access, Microsoft access adalah suatu aplikasi bawaan Microsoft office milik Microsoft.
Sebelum memulai pembuatan program, siapkan dahulu sebuah folder dalam drive, beri nama akademik dan satu buah sub folder beri nama image.
Seperti gambar berikut :
Setelah membuat folder sekarang masuk tahapan pembuatan database yang nantinya akan digunakan untuk menyimpan semua data mahasiswa

Membuat Data Base sebagai berikut:
Untuk membuat database dengan Microsoft access langkah-langkanya sebagai berikut:
1.Click start
2.Click program /Microsoft office/Microsoft access

Lihat Gambar berikut:



3.setelah program Microsoft access terbuka click create new file/blank database
Simpan didalam folder akademik yang tadi dibuat beri nama akademik kemudian click create
Lihat gambar berikut:


4. Click dua kali menu create table and design view, maka akan muncul sebuah form table baru, isikan field – field name pada form tersebut.

Field Type Panjang Key
Nim Text 10 Primery Key
Nama Text 25
Alamat Text 25
Jurusan Text 10
Foto Text 60

Lihat gambar berikut:



5. Setelah semua data terisi kemudian simpan table tersebut dengan menekan file/save beri nama table tersebut dengan nama siswa, kemudia click Ok, tutup form tersebut maka table yang baru dibuat akan muncul di akademik-database, dan bila siswa di ckick dua kali maka akan terlihat rancangan data base yang baru dibuat.
Lihat gambar berikut:

Sampai disini kita sudah berhasil membuat database akadmik, dan satu table siswa
Tahap selanjutnya masuk kedalam program Delphi:

Persiapan Form
Buat sebuah rancangan form baru sebagai berikut: Save as project berinama PAkademik dan save as berinama UMhs ke folder Akademik yang tadi kita sediakan.














Gambar Rancangan form:

Pengaturan objek-objek pada Form adalah sebagai berikut:

Object Property Nilai Property
Form1 caption Data Mahasiswa
Name FrmMhs
Label1 caption Data Mahasiswa
Label2 caption Nim
Label3 caption Nama
Label4 caption Alamat
Label5 caption Jurusan
Label6 caption Foto
Label7 Caption Fhoto
Edit1 Text Nil(kosongkan)
Name EdtNim
Edit2 Text Nil(kosongkan)
Name EdtNama
Edit3 Text Nil(kosongkan)
Name EdtAlamat
Edit4 Text Nil(kosongkan)
Name EdtFoto
Edit5 name EdtCari
BitBtn1 caption &ADD
Name BtnAdd
BitBtn2 caption &Edit
Name BtnEdit
BitBtn3 caption &elete
Name BtnDelete
BitBtn4 caption &Exit
Name BtnExit
BitBtn5 Caption &Find
Name BtnCari
BitBtn6 Caption &Load
Name BtnLoad
Panel1 Caption Nil(kosongkan)
GroupBox1 Caption Proses
GroupBox2 Caption Cari
Image1 Name foto
Stretch True
DbGrid1 Name Dbsiswa
ComboBox1 Name CbJurusan

OpenPictureDialog1 Name OPenfoto




Gambar Setelah pengaturan property



Membentuk koneksi antara Form (FrmMhs) dengan Data base (Akademik).
1 Dari Menu utama pada komponen Palette ambil object ADO Connection.
Selanjutnya lakukan pengaturan sebagai berikut :

Object Property Nilai Property Keterangan
ADO Connection Name ADO Akademik Membentuk fungsi dengan Database
Login prompt FALSE
Connection TRUE


2 Koneksi dengan Data Base dilakukan pada properties connection string,
3 Klik pada tombol dengan 3titik pada connection string.
4 beri tanda () pada Use Connection string,
5 Klik pada tombol Build pada tampilan yang muncul .
Pilih Microsoft jet 4.0
Klik pada tombol Next.
6 Pada tampilan data link properties klik tombol dengan 3titik
Yaitu : select or enter a database name.
Maka diperoleh fasilitas untuk browsing drive, folder dan name file database. Pilih file database yang akan dikoneksikan, selanjutnya klik tombol open.
7 melakukan (klik) tombol test connection hasilnya harus “test succeeded”.
Ket : harus diperoleh jawaban “connection succeeded”, jika jawaban ini tidak diperoleh berarti koneksi belum Sukses.
8 Kemudian Clik Ok.

Lihat Gambar Berikut




Pengaturan koneksi ke table “siswa”.
Selanjutnya Form harus di koneksikan dengan table yang diperuntukkan bagi form tersebut.
Dalam hal ini adalah table “siswa”.
*) langkah-langkah :
Dari menu utama ADO pada component palette, pilihlah object ADOTABLE.
Letakkan di sebelah kanan object ADOAkademik. Selanjutnya lakukan pengaturan sebagai berikut :

Object Property Nilai Property Keterangan
ADO Table Name ADOSiswa Membentuk koneksi antara Form dengan Tabel Data
Connection ADOAkademik
Table Name Siswa
Active TRUE








Lihat Gambar Berikut:



Fasilitas monitoring data.
Dari menu utama data access pada component palette, pilihlah object data Source, letakkan pada form di sebelah object ADOSiswa.dan selanjutnya lakukan pengaturan sebagai berikut:
Object Property Nilai Property
Data Source1 Name Data Siswa
Dataset ADOSiswa
Enable TRUE




Untuk Memonitoring Data dibutuhkan object DbGrid.
Dari menu utama data control pada component palette, pilih object DBGrid. Lakukan pengaturan object sebagai berikut :
Object Property Nilai Property
DBGRID1 Name DBSiswa
Data Source Data Siswa











Lihat Gambar Beikut:


Memasukan image kedalam database
Untuk memasukan image atau foto kedalam database dibutuhkan sebuah component OpenPictureDialog1 dari component pallet, component ini berfungsi untuk mecari file image pada drive.
Lihat gambar berikut:



Program pada tombol load atau BtnLoad
Pembuatan Program Untuk Tombol Load
Object : BtnLoad
Even : On-Click
Form : FrmMhs
Spec Program :
Jika tombol Load di klick, maka akan terbuka sebuah candela pencarian image yang nantinya akan digunakan sebagai database.click tombol open maka foto akan muncul dan Edtfoto akan terisi dengan alamat file image/foto dan component foto akan aktif;
Procedur pengisian program:
Procedure Tfrmmhs.btnfotoClick(Sender: TObject);
begin
if Openfoto.Execute then
begin
foto.Visible:=True;
foto.Picture.LoadFromFile(Openfoto.Filename);
edtfoto.Text :=frmmhs.Openfoto.FileName;
end;
end;
end.
Lihat Gambar Berikut:



Catatan: agar file image bisa dijalankan pada program tambahkan “Jpeg” pada use program, perintah yang akan dijalankan yaitu dibawah uses:
Lihat gambar berikut:

Pemrograman Form Data Mahasiswa.
1. Form:Pembuatan Program untuk mengisi Combo-box1 Atau CbJurusan
Combo box biasanya di isi otomatis oleh system, tetapi pada saat Form yang combo box muncul ke layer monitor.
Object : FrmMhs
Even : On-Activate
Form : FrmMhs
Spec program:
Combo-box diisi tempat, saat Form muncul ke layer computer.
Procedure pegisian program:
procedure TFrmMhs.FormCreate(Sender: TObject);
begin
Cbjurusan.Items.add('Akuntansi');
Cbjurusan.Items.Add('Elektro');
Cbjurusan.Items.add('Komputer') ;
Cbjurusan.items.add('Mesin') ;
Cbjurusan.Items.add('Akuntansi');
Cbjurusan.Items.Add('Elektro');
Cbjurusan.Items.add('Komputer') ;
Cbjurusan.items.add('Mesin') ;
end;


Pembuatan program untuk Tombol “ADD”:
Pembuatan Program Untuk Tombol ADD.
Object : BtnAdd
Even : On-Click
Form : FrmMhs
Spec Program :
Jika tombol Add di klick, maka data yang di input pada screen akan masuk ke tabel Mahasiswa.dan semua entrain data pada edit text akan bersih, dan foto non aktif.
Procedure program ADD.

procedure TFrmMhs.BitAdd1Click(Sender: TObject);
begin
adosiswa.Append;
adosiswa['nim']:=edtnim.Text;
adosiswa['nama']:=edtnama.Text;
adosiswa['Alamat']:=edtalamat.Text;
adosiswa['Jurusan']:=cbjurusan.text;
adosiswa['foto']:=edtfoto.text;
adosiswa.Post;
edtnim.Clear ;
edtnama.Clear;
edtalamat.Clear;
cbjurusan.Clear;
edtfoto.Clear;
foto.Visible:=false;
end;
keterangan perintah append yaitu perintah untuk membuat record baru pada data base.








Lihat Gambar Berikut:

Pembuatan program untuk tombol “EDIT”
Object : BtnEdit
Fungsi Edit:
Edit berfungsi merubah data yang sudah ada di dalam table karena hal-hal berikut :
1. data memang berubah seiring jalanya waktu
2. data harus dirubah karena terjadi salah inputsebelum data dirubah ,data yang akan dirubah harus dicari terlebih dahulu.Pencarian dapat dilakukan dengan 2 macam cara yaitu:
1. Pencarian manual lewat DBGrid
2. pencarian dengan mengunakan program.
Program mencari data secara manual lewat DBGrid.
Property Name untuk DBGrid diubah menjadi DBsiswa
Spesifikasi program:
Object : DBSiswa
Even : double-klick
Form : FrmMhs
Spec program:
Jika suatu record pada DBSiswa diklick , maka data pada record tersebut akan pindah ke screen editing dan semua entrain data pada edit text siap untuk dilakukan editing. Setelah selesai melakukan editing untuk menyumpan hasilediting pada database tekan tombol Edit



Lihat gambar berikut:

Pembuatan program pada tombol Btn Edit atau Edit
Procedure program EDIT:
Spesifikasi program:
Object : BtnEdit
Even : On-klick
Form : FrmMhs
Spec program:
Jika tombol edit di klick maka data yang tampil akan disimpan lagi ketempat yang sama, tampa membuat recor baru, edtjurusan akan menapilkan “Pilih Jurusan,









procedure TFrmMhs.BtnEditClick(Sender: TObject);
begin
adosiswa.Edit;
adosiswa['nim']:=edtnim.Text;
adosiswa['nama']:=edtnama.Text;
adosiswa['Alamat']:=edtalamat.Text;
adosiswa['Jurusan']:=cbjurusan.text;
adosiswa['foto']:=edtfoto.text;
adosiswa.Post;
edtnim.Clear ;
edtnama.Clear;
edtalamat.Clear;
cbjurusan.text:='Pilih Jurusan';
edtfoto.Clear;
foto.Visible:=false;
end;

Prosedur pencarian data lewat Dbgrid atau DbSiswa:
spesifikasi untuk tombol Delete
Object : DbGrid
Even : Doble-Click
Form : FrmMhs
Spec program:
Jika Dbsiswa atau Dbgrid doble click maka data yang terseleksi akan tampil pada form
procedure TFrmMhs.DbsiswaDblClick(Sender: TObject);
begin
foto.Visible:=True;
edtnim.Text :=adosiswa['nim'];
edtnama.Text :=adosiswa['nama'];
edtalamat.Text :=adosiswa['alamat'];
cbjurusan.Text :=adosiswa['jurusan'];
edtphoto.Text :=adosiswa['foto'];
foto.Picture.LoadFromFile(edtphoto.Text);
end;


Pembuatan program untuk tombol “Dalete”.
Menghapus data itu diperlukan apabila sudah data sudah tidak dipakai atau tidak berlaku lagi.
spesifikasi untuk tombol Delete
Object : BtnDelete
Even : On-Click
Form : FrmMhs
Spec program:
Apabila tombol delete di klick, maka data akan terhapus dan semua data yang tampil kan bersih dan cbjurusan akan terisi dengan kata “Pilih Jurusan”.
Procedure tombol “DELETE”
Pembuatan program untuk tombol “Find”.atau Cari
Sepesifikasi untuk tombol Cari
Object : BtnDelete
Even : On-Click
Form : FrmMhs
Spec program:
Cika tombol delete di klick makan data hyang tampil pada form akan hilang dan data pada database juga hilang, seta bila btndelete diklick maka edtjurusan akan terisi dengan kata “Pilih Jurusan”.
Procedure TFrmMhs.BtnDeleteClick(Sender: TObject);
begin
Adosiswa.Delete;
edtnim.Clear ;
edtnama.Clear;
edtalamat.Clear;
cbjurusan.text:='Pilih Jurusan';
edtfoto.Clear;
foto.Visible:=false;
end;

Pembuatan program untuk tombol “Find”.atau Cari
Pencarian ini denagan mengunakan program, pencarian jenis ini bila data dalam database sudah cukup banyak,yang tidak memungkinkan lagi untuk mencari satu persatu, bila pencarian berhasil maka crusor akan menunjukan nama yang mirip seperti yang di inputkan pada EdtCari.
Sepesifikasi untuk tombol Cari
Object : BtnCari
Even : On-Click
Form : FrmMhs
Spec program:
Sebelum tombol Find di klick, isikan sembarang nama pada EdtCari,Apabila tombol cari di klick, Crusor akan menunjukan data nama yang menyerupai karakter huruf nama siswa pada DbSiswa atau DBgrid, nama tersebut belum tampil di form sebelum user meclick dua kali di nama tersebut pada Dbsiswa.
Lihat gambar berikut:

Setelah user medoble click nama pada Dbsiswa atau Dbgrid maka nama akan muncul pada form
Lihat gambar berikut:





Procedure tombol “Find”
procedure TFrmMhs.BtnCariClick(Sender: TObject);
Var
ADA : Integer;
begin
ADOsiswa.IndexFieldNames:='Nama';
ADA:=0;
While Not ADOsiswa.Eof DO
Begin
ADA:=POS(UPPERCASE(edtnama.Text),UPPERCASE(ADOsiswa['NAMA']));
IF ADA>0 Then
Break
Else
ADOsiswa.Next;
end;
IF ADA=0 Then
ADOsiswa.First;
IF ADA >0 Then
Begin
foto.Visible :=true;
edtnim.Text:=ADOsiswa['NIM'];
edtnama.Text:=ADosiswa['NAMA'];
edtalamat.Text:=ADosiswa['ALAMAT'];
cbjurusan.Text:=ADOsiswa['JURUSAN'];
edtfoto.Text:=ADOsiswa['FOTO'];
end;
end;


Pembuatan Program Keluar Program Tau tombol Exit
Sepesifikasi untuk tombol Exit
Object : Btnexit
Even : On-Click
Form : FrmMhs
Spec program:
Jika tombol BtnExit atau exit diklick maka program akan tertutup
procedure TFrmMhs.BtnExitClick(Sender: TObject);
begin
application.Terminate;
end;

0 komentar:

Poskan Komentar