ejemplo de insert, drop, delete, update firebir + delphi

[darkbits]

Gracias Neftali por tu interes

tengo una aplicacion de venta de productos de PC

cuando realizo la venta de un producto en red de cualquier punto funciona OK
el problema es cuando realizo la venta del mismo producto en mas de 2 diferentes puntos las PC se quedan sin funcionar el sistema ( colgado del sistema) hasta presionar ctrl + alt+ sup y reiniciar y si vendo otro producto q no sea el mismo si funciona.

llege a la conclusion el sistema solo funciona para solo en 1 PC y no me funciona en red para varias PC

No puedo realizar la misma accion en mas de 2 o mas PC

ese es mi problem todos estan con firebird instalacion como servidor en windows XP y esta programado en XE2 con IBX

por ello busco ejemplos de programitas pequeños de (INSERT, DROP, DELETE, UPDATE,...) para ver como se hace y corregir.

Lo raro es que utilizo el mismo con db MYSQL y funciona de maravilla en una PC o en 3 o mas PC


este es el codigo donde se bloquea el sistema:

Código SQL [-]
   _DM.consulta1.SQL.Text:= 'select * From inalmacen Where id_inal='+idprod.text;
    _DM.consulta1.Open;
    _DM.consulta2.SQL.Text:= 'update INALMACEN set cantidad_inal=:auxcantidad_inal Where id_inal='+ idprod.text;
    _DM.consulta2.ParamByName('auxcantidad_inal').Value:=inttostr(strtoint(_DM.consulta1.FieldByName('ca  ntidad_inal').Value) - strtoint(cantidad.Text)) ;
    _DM.consulta2.ExecSQL; // ejecuo la consulta y  AQUI ES EL PROBLEMA SE QUEDA EN STOP CUANDO HAY MAS DE 2 PC
    _DM.consulta2.Close;

DATA Module dond esta la DB= _DM


gracias.