Sudah lama banget tidak nulis, kaku pastinya, buat tombo kangen aja.. kali ini saya akan mecoba share trik yang ringan-ringan saja, yaitu bagaimana supaya aplikasi yang kita buat tidak bisa di Rename. Terus fungsinya buat apa? ya cuman buat gaya-gayaan saja sih hahaha….  ya mungkin buat proteksi nama aplikasi kita jika itu sudah merupakan brand kalau di colong otomatis nama tidak bisa di ganti..

Oke caranya sangat mudah buka Project Manager > View Source
Kemudian tambahkan uses :   Forms, Windows, Dialogs, SysUtils,

Setelah itu tuliskan kode program seperti ini  setelah Begin :

Note : Aplikasi.exe sesuaikan dengan nama aplikasi kita, compile lalu coba Rename .exe aplikasi yang telah di buat dengan nama lain, maka aplikasi tidak bisa dijalankan, seperti pada gambar dibawah ini :

Rename lagi jadi nama yang sebenarnya maka aplikasi akan bisa di RUN, Semoga trik ringan ini bermanfaat…

Salam Delphier

Tutorial kali ini kita akan membahas cara menginstall komponen ComPort Library, apa sih komponen ini? yak komponen ini adalah komponen untuk program aplikasi kita terhubung ke sebuah hardaware melalui serial port baik itu USB, PararelPort atau serial port lainya, seperti Modem misal mau bikin SmsGateway, bisa ke mikro, bisa printer, FingerPrint serta hardware lainya, saya sediri baru pernah mencoba ke Modem dan Lampu Led Matrix buatanya Pak Imam Chalimi bagi yang mau pesan buat mainan silahkan hubungi beliau (hehehe sedikit iklan). Oke bagi yang belum punya komponen gratis ini silahkan disedot disini.

Oia saya tidak tahu tapi sepertinya komponen ini sudah tidak diupdate lagi, kalau dari officialnya komponen ini bisa di pasang dari Delphi 3 – Delphi XE, tapi saya sendiri pasang di Delphi XE2 bisa, tapi tutor kali ini saya akan pasangkan ke Delphi XE, oke setelah mendownload komponen tersebut diatas, extract kedalam satu folder, kemudian kopikan ke Defualt installanya Delphi XE, yaitu C:\Program Files\Embarcadero , masukan dalam folder komponen atau terserah sih sebenare di taroh dimana saja bisa, cuman supaya rapih saja dan tidak error saat lupa ada file yang terhapus.

Setelah itu buka Delphi XE kita, kemudian pilih File>Open, Pilih dalam folder Source hasil extract komponen comport sebelumnya, pilih file DsgnCportDXE.dpk (Sesuaikan versi Delphi yang dipakai).

Kemudian pada jendela project manager seperti tampak pada gambar dibawah ini, klik kanan DsgnCportDXE.bpl, kemudian pilih Install tampak seperti pada gambar dibawah ini.

Jika, langkah diatas berhasil makan akan muncul jendela konfirmasi seperti dibawah ini, bahwa komponen-komponen dibawah ini sudah terregister ke delphi.

Langkah Terakhir, tambahkan folder Source kedalam library, melelui Tools > Option > Library > Library Path, jika sudah tekan OK.

Maka komponen dari ComPort Library ini sudah siap kita gunakan. Untuk penggunaanya, insya Allah akan kita bahas pada tutorial lainya.

Semoga menjadi amalan ilmu yang tiada terputus, salam berbagi pengetahuan, dan salam manfaat, terimakasih atas perhatianya, komentar dan kritik adalah harta berharga bagi penulis dan akan sangat saya nantikan.

Salam Delphier.

Setelah lama fakum karena urusan kampus kini saatnya pemanasan dengan tutorial ringan, biasanya banyak digunakan yaitu filtering record pada tabel database dengan berasar pada datefield (field tanggal) utnuk membuat laporan periode atau apalah, yang sebelumnya saya sudah membuat pada database MySQL filetering dua tanggal (date between) menggunakan storedprocedure, karena beda database maka kadang ada beberapa perlakuan berbeda.

Di MsAccess sebenarnya sudah ada manulnya juga di web bagaimana melakukan filetring tanggal, tapi biasanya pada malas baca (wah ini juga berati malas dibaca hahahay), oke langsung saya berikan contoh saja, misal saya mempunyai sebuah tabel dan saya lakukan filtering dari tanggal A sampai tanggal B, sebenarnya hampir sama saja tapi pada MS Access hanya memerlukan tambahan Format #dd/mm/yyyy# 

Berikut screen shoot contoh penggunan kodingnya di Delphi, sekaligus cara penulisanya

Saya rasa sudah sangat jelas dengan gambar diatas baik penggunaan filter maupun koidngnya pada delphi, conto tersebut dibuat menggunkan Delphi 7, komponen AdoQuery, dan sebagai UI filtering menggunkan komponen TDateTime, atau bisa download dan modifikasi file dari halaman ini.

Oke sekian pemanasan dari saya setelah beberapa bulan vakum semoga bermanfaat, nantikan tutorial lainya dariku..
Terimkasih, salam delphier

Okee, setelah sebelumnya kita sudah mengetahui cara membackup database MySQL melalui delphi dengan mysqldump, sekarang saya akan tulis bagimana cara merestorenya, okee pertama kita siapkan form sederhana seperti pada gambar dibawah ini :

Kita pasang sebuah komponen Edit, 2 Button ( angka 1 &  2) dan OpenDialog, kemudian lakukan pengaturan properties pada OpenDialog, sebagai berikut :
– Filter, Filter Name = SQL File,  FIlter = *.sql

Setelah itu, isikankoding berikut pada button backup, sebelumnya tambahkan uses ShellAPI (Delphi 7)

//tombol pilih file
procedure TfRestore.b1Click(Sender: TObject);
begin
if op1.Execute then ePath.Text:=op1.FileName;
end;

//tombol restore
procedure TfRestore.b1Click(Sender: TObject);
var
   user, pass, database, dir :String;
begin
//Belum memilih File
if ePath.Text='' then Exit;
//MySQL user & MySQL path
user :='root';
pass :='';
database:='coba';
dir :='C:\xampp\mysql\bin\mysql.exe';

if pass<>'' then pass:=' -password='+pass;
ShellExecute(Self.Handle,PChar('open'),
PChar(dir),
PChar('--user='+user+pass+' -h localhost -e "drop database if exists '+database+'; '+
      'create database '+database+' ; use '+database+';\. '+Op1.FileName+'"'),nil,SW_HIDE);
MessageDlg('Database Telah Direstore', mtInformation, [mbOK], 0);
end;

Variable user, password dan nama database yang akan dibackup bisa kita isikan sesuai pengaturan di MYSQL kita, sedangkan dir adalah lokasi mysqldump.exe, kebetulan saya pakai XAMPP dan path nya seperti yang ada pada koding diatas sialhkan disesuaikan dengan lokasi masing-masing, atau supaya enak bisa juga mysql.exe nya kita kopikan dengan satu folder aplikasi kita.

Setelah itu kita lakukan test pada aplikasi, pertama pilih lokasi file dimana pertamak kita telah malakukan backup, kemudian path file akan muncul pada edit, tekan tombol restore maka database akan kembali pulih, bisa di test dengan menghapus tabel atau mengkosongan record yang sudah di input

Silhkan kembangkan dan berkresai, semngat pejuang delphi

Semoga bisa menjadi sebuah manfaat apa yang telah saya tuliskan…

Kali ini saya akan coba menuliskan cara membackup sederhana database MySQL lewat delphi dengan menggunakan mysqldump, ingat ini hanyalah cara simple silahkan dikembangkan sesuai kebutuhan dan selera untuk mengeksplore teknik ini, okey langsung saja sebelumnya kita perlu mempersiapkan form semacam ini :

Saya pakai sebuah komponen Edit, Button dan SaveDialog, kemudian lakukan pengaturan properties pada SaveDialog, sebagai berikut :
– DefaultExt, isikan dengan sql, berfungsi untuk memberikan exstensi default pada file backup yang akan kita buat, kemudian
– Filter, Filter Name = SQL File,  FIlter = *.sql

Setelah itu, isikankoding berikut pada button backup, sebelumnya tambahkan uses ShellAPI (Delphi 7)

procedure TfMain.b1Click(Sender: TObject);
var
   user, pass, database, dir :String;
begin
sv1.FileName := 'Backup'+FormatDateTime('ddmmyy',now);
 if sv1.Execute then
 begin
 ePath.Text:=sv1.FileName;
 end;

//MySQL user & MySQL Dump path
user :='root';
pass :='';
database:='coba';
dir :='C:\xampp\mysql\bin';

if pass<>'' then pass:=' -password='+pass;
 SetEnvironmentVariable(PChar('Path'),PChar(Dir));
 ShellExecute(Handle, 'open', PChar('cmd.exe'),
 pchar('/c mysqldump --opt --user='+user+pass+' -B '+database+' >"'+ePath.Text+'"'),nil,sw_Hide);
 MessageDlg('Database Telah dibackup', mtInformation, [mbOK], 0);
end;

Variable user, password dan nama database yang akan dibackup bisa kita isikan sesuai pengaturan di MYSQL kita, sedangkan dir adalah lokasi mysqldump.exe, kebetulan saya pakai XAMPP dan path nya seperti yang ada pada koding diatas sialhkan disesuaikan dengan lokasi masing-masing, atau supaya enak bisa juga mysqldump.exenya kita kopikan dengan satu folder aplikasi kita kemudian arahkan dir ke sana..

Setelah itu kita bisa melakukan test pada aplikasi backup yang telah kita buat, jika berhasil akan menghasilkan dump yang komplit berisi struktur tabel dan recordnya, tapi untuk batasan dump belum pernah diuji sampai berapa besar dia mampu melakukan dump, kalau sudah ada yang pernah mungkin bisa menginformasikannya.

Selamat mencoba dan bervariasi.. salam delpier
Semoga bisa menjadi manfaat, komentar dan kritik akan selalu di nantikan