Membuat Transaksi penjualan Komputer

Kali ini saya mau share aja mengenai Delphie,lagi-lagi  saya ada tugas kulaih yang dijadiin Home work ...
hummm semangat za !!
Screen shot gambar disamping merupakan tampilan form transaksi penjualan komputer  yang saya buat setelah akhirnya bisa running. :)
listing kodenya agak panjang,cuman kalo kita coba kerjain step by step,ringan kok .. nggak bikin pusing.
yang penting tau tata letak pengkodingannya.

                                                                                                                                                                       
Nah ini saya kasih tau cara mengerjakannya  :

1. Buat dulu formnya, cari di FILE-NEW FORM
2. Setelah itu insert Label , Textbox,dan Button dari toolbar standard sesuai dengan screen shot diatas.
3. Ubah Nama pada Label/Textbox & button yang anda buat sesuai keinginan ("Untuk memudahkan mengingat saja sebenarnya").
4. Mulai deh pengkodingannya ...
5. Setelah pengkodingan selesai , coba d RUN.. 
6. Good luck


^^^^ Kalau belum ngerti cara pengkodingannya,ni ada sedikit bocoran listing kodenya,coba di Copy-Paste aja,Tapi tetap d pelajari yah ... :D


type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Tel: TEdit;
    Almt: TEdit;
    Nama: TEdit;
    GroupBox1: TGroupBox;
    wind: TRadioButton;
    linux: TRadioButton;
    win: TEdit;
    lin: TEdit;
    GroupBox2: TGroupBox;
    hrg: TEdit;
    Label5: TLabel;
    Label6: TLabel;
    merk: TComboBox;
    GroupBox3: TGroupBox;
    antr: TCheckBox;
    ambl: TCheckBox;
    antar: TEdit;
    ambil: TEdit;
    ukem: TEdit;
    ubay: TEdit;
    tobay: TEdit;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    ex: TButton;
    lg: TButton;
    htg: TButton;

    procedure lgClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure merkClick(Sender: TObject);
    procedure linuxClick(Sender: TObject);
    procedure exClick(Sender: TObject);
    procedure ubayKeyPress(Sender: TObject; var Key: Char);
    procedure htgClick(Sender: TObject);
    procedure windClick(Sender: TObject);
    procedure antrClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
     procedure aktif;
    procedure nonaktif;
    procedure bersih;
  end;

var
  Form1: TForm1;
implementation
{$R *.dfm}

procedure TForm1.aktif;
begin
nama.Enabled:=true;
almt.Enabled:=true;
tel.Enabled:=true;
merk.Enabled:=true;
hrg.Enabled:=true;
antar.Enabled:=true;
ambil.Enabled:=true;
win.Enabled:=true;
lin.Enabled:=true;
tobay.Enabled:=true;
ubay.Enabled:=true;
ukem.Enabled:=true;
wind.Enabled:=true;
linux.Enabled:=true;
antr.Enabled:=true;
ambl.Enabled:=true;
end;

procedure TForm1.nonaktif;
begin
nama.Enabled:=false;
almt.Enabled:=false;
tel.Enabled:=false;
merk.Enabled:=false;
hrg.Enabled:=false;
antar.Enabled:=false;
ambil.Enabled:=false;
win.Enabled:=false;
lin.Enabled:=false;
tobay.Enabled:=false;
ubay.Enabled:=false;
ukem.Enabled:=false;
wind.Enabled:=false;
linux.Enabled:=false;
antr.Enabled:=false;
ambl.Enabled:=false;
end;

 

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

end;
procedure TForm1.windClick(Sender: TObject);
begin
if wind.Checked =true then
win.Text:='900000';
lin.Text:='0'
end;

procedure TForm1.linuxClick(Sender: TObject);
begin
if linux.Checked =true then
win.Text:='0';
lin.Text:='700000';
end;

procedure TForm1.antrClick(Sender: TObject);
begin
if antr.Checked =true then
antar.Text:='75000';
ambil.Text:='0'
end;

procedure TForm1.bersih;
begin
nama.Text:='';
almt.Text:='';
tel.Text:='';
merk.Text:='';
hrg.Text:='';
antar.Text:='';
ambil.Text:='';
win.Text:='';
lin.Text:='';
tobay.Text:='';
ubay.Text:='';
ukem.Text:='';
wind.Checked:=false;
linux.Checked:=false;
antr.Checked:=false;
ambl.Checked:=false;
end;

procedure TForm1.exClick(Sender: TObject);
begin
if(application.MessageBox('Tutup Aplikasi ini ?','Confirm',36)=idyes) then
close;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
merk.Items.Add('Asus');
merk.Items.Add('Accer');
merk.Items.Add('Toshiba');
end;

procedure TForm1.htgClick(Sender: TObject);
var a,b,c,d,e:real;
begin
a:=strtofloat(hrg.Text);
b:=strtofloat(win.Text);
c:=strtofloat(lin.Text);
d:=strtofloat(antar.Text);
e:=a+b+c+d;
tobay.Text:=floattostr(e);
end;

procedure TForm1.lgClick(Sender: TObject);
begin
aktif;
bersih;
nama.SetFocus;
end;

procedure TForm1.merkClick(Sender: TObject);
begin
if merk.Text ='Asus' then
begin
hrg.Text:='4000000';
end
else
if merk.Text ='Accer' then
begin
hrg.Text:='3500000';
end
else
begin
hrg.Text:='4800000';
end;
end;
end.