Membuat Perintah SELECT Dengan Delphi

Gambar Hasil Kompilasi
http://ubahsegalanya.blogspot.co.id

DELPHI, UBAHSEGALANYA.BLOGSPOT.CO.ID - Kompnen Query termasuk  Dataset klasik seperti komponen Table. Sebuah Query memerlukan printah printah SQL. Anda dapat mengatur  sebuah Query menggunakan properti SQL-nya, dan ini jauh lebih mudah daripada mengatur Table. Komponen Query mempunyai properti DatabaseName seperti kompone Table tetepi tidak mempunyai properti TableName. Tabel yang akan diakses ditentukan melalu perintah SQL yang dimasukan kedalam properti SQL. Sebagai contoh, anda dapat menulis Query (peryataan SQL) sederhana seperti berikut :

SELECT * FROM BARANG

Dimana barang adalah nama tabel dan tanda * (asterik) menunjukan bahwa anda ingin menggunakan semua Field (kolom) yang terdapat dalam Tabel barang tersebut. Contoh pembuatan aplikasi  Database menggunakan Query cukup mudah.aplikasi yang hanya menampilkan semua data dari Table barang dapat dibuat dengan langkah langkah berikut :

Kode Tombol Jalankan SQL

procedure TForm1.Button1Click(Sender: TObject);





var strsql : string;





begin





strsql :=Memo1.Lines.Text;





try





  ZQuery1.SQL.Clear;





  ZQuery1.SQL.Add(strsql);





  ZQuery1.Close;





  ZQuery1.Open;



Except


    ShowMessage('Terdapat kesalahan SQL');

end;
end;

Kode tombol buka file.

procedure TForm1.Button2Click(Sender: TObject);





begin





if OpenDialog1.Execute then





Memo1.Lines.LoadFromFile(OpenDialog1.FileName);





end;

Kode tmbol simpan file

procedure TForm1.Button3Click(Sender: TObject);





begin





if SaveDialog1.Execute then





Memo1.Lines.SaveToFile(SaveDialog1.FileName);






end;

Selamat Mencoba.

Membuat Perintah SELECT Dengan Delphi 2016-04-20T06:36:00-07:00 Rating: 4.5 Diposkan Oleh: Abu Masail