Produk sebelumnya, Microsoft SQL Server 2000, kalau di-install di Windows 7 biasanya akan muncul pesan “Microsoft SQL Server 2000 Enterprise Edition server component is not supported on this operating system. Only client components will be available for installation“. Artinya hanya bisa meng-install komponen client atau hanya bisa koneksi saja dengan Database SQL Server, sedang database-nya harus ada di komputer server. Kalau niatnya cuma mau belajar Database SQL Server dan hanya punya satu komputer, itupun sistem operasinya Windows 7, mendingan pakai Microsoft SQL Server 2005..

Saya berasumsi kamu sudah meng-install software ini.. pada start menu, klik Microsoft SQL Server 2005 -> SQL Server Management Studio, untuk koneksi dengan Database SQL Server 2005, biasanya muncul kotak dialog Connect to Server seperti gambar di bawah

Kolom Server name: terisi WINSEVEN, secara default sama dengan nama komputer saya sebab software ini di-install di komputer saya. Karena kolom Authentication: dipilih Windows Authentication maka kolom User name: secara otomatis diisi dengan user local yang sedang dipakai. Dari gambar di atas user-nya adalah satellite, WINSEVEN merupakan nama komputer saya. Database SQL Server membacanya jadi WINSEVEN\satellite. Jika sudah, tekan tombol Connect.. pada layar monitor akan muncul kotak pesan berikut

Koneksi dengan user local tidak bisa dilakukan karena user WINSEVEN\satellite belum terdaftar di Database SQL Server 2005. Untuk mendaftarkannya kamu mesti login dengan user WINSEVEN\administrator, setelah itu baru mendaftarkan user local WINSEVEN\satellite.

Windows 7 biasanya men-disable user Administrator karena faktor keamanan. Aktifkan kembali user Administrator, caranya klik Control Panel -> System and Security -> Administrative Tools, pilih menu Computer Management. Ikuti langkah-langkahnya seperti gambar di bawah

Sekarang user Administrator sudah aktif.. log off komputer dan login windows kembali dengan user Administrator. Sesuai dengan daftar user di atas, seharusnya ada tiga user yang muncul pada layar login windows seperti gambar di bawah, pilih user Administrator..

Karena kamu tidak menge-set password untuk user Administrator maka pada saat login windows tidak perlu memasukkan password..

Setelah berhasil login windows dengan user Administrator, jalankan kembali Microsoft SQL Server 2005 ->SQL Server Management Studio. Seharusnya pada kotak dialog Connect to Server, kolom User name: bernilai WINSEVEN\Administrator, dan Database SQL Server 2005 bisa diakses ketika kamu menekan tombol Connect.. kamu bisa melihat user-user yang terdaftar dengan meng-expand menu Security -> Login.

Untuk mendaftarkan user local WINSEVEN\satellite, klik kanan mouse pada menu Security -> Login kemudian pilih New Login…

Kotak dialog Login – New akan muncul, aktifkan page General, kemudian masukkan nama user ke kolom Login name:, kolom yang lain biarkan sesuai nilai default-nya..

Aktifkan page Server Roles, tentukan privileges untuk user baru tersebut. Ada 9 hak yang bisa kamu berikan, yang masing-masing akan saya jelaskan pada artikel lain, untuk saat ini setidaknya kamu bisa memberi tanda ‘centang’ pada checkbox public dan sysadmin. Sebenarnya kalau di-’centang’ semua juga nggak apa-apa, toh user ini yang biasa kita pakai khan..

Page berikutnya, User Mapping, tandai semua database yang ada.. dan pada kolom di bawah Database role membership for: minimal beri tanda ‘centang’ pada checkbox db_owner dan public untuk masing masing database.

Dua page yang tersisa, Securables dan Status, biarkan sesuai nilai default-nya, kemudian klik tombol OK.

Setelah selesai mendaftarkan user local, log off kembali komputer dan login windows dengan user local. Jangan lupa untuk men-disable user administrator.. Sekarang kamu bisa login ke Database SQL Server 2005 dengan user local yang tadi kamu daftarkan..

Nuwun..

Dalam aplikasi database yang dibangun dengan Borland Delphi 6, untuk mengakses database MySQL kamu bisa menggunakan semua komponen database seperti ADO, BDE maupun dbExpress. Koneksi database MySQL dengan komponen BDE tidak jauh berbeda dengan komponen ADO atau dbExpress. Sebagai contoh download Connect MySQL Source Code, ekstrak dalam komputer kamu dan buka dengan Delphi. Source code untuk aplikasi ini memakai database linked, buat dulu database tersebut sekalian driver ODBC-nya, caranya baca kembali artikel Membuat Driver ODBC untuk Database MySQL

Koneksi dengan komponen ADO

Biasanya koneksi database dengan ADO melalui driver ODBC, komponen yang digunakan tidak sebanyak jika dengan komponen dbExpress, perhatikan gambar di bawah ini

Komponen TADOConnection berfungsi untuk koneksi dengan sumber data, bisa langsung dari file databasenya (misalnya database Ms Access) atau melalui driver ODBC. Pastikan driver ODBC untuk database MySQL telah dibuat, dan untuk mengubah koneksinya klik ganda komponen bernama adocConnMySQL sehingga muncul kotak dialog seperti di bawah ini, klik tombol Build.. kemudian lakukan langkah-langkahnya

Untuk menguji koneksi bisa dilakukan atau tidak tekan tombol Test Connection, jika berhasil akan muncul pesan “Test connection succeeded“.

Pada source code, perintah koneksi dengan komponen ADO dieksekusi ketika pengguna meng-klik menu koneksi -> ODBC-ADO, dan dikodekan dalam prosedur miODBCClick seperti di bawah ini

procedure TfmConnMySQL.miODBCClick(Sender: TObject);
begin
  if sqlcConnMySQL.Connected = True then
    sqlcConnMySQL.Close;

  dsCustomer.DataSet:= tbCustomer;
  dsOrders.DataSet:= tbOrders;
  Series1.DataSource:= tbOrders;

  adocConnMySQL.Open;
  if adocConnMySQL.Connected = True then
  begin
    tbCustomer.Open;
    tbOrders.Open;
    fmConnMySQL.Caption:= 'Koneksi Database MySQL dengan ODBC-ADO';
  end;
end;

Karena aplikasi ini bisa koneksi database dengan menggunakan dua komponen, yaitu komponen ADO dan dbExpress, salah satu komponen harus di-disconnect. Komponen sqlcConnMySQL, fungsinya sebagai media koneksi dengan komponen dbExpress, jika dalam kondisi connect maka di’tutup’ dulu. Untuk menampilkan data hasil koneksi dengan ADO, pastikan property DataSet dari komponen TDBGrid, dsCustomer dan dsOrders, diisi dengan komponen TADOTable yang bersesuaian. Setelah itu baru koneksi dengan komponen adocConnMySQL dilakukan berikut komponen TADOTable-nya.

Koneksi dengan komponen dbExpress

Klik ganda komponen sqlcConnMySQL, di layar monitor akan muncul kotak dialog seperti gambar di bawah.. kemudian coba klik tombol Test Connection, disimbolkan dengan tanda ‘conteng’

Jika muncul pesan seperti di atas, artinya Borland Delphi kamu belum bisa koneksi langsung dengan database MySQL. Cari file dbexpmys.dll, biasanya di C:\Program Files\Borland\Delphi6\Bin, kemudian copy file tersebut ke C:\Windows\system. Tekan tombol Continue jika muncul pesan “You’ll need to provide administrator permission to copy to this folder“. Setelah itu buka file dbxdrivers.ini, di folder C:\Program Files\Common Files\Borland Shared\DBExpress, dengan notepad. Bagian di bawah [MYSQL] harus seperti berikut, biasanya sih sama..

[MYSQL]
GetDriverFunc=getSQLDriverMYSQL
LibraryName=dbexpmys.dll
VendorLib=LIBMYSQL.dll
BlobSize=-1
Database=DBNAME
ErrorResourceFile=
HostName=ServerName
LocaleCode=0000
Password=password
User_Name=user

Perhatikan pada kode VendorLib=LIBMYSQL.dll, artinya di system kamu harus ada file dll tersebut, file ini sudah saya sertakan pada source code yang tadi kamu download. Copy file libmySQL.dll ke folder C:\Windows\system, jika muncul pesan “You’ll need to provide administrator permission to copy to this folder” tekan tombol Continue.

Sekarang klik ganda lagi komponen sqlcConnMySQL, dan tekan tombol Test Connection. Pesan “Succesfully Connected” seharusnya muncul di layar monitor kamu. Mulai sekarang Borland Delphi kamu sudah bisa koneksi langsung dengan database MySQL, dan bisa membuat aplikasi lain dengan komponen dbExpress tanpa melakukan langkah-langkah di atas.

Seperti koneksi dengan komponen ADO, untuk koneksi dengan komponen dbExpress juga menggunakan menu. Source code-nya pun tidak jauh berbeda

procedure TfmConnMySQL.midbExpressClick(Sender: TObject);
begin
  if adocConnMySQL.Connected = True then
    adocConnMySQL.Close;

  dsCustomer.DataSet:= cdsCustomer;
  dsOrders.DataSet:= cdsConnDetail;
  Series1.DataSource:= cdsConnDetail;

  sqlcConnMySQL.Open;
  cdsCustomer.Active:= sqlcConnMySQL.Connected;
  fmConnMySQL.Caption:= 'Koneksi Database MySQL dengan dbExpress';
end;

Menampilkan data dari database MySQL dalam grafik

Tema ini sebenarnya sudah dibahas dalam artikel Menampilkan Database dalam Grafik, kamu bisa baca kembali artikel ini. Bedanya, kali ini diletakkan dalam tab tersendiri, tab grafik, dan karena ada dua jenis koneksi maka nilai property DataSource dari komponen Series1 ditentukan dalam prosedur miODBCClick dan midbExpressClick.

Sedikit tambahan biasanya setiap saya membuat aplikasi yang melibatkan komponen untuk akses data, misal TADOTable atau TClientDataset, saya selalu memastikan komponen-komponen ini dalam keadaan tidak aktif ketika aplikasi ini di’tutup’. Sehingga memory komputer terbebaskan dan tidak dipenuhi oleh operasi yang sudah tidak diperlukan lagi. Perintah ini dikodekan dalam events OnClose pada form fmConnMySQL

procedure TfmConnMySQL.FormClose(Sender: TObject;
 var Action: TCloseAction);
begin
  adocConnMySQL.Close;
  tbCustomer.Close;
  tbOrders.Close;
  sqlcConnMySQL.Close;
  cdsCustomer.Close;
  cdsConnDetail.Close;
end;

Nuwun..

Daftar download untuk artikel ini:
1. Connect MySQL Source Code - 73.87 kB

Sesuai judul artikel, saya memakai database MySQL ver.5.1, versi terbaru saat artikel ini dibuat adalah 5.5.9, kamu bisa mendownload di alamat http://dev.mysql.com/downloads/mysql/. Install kemudian buatlah sebuah database. Kalau mau ngikutin artikel ini, buat database dengan nama linked dan import datanya dari database Ms Access pada artikel terdahulu, atau download lagi Database Linked.

Koneksi Database MySQL dengan Program MySQL Front

Untuk membuat dan meng-import database MySQL lebih mudah pakai program MySQL Front ver.5.1.4.16, download pada alamat http://www.mysqlfront.de/wp/download/ kemudian install di komputer kamu. Jalankan aplikasi tersebut, sebuah kotak dialog Add Session akan ditampilkan. Klik tab General, masukkan dekripsi koneksi pada kolom Name

Aktifkan tab Connection kemudian ketikan localhost pada kotak isian Server dan biarkan yang lain sesuai dengan nilai default-nya

Masukkan user dan password untuk login ke database MySQL pada tab Login. Biasanya pada saat instalasi database MySQL, sebuah user dengan nama root sudah dibuatkan dan tanpa password, isikan saja user ini pada kolom User. Kamu bisa memasukkan nama database yang akan diakses atau bisa juga mengosongkannya seperti gambar berikut ini

Jika sudah selesai klik tombol Ok, sebuah kotak dialog Open Session akan muncul pada layar monitor dengan sebuah deskripsi koneksi yang tadi kamu buat. Kotak dialog ini akan selalu muncul ketika kamu menjalankan program MySQL Front.

Untuk meng-update deskripsi koneksi, tekan tombol Properties…, tombol New… untuk membuat deskripsi koneksi baru. Tekan tombol Open untuk memulai koneksi database MySQL. Biasanya muncul kotak dialog Database Login untuk mengkonfirmasi ulang user dan password-nya, beri tanda ‘centang’ pada checkbox Save Password jika kamu tidak ingin memunculkan kotak dialog ini ketika melakukan koneksi lagi, kemudian tekan tombol Ok.

Membuat Database Baru

Setelah koneksi berhasil, buatlah database baru dengan nama linked, seperti gambar di bawah ini. Ketika kamu akan mengklik menu Database, pastikan pada sidebar Navigator kursor ada pada server localhost (sedang disorot). Jika kursor berada pada salah satu database (misalnya test) maka menu Database -> New -> Database malah tidak aktif.

Sekarang database linked ada pada daftar di bawah server localhost

Meng-import Data dari Database Ms Access

Pada sidebar Navigator, sorot database linked kemudian klik kanan mouse, sehingga muncul menu pop-up, dan lakukan langkah-langkahnya seperti gambar di bawah

Isi database Ms Access akan ditampilkan, sorot semuanya dan tekan tombol Forward, pada kotak dialog berikutnya pilih type MyISAM dan biarkan yang lain sesuai nilai default-nya dan tekan tombol Forward lagi.

Tekan tombol Finish pada kotak dialog berikutnya dan tunggu sampai proses import data selesai. Sekarang database MySQL linked telah berisi sejumlah data.

Membuat Driver ODBC untuk Database MySQL

Driver ODBC untuk MySQL biasanya tidak disertakan dalam OS windows, baik Windows XP maupun Windows 7. Terlebih dahulu kamu harus men-download connector ODBC untuk MySQL pada alamat http://dev.mysql.com/downloads/connector/odbc/. Kemudian kamu instal dalam komputer kamu.

Untuk membuat driver ODBC seperti biasa klik Start -> Control Panel -> ODBC, pada kotak dialog ODBC Data Source Administrator, aktifkan tab System DNS. Ikuti langkahnya seperti gambar berikut ini

Ketika tombol Finish ditekan akan muncul kotak dialog MySQL Connector/ODBC Data Source Configuration, lakukan setting seperti pada gambar di bawah ini

Sekarang sebuah driver ODBC bernama mysql_linked telah ada dalam daftar ODBC.

Nuwun..

Daftar download untuk artikel ini:
1. Database Linked - 19.19 kB

Logikanya untuk bisa berkomunikasi dengan komputer lain yang tergabung dalam suatu domain maka komputer kamu perlu didaftarkan sebagai anggota domain tersebut.. bagaimana seandainya kamu sering berkomunikasi dengan beberapa domain yang berbeda.. apa mesti daftar di semua domain dan setiap kali mau bergabung harus mengganti domain seperti gambar dibawah ini

Kamu bisa bergabung dan berkomunikasi dalam suatu domain dengan tidak perlu menjadi anggota domain, tetap dalam workgroup (misalnya WORKGROUP) dengan memanfaatkan fasilitas Manage my network passwords dari menu User Accounts pada Windows XP. Untuk Windows 7, pakai fasilitas Manage your credentials dari menu User Accounts.

1. Windows XP

Buka menu Control Panel, klik ganda menu User Accounts. Jika mempunyai banyak user, pilih user yang biasa kamu pakai, kemudian klik menu Manage my network passwords

Pada kotak dialog Stored User Names and Passwords, klik tombol Add untuk menambahkan user network yang akan dipakai ketika berkomunikasi dengan komputer anggota domain. Username berikut password-nya ini harus sudah terdaftar dalam domain tersebut dan hak-haknya sesuai dengan user network tersebut (bukan user lokal). Kolom Server berisi nama komputer yang ingin diakses, bukan berarti komputer yang bertindak sebagai server. Jadi jika ingin berkomunikasi dengan semua komputer yang terhubung dalam domain maka tambahkan semua komputer dalam daftar di kotak dialog Stored User Names and Passwords tersebut. Pada kolom User name: sertakan nama domain sebelum nama user, seperti gambar di bawah ini

Penambahan daftar komputer ini hanya dilakukan sekali, lain hari ketika ingin mengakses komputer dalam domain tersebut tidak perlu membuat daftar lagi. Untuk mengubahnya, klik nama komputer yang dimaksud kemudian tekan tombol Properties.

2. Windows 7

Caranya hampir sama dengan Windows XP, buka menu Control Panel, klik ganda menu User Accounts kemudian klik menu Manage your credentials

Klik Add a Windows credential untuk menambahkan user network, seperti pada Windows XP masukkan nama komputer pada kolom Internet or network address dan username berikut password-nya kemudian tekan tombol OK.

Untuk mengubahnya tekan tombol drop-down sehingga muncul property dari daftar komputer yang dimaksud, lihat gambar di bawah ini, kemudian tekan Edit. Menu Remove from vault untuk menghapus daftar komputer yang dimaksud.

Nuwun..

Bagi yang mengerti database memang ada cara yang lebih mudah yaitu dengan menggunakan fasilitas Import and Export Data atau dengan pernyataan SQL. Untuk programmer yang ingin menambahkan fasilitas import data dalam aplikasi yang dikembangkannya, agar setiap user bisa memasukkan sendiri data dari file teks atau Excel, tentu saja pilihannya adalah pernyataan SQL.

Saya mengasumsikan kamu memakai database SQL Server 2000, yang biasanya pada saat installasi telah membuatkan beberapa contoh database. Dalam artikel ini saya memakai database Northwind, dan data file akan dimasukkan dalam tabel Customers.. Sebelumnya download dulu file excel Sample Data Excel, sedang contoh file teks bisa diperoleh dengan mengkonversi file excel tersebut menjadi file Text (tab delimited)..

Cara mengkonversinya, buka file excel tersebut kemudian klik menu File -> Save as…, dan ikut langkahnya seperti gambar berikut ini

Pada saat kamu menekan tombol Save, akan muncul dua pesan.. tekan tombol OK pada pesan pertama dan tekan tombol Yes pada pesan kedua. Seperti gambar di atas, Saya menyimpan file text tadi di path ‘F:\Private\project for blog\’.. Seharusnya sekarang di folder tersebut ada file sampledata.txt. Selanjutnya tutup kembali aplikasi Microsoft Excel, jika muncul pesan konfirmasi untuk menyimpan, sebaiknya tekan tombol No agar keadaan file excel tetap seperti sedia kala..

Pernyataan SQL untuk memasukkan data dari file tergantung pada jenis file-nya. Dalam artikel ini saya menggunakan dua macam pernyataan yaitu BULK INSERT dan INSERT INTO..

1. Memasukkan data dari file teks dengan pernyataan BULK INSERT

Secara ringkas pernyataan SQL untuk memasukkan data dari file sampledata.txt seperti gambar di bawah ini

Saya memakai syntax tersebut dalam database SQL Server 2000, untuk database lain mungkin syntax-nya berbeda. Pemilik (owner) tabel biasanya dbo, walaupun tidak tertutup kemungkinan ada tabel yang owner-nya adalah user yang membuat tabel tersebut. Variabel DATAFILETYPE dipilih char karena file data terdiri atas karakter, variabel ini mempunyai empat macam nilai

Variabel FIELDTERMINATOR, menentukan pemisah antar nilai kolom dari data dalam file. Biasanya file teks hasil konversi dari file excel dipisahkan dengan tab, untuk membuktikannya buka file sampledata.txt dengan Notepad.. Dan karakter pengganti tab dalam pernyataan SQL adalah \t. Jika pemisah nilai kolom dari data seperti di bawah ini maka nilai variabel FIELDTERMINATOR adalah ; (karakter titik koma)

CustomerID;CompanyName;ContactName;ContactTitle;Address
SPKOM;Spirit Komunika;Nugi;Sales Manager;Jl Dr. Muwardi Raya No.29-30 Jakarta
MAPRI;PT Malta Printindo;Angoro;Sales Manager;Jl Kedoya Raya No.2 A Kedoya Selatan
GRPRI;PT Gramedia Printing Group;Bayu;Sales Manager;Jl Palmerah Selatan 22-28 Jakarta

Tabel berikut ini menjelaskan daftar karakter pemisah kolom atau baris dalam pernyataan SQL

Variabel FIRSTROW, menentukan baris dari data dalam file yang nantinya akan di-copy sebagai baris pertama, nilainya tergantung pada file data. Dalam file excel (sampledata.xls) maupun file teks hasil konversi (sampledata.txt), baris pertama menunjukkan judul kolom dan yang dianggap sebagai data adalah baris kedua maka nilai variabel FIRSTROW sama dengan 2.

Variabel ROWTERMINATOR, menentukan pemisah antar baris data. Batas akhir dari baris data dalam file sampledata.txt adalah adanya baris data yang baru (newline). Dalam pernyataan SQL, lihat tabel di atas, simbol karakter newline ditulis \n.

Jika pada saat kamu mengeksekusi pernyataan di atas, baik dalam aplikasi eksekutor SQL (misalnya SQL Query Analyzer milik SQL Server 2000) atau dalam aplikasi yang dibuat melalui bahasa pemrograman visual (misalnya Borland Delphi), muncul pesan ‘Bulk Insert: Unexpected end-of-file (EOF) encountered in data file‘ artinya bagian akhir dari file data banyak mengandung baris-baris kosong, lihat gambar di bawah

Jika pada setiap baris dalam file data terdapat kolom kosong, lihat gambar di bawah, maka nilai yang dimasukkan dalam field/kolom terakhir database ada karakter yang tidak dikenal, biasanya kotak.

Kamu bisa menghapusnya langsung dalam file teks.. Untuk baris, tekan tombol keyboard Del sampai kursor keyboard berada tepat di bawah baris terakhir. Sedang untuk kolom, tekan tombol keyboard Del sampai kursor keyboard berada tepat di samping kolom terakhir dari setiap baris.. Tapi jika datanya mempunyai banyak baris, cara ini tentu saja tidak efisien, bisa-bisa malah menghapus datanya.. Selain cara itu kamu bisa mengeditnya melalui file sumbernya, file excel (sampledata.xls). . ikuti langkahnya seperti gambar di bawah ini

Lakukan hal yang sama pada kolom terakhir, setelah itu konversi lagi file excel tersebut menjadi file teks seperti langkah-langkah di atas..

2. Memasukkan data dari file Excel dengan pernyataan INSERT INTO

Syntax pernyataan SQL untuk memasukkan data dari file Excel bisa menggunakan pernyataan INSERT INTO, perhatikan gambar di bawah ini

Pernyataan INSERT INTO fungsinya jelas untuk memasukkan data ke tabel database. Metode OPENROWSET untuk mengakses data remote dari data source OLE DB, berikut syntax lengkapnya

OPENROWSET ( 'provider_name',
 { 'datasource' ; 'user_id' ; 'password' | 'provider_string' },
 { [ catalog. ] [ schema. ] object | 'query' } )

Variabel provider_name, menunjukan nama provider OLE DB yang dikenal dalam registry komputer. Beberapa provider yang biasa dikenal untuk SQL Server 2000 :

- SQLOLEDB, provider Microsoft OLE DB untuk SQL Server
- MSDASQL, provider OLE DB untuk ODBC SQL Server
- Microsoft.Jet.OLEDB.4.0, provider Microsoft OLE DB yang umum digunakan untuk produk-produk microsoft

Variabel yang kedua kamu bisa memilih kombinasi datasource ; user_id ; password atau provider_string tergantung pada sumber datanya. Variabel datasource bisa diisi dengan nama database, user_id dan password fungsinya jelas user dan password-nya. Dalam contoh seperti gambar di atas, saya memilih variabel provider_string karena sumber datanya adalah file Excel.

Sedang varibel yang ketiga kamu juga bisa memilih kombinasi [ catalog. ] [ schema. ] object atau pernyataan Query. Contoh penulisan kombinasi [ catalog. ] [ schema. ] object, seperti syntax di bawah ini

Northwind.dbo.Customers

Karena sumber datanya dari file maka variabel ketiga lebih cocok dengan Query.. Kamu bisa membatasi data dalam sheet file Excel dengan menyertakan nama kolom setelah nama sheet. Penulisan Query di bawah ini hanya akan memasukkan data dari kolom A sampai kolom I dan hanya sampai pada baris ke-3

'SELECT * FROM [Sheet1$A1:I3]'

Artinya kolom Phone dan Fax tidak dimasukkan dalam database dan hanya dua record yang di-copy ke database.

Jika pada saat kamu mengeksekusi pernyataan di atas, muncul pesan ‘Cannot insert the value NULL into column ‘CustomerID’, table ‘Northwind.dbo.Customers’; column does not allow nulls. INSERT fails‘ artinya bagian akhir dari file data banyak mengandung baris-baris kosong, untuk memastikannya kamu bisa melihat isi filenya terlebih dahulu dengan pernyataan berikut

Kamu bisa mengatasinya dengan mengedit file sumbernya, file Excel (sampledata.xls). . ikuti langkahnya seperti gambar di bawah ini

Atau dengan mengubah pernyataan SQL-nya menjadi

INSERT INTO Northwind.dbo.[Customers]
SELECT * FROM OPENROWSET('Microsoft.Jet.OLEDB.4.0',
'Excel 8.0;Database=F:\Private\project for blog\sampledata.xls',
'SELECT * FROM [Sheet1$A1:K4]')

Kedua Syntax pernyataan SQL di atas (BULK INSERT dan INSERT INTO) bisa di-kode-kan dalam bahasa pemrograman Borland Delphi, download Copy Data Source Code ver.1.1 kemudian ekstrak di komputer kamu dan buka project Copy.dpr.. Dalam source code tersebut saya menggunakan beberapa komponen yang merupakan komponen tambahan, TPDJButton dan TCheckDBGrid. Jika kamu belum punya komponen tersebut download, TPDJButton Component dan TCheckDBGrid Component kemudian instal dalam program Delphi kamu.. perhatikan kode pada event OnShow dari form fmCopyFile

procedure TfmCopyFile.FormShow(Sender: TObject);
var
  sConn: String;
begin
  sConn:= 'Provider=SQLOLEDB.1;'+
          'Integrated Security=SSPI;'+
          'Persist Security Info=False;'+
          'Initial Catalog=Northwind;'+
          'Data Source=SIS03S';
  adocCopyFile.ConnectionString:= sConn;
  adocCopyFile.Connected:= True;
  if adocCopyFile.Connected then
    qCustomers.Open;
end;

Sebelum menjalankannya edit isi variabel sConn, terutama pada karakter Data Source=SIS03S dengan nama server database kamu (saya menggunakan server database bernama SIS03S).

Nuwun..

Daftar download untuk artikel ini:
1. Sample Data Excel - 15.5 kB
2. Copy Data Source Code ver.1.1 - 5.31 kB

Buka kembali project TChart dari artikel terdahulu atau jika tidak punya download TChart Source Code ver.1.9 dan segera ekstrak di komputer kamu.. sebelum membukanya, buat dulu driver ODBC untuk database linked (baca artikel Menampilkan Database dalam Grafik, di bagian awal artikel ini ada tulisan tentang cara membuat driver ODBC). Sesudah itu download About Source Code, ekstrak di komputer kamu dan tambahkan dengan meng-klik kanan mouse pada project TChart.exe, pilih menu Add.. kemudian cari file .pas yang ingin ditambahkan seperti gambar di bawah ini

Untuk memanggilnya melalui form fmMainTChart (unit uMainTChart), klik ganda pada sel di sebelah kanan event OnClick komponen label1.. dan tambahkan kode program seperti ini

procedure TfmMainTChart.Label1Click(Sender: TObject);
begin
  Chart4.BevelOuter:= bvRaised;
  fmAbout.ShowModal;
end;

Jalankan aplikasi dengan menekan tombol Run… jika muncul pesan Form ‘fmMainTChart‘ references form ‘fmAbout’ declarated in unit ‘uAbout’ which is not in your USES list. Do you wish to add it? tekan tombol Yes. Tekan kembali tombol Run..

Ketika form about ini ditampilkan, teks informasi akan bergerak naik per baris sampai baris terakhir setelah itu baris pertama akan dimunculkan lagi demikian seterusnya. Efek ini hanya menggunakan komponen memo Memo1 dan komponen timer Timer1. Tuliskan isi teks about pada property Lines komponen Memo1, kemudian klik ganda komponen Timer1..

procedure TfmAbout.Timer1Timer(Sender: TObject);
begin
  Memo1.Top := Memo1.Top-1;
  if Memo1.Top = -Memo1.Height then
    Memo1.Top := Panel1.Height;
end;

Selama komponen Timer1 dijalankan (aktif) maka posisi atas komponen Memo1 (property Top) secara terus menerus digeser vertikal sebanyak 1 pixel. Dan pada saat posisi atasnya mencapai batas maksimal komponen Memo1 (property Height) maka posisi atasnya akan dikembalikan ke keadaan semula (sama dengan nilai property Height komponen Panel1), demikian seterusnya. Jika teks yang bergerak terlalu lambat/cepat, kamu bisa mengubah nilai property Interval komponen Timer1.

Komponen Timer1 ini akan aktif ketika form about ditampilkan dan tidak aktif ketika form about ditutup. Klik ganda sel di sebelah kanan event OnShow dan OnClose dari form fmAbout..

procedure TfmAbout.FormShow(Sender: TObject);
begin
  Memo1.Top := Panel1.Height;
  Timer1.Enabled := True;
end;

procedure TfmAbout.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Timer1.Enabled := False;
end;

Posisi awal komponen Memo1 pada saat form about ditampilkan sama dengan nilai property Height komponen Panel1.

Nuwun..

Daftar download untuk artikel ini:
1. TChart Source Code ver.1.9 - 185.88 kB
2. About Source Code - 12.66 kB
3. TChart Application ver.1.9 - 838.75 kB

Buka kembali project TChart dari artikel terdahulu atau jika tidak punya download TChart Source Code ver.1.8 dan segera ekstrak di komputer kamu.. sebelum membukanya, buat dulu driver ODBC untuk database linked (baca artikel Menampilkan Database dalam Grafik, di bagian awal artikel ini ada tulisan tentang cara membuat driver ODBC). Sesudah itu download Digital Source Code, ekstrak di komputer kamu dan tambahkan dengan meng-klik kanan mouse pada project TChart.exe, pilih menu Add.. kemudian cari file .pas yang ingin ditambahkan seperti gambar di bawah ini

Aktifkan form fmMainTChart (unit uMainTChart), kemudian klik ganda komponen popmenu pmOtherDemo.. klik ganda menu Digital Chart.. dan tambahkan kode program seperti ini

procedure TfmMainTChart.miDigitalChartClick(Sender: TObject);
begin
  fmDigital.ShowModal;
end;

Jalankan aplikasi dengan menekan tombol Run… jika muncul pesan Form ‘fmMainTChart‘ references form ‘fmDigital’ declarated in unit ‘uDigital’ which is not in your USES list. Do you wish to add it? tekan tombol Yes. Tekan kembali tombol Run.. Jika tidak ada lagi pesan yang muncul, aplikasi telah berjalan dengan baik.

1. Inisialisasi aplikasi

Umumnya grafik untuk sinyal digital ditampilkan dalam bentuk ‘tangga’, klik ganda komponen TChart, aktifkan tab Series, kemudian pilih series (misalnya Channel 1) dan aktifkan tab Format.. Perhatikan gambar di bawah, checkbox Stairs diberi tanda ‘centang’ untuk memberi efek ‘tangga’ pada series grafik yang dipilih. Property Stairs untuk keempat series diberi tanda ‘centang’..

Pada bagian public unit uDigital, dideklarasikan variabel bRunTimer dengan tipe data Boolean, variabel ini menentukan jalan tidaknya proses simulasi data grafik. Inisialisasi beberapa property komponen TChart dan variabel bRunTimer, ditentukan dalam event OnCreate dari form fmDigital. Aktifkan form fmDigital kemudian klik ganda sel di sebelah kanan event OnCreate..

procedure TfmDigital.FormCreate(Sender: TObject);
begin
  bRunTimer:= False;
  Chart1.ApplyZOrder:= chOrder.Checked;
  Chart1.Legend.Inverted:= True;
end;

Property ApplyZOrder digunakan untuk mengontrol ketika beberapa series pada komponen TChart yang sama harus ditampilkan terpisah dalam sumbu Z yang berbeda, sehingga keempat series tidak terlihat ‘menumpuk’ tetapi ada jarak untuk masing-masing series. Property ini berlaku jika grafik ditampilkan 3D dan mempunyai lebih dari satu series. Pemberian nilai True pada property Inverted dari subtab Legend untuk membalikkan urutan legend grafik, dimulai dari series berindeks terbesar ke yang terkecil.

2. Tampilan grafik

Legend grafik ditampilkan sesuai dengan prosedur Chart1GetLegendText, klik ganda sel di sebelah kanan event OnGetLegendText dari komponen TChart..

procedure TfmDigital.Chart1GetLegendText(Sender: TCustomAxisPanel;
 LegendStyle: TLegendStyle; Index: Integer; var LegendText: String);
begin
  if LegendStyle = lsLastValues then
    LegendText:= LegendText+' --> '+Chart1.Series[Index].Title;
end;

Teks legend grafik akan diganti jika property LegendStyle komponen TChart bernilai lsLastValues (atau checkbox chLastValues diberi tanda ‘centang’). Klik ganda checkbox chLastValues..

procedure TfmDigital.chLastValuesClick(Sender: TObject);
begin
  if chLastValues.Checked then
    Chart1.Legend.LegendStyle:= lsLastValues
  else
    Chart1.Legend.LegendStyle:= lsAuto;
end;

Property LegendStyle untuk menentukan materi mana yang akan ditampilkan dalam legend grafik. Jika diberi nilai Automatic (atau lsAuto) maka secara otomatis ‘judul’ series akan menjadi legend grafik. Dan jika diberi nilai Last Values (atau lsLastValues) maka legend grafik sesuai dengan prosedur Chart1GetLegendText di atas.

Dua prosedur untuk kedua komponen checkbox yang lain, checkbox chView untuk menampilkan grafik dalam wujud 3 Dimensi sedang checkbox chOrder untuk mengontrol ada tidaknya sumbu Z grafik. Klik ganda pada masing-masing komponen tersebut..

procedure TfmDigital.chViewClick(Sender: TObject);
begin
  Chart1.View3D:= chView.Checked;
end;

procedure TfmDigital.chOrderClick(Sender: TObject);
begin
  Chart1.ApplyZOrder:= chOrder.Checked;
  Chart1.Repaint;
end;

3. Simulasi data

Untuk simulasi aplikasi, data sinyal digital berupa data random dengan range 2 data (0 dan 1) di-plot pada keempat series dengan menggunakan komponen timer Timer1. Klik ganda komponen tersebut..

procedure TfmDigital.Timer1Timer(Sender: TObject);
var
  iGainData: Longint;
begin
  for iGainData:= 0 to Chart1.SeriesCount-1 do
  with Chart1.Series[iGainData] do
    Add(2*iGainData+Random(2), '', clTeeColor);

  with Chart1.BottomAxis do 
  begin
    Automatic := False;
    Maximum := Series1.XValues.Last;
    Minimum := Maximum - 100;
  end;
end;

Variabel iGainData untuk menaikkan series pada posisi tertentu sehingga keempat series tersebut tidak saling tumpang tindih. Plot data pada masing-masing series menggunakan metode Add dengan syntax :

function Add(Const AValue:Double; Const ALabel:String;
             AColor:TColor):Longint; virtual;

Metode Add digunakan untuk menambahkan data pada series jika nilai sumbu horisontal grafik (x) secara otomatis ditentukan ketika nilai sumbu vertikal (y) akan di-plot. Varibel ALabel dan AColor merupakan parameter pilihan seperti pada metode AddXY.

Nilai Y grafik untuk series kedua bergeser secara vertikal sebanyak 2 (dua) kalinya. Sedang yang ketiga bergeser 4 (empat) kalinya dan yang keempat bergeser sebanyak 6 (enam) kalinya.

Kode program selanjutnya untuk menggeser grafik ke kiri setiap ada data yang di-plot dalam series. Nilai skala maksimum sumbu bawah grafik mengambil nilai terakhir yang telah di-plot dalam series. Dan range sumbu horisontal grafik yang ingin ditampilkan adalah 100 data. Kode untuk menentukan sumbu horisontal ini dapat ditulis dalam event OnAfterAdd pada keempat series.

Untuk mengendalikan bekerja/tidaknya timer simulasi data, digunakan komponen button btRun. Klik ganda komponen ini..

procedure TfmDigital.btRunClick(Sender: TObject);
begin
  bRunTimer:= not bRunTimer;
  Timer1.Enabled:= bRunTimer;
  if bRunTimer then
    btRun.Caption:= 'Stop'
  else
    btRun.Caption:= '&Run';
end;

Proses akan bekerja ketika variabel bRunTimer bernilai True, jika sebaliknya timer akan terhenti.

Nuwun..

Daftar download untuk artikel ini:
1. TChart Source Code ver.1.8 - 183.54 kB
2. Digital Source Code - 2.3 kB
3. TChart Application ver.1.8 - 825.36 kB

Sebenarnya ada cara yang lebih mudah dan cepat, dan setiap orang yang tahu komputer dan ngerti data apa yang mau disajikan pasti bisa.. yaitu dengan software Microsoft Excel. Sebagai contoh download Database Linked, ekstrak di komputer kamu (pada artikel ini, file sampel database ditempatkan dalam “F:\Private\project for blog\test”). Sebagai penghubung antara database dan software Excel, buat dulu driver ODBC dengan cara seperti dua gambar di bawah ini..

Buka software Excel, klik menu Data -> Import External Data -> New Database Query… ikuti langkah-langkahnya seperti gambar di bawah ini..

Setelah tombol Finish ditekan, sebuah jendela Microsoft Query akan muncul, berikut ini fungsi dari beberapa tombol toolbar (di bawah menu).

1. Show/Hide Tables, untuk menampilkan/menyembunyikan tabel yang telah dipilih dalam query.

2. Show/Hide Criteria, untuk menampilkan/menyembunyikan kriteria dari filter data dalam query. Record data yang ditampilkan sesuai dengan kriteria yang ditentukan dalam kolom. Gambar di bawah ini menjelaskan cara menampilkan data CUSTOMER dimana kolom Country-nya hanya berisi ‘US’. Untuk menghapus kembali kriteria filter, blok kriteria yang dimaksud kemudian tekan tombol keyboard Delete.

Gambar di atas hanya menampilkan 3 buah kolom: Company, Addr1, Country. Untuk mengaturnya menjadi seperti itu, blok kolom yang dimaksud (dengan menekan judul kolom data) kemudian drag ke posisi yang kamu mau. Kalau tidak ingin menampilkan suatu kolom, blok kolom tersebut kemudian tekan tombol keyboard Delete, jangan khawatir! datanya tidak terhapus, hanya agar tidak ditampilkan saja. Untuk menampilkan kolom yang lain, drag kolom yang dimaksud pada tabel kemudian tempatkan pada posisi yang kamu inginkan, lihat gambar di bawah ini..

3. Add Table(s), untuk menambahkan tabel lain dalam query. Klik tombol ini, kemudian pilih tabel ORDERS..

Secara otomatis sebuah tabel ditambahkan dalam daftar tabel, juga sebuah garis link kolom dari dua tabel yang bersesuaian (keduanya merupakan key dari masing-masing tabel).. dalam database contoh, hanya ada sebuah kolom yaitu CustNo. Untuk lebih jelas kolom mana yang dihubungkan pada kedua tabel, klik ganda pada garis link tersebut..

Kolom CustNo pada tabel CUSTOMER dihubungkan dengan kolom CustNo dari tabel ORDERS, dan tipe hubungan yang dipilih no.1 artinya hanya akan menampilkan data dengan isi kolom CustNo yang bersesuaian pada kedua tabel tersebut. Jika dipilih no.2 maka semua data pada tabel ORDERS akan ditampilkan, sedang data tabel CUSTOMER yang ditampilkan hanya jika data kolom CustNo tabel CUSTOMER bersesuaian dengan data kolom CustNo tabel ORDERS. Berlaku sebaliknya ketika dipilih no.3.

4. Criteria Equals , untuk membuat filter berdasarkan record data yang dipilih pada suatu kolom. Letakkan kursor mouse pada salah satu record data kemudian klik tombol ini, secara otomatis pada Criteria Value: terisi judul kolom, sedang Value: terisi record yang tadi dipilih. Data yang ditampilkannya sesuai dengan kriteria tersebut.

5. Cycle Through Totals , untuk membuat kolom nilai statistik seperti average, sum, max, min, count. Cara memakainya, letakkan kursor pada salah satu record data yang akan menjadi nilai statistik kemudian tekan tombol ini. Secara otomatis kolom tersebut menjadi nilai statistik, biasanya nilai statistik yang pertama kali muncul adalah sum. Jika ingin mendapatkan nilai statistik yang lain tekan lagi tombol ini sampai ditemukan nilai statistik yang sesuai. Urutannya adalah : sum, avg, count, min, max, dan terakhir kembali lagi menjadi nilai sebenarnya dari kolom tersebut.

6. Short Ascending , untuk mengurutkan record data dari yang record pertama sampai yang terakhir. Cara memakainya, letakkan kursor pada salah satu record yang akan diurutkan kemudian tekan tombol ini. Jika ingin diurutkan terbalik, dari record terakhir ke record pertama tekan tombol Short Descending .

7. Query Now , untuk menjalankan query sesuai dengan kriteria yang telah ditentukan. Tetapi jika tombol Auto Query dalam keadaan aktif (melesak ke dalam) maka query secara otomatis akan selalu dijalankan ketika ada perubahan kriteria. Pastikan tombol Auto Query ini selalu dalam keadaan aktif.

Bagi kamu yang telah terbiasa dengan bahasa pemrograman SQL dapat menekan tombol SQL untuk melihat atau bahkan langsung mengedit kode-nya.

Jika sudah selesai menentukan tabel, kriteria filter dan kolom-kolom yang akan ditampilkan, klik menu File -> Return Data to Microsoft Excel, sehingga muncul kotak dialog Import Data seperti gambar di bawah ini..

Tekan tombol OK.. Sekarang pada file excel kamu sudah ditampilkan data dari database.. Jika data yang ditampilkan belum sesuai dengan kebutuhan, kamu masih bisa mengeditnya dengan mengklik kanan mouse pada salah satu sel di file excel kemudian pada menu yang muncul klik Edit Query..

Pilih menu Refresh Data, kalau kamu cuma ingin mendapatkan data yang termutakhir tanpa melakukan perubahan query.

Nuwun..

Daftar download untuk artikel ini:
1. Database Linked - 19.19 kB

Masih dalam project TChart, buka kembali atau jika tidak punya download TChart Source Code ver.1.7 dan segera ekstrak di komputer kamu.. sebelumnya buat dulu driver ODBC database linked (baca artikel Menampilkan Database dalam Grafik, terutama tentang cara membuat driver ODBC). Sesudah itu download Mini Chart Source Code, ekstrak di komputer kamu dan tambahkan pada project TChart.. Caranya klik kanan mouse pada project TChart.exe, pilih menu Add.. kemudian cari file .pas yang ingin ditambahkan seperti gambar di bawah ini

Aktifkan form fmMainTChart (unit uMainTChart), kemudian klik ganda komponen popmenu pmOtherDemo.. klik ganda menu Mini Small Charts.. dan tambahkan kode program seperti ini

procedure TfmMainTChart.miMiniSmallChartsClick(Sender: TObject);
begin
  fmMini.ShowModal;
end;

Jalankan aplikasi dengan menekan tombol Run… jika muncul pesan Form ‘fmMainTChart‘ references form ‘fmMini’ declarated in unit ‘uMini’ which is not in your USES list. Do you wish to add it? tekan tombol Yes. Tekan kembali tombol Run..

1. Inisialisasi aplikasi

Pada bagian Public unit dideklarasikan variabel iValueXChart2 dan iValueXChart4 bertipe Longint. Variabel pertama digunakan untuk menggambar garis divider vertikal pada komponen Chart2 dan variabel yang kedua pada Chart4. Dan Banyaknya data yang akan di-plot pada beberapa series berdasarkan nilai dari konstanta NumData, yaitu 30.

Seperti umumnya aplikasi, beberapa nilai awal ditentukan pada saat kontsruktor Create dipanggil. Klik ganda event OnCreate dari form fmMini..

procedure TfmMini.FormCreate(Sender: TObject);
begin
  iValueXChart2:= -1;
  iValueXChart4:= NumData div 2;

  BarSeries1.FillSampleValues(6);
  PieSeries1.FillSampleValues(8);
  LineSeries1.FillSampleValues(NumData);
  AreaSeries1.FillSampleValues(NumData);
  LineSeries2.FillSampleValues(NumData);
  LineSeries3.FillSampleValues(NumData);
end;

Posisi awal garis divider vertikal pada komponen Chart2 berada di luar kotak grafik. Sedang pada Chart4 berada tepat di tengah karena banyaknya data yang di-plot pada series AreaSeries1 dan LineSeries3 berdasarkan nilai konstanta NumData (30 data). Metode FillSampleValues akan mem-plot nilai random pada suatu series dengan rentang data sebanyak angka dalam tanda kurung.

Ketika aplikasi ini diperbesar/diperkecil, grafik yang terpasang di dalamnya perlu disesuaikan dengan perubahan yang terjadi. Klik ganda event OnResize dari form fmMini..

procedure TfmMini.FormResize(Sender: TObject);
begin
  Panel1.Width:= ClientWidth div 2;
  Chart1.Height:= ClientHeight div 2;
  Chart3.Height:= ClientHeight div 2;
end;

Property Align komponen Panel1 bernilai alLeft, sehingga jika form di-resize maka property Height akan mengikuti perubahan ukuran form. Sedang property Width-nya ditentukan setengah dari perubahan nilai property ClientWidth form. Ukuran komponen Panel2 secara otomatis akan mengikuti perubahan ukuran form dan komponen Panel1 karena property Align-nya bernilai alClient.

Begitu juga dengan ukuran komponen Chart2 akan mengikuti perubahan ukuran Panel1 dan komponen Chart1. Ukuran Chart4 juga akan mengikuti perubahan ukuran Panel2 dan komponen Chart3. Karena property Align kedua komponen TChart tersebut (Chart2 dan Chart4) bernilai alClient. Pada komponen Chart1 dan Chart3, nilai property Align-nya alTop, perubahan ukuran Panel1 dan Panel2 hanya akan mengubah lebar (property Width) kedua komponen TChart tersebut sementara tingginya (property Height) tetap. Untuk menyesuaikan ukurannya, property Height komponen Chart1 ditentukan setengah dari nilai property ClientHeight komponen Panel1 dan property Height komponen Chart3 juga ditentukan setengah dari nilai property ClientHeight komponen Panel2.

2. Membuat garis Divider

Setelah data di-plot pada series LineSeries2 dan LineSeries3, sebuah garis divider vertikal segera digambar pada komponen TChart dimana kedua series tersebut berada (Chart2 dan Chart4). Klik ganda sel di sebelah kanan event OnAfterDrawValue pada masing-masing series tersebut..

procedure TfmMini.LineSeries2AfterDrawValues(Sender: TObject);
begin
  if iValueXChart2 >= 0 then
  begin
    with Chart2, Canvas do
    begin
      Pen.Color:= clRed;
      DoVertLine(Series[0].CalcXPos(iValueXChart2),
                 ChartRect.Top+1,
                 ChartRect.Bottom-1);
    end;
  end;
end;

procedure TfmMini.LineSeries3AfterDrawValues(Sender: TObject);
begin
  if iValueXChart4 >= 0 then
  begin
    with Chart4,Canvas do
    begin
      Pen.Color:= clBlue;
      DoVertLine(Series[0].CalcXPos(iValueXChart4),
                 ChartRect.Top+1,
                 ChartRect.Bottom-1);
    end;
  end;
end;

Garis divider vertikal berwarna merah digambar pada series LineSeries2 dan berwarna biru pada series LineSeries3 dengan menggunakan metode DoVertLine, dengan syntax :

procedure DoVertLine (X,Y0,Y1:Integer); virtual; abstract;

Metode ini akan menggambar garis vertikal dari Y0 sampai Y1 pada posisi horisontal X. Pada kedua prosedur di atas Variabel Y0 merupakan posisi atas kotak grafik ditambah 1 pixel, variabel Y1 diisi dari nilai posisi bawah kotak grafik setelah dikurangi 1 pixel dan posisi horisontal X diperoleh dengan menggunakan metode CalXPos berdasarkan nilai x masing-masing series.

3. Simulasi data grafik

Untuk simulasi data yang di-plot pada series digunakan komponen timer Timer1, klik ganda komponen timer tersebut..

procedure TfmMini.Timer1Timer(Sender: TObject);

  Procedure RefreshChart(AOwner: TChart; var iValueXChart: Longint);
  var
    a: Longint;
    dLastValue: Double;
  begin
    Inc(iValueXChart);
    if iValueXChart >= NumData then
      iValueXChart:= 0;

    for a:= 0 to AOwner.SeriesCount-1 do
    begin
      if iValueXChart = 0 then
      begin
        with AOwner do
        begin
          LeftAxis.Automatic:= True;
          LeftAxis.SetMinMax(MinYValue(LeftAxis), MaxYValue(LeftAxis));
        end;
        dLastValue:= AOwner.Series[a].YValues.Last;
      end
      else
        dLastValue:= AOwner.Series[a].YValue[iValueXChart-1];

      AOwner.Series[a].YValue[iValueXChart]:= dLastValue+Random(ChartSamplesMax)-
                                              (ChartSamplesMax div 2);
    end;
  end;

var
  iDataBar: Longint;
begin
  RefreshChart(Chart2, iValueXChart2);
  RefreshChart(Chart4, iValueXChart4);

  with PieSeries1 do
    RotationAngle:= (RotationAngle+1) mod 359;

  with BarSeries1 do
  begin
    iDataBar:= Random(Count);
    YValue[iDataBar]:= YValue[iDataBar]*(80.0+Random(40))/100.0;
  end;
end;

Prosedur lokal RefreshChart untuk mengubah nilai suatu series setiap detik berdasarkan posisi nilai x-nya (variabel iValueXChart). Setiap detik nilai variabel iValueXChart akan bertambah 1 (satu) dengan prosedur Inc. Nilai variabel tersebut di-reset (bernilai 0) jika telah sama dengan banyaknya data (konstanta NumData). Jika posisi x grafik kembali ke awal (bernilai 0) maka dengan mengunakan metode SetMinMax, nilai skala minimum dan maksimum sumbu kiri grafik diisi dengan nilai minimum dan maksimum sumbu kiri grafik tersebut. Dan nilai y yang terakhir, disimpan dalam variabel dLastValue. Jika posisi x grafik tidak 0 (nol) maka nilai variabel dLastValue sama dengan nilai y pada posisi x saat itu. Nilai variabel dLastValue tersebut ditambah dengan suatu nilai random menjadi nilai y grafik pada posisi x yang sekarang.

Seluruh series yang terdapat pada komponen Chart2 dan Chart4 akan di-plot dengan mengunakan prosedur lokal RefreshChart, dimana nilai x untuk series pada Chart2 berasal dari nilai variabel iValueXChart2 sedang pada Chart4 dari nilai variabel iValueXChart4. Dengan kata lain variabel iValueXChart pada prosedur lokal RefreshChart diganti dengan iValueXChart2 atau iValueXChart4 tergantung nilai variabel AOwner-nya.

Untuk series bertipe Pie yang terdapat dalam Chart1 akan terus berputar dengan sudut putar sama dengan nilai sisa pembagian sudut putar saat itu (setelah ditambah 1 derajat) dengan 359 derajat. Sedang nilai y yang di-plot pada series bertipe Bar berasal dari nilai y saat itu dikalikan dengan 80 % nilai random antar 0 sampai 39.

4. Mengaktifkan/me-non aktif-kan proses simulasi data grafik

Proses simulasi data grafik dengan komponen timer akan aktif ketika aplikasi ini dipanggil, dikodekan melalui event OnShow form fmMini. Dan non aktif ketika aplikasi ini ditutup, dikodekan dalam event OnClose pada form fmMini. Klik ganda kedua event ini..

procedure TfmMini.FormShow(Sender: TObject);
begin
  Timer1.Enabled:= True;
end;

procedure TfmMini.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Timer1.Enabled:= False;
end;

Nuwun..

Daftar download untuk artikel ini:
1. TChart Source Code ver.1.7 - 181.05 kB
2. Mini Chart Source Code - 2.48 kB
3. TChart Application ver.1.7 - 825.89 kB

Buka lagi project TChart dalam artikel yang lalu, atau download TChart Source Code ver.1.6 dan segera ekstrak di komputer kamu, sebelum membukanya buat dulu driver ODBC database linked (baca artikel Menampilkan Database dalam Grafik, terutama tentang cara membuat driver ODBC). Sesudah itu download Paging Source Code, ekstrak di komputer kamu.. Dan seperti artikel-artikel yang lalu tambahkan pada project TChart dengan cara klik kanan mouse pada project TChart.exe. Pilih menu Add.. kemudian cari file .pas yang ingin ditambahkan seperti gambar di bawah ini

Aktifkan form fmMainTChart (unit uMainTChart), kemudian klik ganda komponen pmOtherDemo.. klik ganda menu Paging Chart..

Ketikkan kode seperti di bawah ini..

procedure TfmMainTChart.miPagingChartClick(Sender: TObject);
begin 
  fmPaging.ShowModal;
end;

Tekan tombol Run untuk menjalankan aplikasi ini… jika muncul pesan Form ‘fmMainTChart‘ references form ‘fmPaging’ declarated in unit ‘uPaging’ which is not in your USES list. Do you wish to add it? tekan tombol Yes. Tekan kembali tombol Run..

1. Membuat halaman grafik

Data yang di-plot dalam series grafik dilakukan pada saat form dibangun dengan kontruktor Create, aktifkan form fmPaging, klik ganda sel di sebelah kanan event OnCreate..

procedure TfmPaging.FormCreate(Sender: TObject);
begin
  Series1.FillSampleValues(100);
  sePaging.Value:= 18;
  ctPagingPageChange(ctPaging);
end;

Data sebanyak 100 data di-plot dalam Series1 dengan metode FillSampleValues. Dan property Value komponen sePaging diinisialisasikan dengan nilai 18. Nilai property tersebut menunjukkan banyaknya data per halaman, sebagai pengganti SpinEdit Points per Page pada sub tab Paging dari komponen TChart (atau property MaxPointsPerPage) yang nilainya bisa diubah ketika aplikasi dijalankan. Perhatikan gambar di bawah ini

Prosedur ctPagingPageChange dipanggil untuk menginisialisasi beberapa komponen.. Event OnPageChange ini terjadi ketika property Page komponen TChart telah diubah dan sebelum halaman grafik tersebut berubah. Property MaxPointsPerPage (atau SpinEdit Points per Page pada sub tab Paging) harus lebih besar dari 0 (nol) untuk mengaktifkan mekanisme pemberian nomor halaman secara otomatis. Klik ganda sel di sebelah kanan event OnPageChange pada komponen TChart ctPaging..

procedure TfmPaging.ctPagingPageChange(Sender: TObject);
begin
  ctPaging.UndoZoom;
  lCurrent.Caption:= 'Current/Total : '+IntToStr(ctPaging.Page)+
                     '/'+IntToStr(ctPaging.NumPages);
  btFirst.Enabled:= btPrevious.Enabled;
  btPrevious.Enabled:= ctPaging.Page > 1;
  btNext.Enabled:= ctPaging.Page < ctPaging.NumPages;
  btLast.Enabled:= btNext.Enabled;
end;

Untuk menghitung banyaknya halaman grafik dengan benar, komponen TChart harus tidak dalam keadaan diperbesar/diperkecil yaitu dengan memanggil metode UndoZoom. Informasi suatu halaman terhadap total halaman grafik ditampilkan melalui property Caption komponen lCurrent. Property Page komponen TChart menge-set halaman grafik saat ini sedang property NumPages menunjukkan total halaman grafik.

Untuk grafik yang mempunyai halaman lebih dari satu, komponen button btFirst dapat diakses tergantung aktif/tidaknya button btPrevious. Komponen button btPrevious akan aktif jika halaman grafik yang sekarang ditampilkan bukan halaman pertama. Dan button btNext akan aktif jika halaman grafik yang sekarang ditampilkan bukan halaman terakhirnya, sedang aktif/tidaknya button btLast tergantung pada aktif/tidaknya button btNext. Jika grafik hanya terdiri atas satu halaman maka keempat komponen button tersebut tidak aktif.

2. Mengubah setting halaman grafik

Perhatikan kembali gambar sub tab Paging di atas.. nilai SpinEdit Points per Page dan checkbox Scale Last Page bisa diubah melalui komponen sePaging dan chScale. Klik ganda pada komponen sePaging..

procedure TfmPaging.sePagingClick(Sender: TObject);
begin
  ctPaging.MaxPointsPerPage:= sePaging.Value;
  ctPagingPageChange(ctPaging);
end;

Komponen sePaging ini merupakan pengganti SpinEdit Points per Page, perubahan nilainya akan mempengaruhi banyaknya data per halaman (nilai property MaxPointsPerPage komponen TChart sama dengan nilai property Value komponen sePaging). Banyaknya halaman grafik mungkin akan berubah setiap kali ada perubahan nilai komponen sePaging sehingga prosedur ctPagingPageChange perlu dipanggil kembali untuk menyesuaikan keadaan beberapa komponen.

Jika pada saat mengedit komponen TChart, checkbox Scale Last Page pada sub tab Paging tidak di’centang’ maka halaman terakhir akan ditampilkan dengan range sumbu horisontal grafik sama dengan halaman yang lain. Jika sebaliknya maka skala halaman terakhir grafik akan diatur berdasarkan pada banyaknya titik yang tampak pada halaman terakhir tersebut. Untuk mengontrol property ini, digunakan chScale, klik ganda komponen ini..

procedure TfmPaging.chScaleClick(Sender: TObject);
begin
  ctPaging.ScaleLastPage:= chScale.Checked;
end;

3. Mengontrol halaman grafik

Keempat komponen button digunakan untuk menampilkan suatu halaman ke halaman lain, klik ganda pada salah satu komponen button tersebut. Keempatnya menggunakan sebuah prosedur ButtonClick..

procedure TfmPaging.ButtonClick(Sender: TObject);
begin
  if Sender = btFirst then
    ctPaging.Page:= 1
  else
  if Sender = btPrevious then
    ctPaging.PreviousPage
  else
  if Sender = btNext then
    ctPaging.NextPage
  else
    ctPaging.Page:= ctPaging.NumPages;
end;

Jika user menekan button btFirst maka halaman pertama grafik akan ditampikan. Jika btPrevious ditekan maka metode PreviousPage akan membawa ke halaman sebelumnya sedang untuk menampilkan halaman selanjutnya panggil metode NextPage yaitu ketika pengguna menekan button btNext. Dan halaman yang terakhir akan ditampilkan ketika user menekan button btLast.

Nuwun..

Daftar download untuk artikel ini:
1. TChart Source Code ver.1.6 - 178.32 kB
2. Paging Source Code - 2.71 kB
3. TChart Application ver.1.6 - 824.68 kB