Arsip: masalah look up dbgrid

 
user image
more 16 years ago

vera

mas2 gmana caranya yah, aku ad aplikasi dengan penginputn memakai grid dmana untukmengisi grid tsb ak memakai 1 form popup untuk menampilkan daftar kamar,pda saat record di grid msih kosong kemudian disikan 1 record tidak msalah,caman apabila input record ke dua dengan cara memanggil form pup up tsb, record di grid kembali ke posisi kursor pertama dan record menjadi 1 . di form popup nya aku ksih kode
 with DM.qry_popup2 do
      begin
        filter := '';
              Filter :=
                ' (roomlist.isstatus <> 1) ';
              DMTransaksi.qry_transdetail1.DisableControls;
              try
                DMTransaksi.qry_transdetail1.first;
                while not (DMTransaksi.qry_transdetail1.eof) do
                begin
                  Filter := '  roomlist.noindex <>' + IntToStr(DMTransaksi.qry_transdetail1ROOM.Value) +'';
                end;
              finally
                DMTransaksi.qry_transdetail1.EnableControls;
              end; 
            end;
          if Filtered = false then Filtered := true;
end;
user image
more 16 years ago

vera

dan pada saat klik ok di form popup nya untuk menambah data kamar aku pakai

DMTransaksi.qry_transdetail1ROOM.Value := DM.qry_popup2.fieldbyname('noindex').asinteger;
user image
more 16 years ago

ichan29

Filter := '  roomlist.noindex <>' + IntToStr(DMTransaksi.qry_transdetail1ROOM.Value) +'';
coba cek filter yg dibuat, itu muncul sesuai dg filter itu, sementara nilai yg diambil:
DMTransaksi.qry_transdetail1ROOM.Value := DM.qry_popup2.fieldbyname('noindex').asinteger;
user image
more 16 years ago

vera

mksudny gman mas yah? solnya ku bkin antara dataset yg d di input grid dengan form popup itu beda,dan data2 yg ada di grid msih belum ter commit
user image
more 16 years ago

ichan29

@vera, beda jg ngga masalah, misal anggap yg diGrid itu dataset utk table1, lalu popup ngambil dr Table2, maka ketika mengambil popup utk grid mungkin bs spt ini, diform popupnya km buat function Pilih_Nomor:
function TfmPopup.Pilih_Nomor: boolean;
begin
  tQuery.SQL.text:= 'Select noindex from table2 where kondisimu ';
  TQuery.open;
  if showmodal then
     result:= true
  else result:= false;
end;
lalu diambilnya di grid:
if fmPopup.Pilih_nomor then 
begin
  table1.edit;
  table1room1.value:= fmPopup.tQuery.fieldbyname('noindex').value;
end;
nah, itu masih status mash blum commit utk yg digrid, tinggal mau cara menampilkannya utk hasil spt apa..
user image
more 16 years ago

vera

msih ga bsa mas, dri analisa ku tiap kali record di form grid transaksi > 0 dan pada saat filter di form popup dan dataset di frmpopup itu filter ke record yg ada di form grid transaksi, maka posisi record sellu kembali ke record pertama [/code]
more ...
  • Pages:
  • 1
Share to

AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now: https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com