Membuat Aplikasi sederhana dengan borland Delphi 7

Assalamualaikum wr.wb

Hallo gaes disini saya akan mengeshare tugas saya yang dahulu yaitu membuat aplikasi sederhana toko yaitu denagn menggunakan Borland Delphi 7. disini jangan dibuat susah yang bro kalo ada yang gak berhasil jangan sungkan sungkan untuk bertanya. atau kalian tinggal copy paste saja bro. yang penting jangan sampe salah menempatkan kode dan atribut/button yang digunakan ya bro saat mengompile aplikasi jangan lupa baca basmallah biar lancar dan berhasil ya bro.


Gambar Hasil Program yang saya Buat

 

Atribut yang saya gunakan

Struktur kode yang dituliskan dalam program

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    GroupBox1: TGroupBox;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    Label8: TLabel;

    Label9: TLabel;

    Label10: TLabel;

    Label11: TLabel;

    Label12: TLabel;

    GroupBox2: TGroupBox;

    RadioButton1: TRadioButton;

    RadioButton2: TRadioButton;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Edit4: TEdit;

    Edit5: TEdit;

    Edit6: TEdit;

    Edit7: TEdit;

    Edit8: TEdit;

    Edit9: TEdit;

    Edit10: TEdit;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    ComboBox1: TComboBox;

    GroupBox3: TGroupBox;

    Label13: TLabel;

    Label14: TLabel;

    Label15: TLabel;

    Label16: TLabel;

    Label17: TLabel;

    Label18: TLabel;

    Label19: TLabel;

    Label20: TLabel;

    Label21: TLabel;

    Label23: TLabel;

    Label22: TLabel;

    Edit11: TEdit;

    Edit12: TEdit;

    Edit13: TEdit;

    Edit14: TEdit;

Edit15: TEdit;

    Edit16: TEdit;

    Edit17: TEdit;

    Edit18: TEdit;

    Edit19: TEdit;

    Edit20: TEdit;

    Edit21: TEdit;

    procedure ComboBox1Change(Sender: TObject);

    procedure Edit5Change(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure RadioButton1Click(Sender: TObject);

    procedure RadioButton2Click(Sender: TObject);

    procedure Edit7Change(Sender: TObject);

    procedure Edit9Change(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ComboBox1Change(Sender: TObject);

begin

combobox1.Items.Add('Battlax');

combobox1.Items.Add('Helm');

combobox1.Items.Add('Handle Kopling');

if combobox1.Text ='Battlax' then

edit4.Text := '1500000'

else if combobox1.Text ='Helm' then

edit4.Text := '500000'

else if combobox1.Text ='Handle Kopling' then

edit4.Text := '450000'

else edit4.Text := '0'

end;

procedure TForm1.Edit5Change(Sender: TObject);

begin

edit6.Text:=inttostr(strtoint(edit4.Text)*strtoint(edit5.Text));

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

close;

end;

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

if(radiobutton1.Checked)then edit7.Text:=inttostr(strtoint(edit4.Text)*10 div 100)

else if(radiobutton2.Checked) then edit7.Text:='0';

end;

procedure TForm1.RadioButton2Click(Sender: TObject);

begin

if(radiobutton1.Checked)then edit7.Text:=inttostr(strtoint(edit4.Text)*10 div 100)

else if(radiobutton2.Checked) then edit7.Text:='0';

end;

procedure TForm1.Edit7Change(Sender: TObject);

begin

edit8.Text:=inttostr(strtoint(edit6.Text)-strtoint(edit7.Text)*strtoint(edit5.Text));

end;

procedure TForm1.Edit9Change(Sender: TObject);

begin

edit10.Text:=inttostr(strtoint(edit9.Text)-strtoint(edit8.Text));

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

edit11.Text:=edit1.Text;

edit12.Text:=edit2.Text;

edit13.Text:=edit3.Text;

edit14.Text:=combobox1.Text;

edit15.Text:=edit4.Text;

edit16.Text:=edit5.Text;

edit17.Text:=edit6.Text;

edit18.Text:=edit7.Text;

edit19.Text:=edit8.Text;

edit20.Text:=edit9.Text;

edit21.Text:=edit10.Text;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

edit1.Text:='';

edit2.Text:='';

edit3.Text:='';

combobox1.Text:='';

edit4.Text:='0';

edit5.Text:='0';

edit6.Text:='0';

radiobutton1.checked:=false;

radiobutton2.Checked:=false;

edit7.Text:='0';

edit8.Text:='0';

edit9.Text:='0';

edit10.Text:='0';

edit11.Text:='';

edit12.Text:='';

edit13.Text:='';

edit14.Text:='';

edit15.Text:='';

edit16.Text:='';

edit17.Text:='';

edit18.Text:='';

edit19.Text:='';

edit20.Text:='';

edit11.Text:='';

edit1.SetFocus;

end;

end.

SEKIAN BRO JANGAN LUPA TINGGALKAN KOMENTAR