Form Login Dengan MD5 di Delphi

Form Login Sering digunakan untuk memprotek aplikasi agar tidak dapat digunakan oleh sembarang orang. Biasanya dalam Proses login akan meminta authentikasi Username dan Password. Untuk Keamanan Proses Authentikasi. Biasanya Programmer akan menambahkan Metode Ekripsi / Hash didalamnya. Metode Hash sendiri Salah satunya adalah dengan MD5.

Pada Postingan ini Admin Mau Sharing tentang cara membuat Form Loading sederhan Dengan MD5 di Delphi.Sebelumnya. Anda Membutuhkan Komponen-nya. Silahkan Download Disini Selesai Download Silahkan ditambahkan. Hasil Penambahan biasanya langsung berada di pallete terakhir. Jika Anda Berhasil, Nama Palletenya adalah (Kiyat).

Silahkan Tambahkan Komponennya kedalam Form Anda !

Untuk Desain Tampilan Saya Seperti ini :

Selanjutnya pada tombol login. tambahkan Code dibawah ini :

var
user,pass : string;
begin
user:=MD51.MD5Print(MD51.MD5String('admin'));
pass:=MD51.MD5Print(MD51.MD5String('masuk'));
If (MD51.MD5Print(MD51.MD5String(Edit1.Text))=user) and (MD51.MD5Print(MD51.MD5String(Edit2.Text))=pass) then
ShowMessage('Login Berhasil !!') else
ShowMessage('Login Gagal !!');
end;

Akan Lebih Bagus Jika anda mengganti Property Edit Password menjadi Password Char (*) sehingga Teks yang diinputkan akan berubah menjadi karakter *.

Kalkulator Sederhana Dengan Delphi

Sebenarnya postingan ini admin buat hanya sekedar iseng saja. Ya bisa dibilang gak penting. tapi saya kira tidak ada salah untuk berbagi pengetahuan meskipun sekecil biji sawi karena tingkat pengetahuan seseorang berbeda-beda. tidak semua orang memiliki kecerdasan yang sama (Kok Malah Ceramah Sih). Ok. Kita kembali ke topik pembahasan. Sesuai dengan judulnya kali ini admin ingin berbagi pengetahuan bagaiamana membuat kalkulator sederhana dengan menggunakan Delphi.

Sekedar info, Kalkulator yang akan kita buat hanya mampu mengoperasikan empat Operasi Matematika (Kali, Bagi, Tambah dan Kurang). Hitung-hitung Menambah pengetahuan. Untuk Desain Tampilannya tidak usah yang ribet-ribet. Punya saya sendiri seperti ini

Selanjutnya. Tambahkan Code dibawah ini dalam Tombol Proses

// STRTOINT Untuk Mengkonvert String Menjadi Integer karena pada dasarnya semua
// inputan dari edit akan dibaca string Kita perlu mengkonvert menjadi integer agar
// dapat dioperasikan secara matematis.
// Dalam Pembagian akan Menjadi FLOATTOSTR/STRTOFLOAT. karena Hasil pembagian belum tentu bilangan bulat

Edit3.Text:=IntToStr(StrToInt(Edit1.Text)*StrToInt(Edit2.Text));
Edit4.Text:=FloatToStr(StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text));
Edit5.Text:=IntToStr(StrToInt(Edit1.Text)+StrToInt(Edit2.Text));
Edit6.Text:=IntToStr(StrToInt(Edit1.Text)-StrToInt(Edit2.Text));

Ok. Sudah Selesai. Silahkan dijalankan! Hasil Punya Saya Seperti Ini

Membuat Laporan Dengan QuickReport Delphi

Fungsi Sebuah Laporan Tentu Sudah Sobat Pahami Bukan?
Pada Postingan ini. Admin Ingin Sedikit Share Bagaimana Membuat Laporan dengan Memanfaatkan Component QuickReport Dari Delphi. Caranya Bagaimana? Ikuti saja Langkah dibawah ini :

Pertama. Dan Yang paling Utama. Pastikan Anda Sudah Memahami Bagaimana Koneksi Database Ke Delphi Berikut Tentang CRUD (Create Read Insert Update dan Delete) Data pada Database Tersebut. Kenapa Penting? Karena Report alias Laporan akan Mengambil Data Dari Database. Jika Anda Belum Faham Bagaimana Koneksi Database dan CRUD Data Silahkan Baca Postingan Sebelumnya !

Kedua, Silahkan Tambahkan Component QuickReport dengan Cara Klik Menu Component > Install Package > Add > Silahkan Cari Komponen-nya Pada "C:\Program Files\Borland\Delphi7\Bin" > Nama Componentnya adalah dclqrt70.bpl
Selesai Menambahkan Component Silahkan Lihat Komponen yang sudah anda tambahkan Pada Pallete Terakhir.

Ketiga, Buka Menu File > Other > Report.
Keempat, Klik Dua Kali Pada Report Tersebut Lalu Atur Sesuai Kebutuhan > Apply > OK

Kelima, Tambahkan 1 Buah AdoQuery/AdoTable (Atur Koneksinya). Selanjutnya Masuk Ke Pallete QReport > Tambahkan Beberapa Komponen QRLabel > Atur Property-nya

Keenam, Tambahkan Beberapa Komponen QRDBText > Atur Property-nya.
Yang Perlu Diganti dalam Mengatur Property dari QRDBText adalah :

Dataset dan DataFiled pada Object Inspector.

Contoh Desain saya Seperti ini (Saya Memanfaatkan AdoQuery yang ada di Datamodule sehingga tidak perlu menambahkannya ke Form Quick Report)

Yang Terakhir, Untuk Memanggil laporan Yang Sudah Kita Buat Dengan Button, Tambahkan Kode ini

QReport.QuickReport2.Preview;

Hasil saya Seperti ini

NB : Jika pada laporan anda hanya muncul 1 data sedangkan pada tabel database anda memiliki beberapa data, anda perlu mengatur setting Quickreport di Object inspector Dataset -> AdoQuery/AdoTable

Membuka File Dengan Code Delphi

Dalam Membangun Sebuah Aplikasi. Kadangkala Kita Perlu Membuka Suatu File yang berhubungan dengan aplikasi yang kita bangun. Suatu Misal membuka File Help yang banyak dibuat dengan Format *.chm meski tidak jarang berformat *.Pdf, Membuka Browser atau Kalkulator dan semacamnya. Pada Postingan Kali ini Admin Ingin Sharing tentang bagaimana membuka Sebuah File Dengan Delphi.

Tidak ada teknik khusus untuk melakukan hal tersebut diatas karena Pada Dasarnya Untuk membuka sebuah File didalam komputer dengan Coding Delphi dilakukan dengan cara menggunakan ShellApi. Untuk menggunakannya anda bisa langsung menambahkannya pada uses ShellApi.

Setelah Menambahkan Library-nya Pada Uses, kemudian anda hanya tinggal memanggil file yang akan anda buka. untuk code nya seperti dibawah ini :

ShellExecute(Handle, 'open', 'C:\Windows\System32\calc.exe',nil,nil,SW_SHOWNORMAL);

Kode diatas akan membuka tools kalkulator bawaan windows.

Letakkan Kode tersebut pada event yang anda inginkan untuk membuka file yang anda inginkan. suatu misal anda ingin membuka file pada saat penekanan tombol maka tambahkan kode diatas pada event onclick tombol tersebut. mudah bukan? selamat mencoba.

Penggunaan Popup Menu Pada Delphi

Popup Menu seringkali dibutuhkan dalam membangun aplikasi. dalam hal ini penggunaan popup menu seringkali menjadi masalah untuk mereke yang masih pemula. apalagi bagi mereka yang baru mengenal Delphi.

Popup menu yang dimaksud disini adalah menu yang muncul ketika kita melakukan klik kanan pada sebuah Program aplikasi. Iseng iseng saya membuat postingan ini siapa tahu ada yang bingung tentang cara membuat popup menu dengan menggunakan Delphi.

pada dasarnya. penggunaan Popup menu Pada delphi tidak jauh berbeda dengan menggunakan komponen main menu. Hanya saja. Ketika kita Sudah membuat menu dengan popup menu, yang kerap menjadi masalah adalah. popup menu tersebut tidak muncul ketika kita klik kanan Form Aplikasi kita. Trus Bagaimana Solusinya ?

Ternyata Sangat mudah kawan. Caranya : Klik 1 kali pada Form Aplikasi > Masuk Ke Object Inspector > didalam Object inspector isi Popupmenu dengan Popup menu yang ingin dimunculkan pada saat mengklik Form Aplikasi. Selesai.

Hasil (Klik Kanan Pada Form Anda)

Membuat Form Loading Smadav Dengan Delphi

Form Loading Smadav Itu Keren ya Ternyata. Belum Lama Ini Iseng iseng saya membuat aplikasi dan mencontek gaya Form Loading milik Smadav. Pada Postingan Kali Ini Saya Ingin Berbagi ilmu dengan sobat Delphi Tutor tentang cara membuat Form Loading Mirip SMADAV dengan Menggunakan IDE kesayangan Kita yaitu Delphi.

Form Loading Biasanya digunakan di awal aplikasi dijalankan. Progress Loadingnya akan menginformasikan proses-proses yang sedang dikerjakan sebelum membuka tampilan utama. Namun Pada Postingan ini saya hanya akan mencontohkan bagaimana memanfaatkan komponen Progressbar saja untuk membuat form loading sederhana. Oke deh, Ikuti Step dibawah ini.

Pertama. Atur Property Form Anda Seperti dibawah ini :

Property Pada Form :
BorderStyle : BsNone
Position : poScreenCenter

Tambahkan Komponen yang dibutuhkan :

1 Buah Timer ->> Ubah Interval Timer Jadi 500
1 Buah Progresbar
Komponen Label seperlunya
1 Buah XPManifest

Tambahkan Dua Buah Variabel Global

waktu,pb:integer;

Letakan Kode ini didalam TIMER (Klik 2 kali)

pb:=pb+10;
ProgressBar1.Position:=pb;
waktu:=waktu-1;
if pb=100 then
begin
form1.Close;
end;

Hasilnya Seperti ini :

Input Gambar Kedalam Database di Delphi

Dalam Membuat Aplikasi. Kadangkala Kita Butuh Untuk Menyimpan File Data Gambar Kedalam Database Program. Suatu Misal Jika Sobat Membuat Aplikasi PMB Maka File Foto Calon MABA Tentu Perlu disimpan didalam Database. Pertanyaanya. Bagaimana Cara Menyimpan File Gambar Kedalam Database. Entah Itu Database Desktop, Acces atau MySQL.

Pertama, Tipe Field yang digunakan dalam Menyimpan File Gambar didalam Database Desktop adalah "O", Sedangkan dalam Database Acces adalah "OLE" MySQL dengan tipe "BLOB". Pokok gak Jauh-jauh dari OLE dan BLOB dahh.. huhu :)

Kedua, Tipe Gambar yang dapat disimpan adalah *.bmp
Gunakan Komponen OpenPicture Dialog untuk mengambil gambar dari file dan dan Image untuk menampilkannya.

Truss. Tahap Pengkodingan. Pada tahap ini saya Anggap Sobat sudah Faham Bagaimana Menyimpan Data Kedalam Database (Desktop, Acces dan MYSQL) Jika Belum Silahkan Baca Postingan Sebelumnya.

Jika Sudah, Koding Untuk Menyimpan Gambarnya adalah :

// Contoh Database Acces
AdoTable1.Append;
AdoTable1.FieldByName('Foto').Assign(Image1.Picture);
AdoTable1.Post;

Untuk Database yang lain silahkan disesuaikan Saja.

Sebenarnya ada Cara Lain Yaitu dengan Menyimpan Lokasi Filenya Saja pada Field Tabel Database dan ditampilkan dengan menggunakan Komponen Image.