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

Beberapa menu master 

Menu pendaftaran siswa

Report pembayaran

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

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

Aplikasi Cetak Invoice dan Surat Jalan

Berikut aplikasi Cetak Invoice dan Surat Jalan, semoga bermanfaat

Prinsip kerja aplikasi ini adalah pembuatan invoice terlebihdahulu, setelah itu tinggal pembuatan surat jalan dengan mengambil data dari invoice yang telah dibuat, sehingga di form pembuatan aplikasi surat jalan tinggal input no invoice yang telah dibuat.

Form Utama Cetak Invoice

Invoice 1

Form Cetak Surat Jalan

Cetak Invoice

Hasil Cetak Invoice

Cetak Invoice 1

HAsil Cetak Surat Jalan

Surat jalan

Master perusahaan

MAster Perusahaan

Master Barang

MAster Barang

Aplikasi Surat Masuk & Keluar dengan cetak form disposisi

Terimakasih Buat Kang Asep yang telah mempercayakan pembuatan aplikasinya ke saya, berikut tampilannya.

  • Halaman Utama ( Login )
    SuratMasuk1
  • Iput surat masuk

Input Surat Masuk

Form Input Surat

  • Master User

MasterUser

Master Unit

MasterUnit

Form Report

Form Laporan

Hasil Cetak Form Disposisi

Hasil Print Disposisi

Tool untuk ikut kursus Pemrograman Lazarus Online

Berikut saya berikan link untuk Tool yang digunakan untuk mengikuti kursus pemrogaman Lazarus. File saya taruh di google Drive, saya harapkan mudah untuk di download.

DATABASE mysql

  1. Xampp
  2. LibMysql

LAZARUS

  1. Lazarus
  2. Component Zeos
  3. Component Datetimpicker
  4. Component Fortes Report

 

Membuat Aplikasi Android dengan lazarus Bag 1 – Install Aplikasi pendukung

Bismillah… Saya coba buka kembali janji saya untuk memberikan tutorial pembuatan aplikasi android dengan lazarus. Saya akan bagi menjadi beberapa bagian, dimana setiap bagian saling terkait, dan bagian pertama ini coba saya mulai. Windows yang saya pakai menggunakan Windows 64Bit, saya yakin dengan 32Bit lebih bagus.

Semua kebutuhan untuk membuat aplikasi android dengan lazarus sudah saya siapkan, dan sudah saya pakai berjalan dengan baik. Aplikasi saya upload di google drive. Semoga enteng untuk downloadnya. Silahkan download aplikasi pendukung dibawah ini.

  1. Laz4android1.7.0-53387-FPC3.1.1
  2. Lazandroidmodulewizard-master
  3. Apache-ant-1.9.8-bin
  4. Android-sdk_r24.4.1-windows
  5. Android-ndk-r10e-windows-x86

Setelah semua didownload, silahkan buat folder ” lamw ” di drive C ( c:/lamw ). Semua aplikasi pendukung exstrak di folder lamw kecuali Laz4android1.7.0-53387-FPC3.1.1 . Sehingga nampak seperti ini. Samakan nama foldernya seperti dibawah.

androids

Selanjutnya exstrak Laz4android1.7.0-53387-FPC3.1.1 kemudian install. Dalam penginstalan arahkan folder nya di drive C, ( c:/laz4android )

Jalankan Laz4android dengan klik 2x icon yang ada di desktop. Kemudian install package

C:\lamw\lamw-pkg\android_bridges\tfpandroidbridge_pack.lpk

C:\lamw\lamw-pkg\android_wizard\lazandroidwizardpack

C:\lamw\lamw-pkg\ide_tools\amw_ide_tools

  1. Klik Package ->Open Package -> Compile
  2. Tunggu sampai compile selesai, setelah itu Use->Install
  3. Install 3 package diatas

lamw5

lamw1

lamw4

Setelah berhasil diinstall harus muncul dimenu seperti berikut

lamw6

Selanjutnya kita buka SDK manager di C:\lamw\android-sdk-windows\SDK Manager

lamw10

Ceklist pada gambar dibawah (ketika sudah terinstal terlihat digambar, status installed )

  1. Android SDK Tool
  2. Android SDK Platform-tools
  3. Android SDK Build-tools
  4. SDK Platform
  5. Google USB driver
  6. Kemudian install Package

lamw7

lamw8lamw9

Selanjutnya kita setting terakhir di Laz4ndroidnya. Klik Tool ->[Lamw]Android Module Wizard ->Paths Setting

lawm

isi seperti di gambar di bawah

lawm1

Sampai sini kita sudah bisa mulai membuat aplikasi android.. dilanjutkan pembuatan aplikasi android pertama.