Data Barang Menggunakan Delphi 2010

Tugas Tabel Pelanggan

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.

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.

Read More

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.

Read More

Nonton TV Online

Read More

Kandungan Gizi dan Manfaat Kacang Merah Untuk Kesehatan

Mungkin kacang yang satu ini belum begitu familiar dan populer buat kita, tidak seperti halnya kacang tanah, kacang kedelai, dan kacang hijau yang sering di konsumsi dan sangat populer bagi masyarakat indonesia. Karena memang kacang tanah, kacang kedelai dan kacang hijau lebih sering di jadikan makanan olahan, apalagi kacang kedelai yg memang merupakan bahan baku pembuat tempe dan tahu, sehingga kacang tersebut sangat populer untuk masyarakat indonesia. Tapi bukan berarti kacang merah tidak bisa seperti kacang kedelai, kacang tanah maupun kacang hijau, kacang merah juga bisa di olah menjadi berbagai jenis makanan, salah satunya es kacang merah yg super enak. Seperti halnya jenis kacang kacangan, kacang merah juga memiliki nilai gizi yang tinggi juga loh.. dan sangat baik untuk kesehatan kita, mau tau ? untuk lebih jelasnya baca uraian di bawah ini.. 

Read More

INILAH 5 BANK TERTUA yang ada DI DUNIA

Bank of New York (sekarang Bank of New York Mellon)
New York, New York (Didirikan 1784)


Ini dimulai dengan siaran pers di New York paket, mengumumkan rencana untuk membentuk New York bank pertama pada tahun 1784. Alexander Hamilton, seorang pengacara dihormati pada waktu itu, merancang konstitusi bank dan memimpin Bank of New York melalui pembentukan dan awal tahun. Delapan tahun kemudian, itu adalah perusahaan pertama yang akan diperdagangkan secara publik ketika New York Stock Exchange dibuka pada tahun 1792. Ada juga yang berlimpah sejarah di balik Mellon Financial Corporation dating kembali ke Revolusi Industri, yang bergabung dengan Bank di New York pada tahun 2007 menjadi Bank of New York Mellon. Hari ini, itu adalah bank tertua di Amerika Serikat, dan mereka mendapatkan untuk memiliki Satu Wall Street sebagai alamat mereka untuk membuktikannya.

Read More

SEJARAH PERUMUSAN PANCASILA bangsa Indonesia

PANCASILA

Sejarah perumusan Pancasila ini berawal dari pemberian janji kemerdekaan di kemudian hari kepada bangsa Indonesia oleh Perdana Menteri Jepang saat itu, Kuniaki Koiso (國昭 小磯 atau 国昭 小磯) pada tanggal 7 September 1944. Lalu, pemerintah Jepang membentuk BPUPKI (Badan Penyelidik Usaha-Usaha Persiapan Kemerdekaan Indonesia) pada tanggal 1 Maret 1945 (2605, tahun Showa 20) yang bertujuan untuk mempelajari hal-hal yang berhubungan dengan tata pemerintahan Indonesia Merdeka.

Read More