Filter data dengan Delphi7

if ADOTable1.Locate(ComboBox1.Text, Edit1.Text, [lopartialkey])=true then ShowMessage('data yang anda cari ditemukan')
else
ShowMessage('Maaf data tidak ada')
// kalo binggung tanya sama yang tahu


keterangan. syarat harus ada ComboBox, dan edit
filter data hampir mirip dengan cari data, untuk syntax cari data silahkan lihat di sini

Read More...

Cari data dengan delphi 7

ADOQuery1.SQL.Clear;
if RadioGroup1.ItemIndex=0 then
      ADOQuery1.SQL.Text:='select * from namaTable where namaField LIKE"'+Edit1.Text +'%"'else
        ADOQuery1.SQL.Text:='select * from namaTable where namaField2 LIKE"'+Edit1.Text +'%"';
  ADOQuery1.Open;
//kalo binggung tanya sama yang tahu. jangan malu-malu


syaratnya: harus ada 2 buah edit dan 1 buat RadioGroup

Read More...

Contoh Laporan Hasil Kejuaraan

Persaudaraan Kempo Indonesia (PERKEMI) cabang Sekadau mengirim 11 atlet, 9 orang atlet dari Dojo SMK Keling Kumang dan 2 Orang dari Dojo Balai Sepuak untuk mengikuti kejuaraan pra porprov Kalimantan Barat yang digelar 17-19 November lalu. Pertandingan tersebut diikuti oleh 10 kabupaten/kota se Kalimantan Barat. Miki Hermanto Selaku, Official dan Pelatih Kontingen Sekadau mengatakan, dari 11 atlet tersebut 7 diantaranya kategori remaja dan 4 merupakan kategori dewasa yang disertakan 2 Official Kontingen. “Untuk jenis pertandingan ada dua yaitu randori (Tarung Bebas) dan Embu (Kerapian Teknik). Untuk jenis Embu Kabupaten Sekadau tidak mengikutsertakan Atletnya pada jenis pertandingan tersebut,” ujarnya. Ia mengungkapkan, dalam pada kejuaraan tersebut Kabupaten sekadau dinobatkan sebagai juara umum 2, sementara juara 1 umum di raih oleh Kota Pontianak serta juara umum 3 di raih oleh Kabupaten Kubu Raya. Adapun perolehannya yaitu 3 emas: yaitu Randori Remaja Putri Kelas 45kg atas Nama Kristina Yeti, Randori Remaja Putra Kelas 60kg atas nama Samuel Efrata dan Randori Dewasa Putra kelas 55kg atas nama Albertus Krismantio serta 4 perak yaitu : Randori dewasa putri kelas 45kg atas nama agustina Klara, Randori Remaja Putri kelas 50kg atas nama Yohana Angela, Randori Dewasa putra kelas 50 kg atas nama Frewin serta kelas Randori Remaja Putra Kelas 60kg atas nama Mikael Agel dan 1 perunggu atas nama Ignasius Wira di Randori Remaja Kelas 45kg. kejuaraan tersebut untuk memperebutkan tiket porprov pada bulan September  2018 mendatang di Kabupaten Sintang. Miki Hermanto Selaku Pelatih Dojo SMK Keling Kumang merasa sangat senang atas prestasi yang diraih oleh anak didiknya karena 8 orang dari 9 yang dikirim berhasil dikalungkan medali semua para Juara Berasal dari Joko SMK Keling Kumang Sekadau. Ia mengatakan 1 orang yang tidak berhasi membawa medali itu atas nama Dominikus Doni karena pada saat babak penyisihkan berhadapan dengan rekan satu team dari sekadau yaitu dengan ignasius Wira. Pesan saya pada atlet saya yang menang jangan berpuas hati dan yang kalah jangan berkecil hati karna PORPROV sudah menanti,

Read More...

Tombol warna pada delphi

kali ini kita akan membuat tombol yang akan mengeksekusi warna, simulasinya begini, bila kita mengklik tombol button1 maka form1 akan berwarna merah.

perintahnya pada delphinya jadi begini

form1.color:=clred;

keteranga: tulisan yang di blok warna kuning bisa anda ganti sesuai dengan keingin kita. terima kasih
semoga bermanfaat

Read More...

Memeatikan Tombol Dengan Delphi

Asumsikan bahwa tombo atau button yang anda siapkan adalah button1. maka perintah untuk mematikan button1 adalah sebagai berikut.
klik 2x di form kerja kita lalu masukan syntak berikut ini

Form1.Enabled:=false;

lalu untuk mengaktikan kembali, balas denngan

Form1.Enabled:=true;

Terima kasih semoga bermanfaat. silahkan tinggalkan jejak anda di blog ini

Read More...