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
- Lazarus Release 2.0.12
- 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
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 6 months ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 6 months ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 7 months ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 7 months ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 7 months ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 7 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
- Please Help
by oktavianus783 in Hal umum tentang Pascal Indonesia more 11 years ago - Pilih Turbo Pascal/Delphi
by -BreWok- in OOT more 14 years ago - Membuat program Un Install ???
by purnomo2000 in Hal umum tentang Pascal Indonesia more 13 years ago - Disable Tombol Windows
by 3m8ooo in Hal umum tentang Pascal Indonesia more 12 years ago - Array???
by akudana in Hal umum tentang Pascal Indonesia more 11 years ago - Quick Report
by marvel in Reporting more 15 years ago - PE Cryptor
by doniking in Hal umum tentang Pascal Indonesia more 14 years ago - Convert karakter to chr?? Part II
by johnizzy in MsSQL more 12 years ago - Mau Tanya
by Kijokotopo in Hal umum tentang Pascal Indonesia more 13 years ago - Surat cinta untuk Bang @Admin
by saysansay in OOT more 13 years ago