Source Code Aplikasi Kasir Sederhana Dengan Lazarus

Sesuai janji saya ke Mbak Nisa, saya posting source kode untuk aplikasi kasir sederhana yang saya posting sebelumnya, ini sangat sederhana namun untuk pengembangan tergantung dari saudara2…

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
ExtCtrls;

private
{ private declarations }
public
{ public declarations }
var
harga1,harga2,harga3,harga4,harga5,qty1,qty2,qty3,qty4,qty5,diskon,bayar:integer;
jumlah1,jumlah2,jumlah3,jumlah4,jumlah5,totalbayar,uangkembali:real;

end;

var
Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

procedure TForm1.Panel2Click(Sender: TObject);

begin
EdtIt1.SetFocus;
end;

procedure TForm1.EdtIt1Enter(Sender: TObject);

begin

end;

procedure TForm1.EdtIt1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key =13 then EdtQt1.SetFocus;
end;

procedure TForm1.EdtQt1Change(Sender: TObject);
begin

end;

procedure TForm1.EdtQt1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);

begin
harga1:=strtoint(EdtIt1.Text);
qty1:=StrToInt(EdtQt1.Text);
jumlah1:=harga1*qty1;

if key =13 then
Begin
EdtJml1.Text:=FloatToStr(jumlah1);
EdtIt2.SetFocus;
end;
end;

end.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s