Tugas Tabel Pelanggan
Pertama kita buat database terlebih dahulu seperti yang terlihat pada gambar dibawah ini.
setelah kita ketik semuanya kita buat ODBC nya lalu pilih event use connection string klik build kita pilih pelanggan setelah itu kita test connection lalu ok.
setelah semuanya jadi kita buat formnya seperti yang digambar dibawah ini.
Ok langsung coding full aja ya gan.
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, DBGrids;
type
TForm5 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
DBGrid1: TDBGrid;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Label5: TLabel;
procedure Edit1Change(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
procedure tampildata;
procedure bersihdata;
procedure tombolmati;
procedure tombolhidup;
public
{ Public declarations }
end;
var
Form5: TForm5;
implementation
uses unit6;
procedure TForm5.Button1Click(Sender: TObject);
begin
if length (edit1.Text)<>5 then
begin
messagedlg('maaf,kode barang harus 5 karakter!',mtwarning,mbokcancel,0);
edit1.SetFocus;
exit;
end;
if messagedlg('apakah anda yakin akan menyimpan data ini ?',mtconfirmation,[mbyes,mbno],0)=mryes then
begin
with DM.query do
begin
sql.Clear;
sql.Add('insert into tabel_pelanggan(kd_pelanggan,nm_pelanggan,alamat,no_hp)');
sql.Add('values("'+edit1.Text+'","'+edit2.Text+'","'+edit3.Text+'","'+edit4.Text+'")');
execsql;
end;
tampildata;
bersihdata;
tombolmati;
showmessage('data telah berhasil disimpan');
edit1.setfocus;
end;
end;
procedure TForm5.Button2Click(Sender: TObject);
begin
if messagedlg('apakah anda yakin akan mengubah data ini ?',mtconfirmation,[mbyes,mbno],0)=mryes then
begin
with DM.query do
begin
sql.clear;
sql.add('update tabel_pelanggan set nm_pelanggan="'+edit2.Text+'",alamat="'+edit3.Text+'",');
sql.Add('no_hp="'+edit4.Text+'" where kd_pelanggan="'+edit1.text+'"');
execsql;
end;
tampildata;
bersihdata;
tombolmati;
showmessage('data telah berhasil disimpan');
edit1.SetFocus;
end;
end;
procedure TForm5.Button3Click(Sender: TObject);
begin
if messagedlg('apakah anda yakin akan menghapus data ini?',mtconfirmation,[mbyes,mbno],0)=mryes then
begin
with DM.query do
begin
sql.Clear;
sql.Add('delete from tabel_pelanggan where kd_pelanggan="'+edit1.Text+'"');
execsql;
end;
tampildata;
bersihdata;
tombolmati;
showmessage('data telah berhasil dihapus');
edit1.SetFocus;
end;
end;
procedure TForm5.Button4Click(Sender: TObject);
begin
if messagedlg('apakah anda yakin akan menutup form ini ?',mtconfirmation,[mbyes,mbno],0)=mryes then
close;
end;
procedure TForm5.Edit1Change(Sender: TObject);
begin
if edit1.text<>'' then
begin
with dm.query do
begin
sql.Clear;
sql.add('select*from tabel_pelanggan where kd_pelanggan="' +edit1.Text+'"');
open;
if not eof then
begin
edit2.Text := fieldvalues['nm_pelanggan'];
edit3.Text := fieldvalues['alamat'];
edit4.Text := fieldvalues['no_hp'];
tombolhidup;
end
else
begin
edit2.Clear;
edit3.Clear;
edit4.Clear;
tombolmati;
end;
end;
end;
end;
procedure TForm5.FormShow(Sender: TObject);
begin
tampildata;
bersihdata;
tombolmati;
end;
procedure tform5.tampildata;
begin
with DM.tampil do
begin
sql.Clear;
sql.Add('select*from tabel_pelanggan');
active := false;
active := true;
end;
end;
procedure tform5.bersihdata;
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
end;
procedure tform5.tombolmati;
begin
button1.Enabled := true;
button2.Enabled := false;
button3.Enabled := false;
end;
procedure tform5.tombolhidup;
begin
button1.Enabled := false;
button2.Enabled := true;
button3.Enabled := true;
end;
{$R *.dfm}
end.
Setelah itu kita letakkan script yang dibawah ini di form kedua.
unit Unit6;
interface
uses
SysUtils, Classes, DB, ADODB;
type
TDM = class(TDataModule)
koneksi: TADOConnection;
query: TADOQuery;
tampil: TADOQuery;
DS: TDataSource;
private
{ Private declarations }
public
{ Public declarations }
end;
var
DM: TDM;
implementation
{$R *.dfm}
end.
berikut adalah gambar printscreen yang sudah saya isi dengan database.
Pertama kita buat database terlebih dahulu seperti yang terlihat pada gambar dibawah ini.
Setelah itu kita buat form menggunakan data module cari di file lalu pilih new lalu other lalu pilih data module sperti gambar dibawah ini
setelah itu kita Tambahkan ADOConnection, ADOQuery, dan DataSource Pada Data Module lihat seperti gambar yang dibawah ini.
setelah itu kita Tambahkan ADOConnection, ADOQuery, dan DataSource Pada Data Module lihat seperti gambar yang dibawah ini.
Komponen
|
Properties
|
Value
|
Data Module
|
Name
|
DM
|
ADOConnection1
|
Name
|
Koneksi
|
Logint Prompt
|
False
|
|
ADOQuery1
|
Name
|
Query
|
Connection
|
Koneksi
|
|
Active
|
False
|
|
ADOQuery2
|
Name
|
Tampil
|
Connection
|
Koneksi
|
|
Active
|
False
|
|
DataSource1
|
Name
|
DS
|
Dataset
|
Tampil
|
setelah kita ketik semuanya kita buat ODBC nya lalu pilih event use connection string klik build kita pilih pelanggan setelah itu kita test connection lalu ok.
setelah semuanya jadi kita buat formnya seperti yang digambar dibawah ini.
Ok langsung coding full aja ya gan.
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, DBGrids;
type
TForm5 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
DBGrid1: TDBGrid;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Label5: TLabel;
procedure Edit1Change(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
procedure tampildata;
procedure bersihdata;
procedure tombolmati;
procedure tombolhidup;
public
{ Public declarations }
end;
var
Form5: TForm5;
implementation
uses unit6;
procedure TForm5.Button1Click(Sender: TObject);
begin
if length (edit1.Text)<>5 then
begin
messagedlg('maaf,kode barang harus 5 karakter!',mtwarning,mbokcancel,0);
edit1.SetFocus;
exit;
end;
if messagedlg('apakah anda yakin akan menyimpan data ini ?',mtconfirmation,[mbyes,mbno],0)=mryes then
begin
with DM.query do
begin
sql.Clear;
sql.Add('insert into tabel_pelanggan(kd_pelanggan,nm_pelanggan,alamat,no_hp)');
sql.Add('values("'+edit1.Text+'","'+edit2.Text+'","'+edit3.Text+'","'+edit4.Text+'")');
execsql;
end;
tampildata;
bersihdata;
tombolmati;
showmessage('data telah berhasil disimpan');
edit1.setfocus;
end;
end;
procedure TForm5.Button2Click(Sender: TObject);
begin
if messagedlg('apakah anda yakin akan mengubah data ini ?',mtconfirmation,[mbyes,mbno],0)=mryes then
begin
with DM.query do
begin
sql.clear;
sql.add('update tabel_pelanggan set nm_pelanggan="'+edit2.Text+'",alamat="'+edit3.Text+'",');
sql.Add('no_hp="'+edit4.Text+'" where kd_pelanggan="'+edit1.text+'"');
execsql;
end;
tampildata;
bersihdata;
tombolmati;
showmessage('data telah berhasil disimpan');
edit1.SetFocus;
end;
end;
procedure TForm5.Button3Click(Sender: TObject);
begin
if messagedlg('apakah anda yakin akan menghapus data ini?',mtconfirmation,[mbyes,mbno],0)=mryes then
begin
with DM.query do
begin
sql.Clear;
sql.Add('delete from tabel_pelanggan where kd_pelanggan="'+edit1.Text+'"');
execsql;
end;
tampildata;
bersihdata;
tombolmati;
showmessage('data telah berhasil dihapus');
edit1.SetFocus;
end;
end;
procedure TForm5.Button4Click(Sender: TObject);
begin
if messagedlg('apakah anda yakin akan menutup form ini ?',mtconfirmation,[mbyes,mbno],0)=mryes then
close;
end;
procedure TForm5.Edit1Change(Sender: TObject);
begin
if edit1.text<>'' then
begin
with dm.query do
begin
sql.Clear;
sql.add('select*from tabel_pelanggan where kd_pelanggan="' +edit1.Text+'"');
open;
if not eof then
begin
edit2.Text := fieldvalues['nm_pelanggan'];
edit3.Text := fieldvalues['alamat'];
edit4.Text := fieldvalues['no_hp'];
tombolhidup;
end
else
begin
edit2.Clear;
edit3.Clear;
edit4.Clear;
tombolmati;
end;
end;
end;
end;
procedure TForm5.FormShow(Sender: TObject);
begin
tampildata;
bersihdata;
tombolmati;
end;
procedure tform5.tampildata;
begin
with DM.tampil do
begin
sql.Clear;
sql.Add('select*from tabel_pelanggan');
active := false;
active := true;
end;
end;
procedure tform5.bersihdata;
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
end;
procedure tform5.tombolmati;
begin
button1.Enabled := true;
button2.Enabled := false;
button3.Enabled := false;
end;
procedure tform5.tombolhidup;
begin
button1.Enabled := false;
button2.Enabled := true;
button3.Enabled := true;
end;
{$R *.dfm}
end.
Setelah itu kita letakkan script yang dibawah ini di form kedua.
unit Unit6;
interface
uses
SysUtils, Classes, DB, ADODB;
type
TDM = class(TDataModule)
koneksi: TADOConnection;
query: TADOQuery;
tampil: TADOQuery;
DS: TDataSource;
private
{ Private declarations }
public
{ Public declarations }
end;
var
DM: TDM;
implementation
{$R *.dfm}
end.
berikut adalah gambar printscreen yang sudah saya isi dengan database.