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.

Advertisements

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

Perintah SQL ( Select, Order by dan Like )

Berikut soal latihan SQL

Contoh Tabel Penjualan
SQL1

Kerjakan Soal berikut
SQLJawaban

Posted in MYSQL, Sql. Tags: , . Leave a Comment »

Buku Lazarus ( Belajar Pemrograman Lazarus Dari Dasar )

Buku Lazarus

Akhirnya dari permintaan beberapa teman yang berkunjung ke blog saya, buku ini saya selesaikan juga. Namun kritik dan saran saya harapkan dari teman-teman yang memilikinya.

Mungkin belum disebut buku, masih berbentuk modul. Buku ini merupakan rangkuman dari postingan blog saya dan beberapa tambahan, dimana tambahan tidak bisa didapat di blog saya.

Teman-teman yang mengharapkan buku ini bisa hubungi ke email saya maseadi@gmail.com, namun buku ini belum ada versi cetaknya, jadi masih berbentuk PDF, mohon maaf, untuk mendapatkan buku ini saya wajibkan berdonasi Rp. 30.000

Semoga buku ini bermanfaat.

Aplikasi SMS Center V1.0

Melanjutkan Aplikasi SMS Center yang sudah saya posting dulu, sekarang saya posting SMS Center Update, SMS Center yang sekarang ini sudah semakin mudah penggunaannya, baik  dari istalnya sampai vitur di dalamnya.

Untuk bisa menjalankan aplikasi ini terlebih harus membuat

1. ODBC  -> User DSN dengan nama ‘TransDB’, ini digunakan untuk koneksi ke database MYsql.

2. Dan yang pasti driver Connector juga harus di instal.

3. Modem Gsm dan Port Comnya.

4.  Masukkan Port Com modem, sesuaikan port modem Anda di file gammurc dan smsdrc di folder  c:\bin, Buka dengan menggunakan Notepad.
Cari device = com36: sesuaikan Com modem Anda.

5.  Jalankan Database dengan cara, Jalankan Xampp dengan klik 2x di

Xampp-Control -> Start Mysql di Folder  C:\xampplite

6. Jangan Lupa Libmysql di taruh di C:\windows\, tapi yang belum ada ya, download di sini

Yang belum melihat tampilan Aplikasi ini, bisa buka dulu di Aplikasi SMS Center

Untuk download SMS center V.1.0 ini bisa klik Link di bawah ini. Download Di sini Unutk masuk Aplikasi gunakan User 123 dan password dikosongkan.

Semoga bermanfaat

Import Database SQL Dengan SQL Server Management Studio

Berikut saya sampaikan bagaimana mengimpor database SQL dengan SQL Management Studio. Pertama kita harus punya file backup dari database yang pingin kita Import. Disini saya menggunakan file backup bukan file MDF, file backup database SQL berextensi BAK.

 

1. Buka SQL Server Management Studio dan login ke SQL server, gunakan Windows Authentication.
sshot-22. Buat database dengan nama yang sama. Selanjutnya klik kanan database yang tadi di buat, Pilih Tasks -> Restort -> Database

sshot-33. Pilih From Device, dan kemudian cari file backup server yang akan kita import. Setelah ketemu silahkan klik oke.

sshot-4

sshot-5

sshot-6

sshot-74. Ceklist data yang sudah kita masukkan tadi.

sshot-85. Buka menu Option, tampilan pertama sebagai berikut. Kemudian buat folder dimana tempat file database akan disimpan, lebih baik simpan di drive D, menghindari dari kerusakan system, so database kita aman. Disana saya buat di drive D:\DBASE

sshot-96. Rubah alamat mengarah ke folder yang anda buat, lihat perubahan yang saya sesuaikan dengan letak folder saya.

sshot-17. Klik oke, kalau tidak ada kesalahan, proses akan berjalan dan tunggu sampai 100%

sshot-11Demikian tutorial Import database SQL Server, Semoga bermanfaat.