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.