Koneksi database Sqlite dengan Zeos di Lazarus

Membuat koneksi database sqlite di lazarus, langsung saja coba perhatikan propertis dari TZConnection, isi dari ke 3 propertise di bawah ini. Jangan lupa, kamu harus punya file librarynya sqlite3.dll

  1. Database
  2. LibraryLocation
  3. Protocol

PropertisCon

Advertisements

Kursus online lazarus paket “Super Bisa”

Menyambut tahun 2018 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

Cara pelaksanaannya

1. Pembelajaran langsung pada komputer/laptop masing2

2. Komunikasi dengan teamviewer (suara dan remote desktop)

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.

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

Display informasi sekolah

Display informasi merupakan informasi yang disampaikan oleh pemberi informasi melalui Display ( Layar TV, layar Komputer atau layar lainnya), informasi satu arah yang diberikan oleh pemberi informasi. Penting tidak penting display informasi itu harus di buat. Memberikan informasi searah yang memberikan banyak manfaat bagi murid sekaligus guru sendiri khususnya untuk sekolahan atau kampus.

Tampilan Menu utama

Menu

Master

Menampilkan

  • Jadwal guru mengajar, otomatis berubah sesuai hari
  • Ruang informasi untuk Murid dan Guru
  • Running text sebagai informasi
  • Slide show gambar ( Versi erbaru )

Display

Berikut video display informasi sekolah dimana ditampilkan jadwal mengajar guru dan informasi lainya.

Adapun video cara penggunaan aplikasi berikut :

Aplikasi pembuatan surat jalan usaha air

Saya hadir lagi dengan aplikasi surat jalan, yang sebelumnya sudah banyak saya posting. Ternyata diluar sana banyak yg menginginkan pembuatan aplikasi cetak surat jalan.

Berikut aplikasi terbaru dari cetak surat jalan, dimana sudah di lengkapi dengan laporan perperiode dan backup data.

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 Report Di Lazarus dengan database Mysql

Iseng-iseng rekam proses pembuatan salah satu report project saya. Siapa tau ada manfaatnya buat temen-temen yang sedang belajar Lazarus. Disini data diambil dari database Mysql dan ditampilkan dengan menggunakan Fortes Report.

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