Aplikasi Laporan kas kecil

Berawal dari aplikasi cetak kwitansi berharga 75.000, ketemu client minta tambahan aplikasi surat jalan. Setelah selesai muncul client minta aplikasi cetak invoice, sampai akhirnya berkembang tu aplikasi.

Sekarang saya bahas aplikasi laporan kas kecil. Jadi gini ceritanya, ada client yang minta dicatat semua uang yang dia kasih ke sekertarisnya kedalam aplikasi, setiap penambahan maupun pengeluaran tercatat dalam aplikasi. Beliau pun juga minta reportnya, jadi keliatan semua tu keluar masuk uangnya. Jadi jelas gk bakal bisa diakali.

Yang mau kasih masukan silahkan, mau mencoba aplikasinya ya silahkan

Advertisements

Aplikasi surat jalan suport linux

Iseng iseng coba instal aplikasi surat jalan di linux, ternyata 100% runing. Dari sisi warna formya jadi berubah, tp kinerja / fungsinya berjalan lancar.
Monggo yang membutuhkan aplikasi Cetak invoice, Cetak surat jalan, aplikasi cetak Surat perintah Kerja, cetak kwitansi bisa digunakan di linux
df1

Di aplikasi ini saya menggunakan database SQLite

df2

df3

df4

 

df5

 

Disini saya menggunakan linux Ubuntu versi  16.04LTSdf6

Kursus online lazarus paket “Super Bisa”

Menyambut tahun baru muncul ide baru bagaimana kursus pemrograman lazarus lebih maksimal, “Super Bisa”.

Apa itu Super Bisa, paket kursus dijamin bisa. Gratis mengulang jika belum bisa.

Syarat pelaksanaannya :

1. Peserta memiliki komputer/laptop sendiri

2. Mempunyai akses internet

3. Terinstal Aplikasi Lazarus

4. Terinstall Team Viewer / Anydesk

Cara pelaksanaannya

1. Pembelajaran langsung pada komputer/laptop masing2

2. Komunikasi dengan teamviewer (suara dan remote desktop)/ Telp WA

3. Akan di ajarkan pemrograman dari dasar

4. Praktek langsung dengan dibantu ketika ada kesulitan

5. Setiap pertemuan durasi -+ 1jam

6. Waktu pelaksanaan malam hari, sesuai kesepakatan.

7. Di sertai modul lazarus

 

Namun untuk Paket ini lumayan donasinya. Monggo yang berminat bisa email ke maseadi@gmail.com

Lazarus 1.8

Kabar gembira di bulan Oktober 2017. Akan ada workshop tentang pemrograman pascal terutama bagi pengguna lazarus.

Pada acara tersebut salah satunya yaitu memperkenalkan lazarus versi 1.8

Versi lazarus saat ini menurut saya sudah banyak kemudahan dibanding versi yang dulu. Saya yakin di versi 1.8 akan lebih yahuuud…

Membuat Backup dan Restore Mysql dengan Lazarus

Pagi – pagi buat catatan di blog ” Membuat Backup dan Restore database Mysql di lazarus “ Cara ini berlaku juga di delphi. LAngsung saja Buatlah 2 button, Button Backup dan Restore. Pada proses ini kita menggunakan mysqldump yang sudah disediakan oleh mysql. Lokasi mysqldump tergantung dari instalasi mysqlnya. Jika menggunakan Xampp, cari lokasi terlebihdahulu.

Pada Button Backup isi event click berikut ;

procedure TMain.BackupClick(Sender: TObject);
const
READ_BYTES = 2048;

var
command: TProcess;
s: string;
output: TStringList;
BytesRead, n: LongInt;
m: TMemoryStream;

begin
if not (ZConnection1.User = ‘root’) then begin
ShowMessage(‘Only root could access.’);
Exit
end;
SaveDialog1.Free;
SaveDialog1 := TSaveDialog.Create(Self);
SaveDialog1.InitialDir:= GetUserDir + ‘My Documents\’;
SaveDialog1.Filter:=’Backup Files|*.bfl’;
if SaveDialog1.Execute then begin
s := SaveDialog1.FileName;
if not (copy(s,Length(s)-3,Length(s)-1) = ‘.bfl’) then
s := s + ‘.bfl’;
command := TProcess.Create(Nil);
output := TStringList.Create;
M := TMemoryStream.Create;
BytesRead := 0;
command.CommandLine := ‘c:\mysqldump -u root -p’+ZConnection1.Password+’ -h ‘+ZConnection1.HostName+’ database’;
command.Options := command.Options + [poUsePipes];
command.Execute;
while command.Running do begin
// ensure the space
M.SetSize(BytesRead + READ_BYTES);
// we try to read
n := command.Output.Read((M.Memory + BytesRead)^, READ_BYTES);
if n > 0 then
Inc(BytesRead, n)
else
// whitout data, wait 100 ms
Sleep(100);
end;
// we read the last part
repeat
// ensure the space
M.SetSize(BytesRead + READ_BYTES);
// we try to read
n := command.Output.Read((M.Memory + BytesRead)^, READ_BYTES);
if n > 0 then
Inc(BytesRead, n);
until n <= 0;
M.SetSize(BytesRead);
output.LoadFromStream(M);
output.SaveToFile(s);
output.Free;
command.Free;
M.Free;
ShowMessage(‘Backup ready.’)
end else
ShowMessage(‘Backup canceled.’);
end;

 

Dan untuk button Restore isi dengan prosedure berikut

procedure TFMain.restoreClick(Sender: TObject);
var
s: string;
tfFile: TextFile;
begin
if not (ZConnection1.User = ‘root’) then begin
ShowMessage(‘Only root could access.’);
Exit
end;
OpenDialog1.Free;
OpenDialog1 := tOpenDialog.Create(Self);
OpenDialog1.InitialDir:=GetUserDir+’My Documents\’;
OpenDialog1.Filter:=’Backup Files|*.bfl’;
if OpenDialog1.Execute then begin
AssignFile(tfFile, OpenDialog1.FileName);
if not FileExists(OpenDialog1.FileName) then
exit;
reset(tfFile);
ZQuery1.SQL.Clear;
readln(tfFile,s);
While not eof(tfFile) do begin
Readln(tfFile,s);
if length(s) > 0 then begin
s := StringReplace(s, #10, ”, [rfReplaceAll]);
s := StringReplace(s, #13, ”, [rfReplaceAll]);
s := StringReplace(s, #9, ‘ ‘, [rfReplaceAll]);
if not ((s[1]+s[2]) = ‘–‘) then begin
ZQuery1.SQL.Add(s);
if s[length(s)] = ‘;’ then begin
ZQuery1.ExecSQL;
ZQuery1.SQL.Clear
end
end
end
end;
CloseFile(tfFile);
ShowMessage(‘Restauration done.’);
end else
ShowMessage(‘Restauration canceled.’);
end;

 

Semoga bermanfaat

Aplikasi Administrasi PAUD, TK Dan Bimbel

Alhamdulillah selesai juga. Terimakasih buat Al Madani yang sabar menunggu. Aplikasi ini mencakup

1. Pendaftaran siswa baru

2. Input master kelas

3. Input Master Pembayaran

4. Menu bayaran

5. Laporan keuangan

KLIK PESAN APLIKASI

Beberapa menu master

Menu pendaftaran siswa

Report pembayaran

Silahkan kirim email ke maseadi@gmail.com jika ada yang ditanyakan.terimakasih

KLIK PESAN APLIKASI

Aplikasi bisa jalan di os linux

Untuk melihat video penggunaannya ada di bawah ini

Exsport Report Lazarus Fortes Report ke Excel 

Sambil santap sahur.. sedikit mau Tulis di blog. Exsport report fortes report to excel.

Wajib hukumnya membuat form report disetiap aplikasi yang kita buat, namun kadang kala report dibutuhkan dalam bentuk file lain, seperti File Excel Ataupun PDF. Di fortes report, fortes report apa sih..  fortes report itu tool untuk membuat report di lazarus.

Untuk bisa menyimpan report ke file excel, kita cukup memberikan komponen RLXLSFilter di form fortes report yang buat, seperti terlihat di gambar.

Cara menggunakannya seperti gambar dibawah, klik save di menu preview dan pilih format Excel. Begitu juga untuk simpan Ke PDF cukup memberikan komponen RLPDFfilter.

Semoga bermanfaat