home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1996 December / CD_shareware_12-96.iso / WIN / Programa / OORDB.ZIP / OORDB.EXE / OORDB.DPR < prev    next >
Encoding:
Text File  |  1996-08-12  |  1.1 KB  |  41 lines
  1. program OORDB;
  2.  
  3. uses
  4.   Forms,
  5.   SysUtils,
  6.   Mapping in 'Mapping.pas',
  7.   DataMod in 'P:\Delphi2\Demos\DB\MASTAPP\Datamod.pas' {MastData: TDataModule},
  8.   Mastapp in 'Mastapp.pas';
  9.  
  10. {$R *.RES}
  11. var
  12.   c, c2 :TCustomer;
  13.   o :TOrder;
  14.   i, j, k,
  15.   Times :Integer;
  16. begin
  17.   try
  18.     Randomize;
  19.     for Times :=1 to 2 do begin
  20.        for k := 0 to MastMap.Customers.Count-1 do begin
  21.          i := Random(MastMap.Customers.Count);
  22.          c := MastMap.Customers[i];
  23.          WriteLn('Cust[',i,'] =  CustNo ', c.CustNo, ' #orders ', c.Orders.Count);
  24.          for j := 0 to c.Orders.Count-1 do begin
  25.            o := c.Orders[j];
  26.            Write('  Order[',j,'] = ', o.OrderNo);
  27.            if o.Customer = c then
  28.              Writeln(' fine.')
  29.            else begin
  30.              Write(' has customer ', c.Orders[j].Customer.CustNo);
  31.              Write(', inconsistent.');
  32.              c2 := TCustomer(MastMap.Customers.FindInCached(c.CustNo));
  33.              Writeln(' Cached is', IntToHex(Longint(c2), 8))
  34.            end
  35.          end
  36.        end
  37.     end;
  38.   except
  39.   end;
  40. end.
  41.