Transcript Tipe Data Dan operator
Pemrograman Visual Borland Delphi 5.0
TQuery
1
TTable vs TQuery
Dalam banyak kasus, komponen Ttable sudah mencukupi untuk membangun aplikasi basis data. Namun ada beberapa kasus yang hanya dapat ditangani dengan Tquery.
Kasus pertama Bila mengakses beberapa tabel tetapi sebagai satu kesatuan contoh: menampilkan beberapa tabel dalam 1 tabel tunggal Kasus kedua Bila ingin menghubung keserver database yang hanya memahami SQL.
2
Perintah SQL ada 2 DML(Data menipulation Language)
Perintah-perintah pada DML dugunakan untuk manipulasi tabel seperti menambah record(insert), menghapus record(delete)
DDL(Data Definition Language)
Perintah-perintah DDL digunakan untuk membuat table(Create table), membuat indek(Create Index)
3
Komponen TQuery
Pemrograman SQL pada Delphi melibatkan komponan TQuery. Sebegai contoh buatlah aplikasi berikut
Tambahkan Komponen Query, Datasource, DBGrid Query1 DatagbaseName SQL Active DataSource1 DataSet DBGrid1 Datasource DBDEMOS Select * From Country True Query1 Datasource1 4
Lebih Jauh dengan SELECT Select * From Country
Tanda * pada perintah tersebut menunjukkan semua field pada country.db ditampilkan.
Select Name, Capital From Country
Menunjukkan field Nama dan Capital pada country.db ditampilkan.
Contoh Perintah Select lengkap
SELECT [DISTINCT] kolom FROM tabel [WHERE kondisi_pencarian] [ORDER BY pengurutan] [GROUP BY group_list] [HAVING having_condition]
Huruf Besar : Kata kunci SQL Paramater dalam kurung : opsional 5
Klausa DISTINCT
Bila perintah Select diikuti DISTINCT menunkukkan bahwa record yang terduplikasi tidak akan ditampilkan, Bila tidak semua record akan ditampilkan.
SELECT DISTINCT CONTINENT FROM COUNTRY
Perintah diatas akan menampilkan daftar benua dari table country.db. Coba praktekkan pada aplikasi sebelumnya, tinggal merubah SQL.
6
Klausa WHERE
Digunakan untuk memilih record yang akan ditampilkan. Sebagai contoh memilih negara pada Contry.db yang memiliki jumlah penduduk dari 100 juta digunakan perintah.
SELECT * FROM COUNTRY WHERE POPULATION > 100000000 Penduduk diantara 50 juta sampai 100 Juta SELECT * FROM COUNTRY WHERE POPULATION >= 50000000 <= 100000000 Negara yang memiliki Huruf Awal “A” SELECT * FROM COUNTRY WHERE NAME LIKE ‘A%’ Negara yang memiliki Huruf akhir “a” SELECT * FROM COUNTRY WHERE NAME LIKE ‘%a’
7
Klausa ORDER BY
Digunakan untuk mengurutkan table berdasarkan salah satu fiend, baik naik (ascending) maupun turun (descending). Sebagai contoh mengurutkan daftar negara berdasarkan ibukota SELECT * FROM COUNTRY ORDER BY CAPITAL Seperti diatas tapi mengurutkan secara turun SELECT * FROM COUNTRY ORDER BY CAPITAL DESC Mengurutkan lebih dari 2 field SELECT * FROM COUNTRY ORDER BY CONTINENT, NAME
8
Klausa GROUP BY
Digunakan untuk mengelompokkan record menurut field tertentu. Contoh menampilakn daftar benua pada Caountry.db
SELECT CONTINENT FROM COUNTRY GROUP BY CONTINENT Perintah diatas akan menampilkan 2 record, yaitu ‘Nort America’ dan ‘South America’
9
Contoh SELECT
Buatlah aplikasi berikut :
Query1 DatagbaseName DBDEMOS DataSource1 DataSet DBGrid1 Edit1 BitBtn Datasource Text Kind Query1 Datasource1 ‘’ OK 10
Contoh SELECT
procedure TForm1.BitBtn1Click(Sender: TObject); begin Query1.Close; Query1.SQL.Clear; Query1.SQL.Add (Edit1.Text); Query1.Open; end; 11
Query Berparameter
Berguna untuk meningkatkan fleksibilitas. Contohnya Select * From country where name like ‘A%’ Menjadi fleksibel dengan menjadikan ‘A%’ sebagai parameter. Jadi bisa diisi dengan string apa saja.
Select * From country where name like :Nama Parameter nama pada perintah di atas dapat diganti dengan string apa saja.
12
Query Berparameter
Penulisan query parameter dengan memberi nilai properti params. Tapi sebelumnya harus memanggil metode prepare terlebih dulu, guna meningkatkan kinerja query berparameter. {Menutup Query} Query1.close; {menyiapkan query berparameter} Query1.prepare; {Memilih negara yang namanya berawalan C} Query1.Params[0].AsString := ‘C%’; {Membuka Query lagi} Query1.Open; Dapat diganti Query1.ParamByname(‘Nama’).AsString:=‘C%’;
13
Menggunakan Fungsi Format
Alternatif lain dari query parameter, juga berguna untuk meningkatkan query parameter. Contoh: Str:=‘SELECT * FROM COUNTRY WHERE CONTINENT = “%s”’; Query1.Close; Query1.SQL.Clear; Query1.SQL.Add (Format(Str, [Edit1.Text])); Query1.Open; Artinya menampilkan data yang mempunyai benua dengan huuf belakang s di Edit1.Text.
14
Menggunakan Fungsi Format
Contoh lain bila menampilkan negara yang memiliki penduduk antara 25 juta sampai 150 juta : Str:=‘SELECT * FROM COUNTRY’ + ‘WHERE POPULATION > %d AND POPULATION < %d’; Query1.Close; Query1.SQL.Clear; Query1.SQL.Add (Format(Str, [25000000,15000000])); Query1.Open;
15
Aplikasi Query Berparameter
Buatlah aplikasi berikut : Tambahkan komponen Query1 DataSource1 DBGrid1 Label1 Label2 ComboBox1 Edit1 Button1 Button2 DatagbaseName DataSet Datasource Caption Caption Text Caption Caption DBDEMOS Query1 Datasource1 ‘Nama Negara’ ‘Kota’ ‘’ ‘Fiter’ ‘Default’
16
Menggunakan Fungsi Format
procedure TForm1.FormCreate(Sender: TObject); var i : integer; begin ComboBox1.Items.Add('Semua'); for i := 0 to 25 do ComboBox1.Items.Add ( Format ('%s%%', [char (i+65)])); ComboBox1.ItemIndex := 0; end;
17
procedure TForm1.Button1Click(Sender: TObject); var Str : String; begin Str := 'SELECT * FROM COUNTRY'; if (ComboBox1.Text <> 'Semua') then Str := Str + ' WHERE NAME LIKE "%s"'; if (Edit1.Text <> '') then if (ComboBox1.Text <> 'Semua') then Str := Str + ' AND CAPITAL = "%s"' else Str := Str + ' WHERE CAPITAL = "%s"'; if (ComboBox1.Text = 'Semua') then Str := Format (Str, [Edit1.Text]) else Str := Format (Str, [ComboBox1.Text, Edit1.Text]); Query1.Close; Query1.SQL.Clear; Query1.SQL.Add (Str); Query1.Open; end;
18
Menggunakan Fungsi Format
procedure TForm1.Button2Click(Sender: TObject); begin Query1.Close; Query1.SQL.Clear; Query1.SQL.Add ('SELECT * FROM COUNTRY'); Query1.Open; end;
19
Manipulasi Data
Menggunakan INSERT
INSERT INTO COUNTRY (NAME, CAPITAL, CONTINENT, AREA, POPULATION) VALUES (“Indonesia”, “Jakarta”, “Asia”, 5200000, 190000000)
- Klausa INTO diikuti nama table yang akan ditambah record baru (sama seperti klausa FROM pada perintah SELECT) - Diikuti nama field yang akan diisi - Klausa VALUES menunjukkan nilai-nilai field dari record baru.
20
Manipulasi Data
Menggunakan DELETE
DELETE FROM COUNTRY WHERE NAME = : Nama
Program yang berhubungan dengan pernyataan diatas dapat ditulis sebagai berikut :
With Query3 do Begin prepare; params[0].AsString := ‘Negara Saya’; ExexcSQL; End; Query1.Close; Query1.Open;
Program diatas akan menghapus data ‘Negara Saya’ dari Country.db 21
Manipulasi Data
Menggunakan UPDATE
Untuk mengganti nilai field dari sebuah record dihunakan pasangan perintah UPDATE..SET. Sebagai contoh perintah di bawah ini akan mengganti jumlah penduduk negara indonesia menjadi 210 juta
UPDATE COUNTRY SET POPULATION = 21000000 WHERE NAME = “Indonesia”
Untuk mengganti beberapa field sekaligus, anda cukup menuliskan perintah SET sekali saja, contoh :
UPDATE COUNTRY SET CAPITAL = “DKI Jaya”, CONTINENT = “Asia tenggara”, POPULATION = 200000000 WHERE NAME = “Indonesia”
22
Contoh
Form1 Button1 Button2 Query1 DataSource1 DBGrid1 Query2 Query3 Caption Caption Caption DatabaseName DataSet Align DataSource DatabaseName DatabaseName ‘Menambah dan menghapus Data’ ‘Menambah Data’ ‘Menghapus Data’ ‘DBDEMOS’ Query1 alButton DataSource1 ‘DBDEMOS’ ‘DBDEMOS’
23
Listing code
{ Private declarations }
StrTambah : string; procedure TForm1.FormCreate(Sender: TObject); begin
{Inisialisasi Query1}
Query1.SQL.Clear; Query1.SQL.Add('SELECT * FROM COUNTRY'); Query1.Open;
{Inisialisasi perintah SQL untuk menambah data}
StrTambah := 'INSERT INTO COUNTRY (' + 'NAME, CAPITAL, CONTINENT, AREA, POPULATION)' + 'VALUES ("%s", "%s", "%s", "%s", "%s")';
{Inisialisasi perintah SQL untuk menambah data}
Query3.SQL.Clear; Query3.SQL.Add('DELETE FROM COUNTRY WHERE'); Query3.SQL.Add('NAME = :Nama'); end;
24
procedure TForm1.Button1Click(Sender: TObject);
Listing code
{Mengosongkan text pada Edit1..Edit5}
for i := 0 to Form2.ControlCount - 1 do if (Form2.Controls[i] is TEdit) then (Form2.Controls[i] as TEdit).Clear; Form2.ActiveControl := Form2.Edit1; Form2.ShowModal; if (Form2.ModalResult = mrOK) then begin
{Mengisi Query2 dengan perintah penambahan data}
Query2.SQL.Clear; with Form2 do begin end; Query2.SQL.Add(Format ( StrTambah, [Edit1.Text, Edit2.Text, Edit3.Text, Edit4.Text, Edit5.Text])); end; Query2.ExecSQL; Query1.Close; Query1.Open; end;
25
Listing code
begin if (Application.MessageBox( 'Anda yakin record ini dihapus','Peringatan', MB_YESNO or MB_ICONQUESTION) = IDNO) then exit; With Query3 do begin {mengisi parameter} prepare; Params[0].AsString := Query1.Fields[0].AsString; ExecSQL; end; {Memperharui Data} Query1.Close; Query1.Open; end;
26
Memakai File Text
Anda dapat mengubah perintah SQL pada saat aplikasi dijalankan dengan memasukkan perintah-perintah SQL ke dalam file text dan membukanya pada saat aplikasi dijalankan.
Lebih mudahnya buatlah aplikasi berikut ini :
Query1 : DataBase=DBDEMOS DataSource1:DataSet=Query1 DBGrid1:DataSource=DataSource OpenDialog1:Filter=… File Text File SQL *.TXT
*.SQL
BitBtn:Kind=bkOK
27
Listing Code BitBtn
procedure TForm1.BitBtn1Click(Sender: TObject); begin if OpenDialog1.Execute then begin Query1.Close; Query1.SQL.Clear; Query1.SQL.LoadFromFile(OpenDialog1.FileName); Query1.Open; end; end;
28
Listing Code
Buatlah beberapa file text dan isikan Format berikut: data1.txt
SELECT * FROM BioLife data2.txt
SELECT * FROM BioLife WHERE Category=‘Cod’ data3.txt
SELECT Category, Commond_Name, “Species Name”, Length_in FROM BioLife data4.txt
SELECT * FROM BioLife WHERE Category LIKE‘%C%’
29
Menampilkan gambar
Buatlah Aplikasi berikut untuk memahami field bertipe grapict (G) Label1,2 ListBox1,2 DBImage1 Query1 DataSource1 DBGrid1
30
Menampilkan gambar
Form1 Label1 Label2 Query1 DataSource1 DBGrid1 DBImage1 Query3 Caption Caption Caption DatabaseName SQL ‘Menampilkan gambar’ ‘Min’ ‘Max’ ‘DBDEMOS’ ‘SELECT * FROM BioLife WHERE BioLife.”Length (cm)” >= :Min AND BioLife.”Length (cm)” <= :Max’ ftFloat Params DataSet DataSource DataSource1 DataField DatabaseName Query1 DataSource1 DataSource1 Graphic ‘DBDEMOS’
31
Listing Code BitBtn
Klik ganda pada form untuk memebuat procedure
Form1Create
procedure TForm1.FormCreate(Sender: TObject); Var i : integer; S : String; begin for i:=0 to 40 do begin S := IntToStr(i*10) ; ListBox1.Items.Add(S); ListBox2.Items.Add(S); end; ListBox1.ItemIndex:=0; ListBox2.ItemIndex:=0; end; 32
Listing Code BitBtn
Klik ganda pada ListBox1 untuk memebuat procedure
ListBox1Click
procedure TForm1.ListBox1Click(Sender: TObject); begin Query1.Close; Query1.Prepare; Query1.Params[0].AsFloat := StrToInt(ListBox1.Items.Strings[ListBox1.Itemindex]); Query1.Params[1].AsFloat := StrToInt(ListBox2.Items.Strings[ListBox2.Itemindex]) ; Query1.Open ; end; Lakukan hal yang sama dengan ListBox2 33
DBLookupComboBox
Komponen untuk menghubungkan 2 tabel dan dapat berhubungan dengan 2 datasource sekaligus.Sebagai contoh buatlah aplikasi berikut ini : 5 Label 4 DBEdit 1 DBLookupComboBox 2 Query 2 DataSource 1 DBNavigator 34
Query1 DatabaseName
DBLookupComboBox
Active Query2 DataSource1 DatabaseName SQL Active DataSet DataSource2 DBNavigator 4 Buah DBEdit DataSet DataSource DataSource DataField DBLookupComboBox1 DataField DataSource ListSource KeyField ListField DropDownWidth DBDEMOS SELECT * FROM Orders True DBDEMOS SELECT * FROM Customer True Query1 Query2 DataSource1 DataSource1 OrderNo,SaleData,ShipDat e,EmpNo CustNo DataSource1 DataSource2 CustNo Company;CustNo 300
35
DBLookupComboBox
- Properti DataField dan DataSource menyatakan hubungan utama ke tabel Order.
- Ketiga properti berikut mengacu pada data source kedua - KeyField : menyatakan field yang dipakai untuk menghubungkan kedua data source.
- ListSource : menyatakan data source kedua - ListField : Menyatakan Field-field yang akan ditampilkan.
- Properti DropDownWidth diisi dengan nilai yang besar untuk menampilkan beberapa field 36
DBLookupComboBox
37
Membuat Grafik Lingkaran
Data yang ditampilkan dalam bentuk grafik mempunyai beberapa keuntungan: - Lebih indah dilihat - Dipakai untuk melaporkan data ke pemimpin - Untuk presentasi Ada beberapa jenis grafik di antaranya, lingkaran, garis, bar, anak panah, gelembung dan pemakaiannya tergantung kebutuhan (data yang akan ditampilkan) misalkan jika data yang ditampilkan banyak, yang digunakan grafik garis atao point tidak bisa menggunakan lingkaran…… 38
Membuat Grafik Lingkaran
Untuk lebih mudahnya buatlah aplikasi berikut : Page Control dari tab win32 Klik kanan New Page
1 Query, 1 DataSource
1 Timer dari tab System
Komponen Pada TabSheet1 - DBGrid Komponen Pada TabSheet2 - DBChart
39
Mengurutkan Data
Untuk mengurutkan data pada komponen Query anda harus memakai klausa ORDER BY dan field yang diurutkan tidak perlu diindex (bandingkan dengan komponen Table)
Query1 DataSource1 DBGrid1 RadioGroup DatabaseName DataSet DataSource Items DBDEMOS Query1 DataSource1 Category Species Name Category + Species Name
40
Listing Program
Isikan Procedure RadioGroup1Click sebegai berikut procedure TForm1.RadioGroup1Click(Sender: TObject); var str : string ; begin str := 'select * from BioLife order by '; case RadioGroup1.ItemIndex of 0 : str := str + 'Category'; 1: str := str + 'BioLife."Species Name"'; 2 : str := str + ' Category, Biolife."Species Name"'; end; with Query1 do begin SQL.Clear; SQL.Add(str); Open; end; end; 41
Fungsi Agregasi
SQL mempunyai kemampuan menghitung fungsi fungsi berdasarkan kelompok data. Fungsi-fungsi tersebut memakai klausa group by. Atribut pada klausa group by dipakai untuk membentuk kelompok.
Fungsi² agregasi: Avg, untuk menghitung rata² Min, untuk mencari minimum Max, untuk mencari Maksimum Sum, Untuk menghitung total Count, Untuk menghitung banyak data 42
Fungsi Agregasi
Query1 DataSource1 DBGrid1 DatabaseName SQL DataSet DataSource DBDEMOS SELECT CATEGORY, COUNT(BIOLIFE.”SPECIES NO)”), AVG(LENGTH_IN) FROM BIOLIFE GROUP BY CATEGORY Query1 DataSource1
43
Menggabungkan beberapa tabel
Sama seperti pada komponen table, untuk komponen query juga dapat digunakan untuk menggabungkan beberapa tabel. Sebagai contoh DBDEMOS terdapat beberapa tabel yang berhubungan misalnya Customer.db dan Orders.db, contoh perintah untuk menggabngkan tabel tersebut :
SELECT C.CustNo, O.OrderNo, O.SaleDate, O.ShipDate
FROM CUSTOMER C, ORDERS O WHERE C.CustNo = O.CustNo
Perintah Diatas terdiri dari 3 bagian 44
Menggabungkan beberapa tabel
- Bagian pertama adalah memilih field yang akan ditampilkan dengan klausa SELECT.
- Bagian kedua, tabel yang dibaca (‘FROM CUSTOMER C, ORDERS, O’) arti : tabel C sama dengan Customer.db dan O sama dengan Orders.db
- Bagian ketiga, bagian ini untuk menghubungkan tabel Customes.db dan Orders.db dihubungkan oleh field CustNo 45
Contoh
Form1 Query1-Query4 Databasename DataSource1 DBGrid1 DataSource2 DBGrid2 DataSource3 DBGrid3 DataSource4 DBGrid4 Caption Caption ‘Penggabungan beberapa tabel’ ‘DBDEMOS’ Query1 DatabaseName DataSource1 DataSet Query2 DataSource Dataset DataSource DataSet DataSource DataSource2 Query3 DataSource3 Query4 DataSource4
46
Listing code
procedure TForm1.FormCreate(Sender: TObject); begin { Inisialisasi Query1} Query1.DatabaseName := 'DBDEMOS'; Query1.SQL.Clear; Query1.SQL.Add ('SELECT * FROM CUSTOMER'); Query1.Open; { Inisialisasi Query1} Query2.DatabaseName := 'DBDEMOS'; Query2.SQL.Clear; Query2.SQL.Add ('SELECT * FROM ORDERS'); Query2.SQL.Add ('WHERE CustNo = :CustNo'); Query2.Params[0].DataType := ftFloat; Query2.DataSource := DataSource1; Query2.Open;
47
Listing code
{ Inisialisasi Query1} Query3.DatabaseName := 'DBDEMOS'; Query3.SQL.Clear; Query3.SQL.Add ('SELECT * FROM ITEMS'); Query3.SQL.Add ('WHERE OrderNo = :OrderNo'); Query3.Params[0].DataType := ftFloat; Query3.DataSource := DataSource2; Query3.Open; { Inisialisasi Query1} Query4.DatabaseName := 'DBDEMOS'; Query4.SQL.Clear; Query4.SQL.Add ('SELECT * FROM PARTS'); Query4.SQL.Add ('WHERE PartNo = :PartNo'); Query4.Params[0].DataType := ftFloat; Query4.DataSource := DataSource3; Query4.Open; end;
48