Rabu, 02 November 2011

Contoh program penjualan Dengan Delphi



pingin buat program penjualan kayak di samping?


tenang ni aku kasih kodenya






Rumus Editannya
Ø  Cara Menampilkan Identitas

procedure TForm1.identitasChange(Sender: TObject);
var
 videntitas: String;
begin
videntitas := identitas.text;
if videntitas = '1' then
ketidentitas.text := 'KTP';
if videntitas = '2' then
ketidentitas.Text := 'SIM';
if videntitas = '3' then
ketidentitas.Text := 'PASPOR';
end;

Ø  Cara Menampilkan Jenis Kelamin

procedure TForm1.kelaminChange(Sender: TObject);
var
vkelamin: string;
begin
vkelamin:= kelamin.Text ;
if vkelamin = 'L' then
ketkelamin.Text := ' LAKI -LAKI ';
if vkelamin = 'W' then
ketkelamin.Text:= ' Wanita';
end;

Ø  Cara Menampilkan Agama

procedure TForm1.agamaChange(Sender: TObject);
var
vagama: string ;
begin
vagama:= agama.Text;
if vagama = '1' then
ketagama.text := 'Islam';
if vagama = '2'    then
ketagama.text := 'Kristen'  ;
if vagama = '3'    then
ketagama.text := 'Protestan';
if vagama = '4'   then
ketagama.text := 'Hindu' ;
if vagama = '5'    then
ketagama.text := 'Budha';
if vagama = '6'    then
ketagama.text := 'Lainnya';
end;

Ø  Cara Menampilkan Status Rumah

procedure TForm1.statusChange(Sender: TObject);
var
vstatus:string;
begin
vstatus:= Status.text ;
if vstatus ='1' then
ketstatus.text := 'Rumah Sendiri';
if vstatus = '2'    then
ketstatus.text := 'Rumah Orang tua' ;
if vstatus = '3'    then
ketstatus.text := 'Kontrakan' ;
end;

Ø  Cara Menampilkan Type Sepeda

procedure TForm1.typesepedaChange(Sender: TObject);
var
vtypesepeda : string;
begin
vtypesepeda := typesepeda.text;
if vtypesepeda = 'SP1' THEN
BEGIN
sepeda.Text :='Supra Fit 110 CC Tromol';
jual.Text := '10500000';
bonus.Text := ' Rice Cooker';
END
else
if vtypesepeda = 'SP2' THEN
begin
sepeda.Text :='Supra Fit 110 CC Cakram';
jual.Text := '11500000';
bonus.Text := 'TV 14"';
end
else
if vtypesepeda = 'KX1' THEN
begin
sepeda.Text :='Kharisma 125 CC Tromol';
jual.Text := '13500000';
bonus.Text := 'TV 20"';
end
else
if vtypesepeda = 'KX2' THEN
begin
sepeda.Text :='Kharisma 125 CC Cakram';
jual.Text := '14500000';
bonus.Text := 'DVD Player';
end
else
if vtypesepeda = 'SPX1' THEN
begin
sepeda.Text :='Supra X 110 CC Tromol';
jual.Text := '14500000';
bonus.Text := 'TV 25"';
end
else
if vtypesepeda = 'SPX2' THEN
begin
sepeda.Text :='Supra X 110 CC Cakram';
jual.Text := '15500000';
bonus.Text := 'TV 29"';
end;
end;

Ø  Cara Menampilkan Penghasilan

procedure TForm1.penghasilanChange(Sender: TObject);
var
vpenghasilan: string;
begin
vpenghasilan := penghasilan.Text;
if vpenghasilan < '1000000' then
begin
ketpenghasilan.Text := 'Ditolak';
end
else
ketpenghasilan.Text := 'Diterima';
end;

Ø  Cara Menampilkan Total Kredit

procedure TForm1.totalChange(Sender: TObject);
var
vtotal,x,n : integer;
begin
x:=  strtoint(jual.text);
n := strtoint(uangmuka.Text);
vtotal := x - n ;
total.Text := inttostr (vtotal);
end;

Ø  Cara Menampilkan Angsuran

procedure TForm1.angsuranChange(Sender: TObject);
Var
x,n: integer;
y ,t: real;
begin
x := strtoint(total.Text);
n := strtoint(jangkawaktu.text);
y := (x + ((0.2 * n) / (12 * x) ));
t := y/n;
angsuran.text := floattostr(t);
end;
Ø  Cara Mengeluarkan Program
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
end.

Pingin tau Hasilnya??
Download