Membuat Buku Telphon Dengan Delphi dan Access

KaliMenjalankan Aplikasi Android di Windows. Read more ... » ini sayaMembuka Command Prompt mode Administrator. Read more ... » akan sedikt share bagaimana caraMenjalankan Aplikasi Android di Windows. Read more ... » membuat buku telphon denganTrik Aman Berinternet I. Read more ... » delphiPrinsip dasar pembuatan Keylogger. Read more ... » dan microsoft access, baiklah langsung ke TKP :

1. Membuat database dengan Access

Sebelum membuat database, ada baiknya kitaCara mengatasai Cannot modify header PHP. Read more ... » buat terlebih dahulu folder untukTrik Aman Berinternet I. Read more ... » menyimpan database dan program yangPengumuman Calon Asisten Praktikum Basisdata. Read more ... » akan dibuat. Misal kita buat Folder pada drive C:Projek_baru.

Access Baru

New Access

  • Pada kolom kanan terdapat form File Name, atur lokasi penyimpanan pada Folder yang telah dibuat sebelumnya C:projek_baru dan beri nama db_pb.accdb.

Create new access

  • Klik Create untuk membuat database projek.
  • Pada kolom kanan projek baru terdapat Tulisan Table1, Klik kanan pada Table1 : Table, pilih Design View.
  • Simpan dengan nama tb_buku (singkatan dari tabel buku).
  • Jika langkah benar akan tampil seperti berikut.

Blank Table

  • Buat kolom baru pada table yang kita buat tadi, caranya isi field name dengan nama kolom, data type diisi dengan type datanya.
    • No               type data integer.
    • Nama           type data (text) field size 30.
    • Agama         type data (text) field size 10.
    • Kota_lahir    type data (text) field size 20.
    • Tgl_lhr        type data (date/time) format Short date.
    • No_hp         type data (text) field size 13
    • Alamat         type data (text) field size 225
    • Kategori      type data (text) field size 20
    • Foto            type data (memo).

    Make Table

  • Klik save untuk menyimpan.

Kita telah berhasil membuat database dengan nama db_pb.accdb dan berisi table tb_buku dengan lokasi penyimpanan C:projek_baru.

2. DesainDAFTAR MAHASISWA PERBAIKAN DESAIN WEB. Read more ... » Aplikasi

Tahap selanjutnya kita akan membuat database tersebut dapat digunakan dengan kombinasi Delphi.

A. Koneksi Database

  • Buka Delphi baru dan desain form seperti berikut.

DESAIN Form
Komponen pendukung  dan setting properties :

  • No, nama, kota lahir, no hp (Gunakan EDIT text).
  • Agama, Kategori (gunakan Combobox).
    • Agama pada Properties–>Items, tambahkan Islam, hindu, Budha, katolik.
    • Kategori pada properties–>Items, tambahkan TK, SD, SMP, SMA, KULiah dan Umum.
  • Adoconnection pada tab ADO
  • 2 Adotable (pada tab ado), ganti name masing-masing table dengan ado_view dan ado_simpan.
  • Datasource.
  • OpenPictureDialog
  • Image
  • DBGrid
  • 2 Buah Button dengan captionCara mengatasai Cannot modify header PHP. Read more ... » Buka gambar dan Simpan.
  • Pada Tanggal lahir gunakan komponen Datetimepicker.
  • Aktifkan Form1, pada event oncreate ketikan Source berikut :
procedure TForm1.FormCreate(Sender: TObject);
begin
  try
    with ADOConnection1 do
      begin
        Connected:=false;
        ConnectionString:='Provider=Microsoft.ACE.OLEDB.12.0;Data Source='+
        'C:projek_barudb_pb.accdb;Persist Security Info=False';
        LoginPrompt:=false;
        Connected:=true;
      end;
    ShowMessage('Koneksi Sukses');
    with ado_view do
      begin
        Active:=false;
        TableName:='tb_buku';
        Active:=true;
      end;
  except
    ShowMessage('Koneksi gagal');
  end;
end;

PENTINGG!!!

Untuk membuat ConnectionString pada source diatas, jangan ditulis manual, lakukan langkah berikut :

  • Klik 2x pada komponen adoconnection.
  • New Connection

  • Klik Build,  pilih MICROSOFT OFFICE 12.0 Access Database Engine OLE DB PROVIDER dan klik Next.
  • Koneksi ke Access

  • Pada Connection Isikan Lokasi database dan nama database, Misal kita menyimpan database di C:projek_baru dan nama database db_pb, jadi yang ditulis adalah C:projek_barudb_pb.accdb.

Koneksi

Sukses

  • Klik Ok, dan copykan text yang ada di use connection String.

Copy Connection

Dari hasil copy tersebut, pastekan setelah connectionsting. Code lengkap seperti berikut :

ConnectionString:='Provider=Microsoft.ACE.OLEDB.12.0;Data Source='+
 'C:projek_barudb_pb.accdb;Persist Security Info=False';
  • Sampai disini kita telah berhasil menyambungkan Delphi dengan database Access. Selanjutnya blok 2 ado table, kemudian pada properties–>Connection (sambungkan ke ado Connection).

Ado Table

  • Klik Datasource–>properties–>dataset (sambungkan ke ado_view).

Data source

  • Terakhir pada DBGrid–>Properties–>datasource (Sambungkan ke datasource1).

B. Simpan Data (Insert data).

Setelah berhasil membuat koneksi dan menyambungkan antar komponen, tahap berikutnya adalah simpan data menggunakan adotable. Ikuti langkah demi langkah berikut :

  • Klik 2x Button1 (Buka Gambar), ketikan source berikut :
procedure TForm1.Button2Click(Sender: TObject);
begin
  if OpenPictureDialog1.Execute then
    lokasi:=OpenPictureDialog1.FileName;
  Image1.Picture.LoadFromFile(lokasi);
end;

Untuk dapat menjalankan syntax diatas, buat variable global lokasi dengan tipe data string. Variable lokasi disini adalah lokasi foto yang digunakan dalamCara mengatasai Cannot modify header PHP. Read more ... » computer untuk disimpan di database.

  • Klik 2x button Simpan untuk menyimpan gambar. Ketikan source berikut :
procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    with ado_simpan do
      begin
        Active:=false;
        TableName:='tb_buku';
        Active:=true;
        append;
        ado_simpan['no']:=edit1.Text;
        ado_simpan['nama']:=edit2.Text;
        ado_simpan['agama']:=ComboBox1.Text;
        ado_simpan['kota_lahir']:=edit3.Text;
        ado_simpan['tgl_lhr']:=DateTimePicker1.Time;
        ado_simpan['no_hp']:=edit4.Text;
        ado_simpan['alamat']:=memo1.Text;
        ado_simpan['kategori']:=ComboBox2.Text;
        ado_simpan['foto']:=lokasi;
        post;
      end;
    ShowMessage('Berhasil disimpan');
    ado_view.Close;
    ado_view.Open;
  except
    ShowMessage('Gagal disimpan');
  end;
end;
  • Terakhir, kita akan membuat ketika aplikasi dijalankan saat mengklik cell pada dbGrid data akan ditampilkan pada tiap komponen, contoh seperti gambar berikut :

Hasil
Caranya klik pada DBgrid–>Event–>OnCellClick, Tuliskan Syntax berikut :

with DBGrid1 do
    begin
      edit1.DisableAlign;
      edit1.Text:=DBGrid1.DataSource.DataSet['no'];
      edit2.Text:=DBGrid1.DataSource.DataSet['nama'];
      ComboBox1.Text:=DBGrid1.DataSource.DataSet['agama'];
      edit3.Text:=DBGrid1.DataSource.DataSet['kota_lahir'];
      DateTimePicker1.Time:=DBGrid1.DataSource.DataSet['tgl_lhr'];
      edit4.Text:=DBGrid1.DataSource.DataSet['no_hp'];
      memo1.Text:=DBGrid1.DataSource.DataSet['alamat'];
      ComboBox2.Text:=DBGrid1.DataSource.DataSet['kategori'];
      lokasi:=DBGrid1.DataSource.DataSet['foto'];
    end;
    Image1.Picture.LoadFromFile(lokasi);
  • Selesai, jika ada masalah tanyakan langsung.

Catatan Penting Sekali !!!

Untuk membuat aplikasi database dengan DelphiInsert Data dengan Delphi dan MySql. Read more ... » yang diperlukan adalah :

  • Database
  • Adoconnection yang perlu di atur :
    • Connected
    • ConnectionString
    • LoginPrompt (jadikan False).
    • AdoTable / adoQuery yang perlut diatur :
      • Active
      • Connection–> sambungkan ke Adoconnection.
      • TableName.
      • DataSource
        • Dataset–>sambungkan ke Adotable untuk menampilkan data.
        • DBGrid
          • Datasource->Sambungkan ke Datasource1.

Selamat mencoba by 1n53ct4

Posted in Delphi 7 and tagged , .