Form Dealer Tunai Jaya

Gambar diatas adalah Screen shot dari aplikasi penjualan motor menggunakann Delphie Xe,beserta Coding yang saya lampirkan dibawahnya.
Programnya sih alhamdulillah Running ,dan belum d temukan error.. mmm tapi sepertinya belum begitu oke kalo belum terkoneksi menggunakan database.

Nah ini guys Source codenya,saya tulis se simple mungkin biar gampang diinget,gak usah panjang-panjang lah yah,ntar yang ada tambah Riwett ...hhee
Semoga bermanfaat . @_@


unit Dealer;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    pot: TEdit;
    napem: TEdit;
    total: TEdit;
    jumbel: TEdit;
    hrg: TEdit;
    ppn: TEdit;
    tel: TEdit;
    jns: TComboBox;
    merk: TComboBox;
    GroupBox1: TGroupBox;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    ubay: TEdit;
    tobay: TEdit;
    ukem: TEdit;
    ad: TButton;
    ex: TButton;

    procedure exClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure adClick(Sender: TObject);
    procedure jumbelKeyPress(Sender: TObject; var Key: Char);
    procedure ubayKeyPress(Sender: TObject; var Key: Char);
    procedure merkClick(Sender: TObject);
    procedure potKeyPress(Sender: TObject; var Key: Char);

  private
    { Private declarations }
  public
    { Public declarations }
    procedure aktif;
    procedure nonaktif;
    procedure bersih;
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}


procedure TForm1.bersih;
begin
napem.Text:='';
tel.Text:='';
merk.Text:='';
jns.Text:='';
hrg.Text:='';
total.Text:='';
pot.Text:='';
ppn.Text:='';
ubay.Text:='';
tobay.Text:='';
ukem.Text:='';
jumbel.Text:=''
end;

procedure TForm1.adClick(Sender: TObject);
begin
aktif;
bersih;
napem.SetFocus;
end;

procedure TForm1.aktif;
begin
napem.Enabled:=true;
tel.Enabled:=true;
merk.Enabled:=true;
jns.Enabled:=true;
hrg.Enabled:=true;
total.Enabled:=true;
pot.Enabled:=true;
ppn.Enabled:=true;
ubay.Enabled:=true;
tobay.Enabled:=false;
ukem.Enabled:=true;
jumbel.Enabled:=true;
end;

procedure TForm1.exClick(Sender: TObject);
begin
close
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
nonaktif;
bersih;
merk.Items.Add('Honda');
merk.Items.Add('Yamaha');
merk.Items.Add('Suzuki');
end;

procedure TForm1.jumbelKeyPress(Sender: TObject; var Key: Char);
var a,b,c,d:real;
begin
if key=#13 then
begin
a:=strtofloat(hrg.Text);
b:=strtofloat(jumbel.Text);
c:=a*b;
total.Text:=floattostr(c);
d:=(a*b)*0.10;
ppn.Text:=floattostr(d);
end;
end;

procedure TForm1.merkClick(Sender: TObject);
 begin
 if merk.ItemIndex=0 then
 begin
 jns.Text:='Vario 125' ;
 hrg.Text:='20000000';
 end
 else
 if  merk.ItemIndex=1 then
 begin
 jns.Text:='Mio Ji';
 hrg.Text:='13000000' ;
 end
 else
 begin
 jns.Text:='Smash' ;
 hrg.Text:='11000000';
 end;
end;

procedure TForm1.nonaktif;
begin
napem.Enabled:=false;
tel.Enabled:=false;
merk.Enabled:=false;
jns.Enabled:=false;
hrg.Enabled:=false;
total.Enabled:=false;
pot.Enabled:=false;
ppn.Enabled:=false;
ubay.Enabled:=false;
tobay.Enabled:=false;
ukem.Enabled:=false;
jumbel.Enabled:=false;
end;

procedure TForm1.potKeyPress(Sender: TObject; var Key: Char);
var a,b,c,d:real;
begin
if key=#13 then
begin
a:=strtofloat(total.Text);
b:=strtofloat(pot.Text);
c:=strtofloat(ppn.Text);
d:=a-b+c;
tobay.Text:=floattostr(d);
end;
end;

procedure TForm1.ubayKeyPress(Sender: TObject; var Key: Char);
var a,b,c,d:real;
begin
if key=#13 then
begin
a:=strtofloat(ubay.Text);
b:=strtofloat(tobay.Text);
c:=a-b;
ukem.Text:=floattostr(c);
end;
end;
end.



---- Lucrative Next to You ----