Membuat Pemrograman berbasis database menggunakan Borlan Delphi 7
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
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.