Source Code Aplikasi SMSKU SMS Gateway dengan Delphi

Pada postingan ini saya akan mencoba berbagi source code aplikasi yang pernah saya buat dan sharing di blog ini. buat sobat delphi yang sering berkunjung ke blog sederhana ini pasti tahu tentang aplikasi SMS gateway yang pernah saya sharing postingan saya sebelumnya disini.

Aplikasi SMS Gateway tersebut saya buat menggunakan kombinasi antara MySQL Gammu dan Delphi. Memiliki beberapa fitur utama seperti mendeteksi port modem secara otomatis meskipun fitur ini masih perlu perbaikan lagi. Selain itu terdapat fasilitas Cek Pulsa, SMS Balasan otomatis dan SMS Alert. Saya berharap sobat dapat mengembangkannya menjadi lebih baik.

Setelah saya pikir-pikir, saya kira tidak akan ada gunanya jika saya hanya menyimpan source codenya di komputer. bukankah lebih baik di share karena tidak menutup kemungkinan pasti ada yang membutuhkan. Aplikasi ini ada dua versi. versi pertama Fitur Cek pulsa menggunakan perintah At Command dengan bantuan Comport. Adapun versi kedua adalah pengembangan dari versi pertama termasuk dalam mendeteksi port modem secara otomatis dengan bantuan comport. 

Sebelum anda mendownload saya minta keihkhlasan doa teman-teman agar saya diberikan umur panjang untuk dapat terus berbagi apa yang saya ketahui tentang tetek bengek delphi atau keluarga pascal, diberikan kesehatan, keselamatan dan rizki yang banyak. Amiinn. :)

Untuk Versi pertama silahkan download disini (Source Code SMSKU v.1), Sedangkan untuk versi kedua silahkan sobat download disini (Source Code SMSKU v.2). Dalam File tersebut sudah lengkap dengan Database serta komponen-komponen yang diperlukan. Itulah yang dapat saya sharing tentang source code aplikasi SMS Gateway dengan Delphi dan Gammu. Semoga Bermanfaat dan gunakanlah dengan baik. Jangan Pelit untuk berbagi. Happy Coding. :)  

Menampilkan Tipe Data Text (Memo) di DBGrid Delphi

Berdasarkan pengalaman pribadi saya dalam membangun sebuah aplikasi, seringkali kita mendapatkan masalah-masalah sederhana yang tak terduga. Entah itu yang berkaitan dengan Coding atau source code, teknik membangun aplikasi, ataupun database baik query atau semacamnya. Berdasarkan pengalaman pribadi saya pula postingan ini saya tulis. siapa tahu ada yang mengalami masalah yang sama dan artikel sederhana ini dapat membantu.

Salah satu masalah sederhana yang banyak terjadi adalah bagaimana menampilkan tipe data text mysql kedalam dbgrid di delphi. karena secara default, data yang ditampilkan bertuliskan (MEMO). Hal ini tentu saja dapat menjadi masalah tersendiri lebih lebih jika kita mengutamakan kenyamanan end-user. Perhatikan contoh berikut ini.

Pada gambar diatas terlihat bahwa nilai Field password pada DBGrid tidak ditampilkan karena merupakan tipe data text di mysql. Lantas bagaimana cara menampilkannya? 

Klik dua kali pada komponen ADOQuery. Lalu klik kanan dan Add All Field seperti gambar berikut

Berikutnya klik 1 kali pada field yang bertipe data text (bertuliskan memo di dbgrid) pada contoh ini adalah field password. masuk ke object inspector | event | OnGetText. Tambahkan Coding Berikut di dalam Event OnGetText

Text := Copy(ADOQueryNamaField.AsString, 1, 200);

Form di dalam Form Delphi

anda tentu sering menggunakan aplikasi-aplikasi yang dibangun oleh para developer. entah itu aplikasi yang bersifat berbayar atau free alias gratisan. dari aplikasi-aplikasi yang pernah digunakan tersebut tentu kita sering mendapat ide semisal meniru desain, tampilan, alur program dan hal-hal lain. Contohnya seperti yang akan saya bahas pada postingan ini yaitu bagaimana membuat form berada didalam form.

Sebagai gambaran, pada contoh disini akan terdapat tiga buah form. Form pertama akan kita gunakan sebagai Form Utama (Form Parent). Berikut Form kedua dan ketiga akan kita manfaatkan sebagai Form Child atau form yang akan muncul didalam form Utama. Terdapat juga komponen Panel yang akan digunakan untuk meletakan form child serta menu untuk memanggil form child. Bagaimana, Sampai disini ada gambaran?

1. Buat 3 Buah Form dalam Projek anda, kemudian simpan

2. Tambahkan Unit Form kedua dan ketiga kedalam uses Unit form pertama

3. Tambahkan sebuah menu untuk memanggil form kedua dan ketiga 

4. Tambahkan sebuah komponen panel. set property | Align = alClient 

Adapun contoh coding untuk memanggil masing-masing form adalah sebagai berikut. Jika masih kurang jelas, anda dapat mendownload contoh source code (projek) disini. selamat mencoba. happy coding. :)

procedure TForm1.FormSatu1Click(Sender: TObject);
var
form_anak_satu : TForm2;
begin
form_anak_satu:=TForm2.Create(nil);
form_anak_satu.Parent:=Panel1;
form_anak_satu.Align:=alClient;
form_anak_satu.Show;
end;

procedure TForm1.FormDua1Click(Sender: TObject);
var
form_anak_dua : TForm3;
begin
form_anak_dua:=TForm3.Create(nil);
form_anak_dua.Parent:=Panel1;
form_anak_dua.Align:=alClient;
form_anak_dua.Show;
end;