Membuat Pemrograman berbasis database menggunakan Borlan Delphi 7

Assalamu’alaikum Wr.wb Shobat shada semua kali ini saya akan Share Sebuah cara untuk membuat Data didalam database menggunakan Data Base😀 langung saja ke TKP hehehe :

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Langkah-langkah membuat database :
1. masuk kedalam database dekstop
2. pilih File terus working direktory tekan browse cari drive folder yang ingin digunakan databasenya
3. pilih NEW TABLE terus masuk kedalam CREATE PARADOX 7 pilih OK masuklah kedalam field table yang ingin diisi
4. masukan field yang diinginkan
5. pada field di type di pencet SPASI agar terlihat pilihannya untuk type kedua diisi A
6. untuk menghapus field tekan CTRL+DEL
7. setelah selesai tekan Save As lalu tutup
8. masuk ke Dhelpi projek buat project baru dengan menggunakan nama field database yang baru dibuat
=====Mengedit table open table terus klick EDIT DATA agar bisa ditambah data
9. Hal-hal yang dibutuhkan untuk koneksi databasenya
–    data sourch yang ada di tab DATA ACCESS
–       Data grid yang ada di Tab Data Control
–       TABLE yang ada di Tab BDE
9. mengkoneksikan data base tadi
a. klik pada tabel terus pada table name nya cari source table
b. jangan lupa pada properti Aktive didalam tabel di Aktivekan
c. pada data sourchnya diaktivkan data setnya kepada tbl1nya
d. Pada data gridnya Data sournya nembak kepada TABEl
========================================================

Kodding Programmnya :

unit Unit14;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, Grids, DBGrids, StdCtrls, ExtCtrls, DBCtrls;

type
TP9L1 = class(TForm)
lbl1: TLabel;
lbl2: TLabel;
lbl3: TLabel;
lbl4: TLabel;
lbl5: TLabel;
edt1: TEdit;
edt2: TEdit;
edt3: TEdit;
edt4: TEdit;
edt5: TEdit;
ds1: TDataSource;
dbgrd1: TDBGrid;
tbl1: TTable;
btn1: TButton;
btn2: TButton;
btn3: TButton;
btn4: TButton;
btn5: TButton;
dbnvgr1: TDBNavigator;
procedure dbgrd1CellClick(Column: TColumn);
procedure btn1Click(Sender: TObject);
procedure btn2Click(Sender: TObject);
procedure btn3Click(Sender: TObject);
procedure btn4Click(Sender: TObject);
procedure btn5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
P9L1: TP9L1;

implementation

uses Unit15;

{$R *.dfm}

procedure TP9L1.dbgrd1CellClick(Column: TColumn);
begin
edt1.Text := tbl1[‘Nama’];
edt2.Text := tbl1[‘Alamat’];
edt3.Text := tbl1[‘Kota’];
edt4.Text := tbl1[‘Telepon’];
edt5.Text := tbl1[‘Email’];

end;

procedure TP9L1.btn1Click(Sender: TObject);
begin
if btn1.Caption = ‘Save’ then
begin
tbl1.Append;
tbl1[‘nama’] := edt1.Text;
tbl1[‘alamat’] := edt2.Text;
tbl1[‘kota’] := edt3.Text;
tbl1[‘telepon’] := edt4.Text;
tbl1[’email’] := edt5.Text;
tbl1.Post;
btn1.Caption := ‘Tambah’;

end
else
begin
btn1.Caption := ‘Save’;
end;
end;

procedure TP9L1.btn2Click(Sender: TObject);
begin
if btn2.Caption = ‘Update’ then
begin
tbl1.Edit;
tbl1[‘nama’] := edt1.Text;
tbl1[‘alamat’] := edt2.Text;
tbl1[‘kota’] := edt3.Text;
tbl1[‘telepon’] := edt4.Text;
tbl1[’email’] := edt5.Text;
tbl1.Post;
btn2.Caption := ‘Ubah’;

end
else
begin
btn2.Caption := ‘Update’;
end;
end;

procedure TP9L1.btn3Click(Sender: TObject);
begin
tbl1.Delete;
end;

procedure TP9L1.btn4Click(Sender: TObject);
begin
close;
end;

procedure TP9L1.btn5Click(Sender: TObject);
begin
lap1.qckrp1.preview;
end;

end.

Semoga bermanfaat Dan terimakasih atas kunjungannya😀

Komentar
  1. adi wakwaaw mengatakan:

    wakwaawwww .BURNOK

  2. nizo mengatakan:

    Belum lengkap ini sobat,,,,gue mau ingin lebih lengkap

  3. andika mengatakan:

    minta copas kak .
    dan posting🙂

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s