Arsip: [tanya] delete data di dbgrid

 
user image
more 8 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 :?:
user image
more 8 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
user image
more 8 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;
user image
more 8 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
Share to
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com