Source Kode Kwitansi dengan Lazarus

Sesuai janji saya ke Mas cosim micho’s , saya posting source kode untuk aplikasi kwitansi 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;

type

{ TForm1 }

TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;

var
Form1: TForm1;

implementation

uses Unit2;

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.RLLabel7.Caption:=Edit1.text;
Form2.RLLabel8.Caption:=Edit2.text;
Form2.RLLabel9.Caption:=Edit3.text;
Form2.RLLabel10.Caption:=Edit4.text;
Form2.RLLabel11.Caption:=Edit6.text;
Form2.RLLabel12.Caption:=Edit5.text;
Form2.RLLabel13.Caption:=Edit7.text;
form2.RLReport1.Preview();

end;

end.

Untuk UNit Reportnya

unit Unit2;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
RLReport, RLXLSFilter;

type

{ TForm2 }

TForm2 = class(TForm)
RLLabel1: TRLLabel;
RLLabel10: TRLLabel;
RLLabel11: TRLLabel;
RLLabel12: TRLLabel;
RLLabel13: TRLLabel;
RLLabel2: TRLLabel;
RLLabel3: TRLLabel;
RLLabel4: TRLLabel;
RLLabel5: TRLLabel;
RLLabel6: TRLLabel;
RLLabel7: TRLLabel;
RLLabel8: TRLLabel;
RLLabel9: TRLLabel;
RLReport1: TRLReport;
private
{ private declarations }
public
{ public declarations }
end;

var
Form2: TForm2;

implementation

{$R *.lfm}

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