cxgrid enter ile setfocu

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
cvheneburi
Üye
Mesajlar: 95
Kayıt: 07 Eki 2010 03:55

cxgrid enter ile setfocu

Mesaj gönderen cvheneburi »

arkadaşlar merhaba edit içerisinden barcod okutarak kayıtları aşağıdaki kod ile veritabanından cxgride kayıtları aktarıyorum

Kod: Tümünü seç

if key=VK_RETURN then
begin

    dmodul.urunler.Close;
    dmodul.urunler.SQL.Clear;
    dmodul.urunler.SQL.Add('select * from urun where BARCOD='+QuotedStr(Edit2.Text));
    dmodul.urunler.Open;

  if dmodul.urunler.RecordCount=0 then
   begin
     Application.MessageBox('Urun Bulunamadı','HATA',mb_ok+MB_ICONERROR);
     Edit2.Text:='';
     Edit2.SetFocus;
     Exit;
   end;// ürün yoksa bitti
    cxGrid1.Invalidate(true);
    with cxGrid1TableView1.DataController do
      begin
        RecordCount:=RecordCount+1;
        //cxGrid1TableView1.Controller.FocusedRecordIndex:=RecordCount-1;
        FocusedRecordIndex:=RecordCount-1;
        //a:=cxGrid1TableView1.Controller.FocusedRecordIndex;

        Values[FocusedRecordIndex ,0] :=dmodul.urunlerBARCOD.AsString;
        Values[FocusedRecordIndex ,1] :=dmodul.urunlerURUNADI.AsString;
        Values[FocusedRecordIndex ,2] :=dmodul.urunlerTURU.AsString;
        Values[FocusedRecordIndex ,3] :=dmodul.urunlerCINSI.AsString;
        Values[FocusedRecordIndex ,4] :=dmodul.urunlerSATIS1.AsFloat;
        Values[FocusedRecordIndex ,5] :='1';
        if Label16.Caption<>'........' then
        Values[FocusedRecordIndex ,7] :=dmodul.musterilerISKONTO.AsFloat
        else
        Values[FocusedRecordIndex ,7] :='0';
        Values[FocusedRecordIndex ,10] :=dmodul.urunlerKDVORAN.AsString;
        cxGrid1TableView1.DataController.Post(true);
      end; // with data controller bitti
       cxGrid1TableView1.ApplyBestFit();
       Edit2.Text:='';
       Edit2.SetFocus;
       cxGrid1.Invalidate(true);
end; // entere bas bitti
ama cxgrid içerisinde örneğin 5. kolunda entere basınca edit i setfocus yaptırıyorum ama tekrar barcod okutunca da
FocusedRecordIndex:=RecordCount-1;

bu satırdan önce read of adres hatası veriyor devam deyince de kayıtları normal olarak grid e yerleştiriyor
hata neden kaynaklanıyor acaba
Kullanıcı avatarı
greenegitim
Üye
Mesajlar: 713
Kayıt: 28 Nis 2011 10:33
Konum: İstanbul

Re: cxgrid enter ile setfocu

Mesaj gönderen greenegitim »

cxgrid zaten bir datasete bağlı değilmi? bağlı ise bağlı bulunduğu datasete kayıt aktarınca cxgride de eklenir.
Mücadele güzelleştirir!
cvheneburi
Üye
Mesajlar: 95
Kayıt: 07 Eki 2010 03:55

Re: cxgrid enter ile setfocu

Mesaj gönderen cvheneburi »

database bağlı değil cxgriditableview olarak kullanıyorum
Cevapla