share sintak penjualan from buku

1. Contoh form buku
       unit ubuku;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, Buttons;

type
  Tfbuku = class(TForm)
    Label1: TLabel;
    edjudul: TEdit;
    Label2: TLabel;
    ednois: TEdit;
    Label3: TLabel;
    edpenulis: TEdit;
    Label4: TLabel;
    edpenerbit: TEdit;
    Label5: TLabel;
    edstok: TEdit;
    Label6: TLabel;
    edhargapokok: TEdit;
    Label7: TLabel;
    edhargajual: TEdit;
    Label8: TLabel;
    Label9: TLabel;
    edidbk: TEdit;
    Label10: TLabel;
    edtahun: TEdit;
    Label11: TLabel;
    eddiskon: TEdit;
    DBGrid1: TDBGrid;
    btambah: TButton;
    bhapus: TButton;
    bsimpan: TButton;
    breset: TButton;
    bubah: TButton;
    bkeluar: TButton;
    cbppn: TComboBox;
    SpeedButton1: TSpeedButton;
    procedure tampil1;
    procedure tampil2;
    procedure FormShow(Sender: TObject);
    procedure btambahClick(Sender: TObject);
    procedure tambah;
    procedure simpan;
    procedure bsimpanClick(Sender: TObject);
    procedure bhapusClick(Sender: TObject);
    procedure bresetClick(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure bubahClick(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fbuku: Tfbuku;

implementation
uses udm;

{$R *.dfm}

procedure Tfbuku.tampil1;
begin
edidbk.Text := '';
edjudul.Text:='';
ednois.Text :='';
edpenulis.Text:='';
edpenerbit.Text:='';
edtahun.Text:='';
edstok.Text:='';
edhargapokok.Text:='';
edhargajual.Text:='';
cbppn.Text:='';
eddiskon.Text:='';

bsimpan.Enabled:= false;
breset.Enabled:=false;
end;

procedure Tfbuku.tampil2;
begin
edidbk.Enabled:=false;
edjudul.Enabled:=false;
ednois.Enabled:=false;
edpenulis.Enabled:=false;
edpenerbit.Enabled:=false;
edtahun.Enabled:=false;
edstok.Enabled:=false;
edhargapokok.Enabled:=false;
edhargajual.Enabled:=false;
cbppn.Enabled:=false;
eddiskon.Enabled:=false;

bsimpan.Enabled:=false;
breset.Enabled:=false;
bubah.Enabled:=true;
bhapus.Enabled:=true;
end;

procedure Tfbuku.FormShow(Sender: TObject);
begin
tampil1;
tampil2;
end;

procedure Tfbuku.btambahClick(Sender: TObject);
begin
tambah;
end;

procedure Tfbuku.tambah;
begin
edidbk.Enabled:= true;
edjudul.Enabled:= true;
ednois.Enabled:=true;
edpenulis.Enabled:=true;
edpenerbit.Enabled:=true;
edtahun.Enabled:=true;
edstok.Enabled:=true;
edhargapokok.Enabled:=true;
edhargajual.Enabled:=true;
cbppn.Enabled:=true;
eddiskon.Enabled:=true;

bsimpan.Enabled:=true;
bubah.Enabled:=true;
breset.Enabled:=true;
end;

procedure Tfbuku.simpan;
begin

edidbk.Text := '';
edjudul.Text:='';
ednois.Text :='';
edpenulis.Text:='';
edpenerbit.Text:='';
edtahun.Text:='';
edstok.Text:='';
edhargapokok.Text:='';
edhargajual.Text:='';
cbppn.Text:='';
eddiskon.Text:='';

bsimpan.Enabled:= false;
breset.Enabled:=false;

end;

procedure Tfbuku.bsimpanClick(Sender: TObject);
begin
DM.aqbuku.Append;
DM.aqbuku['id_buku'] := edidbk.Text;
DM.aqbuku['judul'] := edjudul.Text;
DM.aqbuku['noisbn'] := ednois.Text;
DM.aqbuku['penulis'] := edpenulis.Text;
DM.aqbuku['penerbit'] := edpenerbit.Text;
DM.aqbuku['tahun'] := edtahun.Text;
DM.aqbuku['stok']  := edstok.Text;
DM.aqbuku['harga_pokok'] := edhargapokok.Text;
DM.aqbuku['harga_jual'] := edhargajual.Text;
DM.aqbuku['ppn'] := cbppn.Text;
DM.aqbuku['diskon'] := eddiskon.Text;
DM.aqbuku.Post;
end;

procedure Tfbuku.bhapusClick(Sender: TObject);
begin
DM.aqbuku.Delete;
end;

procedure Tfbuku.bresetClick(Sender: TObject);
begin
edidbk.Text := '';
edjudul.Text:='';
ednois.Text :='';
edpenulis.Text:='';
edpenerbit.Text:='';
edtahun.Text:='';
edstok.Text:='';
edhargapokok.Text:='';
edhargajual.Text:='';
cbppn.Text:='';
eddiskon.Text:='';
end;

procedure Tfbuku.DBGrid1DblClick(Sender: TObject);
begin
edidbk.Text := DM.aqbuku['id_buku'];
edjudul.Text := DM.aqbuku['judul'];
ednois.Text := DM.aqbuku['noisbn'];
edpenulis.Text := DM.aqbuku ['penulis'];
edpenerbit.Text := DM.aqbuku ['penerbit'];
edtahun.Text := DM.aqbuku['tahun'];
edstok.Text :=DM.aqbuku['stok'];
edhargapokok.Text := DM.aqbuku ['harga_pokok'];
edhargajual.Text := DM.aqbuku ['harga_jual'];
cbppn.Text := DM.aqbuku ['ppn'];
eddiskon.Text := DM.aqbuku ['diskon'];
end;

procedure Tfbuku.bubahClick(Sender: TObject);
begin
DM.aqbuku.Edit;
DM.aqbuku['id_buku'] := edidbk.Text;
DM.aqbuku['judul'] := edjudul.Text;
DM.aqbuku['noisbn'] := ednois.Text;
DM.aqbuku['penulis'] := edpenulis.Text;
DM.aqbuku['penerbit'] := edpenerbit.Text;
DM.aqbuku['tahun'] := edtahun.Text;
DM.aqbuku['stok']  := edstok.Text;
DM.aqbuku['harga_pokok'] := edhargapokok.Text;
DM.aqbuku['harga_jual'] := edhargajual.Text;
DM.aqbuku['ppn'] := cbppn.Text;
DM.aqbuku['diskon'] := eddiskon.Text;
DM.aqbuku.Post;
end;

procedure Tfbuku.SpeedButton1Click(Sender: TObject);
begin
edhargajual.Text:= FloatToStr(StrToFloat(edhargapokok.Text)+
(StrToFloat(edhargapokok.Text)*(StrToFloat(cbppn.Text)/100))-
StrToFloat(edhargapokok.Text)*(StrToFloat(eddiskon.Text)/100));
end;

end.