Membuat Aplikasi Transaksi Sederhana Menggunakan Delphi - Apabila Anda sedang mencari informasi terkait dengan Membuat Aplikasi Transaksi Sederhana Menggunakan Delphi, maka anda ada di website yang benar, yaitu Aneka source code aplikasi, Rekomendasi kami untuk Membuat Aplikasi Transaksi Sederhana Menggunakan Delphi berikut mungkin adalah cocok dengan yang anda butuhkan saat ini.

Membuat Aplikasi Transaksi Sederhana Menggunakan Delphi

Proses transaksi terkadang membuat kita menjadi bingung, apalagi jika prosesnya tidak terdokumentasi dengan rapi. untuk itu kali ini kami mencoba share source code untuk membuat aplikasi transaksi sederhana menggunakan delphi.



Berikut ini adalah source codenya, silahkan sobat copy dan praktekkan.
Komponen yang digunakan :

- Komponen Standart : Panel, Edit, Label, Memo, Button
Listing Program :

[php]

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
GroupBox3: TGroupBox;
GroupBox4: TGroupBox;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
ComboBox3: TComboBox;

Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Memo1: TMemo;
Memo2: TMemo;
Memo3: TMemo;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Memo4: TMemo;
Memo5: TMemo;
Edit7: TEdit;
Memo6: TMemo;
Timer1: TTimer;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure ComboBox2Change(Sender: TObject);
procedure ComboBox3Change(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
var harga1,harga2,harga3,tot1,tot2,tot3,total,diskon,uang,bayar,kembali: currency;
jml1,jml2,jml3:integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox1.Text:=’ -Pilih-’;
ComboBox2.Text:=’ -Pilih-’;
ComboBox3.Text:=’ -Pilih-’;
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit4.Clear;
Edit5.Clear;
Edit6.Clear;
Edit7.Clear;
Memo1.Clear;
Memo2.Clear;
Memo3.Clear;
Memo4.Clear;
Memo5.Clear;
Memo6.Clear;
Button2.Visible:=false;
Button3.Visible:=false;
Button4.Visible:=false;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
harga1:=StrToCurr(Edit1.Text);
harga2:=StrToCurr(Edit2.Text);
harga3:=StrToCurr(Edit3.Text);
jml1:=StrToInt(Edit4.Text);
jml2:=StrToInt(Edit5.Text);
jml3:=StrToInt(Edit6.Text);
tot1:=harga1*jml1;
tot2:=harga2*jml2;
tot3:=harga3*jml3;
Memo1.Text:=CurrToStr(tot1);
Memo2.Text:=CurrToStr(tot2);
Memo3.Text:=CurrToStr(tot3);
total:=tot1+tot2+tot3;
Memo4.Text:=CurrToStr(total);
Button2.Visible:=True;
Button3.Visible:=True;
Button4.Visible:=True;

total:=StrToCurr(Memo4.Text);
if total>=2000000 then
diskon:=100000
else diskon:=50000;
Memo5.Text:=CurrToStr(diskon);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
uang:=StrToCurr(Edit7.Text);
bayar:=total-diskon;
kembali:=uang-bayar;
Memo6.Text:=CurrToStr(kembali);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
ComboBox1.Text:=’ -Pilih-’;
ComboBox2.Text:=’ -Pilih-’;
ComboBox3.Text:=’ -Pilih-’;
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit4.Clear;
Edit5.Clear;
Edit6.Clear;
Edit7.Clear;
Memo1.Clear;
Memo2.Clear;
Memo3.Clear;
Memo4.Clear;
Memo5.Clear;
Memo6.Clear;
Button2.Visible:=false;
Button3.Visible:=false;
Button4.Visible:=false;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Application.Terminate;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.ItemIndex=0 then
harga1:=2000000
else if ComboBox1.ItemIndex=1 then
harga1:=1000000
else if ComboBox1.ItemIndex=2 then
harga1:=500000;

Edit1.Text:=CurrToStr(harga1);
end;
procedure TForm1.ComboBox2Change(Sender: TObject);
begin
if ComboBox2.ItemIndex=0 then
harga2:=200000
else if ComboBox2.ItemIndex=1 then
harga2:=100000
else if ComboBox2.ItemIndex=2 then
harga2:=50000;


Edit2.Text:=CurrToStr(harga2);
end;

procedure TForm1.ComboBox3Change(Sender: TObject);
begin
if ComboBox3.ItemIndex=0 then
harga3:=250000
else if ComboBox3.ItemIndex=1 then
harga3:=150000
else if ComboBox3.ItemIndex=2 then
harga3:=100000;


Edit3.Text:=CurrToStr(harga3);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label7.Caption:=TimeToStr(now);
Label6.Caption:=DateToStr(now);
end;
end.
[/php]

 

Terima kasih telah membaca tentang Membuat Aplikasi Transaksi Sederhana Menggunakan Delphi

Aneka Source Code Aplikasi - Membuat Aplikasi Transaksi Sederhana Menggunakan Delphi, Semoga bisa membantu anda dalam belajar pemrograman atau mungkin dapat juga menjadi ide atau inspirasi untuk membuat karya baru yang lebih baik lagi.

Anda sedang membaca Membuat Aplikasi Transaksi Sederhana Menggunakan Delphi artikel tentang aneka source code aplikasi https://anekasourcecode.blogspot.com/2016/02/membuat-aplikasi-transaksi-sederhana.html Semoga blog sederhana ini dapat membantu dan bermanfaat bagi anda.

Tweet