Tutorial Pemrograman Delphi dan Visual Basic untuk Path Database

Bila aplikasi mengalami masalah pada saat dirubah nama foldernya atau pada saat dipindahkan ke folder lain, mungkin itu karena anda memberikan path absolute ke file-file atau database yang digunakannya.
Untuk menghindari masalah seperti yang saya sebutkan diatas, anda harus membuat path ke file-file yang digunakannya menjadi path relative. Misalnya anda mempunyai aplikasi yang disimpan di "F:\APP\VB\PathRelative\Contoh.exe" dan databasenya disimpan di "F:\APP\VB\PathRelative\Sample.mdb".

Visual Basic Syntax

Berdasarkan contoh diatas, berikut ini syntax Visual Basic agar path ke database "Sample.mdb" menjadi relative :

koneksi_ado.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Password=;Data Source=" & app.path & "\sample.mdb;Persist Security Info=True"

Property Path dari App.path digunakan untuk menghasilkan path ke aplikasi .exe berada. pada contoh diatas aplikasi .exe anda berada di "F:\APP\VB\PathRelative", sehingga kode app.path & "\sample.mdb" akan menghasilkan "F:\APP\VB\PathRelative\sample.mdb".

Delphi Syntax

dan dibawah ini adalah syntax Delphi agar path ke database "Sample.mdb" menjadi relative :

koneksi_ado.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Password=;Data Source=sample.mdb;Persist Security Info=True"

Apabila anda menggunakan komponen seperti Adodc di Visual Basic atau Adoconnection di Delphi untuk koneksi ke database, maka setting Data Sourcenya adalah seperti gambar dibawah ini :

Path yang tadinya adalah path lengkap (absolute) => "F:\APP\VB\PathRelative\sample.mdb"
anda rubah menjadi => "sample.mdb"
Dengan cara seperti ini maka, aplikasi akan mencari file-file yang telah dideklarasikan sebelumnya di folder manapun aplikasi tersebut ditempatkan.

Read more Read More...

Tutorial Menghubungkan Delphi dengan Database MySQL

Berikut adalah beberapa metode untuk menghubungkan Delphi dengan database MySQL beserta penjelasannya :

Koneksi menggunakan MySQL Connector/ODBC

• Download MySQL Connector/ODBC di http://dev.mysql.com/downloads/connector/odbc/ jika belum punya.

1. Install MySQL Connector/ODBC.
2. Setelah selesai menginstall MySQL Connector/ODBC, kemudian masuk ke Control Panel. Start | Settings | Control Panel | Administrative Tools | dobel klik Data Sources (ODBC).
3.  Setelah muncul window ODBC Data Source Administrator klik tab User DSN, kemudian klik tombol Add.
4. di window Create New Data Source pilih MySQL ODBC nomor_versi Driver (nomor_versi adalah versi dari Driver Connector MySQL misalnya 3.51). Klik tombol Finish
5. Kemudian akan muncul window Connector / ODBC. Klik pada tab Login.
6. Pada text box Data Source Name isi dengan nama Data Source, misalnya MySQLDS.
7. Pada text box description isi dengan deskripsi koneksi (optional).
8. Pada text box server isi dengan localhost atau IP 127.0.0.1 jika anda menginstall Database MySQL di komputer anda sendiri.
9. Pada text box User isi dengan nama user misalnya root (root adalah user yang mempunyai kewenangan penuh terhadap database atau disebut juga Administrator).
10. Pada Text box Password isi dengan password root (defaultnya user root tidak mempunyai password).
11. klik tombol Test untuk mengetes koneksi.
12. Jika sudah sukses klik tombol Finish.
13. Masuk ke Delphi, buat sebuah project baru lalu tambahkan sebuah komponen ADOConnection.
14. Dobel klik komponen ADOConnection. Klik tombol Build.
15. di window Data Link Properties klik tab Provider kemudian pilih Microsoft OLE DB Provider for ODBC Drivers klik tombol Next
16. Pada Tab Connection, Pilih radio button use data source name kemudian pada combobox di bawahnya pilih nama data source yang tadi anda buat yaitu MySQLDS.
17. Isi root pada textbox User name dan passwordnya pada textbox Password. Klik tombol Test Connection. Jika sukses, klik tombol OK.
18. Set Property LoginPrompt menjadi false agar aplikasi tidak menampilkan form Database Login ketika anda akan menjalankan aplikasi.
19. Set Property Connected menjadi true.
20. Setelah tahap diatas, koneksi ke database MySQL sudah terbentuk. Selanjutnya untuk mengakses data pada sebuah table di database MySQL anda bisa menggunakan komponen ADOTable atau ADOQuery yang dihubungkan dengan komponen ADOConnection dengan cara men-set property Connectionnya menjadi ADOConnection1.

Koneksi menggunakan MySQLDAC

Download MicroOlap MySQL Direct Access Component versi trial di http://www.microolap.com/products/connectivity/mysqldac/download/.

1. Install MicroOlap MySQL Direct Access Component seperti biasa.
2. Setelah selesai installasi, di tab component delphi akan muncul tab baru yaitu DAC for MySQL
3. Buat Project baru di Delphi, klik pada tab DAC for MySQL kemudian tambahkan sebuah komponen mySQLDatabase.
4. Dobel klik komponen tersebut, setelah itu muncul window dialog TMySQLDatabase Editor.
5. Isi text box Database Name dengan nama database anda.
6. Isi text box User ID dengan username anda misalnya root.
7. Isi text box Password password user yang digunakan.
8. Isi text box Host Name / IP dengan localhost atau 127.0.0.1 jika anda menginstall database MySQL di komputer anda sendiri.
9. Isi text box Server Port dengan nomor port yang digunakan MySQL database (defaultnya 3306).
10. Dari dua metode diatas, koneksi dengan menggunakan MySQL Direct Access Component adalah yang paling baik karena memberikan peforma akses/query ke database yang lebih cepat dibandingkan koneksi dengan menggunakan MySQL Connector/ODBC hanya saja komponen ini tidak gratis

Read more Read More...

Tutorial pemrograman Delphi dan Visual Basic Menampilkan Dua Baris Pesan pada Messagebox

Kadang kita ingin agar teks dalam sebuah messagebox atau message dialog dalam aplikasi kita menjadi beberapa baris karena teks yang akan kita tampilkan cukup panjang dan kurang indah jika pesan tersebut ditempatkan dalam satu baris.

Berikut ini adalah cara menampilkan teks dua baris pada messagebox di Delphi :

application.MessageBox('Ini adalah baris pertama pesan'+chr(10)+ 'Ini adalah baris kedua pesan','Informasi',mb_ok)

Berikut ini adalah cara menampilkan teks dua baris pada messagebox di Visual Basic :

MsgBox "Ini adalah baris pertama pesan" & Chr(10) & "Ini adalah baris kedua pesan", vbOKOnly, "Informasi"

Read more Read More...

Tutorial Pemrograman Delphi : Membuat Validasi Login User Berbasis Database dengan Borland Delphi

Untuk membuat aplikasi untuk beberapa user group atau user level. Misalnya aplikasi anda digunakan untuk mengolah data penjualan suatu barang dan di aplikasi anda tersebut misalnya terdapat beberapa modul/menu diantaranya input data barang, input data penjualan, input data pembelian, laporan barang masuk, laporan barang keluar, laporan rugi laba, administrasi user dan lain sebagainya.


maka tidak semua orang/user tentunya mempunyai hak untuk mengakses semua modul/menu tersebut. Misalnya ada dua level user yaitu Administrator dan operator. Operator hanya bertugas untuk menginput data barang, input data pembelian, input data penjualan, laporan barang masuk dan laporan barang keluar. Untuk Laporan Keuangan Rugi Laba dan administrasi user hanya boleh diakses oleh Administrator yang mempunyai kewenangan penuh terhadap seluruh aplikasi. Untuk itu tentunya aplikasi anda membutuhkan sebuah validasi user yaitu lewat sebuah proses login.

berikut ini contoh pembuatan aplikasi untuk validasi login user berbasis databases di borland delphi. Disini digunakan borland delphi versi 7.

Sebelum mulai dengan Delphi anda harus membuat dahulu sebuah database misalnya menggunakan database Microsoft Access.

Masuk ke Microsoft Access buat database baru : File | New | Blank Database. Simpan di folder C:\APP\Login dengan nama DelphiTutorial.mdb.

Buat table baru : Insert | Table. Pada kotak dialog yang muncul pilih Design View klik ok.
Buat struktur tabel seperti dibawah ini :

Filed Name	Data Type	Size
Username	Text	30
Password	Text	50
Status	Text	1

Field Status digunakan untuk pengenalan level user (0 untuk operator dan 1 untuk administrator). Berikan primary key pada field Username dan simpan table dengan nama Login. Kemudian isikan beberapa data, contoh :

Username	Password	Status
User	User	0
Admin	admin	1

• Buat sebuah project baru di Delphi : File | New | Aplication
• Tambahkan dua buah komponen Edit dan dua buah komponen Button dan dua buah komponen Label
• Tambahkan sebuah form lagi : File | New | Form.

Set Priority komponen sebagai berikut:

Nama Komponen	Nama Property	Nilai
- Form1	Name	FLogin
- Form2	Name	FMenu
- Label1	Name	Label1
	Caption	Username
- Label2	Name	Label2
	Caption	Password
- Edit1	Name	EUsername
- Edit2	Name	EPassword
	PasswordChar	*
- Button1	Name	BtnOk
	Caption	Login
- Button2	Name	BtnCancel
	Caption	Batal

Sehingga tampil seperti ini :

• Simpan project di C:\APP\Login dengan nama PLogin.dpr.
• Klik Flogin, tambahkan sebuah komponen AdoQuery (ada di tab ADO)
• Set Property Namenya : AQLogin
• Set Property ConnectionString : Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DelphiTutorial.mdb;Persist Security Info=False
• klik form Fmenu kemudian tambahkan komponen MainMenu.
• Dobel klik komponen MainMenu dan tambahkan satu menu dan beberapa submenu sehingga tampilannya seperti dibawah ini :

• dobel klik komponen BtnOk di form FLogin kemudian isikan kode berikut :

aqlogin.Close;

aqlogin.SQL.Text := 'select * from login where username = :un and password = :pw';

aqlogin.Prepared := true;

aqlogin.Parameters[0].Value := EUsername.Text;

aqlogin.Parameters[1].Value := EPassword.Text;

aqlogin.Open;

if aqlogin.RecordCount < 1 then // jika data tidak ada, tampilkan pesan error begin Messagedlg('Username tidak dikenal',mterror,[mbok],0); Exit; end else if aqlogin.RecordCount > 0 then // jika data ada, cek status

begin

if aqlogin.FieldValues['status'] = '0' then // jika status 0, maka menu administrator disembunyikan

begin

fMenu.caption := 'Contoh Database Login ...on ['+

uppercase(aqlogin.FieldValues['username'])+'] as Operator';

fmenu.Administrator1.visible := false;

end

else if aqlogin.FieldValues['status'] = '1' then

fMenu.caption := 'Contoh Database Login ...on ['+

uppercase(aqlogin.FieldValues['username'])+'] as Administrator';

else

begin

Messagedlg('User level tidak jelas, login gagal',mterror,[mbok],0);

exit;

end;

end;

flogin.Hide;

fMenu.show;

• Dobel klik komponen BtnCancel, kemudian tambahkan kode berikut :

application.Terminate;

Kode pada BtnOk akan memeriksa username dan password dengan data yang ada di tabel login. Jika data ada aplikasi kemudian akan memeriksa status user. Jika status user tersebut "0" maka yang menu yang ditampilkan di form FMenu hanya menu untuk operator saja dan apabila status user "1" maka semua menu di form FMenu akan ditampilkan.
Main Form untuk project ini adalah Flogin jadi jika anda menutup form FMenu, maka seolah-olah aplikasi sudah tertutup, padahal sebenarnya aplikasi tersebut masih berjalan di background, karena Flogin yang jadi Main Form belum tertutup. Untuk membuktikannya, klik kanan di taskbar dan pilih Task Manager. Klik pada tab Proses kemudian cari entry dengan nama Plogin.exe.
Untuk mengatasi masalah tersebut, klik di FMenu kemudian pada Object Inspector klik tab Events kemudian dobel klik pada event OnClose, lalu tambahkan kode berikut :

application.Terminate;

Dengan demikian aplikasi akan di terminate ketika anda menutup form Fmenu

Read more Read More...

Tutorial Pemrograman Delphi : Membuat Menu Popup

• Buat sebuah Project baru tambahkan sebuah komponen Memo yang ada pada tab Standard.
• Drag komponen Memo tersebut hingga lebarnya memenuhi form.
• Tambahkan baris program berikut pada event OnMouseUp komponen Memo :

var TitikClient,TitikLayar: TPoint;

begin

if Memo1.SelLength>0 then

begin

TitikClient.X := X;

TitikClient.Y := Y;

TitikLayar := ClientToScreen (TitikClient);

PopupMenu1.Popup (TitikLayar.X, TitikLayar.Y);

end;

end;

Read more Read More...

Tutorial Pemrograman Delphi : Menambahkan Nomor Record Pada DBGrid

Untuk menampilkan data dari sebuah table, anda bisa menambahkan/menampilkan nomor record tersebut pada komponen DBGrid di Delphi. sebagai berikut :

• Gunakan sebuah table bernama TBarang di database MySQL yang pernah dibuat sebelumnya.
• Buat sebuah project baru di Delphi. Tambahkan sebuah komponen ADOTable, sebuah DataSource, dan sebuah komponen DBGrid.
• Hubungkan komponen ADOTable dengan database MySQL dengan cara men-set property ConnectionString-nya ke datasource database MySQL.
• Kemudian set property TableName ADOTable1 menjadi TBarang.
• Dobel klik ADOTable1, pada kotak Field Editor yang muncul klik kanan kemudian pilih Add all fields
• Set property DataSource1 menjadi ADOTable1.
• Set property DBGrid1 menjadi DataSource1.
• Dobel klik DBGrid1, pada kotak Colection Editor yang muncul klik kanan kemudian pilih Add all fields
• Tambahkan sebuah field baru pada DBGrid1 untuk nomor record, dengan cara klik kanan pada kotak Colection Editor kemudian pilih Add kemudian drag field baru tersebut ke posisi teratas pada kotak Colection Editor. set property Title ==> Caption-nya menjadi No.
• Tambahkan kode perintah berikut ini pada event OnCreate komponen Form1 di code editor delphi :

if not adotable1.Active then

adotable1.Open;

• dan kode perintah berikut ini pada event OnDrawColumnCell komponen DBGrid1 di code editor delphi :

if DataSource1.DataSet.RecNo > 0 then

begin if Column.Title.Caption = 'No' then

DBGrid1.Canvas.TextOut(Rect.Left + 2, Rect.Top, IntToStr(DataSource1.DataSet.RecNo));

end;

Jalankan program dengan menekan F9. disana akan terlihat nomor record dikolom paling kiri pada komponen DBGrid.

Read more Read More...

Tutorial Pemrograman Delphi : Pengaturan Layout Control Dengan Anchors

Banyak para Delphiers pemula belum mengetahui fungsi dari properties Anchors ini. Properties Anchors dimiliki oleh hampir semua komponen yang bisa dilihat pada saat Runtime di Delphi seperti komponen Edit, DBGrid, Combobox, Listbox, Memo dan lain-lain. Fungsi dari Properties Anchors ini adalah untuk menjaga posisi ujung (edge) sebuah Control terhadap sebuah ujung parent nya. dengan begitu sebuah control/komponen akan mempunyai posisi yang relative terhadap parent nya meskipun Window parent nya di Resize atau di Maximize. Sebagai contoh jika Sebuah control di set properties Anchors left dan Right nya, maka lebar control tersebut akan mengikuti ukuran parent nya ketika parent tersebut di-Resize atau di-Maximize, begitu pula jika diset properties Anchors Top dan Bottom nya maka, sebuah komponen Control akan mengikuti ukuran tinggi dari parent nya.
Untuk lebih jelas bisa ikuti langkah-langkah berikut ini :
• Buat sebuah Project Baru tambahkan sebuah Memo dan Button sehingga Interface nya seperti gambar dibawah ini

• Set Properties Anchors Left dan Right komponen Memo menjadi True dan Set Propeties Anchors Right dan Buttom komponen Button menjadi True

• Run Program
• Sekarang coba resize window Form1

Anda bisa lihat lebar komponen Memo1 mengikuti parent nya yaitu Form1 ketika di resize atau di maximize dan sisi kiri dan kanan komponen Memo1 mempunyai jarak yang tetap dengan sisi kiri dan kanan Form1 seperti pada saat Design. sedangkan ujung atas dan bawah komponen Memo1 tidak. Sedangkan komponen Button1 hanya menjaga jarak sisi kanan dan bawahnya saja karena kita tadi hanya men-set properties Anchors Right dan Bottom saja, sehingga Button1 tidak ikut Stretch ketika Form1 di Resize atau di Maximize.
Anda bisa set Properties Anchors Top dan Bottom komponen Memo1 menjadi True agar semua sisinya mengikuti Parent nya sehingga posisinya relative terhadap parent nya.

Read more Read More...

Tutorial Pemrograman Delphi :Membuat Menu ber-Icon

Tutorial singkat ini pemrograman Delphi untuk membuat menu dengan icon disampingnya. Contoh dengan struktur menu seperti ini :

untuk membuat menu ber-Icon tersebut, inilah langkah-langkahnya :
• Buat Project Baru di Delphi
• Tambahkan komponen ActionManager , ActionMainMenuBar yang ada di tab Additional
• Tambahkan komponen ImageList yang ada di tab win32
• Dobel klik komponen ActionManager, akan muncul Form Editing ActionManager

• klik pada icon New Icon atau tekan tombol Insert pada keyboard untuk menambahkan sebuah Action• Untuk merubah judul menu, klik sebuah Action kemudian rubah properties Caption pada Object Inspector.
• Untuk mengelompokan sebuah Action atau beberapa Action sekaligus kedalam sebuah menu : Klik Action tersebut, atau beberapa Action sekaligus kemudian rubah properties Category nya menjadi nama menu misalnya dalam contoh ini adalah "Master Data".
• Masukkan Icon yang akan digunakan kedalam komponen ImageList caranya : dobel klik komponen ImageList, pada dialog yang muncul klik tombol add. pilih file icon atau file bitmap image yang akan kamu pergunakan sebagai icon disamping menu tersebut kemudian klik ok.
• Set properties Image komponen ActionManager menjadi ImageList1 untuk "memberitahu" komponen ActionManager bahwa kita akan menggunakan image yang ada padi komponen ImageList.
• Assign Icon untuk setiap menu caranya : dobel klik komponen ActionManager1, dibawah Listbox Categories pilih category yang telah kita buat tadi yaitu "Master Data" kemudian di Listbox sebelah kanan (Actions) klik sebuah Action, pada object inspector set properties ImageIndex menjadi index image yang ada di ImageList misalnya 0 (index dimulai dari 0).
• untuk menampilkan menu kedalam form caranya : dobel klik ActionManager1, drag and drop category "Master Data" kedalam komponen ActionMainMenuBar1.
• Run Aplikasi, disana terlihat bahwa menu belum aktif, untuk mengaktifkan menu kamu harus tambahkan kode program ke masing menu-menu tersebut. sebagai contoh kamu bisa tambahkan kode program berikut ke masing-masing menu tersebut :

messagedlg('Test Iconic Menu With ActionManager Component',mtinformation,[mbok],0);

Demikian semoga bermanfaat.

Read more Read More...