Membuat Pencaarian Data dan Pencetakan Dengan D menggunakkan Perintah SQL Pada Delph hi Target Pencapaian Siswa dapat Mem embuat Program untuk Pencarian data dengan menggunakan p perintah SQL pada Dephi 7.0 Pada bagian ini akan dijelaskan bagaimana membuat pencarian data dengan an menggunakan input masukan an dari edit1t: Skenario program yang akan d dibuat adalah sebagai berikut: Misalnya anda memiliki data ta mahasiswa seperti berikut: Page 1 Pada Kotak Edit1 masukan ni nim yang ingin dicari, kemudian tampilkan hasiln ilnya jika data ditemukan, dan tampilkan ma maaf data tidak ada jika ada tidak ditemukan http://www.unikomcenter.com Contoh: Buat Form Seperti Berikut: Komponen Utama yang penti nting adalah: Query1 dan DataSource1 yang dihub ubungkan kedatabase mahasiswa. http://www.unikomcenter.com Page 1. procedure TForm5cari.Bu i.Button8Click(Sender: TObject); 2. begin 3. if(edit1.text='') then 4. showmessage('Masukan an nim yg akan dicari ') 5. else 6. begin 7. query1.Close; 8. query1.SQL.clear; 9. query1.SQL.Add('select * from mahasiswa where nim='+quotedstr(Edit1 1.text)); 10. query1.open; 11. if(query1.RecordCount=0 0) then 12. showmessage('Data tidaak ditemukan'); 13. end; 14. end; 15. 2 Masukan program berikut pad ada Tombol Cari: Contoh pada Edit Nim masukkan 10109005: NIM :10109005 maka karena datanya ada dalam database, akan an Kemudian Click Tombol Cari,i, m ditampilkan hasil seperti berik erikut: Page 3 Jika data yang dicari tidak ada ada, maka akan ditampilkan output seperti berikut: ut: http://www.unikomcenter.com Jika anda ingin menambahkan an Fasilitas Untuk mencetak pada form yang sam ama, misalnya gini:Pertama data dicari, nah ah kemudian jika data yang dicari ada maka akan ditampilkan d dilayar, kemudian jika andaa in ingin mencetaknya ke Kertas, maka anda bisa melakukannya dengan menekan tombol Prin int Langkah yang harus dilakukan an adalah: Pada Form yang sama dengan pencarrian 1. 2. 3. 4. Ttempelkan Panel1, kemu udian visiblenya pilih False, Tempatkan Quickrep1 Tempatkan QRDBText daan QRLabel Design seperti diatas Masukan program berikut pad ada Tombol Print: Page 4 1. procedure TForm5cari.Bu i.Button1Click(Sender: TObject); 2. begin 3. quickrep1.Preview; 4. end; http://www.unikomcenter.com Page 5 Data yang dicari sudah ditampilkan dilayar, kemudian Click Tombol Print, mak aka akan ditampilkan hasil seperti berik erikut: http://www.unikomcenter.com Sekian. Selamat Mencoba, sam ampai jumpa lagi pada materi dan latihan lainnyya. Nb.nanti diteruskan lagi yah… ….. Taryana Suryana. M.Kom Teknik Informatika Universitas Komputer Indones esia taryanarx@yahoo.com Page 6 Materi ini dapat di download ad di http://nilaionline.unikom.ac.id http://www.unikomcenter.com