Arsip: [tanya] delete data di dbgrid

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 :?:

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

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;

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
reply |
Report Obsolete
Last Articles
- Project Group dalam Lazarus
- FastPlaz Database Explorer
- Release: FastPlaz Super Mom v0.12.22
- PascalClass #3: Web Development with Free Pascal
- Makna Pascal di Pascal Indonesia
- Kulgram : Instalasi Lazarus di Perangkat Berbasis ARM
- PascalClass #1: Analisa Database dan Machine Learning
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
- Mengenal OXYGENE – Pascal For .NET
- PascalTalk #5: UX: Research, Design and Engineer
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 3 months ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 3 months ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 months ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 1 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 8 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 8 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 8 years ago
Random Topic
- [ask] gimana caranya: 1 Aplikasi hanya boleh running di 1 PC
by faisal801m in Tip n Trik Pemrograman more 10 years ago - jaket - update biaya pengiriman
by yayaretina in Tutorial & Community Project more 11 years ago - Cara Update DateTimePicker
by Irvin in Hal umum tentang Pascal Indonesia more 13 years ago - Selamat Idul Fitri 1429 H
by LuriDarmawan in Hal umum tentang Pascal Indonesia more 12 years ago - Tanya memasukan data ke Table dari String Grid?
by cyber2000 in Tip n Trik Pemrograman more 11 years ago - Install Zeos 6.6.1 ?
by umarbakri in Hal umum tentang Pascal Indonesia more 13 years ago - Install Komponen?????????????????????
by n3o_cybertech in Hal umum tentang Pascal Indonesia more 13 years ago - Masalah Pendistribusian Aplikasi
by jimbot in Hal umum tentang Pascal Indonesia more 13 years ago - Emulator untuk Windows Mobile?
by ZeAL in Hal umum tentang Pascal Indonesia more 14 years ago - Crystal Report pada Delphi 7
by shindo in Hal umum tentang Pascal Indonesia more 13 years ago