Delphi İki El Terminalinden Aynı anda Bağlanıp Kaydetme!!!

[Victorius]

Şimdi iki el terminalinden aynı sunucuya girip farklı ürünleri aynı anda kayıt edilirse aynı ürünmüş gibi sergiliyor bunun için kod gerekiyor yardımcı olursanız sevinirim şimdiden teşekkürler

[greenegitim]

Tablonuzda kayit id si gibi bir autoinc alan kullanabilirsiniz böylelikle excelden de yüklense id değeri hep farklı olacaktır ürünkodundan aynı ürün birdaha girilmeyecekse

Kod: Tümünü seç

qry_stok.Close;
    qry_stok.SQL.text:='';
    qry_stok.SQL.text:='select *  from stok where stokkodu='+quotedstr(edt_stokkodu.text) ;
    qry_stok.Open;
    qry_stok.FetchAll;

    if (qry_stok.RecordCount > 0)  then
     begin
      showmessage('Bu  stok kodu ile  ürün var Başka Bir Kod Kullanınız');
      edt_stokkodu.setfocus;
      abort;
     end;
      qry_stoklar.Post;