Citat:
Riste Pejov:
Ali ako se radi o fakturama i sl, ja to ne bi radio na paradox-u. PDX sam ostavio davne 1998 jer je pucao kao lud sa vise od 300K slogova, a da ne govorim sta se moze desiti paradoxu kad nestane struju ili neko izcupa power cable. Sreca sto se radilo o nekim glupim podacima i da su ljudi cuvali bekap.
Moj PDX ima 3000 pacijenata (glavna tabla) 11000 izvestaja (detaljna tabla), 17000 i vise dijagnoza itd itd i sve radi vec dve godine kako treba. Jedino sto nisam koristio DBTable (delphi 6) nego MBTable. Problem je bio sto je DBTabla pamtila u memoriji do gasenja programa, a ako bi u tom trenutku racunar iz nekog razloga bio prisilno iskljucen knjizenja bi bila bespovratno izgubljena. MBTabla je upisivala stavarno u bazu: MBTable.Post;
Ova komponenta je izvedena:
unit MBTable;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, DBTables, dbiProcs;
type
TMBTable = class(TTable)
private
{ Private declarations }
protected
{ Protected declarations }
procedure DoAfterPost; override;
public
{ Public declarations }
published
{ Published declarations }
end;
procedure Register;
implementation
Procedure TMBTable.DoAfterPost;
begin
inherited DoAfterPost;
dbiSaveChanges(Self.Handle);
end;
procedure Register;
begin
RegisterComponents('CSA', [TMBTable]);
end;
end.
Gde se uopste postavlja polju da bude AutoNum???