Tutorial PBO

Tutorial PBO

A.      Membuat database.

Cara-caranya :

1.       Buka aplikasi Access nya, ->klik all program->program file. Tampilan awal Access :

Klik disini untuk membuat database baru

2.       Setelah Create a new file, maka klik Blank Database, seperti gambar di bawah ini:

Klik disini

3.       Maka akan tampil sebuah kotak dialog untuk penyimpanan database yang kita buat, tentukan nama data base nya, misal; dbmaha. Kemudian pilih lokasi tempat penyimpanan file database tersebut dan pilih create, misalnya di D:/latihan PBO/... seperti gambar di bawah:

Klik disini

Pada Create table in Design view, klik kanan untuk membuat table nya, Pilih Design View. Seperti tampilan berikut :

Maka akan tampil layar seperti berikut,

4.       Maka akan tampil layar seperti di bawah ini :

5.       Langkah berikut nya adalah membuat fild name dari data base nya dan menentukan tipe data dari fild namenya, dalam kasus ini kita akan membuat database mahasiswa, artinya kita memerlukan beberapa file tentang mahasiswa, seperti Nim, Nama, Alamat, dan Jurusan. Caranya, isi Fild Name yang ada pada Table Design View, dan sesuaikan tipe datanya sesuai kebutuhan, Hasilnya seperti gambar berikut :

Setelah Filenama ditentukan, maka berikutnya kita tentukan Primary Key dari Table yang kita buat, dalam kasus ini yang jadi primary key nya adalah nim, karena antara satu mahasiswa pasti memiliki Nim yang berbada. Cara nya seperti berikut :

	Jika table tersebut telah diberi primary key, maka akan ada tanda kunci di bagian kiri file nime yang kita jadikan key, seperti berikut :

 

·         Letakkan kursor di file namenya yaitu “nim”,

 lalu klik kanan-> pilih Primari Key

 

·         Setelah selesai, maka simpan table tersebut dengan cara,

 Pilih File->Klik save atau dengan shortcut Ctrl+S.

Pada Table Name, berikan nama table. Dalam kasus ini saya berikan nama “Tmaha”, dan pilih OK.

Setelah di Simpan atau save, maka selesai pula design batabase kita yaitu database mahasiswa, berikut nya kita akan merancang program C++ Builder untuk mengolah database tersebut, namun sebelum itu, silahkan keluar dulu dari aplikasi access nya, atau pulih Close sampai Access nya tertutup.

B.      Merancang Program Pengolahan Database nya dengan Borland C++ Builder 6

Caranya :

1.       Pilih All Program->Program File-> Borland C++ Builder 6.

2.       Kemudian Tentukan Nama Form nya, yaitu Form1 diganti menjadi “Fmaha”,

Caranya klik selali Form1 dan cari di Object Inspektor komponen Name.

 Ganti Form1 dengan Fmaha, seperti barikut :

3.       Setelah selesai, Simpan Program dengan cara

 klik File ->Save All atau shortcut Shift+Ctrl+S, maka akan muncul kitak dialog untuk menentukan tempat penyimpanan, serta nama project yang akan kita berikan (sesuai keinginan). Pada kotak Save in : pilih folder tempat penyimpanan (dalam kasus ini adalah folder “ Latihan PBO”), dan pada kotak File name, ganti Unit1 dengan Umaha, kemudian pilih Save. Seperti gambar berikut :

Setelah di Save, maka akan muncul lagi kotak dialog, pilih saja Save (pada File Name, Anda boleh mengganti Project1 dengan nama yang Anda inginkan ).

4.       Langkah berikutnya adalah membuat DataModul untuk menghubungkan database dengan program, caranya : Pilih File pada taksbar menu, pilih New->DataModule :

Maka akan muncul Form Modul seperti gambar dibawah :

5.       Berikut nya kita akan memilih komponen-komponen yang kita butuhkan untuk menghubungkan data base dengan program, adapun komponen tersebut adalah ADO Connection, ADOTable, dan Data Saoure.

Caranya : Cari Komponen tersebut di Taksbar Icon, Pilih ADO dan ambil komponen ADO Connection, ADOTable dan letakkan pada DataModule1, kemudian untuk Data Saoure ada di komponen Data Access:

Hasilnya setelah mengambil Komponen-komponen ter sebut adalah :

ADOConnetion

ADOTable

Data Source

Settingan Untuk DataModule1 adalah :

·         Klik 2x  ADOConnetion, maka akan tampil kotak dioalog untuk mengkoneksikan database yang telah kita buat dengan program yang akan kita rancang, cara nya :

Pilih Build pada kotak dialog tersebut, kemudian pilih “Microsoft.Jet.OLEDB.4.0;Data Source” è

DIsini

Klik Next è Lalu tentukan Database yang akan kita koneksikan, dengan cara mengklik Tombol select pada kota select         

Pada kotak dialog Select cari Database yang akan kita koneksikan yaitu “dbmaha” dan pilih Open. Setelah dipilih, klik “Test Connection” untuk menguji apakah koneksi berhasil atau tidak, jika berhasil maka akan tampil pesan seperti berikut :  Jika tidak ada pesan si samping, maka

Silahkan tentukan coneksi kembali. Kemudian jika sudah, pilih OK è OK.

·         Berikutnya klik sekali saja ADO Connection nya,

 pada Properties cari  “Login Prompt” ganti nilai True menjadi False.

·         Berikutnya klik sekali saja pada ADOTable1, di Properties, ganti Name menjadi tmaha è

Connection = “ADOConnection1”(pilih icon segitiga hitam pada kotak connection dan ubah menjadi ADOConnection1).

·         Setelah diconneksikan ke ADOConnection1, selanjutnya di Properties tentukan TableName =”Tmaha” (sesuaikan dengan isi tablenamenya), dan pada Active ubah menjadi True.

·         Berikutnya adalah Settingan untuk Data Source, yaitu :

klik sekali Data Source nya è di Properties : ganti Name dengan “dsmaha”, dan Data Set menjadi “tmaha”(Dataset disesuiakan dengan table kita).

6.       Setelah menyetting komponen DataModule1, berikutnya kita akan memperkenalkan Form DataModule1 dengan Fmaha (Agar bisa saling terhubung satu sama lain), caranya : klik sekali Fmaha dan Tekan Alt+F11. Pada Kotak dialog Use Unit, Blok semua dan pilih OK. Kemudian Klik lagi DataModule1 dan Tekan Alt+F11. Pada Kotak dialog Use Unit, Blok semua dan pilih OK.

7.       Setelah kita kenalkan, maka hal berikutnya kita akan men-design Fmaha nya.

Adapun komponen yang kita butuhkan adalah Edit, Label, Button dari komponen Standar dan Dbgrid dari komponen Data Access. Hasil Design nya adlah seperti gambar berikut :

Ganti variabel Button sesuai nama tombolnya, misalnya; Simpan menjadi “save” (untuk mempermudah dalam mengenali komponen” yang ada)

Ganti variabel dengan Ejurusan

Ganti variabel dengan Ealamat

Ganti variabel dengan Enama

Ganti variabel dengan Enim

a.       Cara mengganti variabel Edit Text adalah, klik sekali pada komponen Edit tersebut, misalnya Edit1 : di Properties pada Object Inspektor, ganti Name = ”Enim” dan hapus tulisan “Edit1” pata Text. Silahkan ulangi perintah diatas untuk mengatur variabel Edit lainya.

b.      Cara mengganti variabel Button adalah sama dengan cara mengganti variabel Edit, yaitu di Properties pada Object Inspektor.

c.       Untuk komponen DBGrid, klik sekali DBGrid nya, lalu pilih DataSourceè dan pilih DataModule1->dsmaha, di Properties pada Object Inspektor.

8.       Berikutnya setelah men-design Form, maka kita akan memberikan perintah-perintah pada Tombol-tombol yang telah kita sediakan. Berikut perintah yang akan kita sisipkan dalam program :

a.       Pada tombol save (jika diganti nama button), klik 2x dan isikan coding dibawah ini :

if (Trim(Enim->Text)==""){

ShowMessage("Nim nama masih kosong");

Enim->Clear();

Enim->SetFocus();

}

else if(DataModule1->tmaha->Locate("nim",Enim->Text,TLocateOptions()<

Tulisan nim harus sama dengan filename yang ada pada data base, begitu juga dengan tulisan yang ada pada nama,alamat dan jurusan.

        ShowMessage("nim sudah ada");

        Enim->Clear();

        Enim->SetFocus();

}

else{

     DataModule1->tmaha->Append();

     DataModule1->tmaha->FieldByName("nim")->AsString = Enim->Text;

     DataModule1->tmaha->FieldByName("nama")->AsString = Enama->Text;

     DataModule1->tmaha->FieldByName("alamat")->AsString = Ealamat->Text;

     DataModule1->tmaha->FieldByName("jurusan")->AsString = Ejurusan->Text;

     DataModule1->tmaha->Post();

     ShowMessage("data sudah tersimpan");

(a)     Perintah di samping berguna untuk menambahkan file ke dalam database

     Enim->Clear();

     Enama->Clear();

     Ealamat->Clear();

     Ejurusan->Clear();

     Editnim->SetFocus();

     }

b.      Pada tombol Ubah klik 2x dan isikan coding dibawah ini :

DataModule1->tmaha->Edit();

DataModule1->tmaha->FieldByName("nama")->AsString = Enama->Text;

DataModule1->tmaha->FieldByName("alamat")->AsString = Ealamat->Text;

Klik disini

DataModule1->tmaha->FieldByName("jurusan")->AsString = Ejurusan->Text;

(b) Perintah di atas berguna untuk mengubah yang telah ada dalam database

DataModule1->tmaha->Post();

 

c.       Pada Enim (Edit->Text), klik 2x dan isikan coding dibawah ini :

 

DataModule1->tmaha->Filtered = False;

DataModule1->tmaha->Filter = "nim like '%" + Enim->Text + "%'";

  if ( Enim->Text !=""){

(c) Berfungsi untuk mencari data dari database.

    DataModule1->tmaha->Filtered = True;

Enama->Text = DataModule1->tmaha->FieldByName("nama")->AsString ;

Ealamat->Text= DataModule1->tmaha->FieldByName("alamat")->AsString ;

Ejurusan->Text= DataModule1->tmaha->FieldByName("jurusan")->AsString ;

  }

d.      Pada tombol Hapus, klik 2x dan isikan coding dibawah ini :

DataModule1->tmaha->Delete(); è berfungsi untuk menghapus database.

e.      Pada tombol Bersih, klik 2x dan isikan coding dibawah ini :

(e) Untuk membersihkan Text yang ada pada Enim,Enama,Ealamat. Dan Ejurusan. Serta meletakkan kursor di Enim Text.

Enim->Clear();

Enama->Clear();

Ealamat->Clear();

Ejurusan->Clear();

Enim->SetFocus();

f.        Pada tombol Keluar, klik 2x dan isikan coding dibawah ini :

Application->Terminate(); è untuk keluar dari program.

g.       Pada tombol Cetak, klik 2x dan isikan coding dibawah ini :

CrystalReport1->ReportFileName = ExtractFileDir(ParamStr(0)) + "/lap-mhs.rpt";

CrystalReport1->DiscardSavedData= True;

(g) disesuaikan dengan file rpt(laporan) yang kita buat.

CrystalReport1->WindowState=crptMaximized;

CrystalReport1->Action = 1;

CrystalReport1->PageZoom(300);

CrystalReport1->PrinterSelect();

9.      

Sebelum kita mengisi koding(perintah) pda tombol cetak, kita harus membuat file laporan nya terlebih dahulu. Setelah file laporan di buat maka tambahkan komponen “CrystalReport” pada Fmaha,

 yang mana komponen itu ada di Activex. Jika tidak ada maka instal terlebih dahulu componennya melalui ComponnenèInport Activex Control.