Wajar

Adalah hal yang wajar apabila seorang anak jatuh setiap kali ia mencoba untuk belajar berjalan sebelum ia menjadi pelari dewasa.
Sehingga aku mewajarkan diri apabila aku kerap kali menangis tentang hal yang sebenarnya tidak terlalu membuat value seseorang menjadi bertambah.
Bukan hanya menangis namun aku terbawa pada tingkat depresi yang membuat struk belanjaku lebih banyak daripada biasanya.

Hanya sekedar berbagi saja, semoga menjadi catatan yang mengingatkanku bahwa aku pernah menjadi seorang anak kecil ketika nanti aku telah menjadi seorang pelari dewasa dan membaca postinganku ini.

Oke mari bertumbuh menjadi seorang yang punya value dan berguna bagi bangsa negara.

Membuat Program Ekspor Database di DBGrid ke Excel

Ini merupakan menu andalan saya yang selalu ada setiap kali saya membuat progam. Saya menyediakan ekspor data dari database ke excel dan juga mengimpor master data dengan excel untuk memudahkan user. Saya pikir ini akan menjadi nilai plus saya dibanding program lain.

Dan kali ini saya akan bagikan script yang simple ini untuk kalian semua.

Ekspor Database ke Excel

Syarat utama ya harus punya Ms. Excel di komputer ya, minimal Excel 2003.

Kemudian siapkan database yang ditampilkan dalam DBGrid.

Buat satu tombol dengan perintah berikut ini :

procedure TFormMONBRKAS.SpeedButton5Click(Sender: TObject);
var I , A, tot_col : integer;
begin
  XlApp  := CreateOleObject('Excel.Application');
  XlBook := XlApp.WorkBooks.Add;
  XlSheet  := XlBook.worksheets.add;
  XlApp.visible:=true;
  I := 1;
  a := 1;
  tot_col := DBGridEh1.FieldCount;
  for a := 1 to tot_col do
  begin
    XlSheet.cells[1,A].value := DBGridEh1.Columns[a-1].Title.Caption;
    i := 2;
    ZQueryDOKUMEN.First;
    while not ZQueryDOKUMEN.Eof do
    begin
      XlSheet.cells[i,A].value := ZQueryDOKUMEN.FieldByName(DBGridEh1.Columns[a-1].FieldName).Value;
      ZQueryDOKUMEN.Next;
      inc(i);
    end;
  end;     
end;

Note :
Ganti ZqueryDokumen dengan nama Query anda
Ganti DBGridEh1 dengan nama DBGrid anda


Tambahkan script variable di Private

  private
    { Private declarations }
    XlApp, XlBook, XlSheet, XlSheets, Range,chat : Variant; // Excel 97
    WApp, Word , excel: Variant; 

Tambahkan 'comobj' pada uses

Setelah itu jalankan program, dan klik tombol Ekspor. Maka data yang diurutkan sesuai DBGrid akan terekspor ke excel seperti dibawah ini :

Sekian dari saya, semoga tutorial ini dapat membantu.
Apabila ada yang kurang jelas, silahkan tinggalkan komentar.


Terimakasih,
Windy

Cara Install Komponen Ehlib di Delphi

Ehlib merupakan seperangkat komponen untuk Delphi yang membantu untuk akses ke database tanpa menggunakan coding.

Berikut ini contoh penggunaan Ehlib :

Silahkan download versi Full Source disini

1. Setelah di download, jalankan installer.exe yang berada di folder Installer.
2. Kemudian klik - Install

3. Setelah selesai, tambahkan library di Tools -> Options -> Environment Options -> Library
    Browse folder library dari Ehlib
    Klik add

4. Langkah selanjutnya, Open Project -> Ehlib100.dpk
    Di bagian Project Manager -> Klik Kanan Project -> Compile All

 
5. Kemudian open EhlibDataDrivers110.dpk
    Dibagian Project Manager -> Klik Kanan -> Install

6. Setelah install selesai, maka akan muncul pemberitahuan berhasil seperti ini

7. Yes, selamat anda berhasil menambahkan Komponen Ehlib di Delphi anda

Cukup sekian tutorial Install dari saya, semoga anda terbantu.


Terimakasih,
Windy


Note tambahan :

Apabila mendapat error seperti ini :

C:\Program Files\CodeGear\RAD Studio\5.0\Bin\dcc32.exe -B EhLib110.dpk
Command line tools are not supported in the trial version.

C:\Program Files\CodeGear\RAD Studio\5.0\Bin\dcc32.exe -B DclEhLib110.dpk
Command line tools are not supported in the trial version.

C:\Program Files\CodeGear\RAD Studio\5.0\Bin\dcc32.exe -B EhLibDataDrivers110.dpk
Command line tools are not supported in the trial version.

C:\Program Files\CodeGear\RAD Studio\5.0\Bin\dcc32.exe -B DclEhLibDataDrivers110.dpk
Command line tools are not supported in the trial version.

Ini berarti BPL (Packages) belum ditambahkan ke delphi. Maka dari itu, kita harus nambahin manual dengan membuka file Ehlib.dproj di folder LIB (yang berada di luar bersamaan dengan folder installer)
Kemudian compile dan install.

Selesai.

Cara Install Komponen Zeos di Delphi

Ya sebenernya keki banget kalo harus berkali kali install ulang program Delphi terus harus install lagi komponen komponen tambahannya, yang mayoritas lupa cara installnya. Haduh, itu yang bikin penulis kesel banget nget nget. Dan sekarang juga lagi kesel keselnya karena komputer habis rusak kena virus dan secara terpaksa harus install ulang windows karena komputer jadi 'meni lila teuing!'.

Jadi disini sembari saya install ulang komponennya, saya juga mendokumentasikannya di web blog. Oke lanjut. Jadi pertama tama, silahkan download komponen Zeos disini :

1. Open Zeos.dbo yang ada di folder Packages

 2. Pada ZparseSql90.bpl -> Klik kanan -> Build all from here

3. Setelah itu Klik Kanan ZComponentDesign.bpl -> Install hingga muncul seperti ini

4. Tambahkan Library Path hasil build yang telah dibuat di Tools -> Options -> Environment Options -> Library Path -> Browse Folder Build

5. Klik add kemudian OK

Tadaaa selesai.


Jadi waktu saya Install Zeos ini, ga semulus tutorial yang saya buat. Disini saya dapat error 'Cannot Load Package Zcore 90, Zmessages bla bla bla..'
Penyelesaian :
1. Hapus Zeos, hilangkan dari Library dan Packages
2. Delete *.bpl yang berkaitan dengan Zeos di MyDocuments All User\Rad Studio\Projects\
3. Restart Program Delphi
4. Ulangi Proses Install Zeos menggunakan versi Zeos yang tepat (Ex : Delphi 2007 menggunakan Zeos Delphi11)



Oke, sekian dari saya. Terimakasih, semoga blog ini dapat membantu.

Sebuah Ide Sebagai Solusi

Ide ini ditulis sebagai bukti bahwa ide ini diciptakan oleh saya, dan masih dalam perancangan pengembangan aplikasi.

Hampir seluruh masyarakat di dunia telah menggunakan android, dan sudah selayaknya Perusahaan besar menggunakan teknologi ini untuk mengurangi penggunaan komputer dan SDM administrasi manual. Teknologi ini dapat menekan biaya operasional yang lumayan besar.

Perusahaan yang berorientasi pada client di lapangan, mempunyai karyawan yang dipekerjakan di lapangan, dan kadang tak terkontrol karena lambannya proses administrasi. Setiap laporan yang diberikan oleh pekerja lapangan cenderung lamban, karena menunggu hari dimana karyawan tersebut masuk ke kantor pusat. Belum lagi bagian administrasi yang masih menggunakan proses manual menggunakan aplikasi Ms. Excel atau Ms. Word, yang harus diolah lagi untuk mendapatkan Rekap Laporan.

Maka dari itu dibutuhkan aplikasi berbasis android yang mengontrol setiap jadwal kerja para pekerja lapangan, memberikan laporan secara realtime pada lokasi lokasi yang telah ditentukan. Setiap data yang dimasukkan oleh pekerja lapangan, secara otomatis langsung masuk ke dalam database perusahaan sehingga laporan yang diminta oleh atasan terkait dapat diambil secara realtime tanpa harus menunggu proses administrasi.

Baik PC maupun administrator sudah tak diperlukan lagi, sehingga dapat mengurangi biaya perusahaan.

Membuat Website Menggunakan Delphi Dengan Tools Raudus

Mungkin bagi sebagian programmer akan sangat malas untuk berpindah bahasa apabila sudah nyaman. Jadi kata nyaman ga hanya buat orang pacaran ya, haha. Kadang juga karena sudah nyaman, kita susah banget buat move on, move on dari bahasa pemrograman ya bukan mantan.(Maaf ya, si penulis lagi baperan, maklum jomblo *eh)

Oke mari lanjut dengan postingan yang bermutu.

Jadi karena biasanya sebuah pekerjaan menuntut kita untuk berkarya lebih dari kemampuan kita, mau tidak mau kita harus berkembang ya kan. Nah disini, karena output Delphi yang mayoritas executable diakses secara dekstop, maka tidaklah mungkin kita membuat Website dengan Delphi. (Versi Delphi 2007 kebawah)

Tapi kabar gembiranya, ada Tools *GRATIS* yang bernama "RAUDUS" ini mampu mentranslatekan Program Dekstop ke Website. Jadi kita tak perlu repot untuk membuat tag tag html di notepad atau belajar php, karena dengan bahasa Delphi, program exe dapat diakses dengan website.
Ibaratnya, Raudus membuat kita tetap nyaman untuk berkecimpung lebih dalam di dunia Delphi.

Kalian dapat download di situs resmi : http://www.raudus.com/

Untuk instalnya sangatlah mudah, setelah download program Raudus ini kemudian install dan secara otomatis akan muncul di Tools Pallete :

Nah, untuk membuat website dengan Raudus ini kita perlu membuat "New Project -> Other -> RaApplication"

Pasti banyak yang bertanya, apakah program yang telah dibuat di Delphi bisa langsung ditranslatekan ke Website dengan raudus ini? Jawabannya adalah tidak, kita perlu membuat ulang program dari awal , New Project dulu, kemudian pakai RaApplication dan pakai Tool yang disediakan oleh Raudus ini.

Namun kita bisa langsung menggunakan Tools yang lain untuk mengakses databasenya, seperti ZeosConnection atau AdoConnection.

Mari kita lakukan uji coba :

Buat project RaApplication, dan design form menggunakan Tool Raudus seperti dibawah ini :

Kemudian masuk di Source Project untuk menentukan Port

Running program :

Port yang saya pakai secara default adalah 88
Untuk mengaksesnya silahkan ke browser dan masuk ke alamat http://localhost:88/

Maka akan tampil seperti ini :

Jika kalian sudah mempunyai LAN, silahkan akses ke IP kalian dan jangan lupa tambahkan port.


Ya cukup sekian sedikit informasi dari saya, silahkan bereksplorasi lebih banyak dengan Raudus.
Selamat mencoba.

Untuk yang kurang jelas, boleh komen.

Mengirim Auto Email dengan Delphi (Menggunakan Database)

Oke, postingan kali ini akan membahas tentang cara mengirimkan auto email melalui Delphi.

Disini saya akan langsung menggunakan database sebagai sample, sesuai dengan judulnya ya yaitu AUTO jadi kita tidak input data lagi.

Pertama, siapkan tabel databasenya : (Disini saya gunakan Tool Zeos Database, bila belum menggunakan kamu dapat pakai Tool Connection bawaan delphi)

Kemudian isi data dengan contoh seperti ini :

Nah, setelah ini mari kita tarik data ke Form Delphi hingga tampil seperti ini :
Tambahkan DBGrid untuk menampilkan data dan Button Kirim Email

Setelah selesai menyiapkan datanya, tambahkan Tools TidSMTP dan TidMessage 

 Yang perlu diisi di TidSMTP :
1. HOST : Server Email
2. Username : user email
3. Password : password email

Yang perlu diisi di TidMessage adalah
1. Sender : Isikan email address di kolom address, secara otomatis domain akan mengikuti sesuai alamat email.
2. From : (Optional) Kamu dapat mengisi apabila security di server email memiliki tingkat yang tinggi, karena menurut pengalaman pribadi bila kolom from ini tidak diisi maka akan error pada running program.


Database : AdoQueryData
Dbgrid : Dbgrid1
TidSMTP : SMTP
TidMessage : MailMessage
Datasource : DataSource1

Tambahkan List Penerima dengan klik tombol 3 titik

Setelah selesai, beri action di tombol kirim email

procedure TForm5.Button1Click(Sender: TObject);
begin
  ADOQueryData.Open;
  ADOQueryData.First;
  while not ADOQueryData.Eof do
  begin
    MailMessage.Body.Clear;
    MailMessage.Subject := ADOQueryDatasubject.Text;
    MailMessage.Body.Text := ADOQueryDataisi_email.Text;
    MailMessage.Recipients[0].Address := ADOQueryDataemail_penerima.Text;

    SMTP.Connect;
    SMTP.Send(MailMessage);
    SMTP.Disconnect;
     
    ADOQueryData.Next;
  end;
end;

Kemudian jalankan program, dan tadaaa... auto email telah terkirim

 
Sekian dari saya, postingan selanjutnya akan membahas bagaimana membaca email dan kemudian memasukkannya kedalam database MySql.

Stay tune di blog ini yaa, ceileh


Terimakasih, silahkan komen kalau kurang jelas.