Lounching Web Tour & Travel

Alhamdulillah Lounching juga, semoga usahanya sukses buat Lek Seger dan Partner. Buat ikut promosiin web client, ayo temen-temen yang mau jalan-jalan bisa pesen ke http://www.indoturisem.com, terutama touris asing ya, barangkali aja ada temen bule yang mau jalan-jalan di indonesia, akan diservice bagus hlo sama indoturisem.

Indoturisem

Advertisements

Membuat gallery di joomla dengan Sigplus

Membuat gallery di joomla cukuplah gampang dibanding dengan cms yang lain. Saya disini mencoba untuk mengingat kembali bagaimana caranya membuat gallery dengan sigplus.

Yang pertama pastilah mendownload extention sigplus. Cukup tuliskan siqplus joomla di google. Anda nanti di arahkan mendownload pkg_sigplus.

Instalasi sama seperti modul lainnya dari menu Extension. Setelah instalasi selesai, seting dengan mengisi folder yang akan dijadikan tempat ngumpulnya gambar.

Untuk menampilkan gallery ini di artikel cukup menulis {gallery}foldergambar{/gallery}, default folder gambar ada di images, jadi contohnya folder gambar ada di images/galleritani cukup tulis {gallery}galleritani{/gallery}

Jangan lupa anda mengaktifkan sigplus plugin di extention->plugin

Selamat mencoba.

adf.ly adalah

Kita sering download file program, freeware, lagu dan muncul web adfly .

Terlihat bagi yang belum terbiasa merasa kesulitan, karena kita ditampilkan dengan iklan yang muncul. Tapi bagi yang sudah terbiasa itu tidak masalah.

Terus apa sih adfly itu, dia adalah jasa periklanan. Setiap pemilik usaha yang menginginkan diiklankan usahanya, adfly adalah tempatnya. Adfly akan menampilkan usaha setiap link yang digunakan di click.

Bagi pemilik web atau blog akan mendapat komisi dolar dari setiap click link yang mereka pasang.

Bagi teman-teman yang berkunjung di blog saya, mulai saat ini saya gabung dengan adfly. Semoga tidak menggangu. Ini bentuk usaha saya untuk mendapat uang dari internet. Dan bagi teman-teman ingin gabung silahkan ikut mendaftar disini adfly.

Review penjual hosting si x

Sedikit saya mereview salah satu penjual hosting diranah maya ini, salah satunya indowebsite. Dari beberapa web yang saya bangun menggunakan indowebsite ini saya rasa stabil, dan cepat.

Untuk masalah pengajuan complain, saya kira semua penyedia hosting sama, mereka cepat dalam merespon ticket yang kita buat. Fitur Cpanelpun sama si sama yang lainnya juga, tapi masalah harga emang masih diatas penyedia hosting yang saya posting di depan. Kalau mau coba silahkan indowebsite

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