Membuat Nota Pembayaran menggunakan Aplikasi Borland Delphi

Berikut langkah-langkah membuat Nota pembayaran menggunakan aplikasi borlan delphi ;

1. Buka aplikasi borland delphi dan buat desain seperti dibawah ini 

 

2. Jika sudah masukkan kodingan seperti dibawah ini ;

procedure TForm1.BTNINPUTClick(Sender: TObject);
begin
CMBKODE.Text:='';
TNAMA.Text:='';
THARGA.Text:='';
TJUMLAH.Text:='';
TBAYAR.Text:='';
CMBKODE.SetFocus

end;

procedure TForm1.BTNEXITClick(Sender: TObject);
begin
APPLICATION.Terminate;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
TNAMA.Enabled:=FALSE;
THARGA.Enabled:=FALSE;
TBAYAR.Enabled:=FALSE;
end;

procedure TForm1.BTNPROSESClick(Sender: TObject);
VAR
SKODE,SNAMA,SBYR:STRING[30];
TSEM:INTEGER;
SHRG,SJML,SBAYAR:SINGLE;
BEGIN
IF CMBKODE.Text='SU01' THENTNAMA.Text:='SUSU DANCOW';
IF CMBKODE.Text='SV03' THEN
TNAMA.Text:='SILVER QUEEN';
IF CMBKODE.Text='IDM01' THEN
TNAMA.Text:='INDOMIE GORENG';
IF CMBKODE.Text='SOU05' THEN
TNAMA.Text:='SAUS TOMAT';
IF CMBKODE.Text='SU01' THEN
SHRG:=7500;
IF CMBKODE.Text='SV03' THEN
SHRG:=10000;
IF CMBKODE.Text='IDM01' THEN
SHRG:=15000;
IF CMBKODE.Text='SOU05' THEN
SHRG:=5000;
VAL(THARGA.Text,SHRG,TSEM);
VAL(TJUMLAH.Text,SJML,TSEM);
SBAYAR:=SHRG*SJML;
STR(SBAYAR:30:0,SBYR);
TBAYAR.Text:=SBYR;
end;

procedure TForm1.CMBKODEChange(Sender: TObject);
begin
IF CMBKODE.Text='SU01' THEN
TNAMA.Text:='SUSU DANCOW';
IF CMBKODE.Text='SV03' THEN
TNAMA.Text:='SILVER QUEEN';
IF CMBKODE.Text='IDM01' THEN
TNAMA.Text:='INDOMIE GORENG';
IF CMBKODE.Text='SOU05' THEN
TNAMA.Text:='SAUS TOMAT';
IF CMBKODE.Text='SU01' THEN
THARGA.Text:='7500';
IF CMBKODE.Text='SV03' THEN
THARGA.Text:='10000';
IF CMBKODE.Text='IDM01' THENTHARGA.Text:='15000';
IF CMBKODE.Text='SOU05' THEN
THARGA.Text:='5000';
end;

end. 

3. lalu RUN program 

 

yak sekian. terimakasih^^