Membuat Aplikasi Data Simpan Barang Menggunakan Delphi

hemm...
selamat sore ya gan.
kebetulan neh dapat tugas dari dosen posting tentang mata kuliah delphi.
Kebetulan tugas nya kali ini tentang pembuatan barang seperti kode barang, harga barang, stok dan lain2.

Pertama-tama kita buat formnya terlebih dahulu seperti yang terlihat pada gambar dibawah ini.
maap ya gan itu databasenya sudah terisi. Biar ada bukti aja kalau ini udah bisa jalan.
hehehe




Setelah itu Kita buat databasenya di localhost./phpmyadmin.
oke ikutin aja database seperti yang saya buat, supaya nanti tidak salah lage.
ikutin seperti gambar yang dibawah ini ya.

Ok langsung coding full aja ya gan.

Coding Lengkap :

unit Unit4;

interface

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

type
TForm4 = class(TForm)
ekdbarang: TEdit;
enmbarang: TEdit;
ehrgbeli: TEdit;
ehrgjual: TEdit;
estok: TEdit;
label1: TLabel;
label2: TLabel;
label3: TLabel;
label4: TLabel;
label5: TLabel;
btambah: TButton;
bsimpan: TButton;
bbatal: TButton;
bexit: TButton;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
Table1: TTable;
Query1: TQuery;
procedure FormCreate(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure btambahClick(Sender: TObject);
procedure ekdbarangKeyPress(Sender: TObject; var Key: Char);
procedure bsimpanClick(Sender: TObject);
procedure bbatalClick(Sender: TObject);
procedure bexitClick(Sender: TObject);
procedure DBGrid1CellClick(Column: TColumn);
private
{ Private declarations }
public
procedure tampil;
procedure kosong;
procedure mati;
procedure hidup;

{ Public declarations }
end;

var
Form4: TForm4;

implementation
procedure tform4.tampil;
begin
ekdbarang.Text := table1['kode_brg'];
enmbarang.Text := table1['nama_brg'];
ehrgbeli.Text := floattostr(table1['harga_beli']);
ehrgjual.Text := floattostr(table1['harga_jual']);
estok.Text := floattostr(table1['stok']);
end;

procedure tform4.mati;
begin
ekdbarang.Enabled := false;
enmbarang.Enabled := false;
ehrgbeli.Enabled := false;
ehrgjual.Enabled := false;
estok.Enabled := false;
end;

procedure tform4.hidup;
begin
ekdbarang.Enabled := true;
enmbarang.Enabled := true;
ehrgbeli.Enabled := true;
ehrgjual.Enabled := true;
estok.Enabled := true;
end;

procedure tform4.kosong;
begin
ekdbarang.text := '';
enmbarang.text := '';
ehrgbeli.text := '';
ehrgjual.text := '';
estok.text:= '';
end;

{$R *.dfm}

procedure TForm4.bbatalClick(Sender: TObject);
begin
kosong;
table1.First;
tampil;
mati;
end;

procedure TForm4.bexitClick(Sender: TObject);
begin
table1.Close;
close;
end;

procedure TForm4.bsimpanClick(Sender: TObject);
begin
table1.Append;
table1['kode_brg'] := ekdbarang.Text;
table1['nama_brg'] := enmbarang.Text;
table1['harga_beli'] := strtofloat(ehrgbeli.Text);
table1['harga_jual'] := strtofloat(ehrgjual.Text);
table1['stok'] := strtofloat(estok.Text);
table1.Post;
mati;
end;

procedure TForm4.btambahClick(Sender: TObject);
begin
mati;
ekdbarang.Enabled := true;
enmbarang.Enabled := true;
ehrgbeli.Enabled := true;
ehrgjual.Enabled := true;
estok.Enabled := true;
bsimpan.Enabled := true;
form4.ActiveControl := ekdbarang;
kosong;
end;



procedure TForm4.DBGrid1CellClick(Column: TColumn);
begin
tampil;
end;

procedure TForm4.ekdbarangKeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
begin
if table1.FindKey([ekdbarang.Text]) then
begin
showmessage('data sudah ada');
exit;
end
else
hidup;
ekdbarang.Enabled := false;
form4.ActiveControl := enmbarang;
end;
end;


procedure TForm4.FormActivate(Sender: TObject);
begin

tampil;
mati;
bsimpan.enabled := false;
end;


procedure TForm4.FormCreate(Sender: TObject);
begin
table1.DatabaseName := 'tabel';
table1.TableName := 'informasi_toko';
table1.Active := true;
datasource1.dataset := table1;
end;
end.

setelah semuanya jadi jgn lupa kita ubah propertiesnya table1
active menjadi true, database nya kita buat tabel, table name nya kita buat informasi_toko seperti nama yang ada di database.
Setelah itu query1 kita ubah propertiesnya
active menjadi true
dan di SQL kita tulis select*from informasi_toko
setelah itu datasource kita ubah juga
lihat seperti gambar dibawah ini





setelah semuanya jadi mari kita lanjut lage membuat odbc. Cari control panel pilih administrative tools lalu pilih Data Sources(ODBC) lalu klik Add cari mysql ODBC lalu double klik. Setelah di double klik kita isi Data souce name: Tabel
TCP/IP : localhost
User : Root
Databasenya kita dengan nama database yang kita buat di localhost/phpmyadmin setelah itu di test. lalu klik Ok.

Dan Selesailah semuanya..
Semoga berhasil ya gan.