Saya pernah lihat program yang di dbgridnya bisa di diklik di salah satu kolomnya kemudian membuka sebuah form untuk pemilihan isi dbgrid tersebut, lalu di kolom lainnya dapat diisi angka yang hasil kalinya langsung dapat dilihat dikolom berikutnya.., bagaimana triknya mas pakar2 delphi ? help me :roll:

pertanyaan masih membingungkan................. bisa diperjelas???

Mungkin yang anda maksud adalah Lookup Field dan CalcField ... Jika benar begitu, silahkan ulek di Objek Table atau Query

gini mbak/mas kofa, khan dalam dbgrid itu ada beberapa kolom yah ? misalkan kolom nama, alamat, pekerjaan... kemudian padasaat tampil saya mengklik kolom pekerjaan pada baris pertama, lalu saya klik bagian kolom itu pada baris 1 misalnya pada saat saya klik bisa memunculkan form dengan isi yang bisa dipilih untuk mengisi kolom pekerjaan pada baris tersebut.., gitu dong mas...

untuk mengambil niali cell pada cell dbgrid yang kita klik........gunakan syntax....... procedure TForm1.DBGrid1CellClick(Column: TColumn); begin caption := Table1; //untuk menampilkan ke edit pada form lain bs cara berikut formlain.edit1.text := Table1; end; untuk merubah isi cell (sesuai isi edit) dgn menggunakan button ... procedure Formlain.Button1Click(sender); begin Table1.Edit; Table1 := Edit1.Tetx; Table1.Post; end; S'moga bermanfaat

Weleh ... weleh .... kok ga nyambung jawabannya yach .... :lol:

Salam Kenal, procedure Tfrmporeceipt.gridporeceiptCellClick(Column: TColumn); var strno : String; begin

//kalau data set tidak aktiv maka tidak dapat di proses

if frmmaindata.datasetporeceipt.Active = False Then begin messagedlg('No Data Can Be Process ',mtinformation,[mbOk],0); exit; end else

//ketika cell di klik maka akan menampilkan dialog box untuk memasukan nilai

if frmporeceipt.txtdate.Enabled = True Then begin strno := InputBox('Insert Quantity Receipt', 'Quantity Receipt : ', ''); if strno <> '' Then begin frmmaindata.datasetporeceipt.Edit; frmmaindata.datasetporeceipt.FieldByName('qtyrec').AsString := strno ; frmmaindata.datasetporeceipt.UpdateRecord; frmmaindata.datasetporeceipt.Post; exit; end; end else strno := InputBox('Insert Quantity Receipt', 'Quantity Receipt : ', ''); if strno <> '' Then begin frmmaindata.datasetporeceipt.Edit; frmmaindata.datasetporeceipt.FieldByName('qtyrec').AsString := strno ; frmmaindata.datasetporeceipt.FieldByName('note').AsString := 'InTransit'; frmmaindata.datasetporeceipt.UpdateRecord; frmmaindata.datasetporeceipt.Post; exit; end; end; Semoga dapat membantu

buat aja onclik / ondblclick event di grid dengan isinya nampilkan form edit di onShow form edit nya, cek record yang aktif trus masukan nilai nya dalam editbox

maksudnya ginikah... ?? procedure TFCashier.DBGrid1EditButtonClick(Sender: TObject); var aComponent: TComponent; begin DM.QCariItem.Close; DM.QCariItem.SQL.Clear; DM.QCariItem.SQL.Add('select tbl_item.item_id, tbl_item.deskripsi, TBL_ITEM.QTY_TERSEDIA AS JUMLAH ' +'from tbl_item order by deskripsi'); DM.QCariItem.Open; if DBGrid1.SelectedField = DM.TableKasirDetailBARANG then begin screen.cursor := crHourglass; aComponent := Application.FindComponent('fCariItem'); if not Assigned (aComponent) then fCariItem := TfCariItem.Create(Application); fCariItem.ItemID := DM.TableKasirDetailITEM_ID.Value; screen.cursor := crDefault; if fCariItem.ShowModal = mrOk then begin DM.TableKasirDetail.Edit; DM.TableKasirDetailITEM_ID.Value := fCariItem.ItemID; end; end; end;[/pas]

ok deh akan dicoba mas, tapi kalo saya liat mungkin seperti mas kaka katakan lookup field dan calculated field, tapi akan saya coba semuanya deh, :D thx