Teknik Pencarian Menggunakan Tdataset

Teknik Pencarian Menggunakan Tdataset

Jika kita membuat suatu aplikasi tentu kita akan membutuhkan teknik pencarian dalam aplikasi tersebut, teknik pencarian bisa dilakukan dengan berbagai cara diantaranya dengan mengunakan fungsi pencarian pada Tdataset misal findkey dan locate atau bisa juga mengunakan Script SQL. 

Berikut adalah contoh pencaraian : 

1. Findkey, digunakan untuk mencari data berdasarkan index, misal kita mempunyai struktur data sebagai berikut.

Findkey

Seperti pada table diatas maka kita bisa menggunakan filed Nim untuk mencari karena Nim, merupakan Primary key atau indek. 
Bentuk Umum Findkey : function FindKey(const KeyValues: array of const): Boolean; 
Dimana KeyValues adalah nilai yang akan dicari berupa larik Findkey ini mengeluarkan nilai true jika data diterukan tetapi akan false jika data tidak ditemukan. 

2. Locate, digunakan untuk mencari record dengan field yang bukan index, misal kalau pada struktur table diatas bias digunakan untuk mencari Nama. 
Bentuk Umum : function Locate(const KeyFields: string; const KeyValues: Variant; Options: TLocateOptions): Boolean; virtual; 
Dimana KeyFields merupakan filed yang akan dicari dan KeyValues adalah nilai dari filed tersebut. Locate ini mengeluarkan nilai true jika data diterukan tetapi akan false jika data tidak ditemukan. 

Contoh 
Buat program aplikasi seperti dibawah dengan menggunakan truktur data seperti pada table diatas.

Pencarian

Pasang komponent seperti biasa dan pada tambol cari nim isi codenya adalah sebagai berikut : 
if table1.FindKey([Tcari.text])<>true then 
ShowMessage('Record dengan field Nim = ' + TCari.Text + ' tidak ditemukan') 

Pada tombol Cari nama kodenya adalah sebagai berikut : 
if Table1.Locate('Nama',Tnama.text,[loPartialKey])<>true then 
ShowMessage('Record dengan field nama = ' + Tnama.Text + ' tidak ditemukan')


mari praktek dan jangan takut gagal karena kegagalan suatu keberhasilan yang tertunda jangan takut untuk terus mencoba sampai bisa.
semoga artikel yang ditulis ulang diatas bisa membantu. 
salam otodidak "cuma ingin share"

Laporan dan Chart

Jika kita buat program aplikasi tentu kita dituntut untuk bisa membuat dan menampilkan laporan yang diinginkan, baik dalam bentuk table maupun dalam bentuk chart. 

1. Laporan

 Pada dasarnya laporan dibagi menjadi dua bagain yaitu laporan dengan menngunakan satu table dan laporan yang menggunakan lebih dari satu table atau disebut sebagai laporan master detail.

Untuk membuat laporan kita bisa meggunakan komponen QReport yang disertakan dalam compiler Delphi.

Contoh : 

Untuk membuat laporan coba anda buka aplikasi yang sudah pernah anda buat pada modul 10 sebelumnya tambahkan form report caranya pilih menu file | New | pilih Report dan Tekan tombol Ok sehingga tampak seperti pada gambar dibawah ini .

..waduuuhhh nie mata pengen merem nieh , ya udah tar kita lanjut besok aja lagi ahh..  saya dari Team CTC , ngucapin selamat malam selamat rehat .
Bye.

ok malem temen-temen , lanjut lagi

Aplikasi-Master-Detail-Mahasiswa

From-Laporan

Set Pada objrct ispektor, tab properties:
1. Set dataset dari Refort tersebut menjadi form1.table1 atau anda tinggal pilih mana dropdown kalau belum muncul masukan(gabungkan) dulu unit1 keunit form Report tersebut, caranya tekan Alt+F11 pilih unit1/unit form input data mahasiswa.
2. Pada properties Bands, aktifkan hascolomn Header, Has Detail, dan Has Title sehingga tampak seperti gambar berikut ini .

From-Laporan+Baris-Title-Colum-Header-Detail

3. Pada Title Masukan QrLabel pada tab Qreport lalu set Captionnya menjadi “Daftar Mahasiswa”
4. Pada Baris header Buat No, Nim, Nama, Kode Jurusan menggunakan komponent Qrlabel.
5. Pada Baris Detail masukan komponent Qrdbtext 3 buah yaitu untuk Nim, nama dan Kode_Mk, untuk Qrdbtext1 set dataset=form1.table1 dan datafield=Nim. Lakukan hal yang sama untuk yang lainnya dan set datafield menjadi filed nama dan Kode_jur
6. Untuk No masukan Komponent QrSysData dan set properties data manjadi QrsdetailNo

Desain-From-Laporan-Data-Mahasiswa

7. Setelah seselai aktifkan Table yang berkaitan dengan Report tersebut dan coba anda preview caranya Click kanan pada Report tersebut dan Pilih Preview.
8. untuk menseting ukuran kertas, margin dan lain sebagainya bisa dilakukan dengan cara: click kanan pada report tersebut lalu pilih report setting.
9. Untuk mamnggil refort pada form utama missal laporan akan keluar pada saat user menekan tombol Data MHS pada form Utama Seperti pada Gambar Aplikasi-master-detail-mahasiswa . untuk mamanggilnya adalah tekan dua kali tombol Data Mhs sehingga masuk ke source code, masukan perintah :
 // Nama_Laporan.Preview Untuk melihat laporan dalam modul Preview 
//Misal 
QuickReport1.Preview; 
// Nama_Laporan.Print Untuk mencetak laporan 
//Misal
 QuickReport1.print;

2. Cart 

Chart merupakan laporan dalam bentuk grafik sehingga laporan tersebut dapat mudah dibaca. Untuk membuat chart pada Delphi kita dapat memanpaatkan component Teachart, Chart dapat dibuat dengan mengambil data dari dataset.
Contoh
Untuk membuat chart coba anda buat table seperti terlihat pada gambar berikut :

Struktur-Tabel-Penerimaan.db

Setelah selesai buat table coba anda buat aplikasi seperti pada gambar berikut ini :

Aplikasi-Char-Pie-Series

atur properties pada table, datasource, dbgrid dan dbnavigator supaya diarahkan pada table yang sudah dibuat diatas, setelah terhubung ke database, pasang component dbchart yang ada di tab datacontrol pada aplikasi yang anda buat seperti terlihat pada gambar diatas, Klick kanan pada chart tersebut pilih edit chart, pada tab chart tekan tombol Add, pilih Pie dan tekan Ok, Klick Tab Series dan Klick tab Data source seperti terlihat pada gambar Berikut

 From-Dialog -Editing-Dbchart

Pada Data Source pilih Dataset, pada dataset pilih table1 dan pada Labels pilih Tahun, lalu pada Pie pilih Jumlah, setelah selesai tekan Close, yang terakhir coba aktipkan table1 dan simpan project anda lalu Run. Chart ini bisa dibuat tidak hanya menggunakan dataset tapi bisa juga bersarakan fungsi tertentu, datasource atau bahkan query dari gabungan beberapa table.

Struktured Query Language Pada Delphi

STRUKTRURED QUERY LANGUAGE  

PADA DELPHI

SQL merupakan jantung dari pemograman client/server, karena semua pemograman client /sever untuk memanipulasi data  semuanya menggunakan SQL ini. Pada dasarnya perintah – perintah SQL dibagi dua yaitu DML (data manipulation language) dan DDL (data Definition language). Perintah DML dgunakan untuk memanipulasi table, seperti menambah record (insert), menghapus record (delete) dsb. Sedangkan perintah perintah pada DDL digunakan untuk membuat table (CREATE TABLE), membuat indexs (CREATE INDEX), dan sebagainya.

Berikut adalah beberapa perintah-perintah sql dasar :

Clausa Select 

Format Penulisan :

Select [distinct] kolom from table
[where kondisi_pencarian]
[order by pengurutan]
[group by group_list]
[HAVING having_condition]

Misal kita menggunakan table yang berada pada BDE Alias DBDEMOS

Contoh :
1. Select distinct continent from country
Perintah diaatas akan menampilkan seluruh field continent dari table country, karena perintah diatas memakai perintah distinct maka isi field continent yang sama akan ditampilkan satu kali saja.

2. Select * from country
Printah diatas akan menampilkan seluruh field dan record yang ada pada table counry. * digunakan untuk mewakili seluruh kolom/field.

 

Klausa where 

  Klausa where digunakan untuk memfilter record yang akan ditampilkan

Contoh :
1. Select * from country where population >=  10000000
Perintah diatas akan menampilkan seluruh record pada table country dimana population samdenganatau lebih besar 10 juta.

2. Select * from country where population >=  10000000 and  where population <=  50000000
Perintah diatas akan menampilkan seluruh record pada table country dimana populasinya adalah lebih besar atau sama dengan 10 juta dan lebih kecil atau sama dengan 50 juta.

Contoh kasus :
1. Tampilkan nama negara yang mempunyai hurup awal ‘A’ Select * from country where name like ‘A%’
2. Tampilkan nama negara yang mempuyai hurup akhir ‘a’ Select * from country where name like ‘%a’
3. Tampilkan nama segara yang mengandung hurup ‘sia’ Select * from county where name like ‘%sia%’
4. Tampilkan semua nama negara dimana hurup awal bebas tetapi dibelakangnya mengandung kata ‘ndonesia’
Select * from country where name like ‘_ndonesia’
 
Berdasarkan contoh diatas dapat kita simpulkan bahwa ‘%’ dapat mewakili beberapa hurup sedangkan ‘_’  hanya mewakili satu hurup saja.

Clausa Order By 

Clausa order by digunakan untuk mengurutkan berdasarkan kolom/field tertentu

Contoh :
1. Select * from county order by population
Perintah diatas akan menampilkan semua nagara yang diurutkan berdasarkan field pupolation dari kecil ke besar.
2. Select * from county order by population Desc
Perintah diatas akan menampilkan semua negara yang diurutkan berdasarkan field population dari besar ke kecil.
3. Select * from county order by population, name
Perintah diatas akan menampilkan semua negara yang diututkan berdasarkan population dan name
 

Clausa Group by 

Clausa ini digunakan untuk mengelompokan data berdasarkan Kolom tertentu

Contoh :
Select  continent from country group by continent
Perintah diatas akan menampilkan record continent pada table country yang dikelompokan berdasarkan continent. Yang perlu diperhatikan dari clausa gropu by ini adalah daftar kolom yang akan ditampilkan harys sama dengan kolom pada clausa group by.

Clausa Having

Clausa ini digunakan untuk mendefinisikan batasan seleksi berdasarkan Group By  sintaks yang digunakan :
 Select [kolom1, kolom2…] from [nama_table] group by [kolom group]  having
[batasan_group]

Tes clausa select :
Untuk mencoba clausa select coba anda buat program seperti pada tampilan dibawah :

Aplikasi untuk tes Clausa Select 

Set properties untuk masing masing komponent : 

1. Pada Tquery Set properties  Databasename menjadi DBDEMOS. 

2. Pada Datasource set properties properties Dataset menjadi Tquery. 

3. Pada dbgrid1 set properties datasource menjadi Datasource1 

Pada even onlclik tombol jalankan isi dengan srcip diwawah ini ; 

Procedure TForm1.Button1Click(Sender: TObject); begin Query1.Close; 

Query1.SQL.Clear; 

Query1.Sql.Add(edit1.Text); 

Query1.Open; end; 

Query berparameter 

Query berparameter adalah  suatu perintah sql dimana kondisi dari perintah sql ini kita buat berparameter. Query berparameter ini sangat bermanfaat untuk meningkatkan kinerja program kita. 

Contoh : 

select * from country where name like  'P%' 

Pernyataan diatas dapat kita buat fleksibel dengan menjadikan ‘P%’ sebagai parameter, dengan demikian anda bias mengisi parameter tersebut dengan karakter atau string apa saja, dari contoh diatas kita jadikan menjadi query berparameter menjadi : 

select * from country where name like  :nama atau 

select * from country where name =:nama 

Parameter nama dapat diganti dengan string lain, karena parameter tersebut bias dikatakan sama dengan variable. 

Untuk bisa menggunakannya anda harus set dulu type data dari parameter tersebut apakah sebagai string, integer dan lain-lain, sebagai contoh coba anda buat program berikut ini : 

Aplikasi-Pencarian-Menggunakan-Clausa-Select 

Seting properties : 

1. Untuk Tquery Pada properties SQL  Click … Sehingga muncul dialog box seperti berikut : 

String-List-Editor 

Masukan statement SQl seperti diatas, setelah selesai tekan Ok dan masih pada Komponent Tquery Set properties untuk Params Klick … sehingga muncul Dialoh box seperti berikut : 

Editing-Query-Parameter 

Click pada Parameter Nama dan pada properties dataType pilih ftString. 

2. Masih Pada Tquery Set properties  Databasename menjadi DBDEMOS. 
3. Pada Datasource set properties properties Dataset menjadi Tquery. 
4. Pada dbgrid1 set properties datasource menjadi Datasource1 

Pada even Onclick jalankan isi dengan script berikut ini : 

procedure TForm1.Button1Click(Sender: TObject); begin Query1.Close; 
Query1.Prepare; 
//untuk Clausa Like 
Query1.Params[0].Value:='%'+edit1.Text+'%'; 
// Untuk kriteria dengan = 
//Query1.Params[0].Value:=edit1.Text; 
Query1.Open; end; 

Coba anda jalankan program diatas, apa yang terjadi .
#salam otodidak

Mempelajari Bagaimana Manipulasi Data Lewat Sql

Mempelajari Bagaimana Manipulasi Data Lewat Sql

Ada beberapa clausa sql pada Delphi untuk memanipulasi data diantaranya adalah :

1. Insert, digunakan untuk menambah data pada suatu table

Bentuk umum :
Insert into <table name> (colom1, colom2 …, colomn) Values (value colom1, value colom1,… value colomn);

Contoh : Insert into country (name, Capital,continent, area, population) Value (“Indonesia”,”Jakarta”,”Asia”,5200000,190000000)

Sql diatas akan menambah data baru sesuai dengan valuenya ke table countri .
2. Delete, digunakan untuk menghapus record, bisa berdasarkan kriteria tertentu atau seluruh record pada table tersebut.

Bentuk umum :
Delete from <tablename> where <keriteria>

Contoh : Delete from country where name=”Indonesia”

Sql diatas akan menghapus record pada table country dimana isi dari field name nya sama dengan Indonesia

3. Update, digunakan untuk merubah atau mengganti nilai/isi dari field tertentu berdasarkan kriteria tertentu.
Bentuk umum :
Update <table name> set <new value> where <kreteria>

Contoh :
Update country set capital=”Bandung” where name=” Indonesia” 

Perintah sql diatas akan merubah isi dari field cavital dengan bandung jika isi dari field name sama dengan Indonesia