Membuat Aplikasi Rumah Makan Sederhana Dengan Delphi

Apa Kabar Nich Kawan?? Semoga Tambah Caem Aja!! Haha... :D
Saya Mau Share Nich Sedikit Pengetahuan Tentang Pembuatan Aplikasi Rumah Makan Sederhana Dengan Menggunakan Bahasa Pemrograman Delphi. Mudah-Mudahan Bisa Menjadi Referensi Atau Tambahan Ilmu. Amiiinnnn...
Oke deh, Langsung Saja!!
Jadi Ceritanya di Sebuah Rumah Makan Mempunyai Beberapa Menu diantaranya : Paket Hemat, Menu Biasa, dll. dan Anggap Saja Kita Akan membuatkan Sebuah Program Aplikasi Untuk Rumah Makan Tersebut. Pertama-tama, Desain Tampilannya seperti dibawah ini
Paket Hemat

Menu Biasa

Form Pembayaran

Yang Mau Download Silahkan Disini!!

Nah, Untuk Listing Codenya Seperti Berikut :

// Event Form Create
procedure TForm1.FormCreate(Sender: TObject);
begin
Label9.Caption:=FormatDateTime('dd-mm-yyyy',Now);
bayar:=0;
end;

//Event JIka RadioGroup di Klik
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
Case RadioGroup1.ItemIndex of
0:
begin
Edit2.Text:='Plecing';
Edit3.Text:='Pecel';
Edit4.Text:='Nutrisari';
Edit5.Text:='10000';
end;
1:
begin
Edit2.Text:='Nasi Balap';
Edit3.Text:='Lumpia';
Edit4.Text:='Sosro';
Edit5.Text:='15000';
end;
2:
begin
Edit2.Text:='Nasi Goreng';
Edit3.Text:='Mie Sedaap';
Edit4.Text:='Air putih';
Edit5.Text:='20000';
end;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
harga,pajak,total : real;
begin
harga:=StrToFloat(Edit5.Text);
pajak:=0.05*(harga+bayar);
total:=harga+pajak+bayar;
Label10.Caption:=FloatToStr(pajak);
Label11.Caption:=FloatToStr(total);
Form2.Edit1.Text:=Label11.Caption;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
var
hargamakanan : real;
begin
Case ComboBox1.ItemIndex of
0:
begin
ListBox1.Items.Append('Nasi Goreng');
ListBox2.Items.Append('6000');
hargamakanan:=6000;
end;
1:
begin
ListBox1.Items.Append('Nasi Putih');
ListBox2.Items.Append('2000');
hargamakanan:=2000;
end;
end;
bayar:=bayar+hargamakanan;
Label15.Caption:=FloatToStr(bayar);
end;
procedure TForm1.ComboBox2Change(Sender: TObject);
var
hargaminuman : real;
begin
Case ComboBox2.ItemIndex of
0:
begin
ListBox1.Items.Append('Es Jeruk');
ListBox2.Items.Append('3000');
hargaminuman:=3000;
end;
1:
begin
ListBox1.Items.Append('Sosro');
ListBox2.Items.Append('2500');
hargaminuman:=2500;
end;
end;
bayar:=bayar+hargaminuman;
Label15.Caption:=FloatToStr(bayar);
end;

procedure TForm1.ListBox1Click(Sender: TObject);
var
i : integer;
begin
ListBox2.ItemIndex:=ListBox1.ItemIndex;
i:=ListBox2.ItemIndex;
Edit6.Text:=ListBox2.Items[i];
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if ListBox1.ItemIndex=-1 then
begin
MessageDlg('Silahkan Pilih Item Yang ingin di Hapus',mtInformation,[mbOK],0);
Abort;
end else
begin
ListBox1.DeleteSelected;
ListBox2.DeleteSelected;
bayar:=bayar-(StrToFloat(Edit6.Text));
Label15.Caption:=FloatToStr(bayar);
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Form2.ShowModal;
end;