Arsip: [tanya] delete data di dbgrid

more 11 years ago
serif
mau nanya, gimana caranya menghubungkan dbgrid dengan component yang ada di form lain.
jadi ada 2 form, form yang satu untuk meletakkan dbgrid, dan form satunya lagi untuk menginputkan
jadi jika colum dbgrid diklik maka waktu tombol hapus diklik maka data kehapus sesuai colum yang diklik :?:

more 11 years ago
denmasdanang
@serif: mau nanya, gimana caranya menghubungkan dbgrid dengan component yang ada di form lain. jadi ada 2 form, form yang satu untuk meletakkan dbgrid, dan form satunya lagi untuk menginputkan jadi jika colum dbgrid diklik maka waktu tombol hapus diklik maka data kehapus sesuai colum yang diklik :?:apabila tombol hapus diklik melakukan penghapusan record di table ( DB ) maka tinggal lakukan refresh dbgrid pada form1 thx

more 11 years ago
cartrun
mksud km klik dbgrid trus klik button hapus gto bukan.? klau ia maaf nich aku kasih saran dikit memang bisa tapi km asumsikan klau datanya ratusan atau ribuan masa hrus di cari di dbgrid.? maaf mungkin ini saran saya z lebih baik untuk penghapusan data km menggunakan TEdit dengan melakukan pencarian data berdasarkan data yg dimasukan pada TEdit.
oh ia msalah yg mnghubungkan 2 form itu yach.
km tinggal tambahkan
table1.refresh;

more 11 years ago
nasbms
serif:
//Lakukan pencarian data menggunakan query1, datasource DBGrid dari Query1
procedure TForm1.editCariChange(Sender: TObject);
begin
with dm.Query1 do
begin
if editcari.Text <> '' then
begin
Close;
sql.Clear;
sql.Append('select * from tbl_karyawan');
sql.Append('where');
sql.Append('idKaryawan like :kunci');
ParamByName('kunci').AsString := '%'+editcari.Text+'%';
execSql;
close;
open;
//Tuk nampilin data ke form2:
procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
with dm.query1 do
begin
Form2.edit1.Text := FieldValues['idkaryawan'];
Form2.ShowModal;
//Tuk Delete data
procedure TForm2.btnHapusClick(Sender: TObject);
begin
with dm.query2 do
begin
close;
sql.Clear;
sql.Append('delete from tbl_karyawan');
sql.Append('where');
sql.Append(' idKaryawan = :idKaryawan');
ParamByName('idKaryawan').AsString := edit1.Text;
execSql;
dm.Query1.Close; //Query 1 merupakan sql query yg aktif ke tabel, close open disini sebagai refresh tabelnya.
dm.Query1.Open;
Smoga membantu dan maaf jika ada yg salah..
more ...
- Pages:
- 1
reply |
Report Obsolete
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 3 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 4 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 11 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 11 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 11 years ago
Random Topic
- komunikasi mikro
by willbrig in Enginering more 16 years ago - situs yang ada source code delphi tentang game sederhana
by gormet in Games more 16 years ago - Salam Kenal Unutk Semuanya
by armanefendi in Enginering more 17 years ago - Tanya tentang WebServer nih
by sugismail in Tip n Trik Pemrograman more 14 years ago - alias error
by comel in Hal umum tentang Pascal Indonesia more 15 years ago - Delphi Pemrograman OOP murni apa terstruktur
by khairulfahmi in Enginering more 16 years ago - Tanya Apakah...
by johnizzy in Hal umum tentang Pascal Indonesia more 15 years ago - Simpan File Gambar & Panggil Ke Form
by am4tiranDelphian in Tip n Trik Pemrograman more 15 years ago - Crystal Report pada Delphi 7
by shindo in Hal umum tentang Pascal Indonesia more 16 years ago - Bantuin aq master master memecahkan masalah ini
by fongers in OpenSource dan Gratis more 15 years ago