home *** CD-ROM | disk | FTP | other *** search
/ CICA 1996 August / CICA2_0896.bin / disc2 / program / delphi / datasorc.exe / SAMPLE.ZIP / UNIT2.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-04-30  |  3.5 KB  |  90 lines

  1. unit Unit2;
  2.  
  3. interface
  4.  
  5. uses
  6.   DataSorc, SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, Mask, DBCtrls, DB, DBTables, ExtCtrls, Wwdatsrc;
  8.  
  9. type
  10.   TForm2 = class(TForm)
  11.     DBEdit1: TDBEdit;
  12.     Label1: TLabel;
  13.     Panel3: TPanel;
  14.     DBNavigator1: TDBNavigator;
  15.     Animals: TDataSorcerer;
  16.     procedure SorcererLinked(Sender: TObject);
  17.     procedure FormDestroy(Sender: TObject);
  18.   private
  19.     procedure DemoError(DS: TDataSorcerer; ErrCode: integer);
  20.     { Private declarations }
  21.   public
  22.     { Public declarations }
  23.   end;
  24.  
  25. var
  26.   Form2: TForm2;
  27.  
  28. implementation
  29.  
  30. uses
  31.     DBiErrs, Unit5;
  32.  
  33. {$R *.DFM}
  34.  
  35. procedure TForm2.DemoError(DS: TDataSorcerer; ErrCode: integer);
  36.     begin
  37.     Form5.ListBox1.Clear;
  38.     Form5.ListBox1.Font.Name := 'FixedSys';
  39.     Form5.ListBox1.Items.Add(Format('Error Code            : %d', [ErrCode]));
  40.     Form5.ListBox1.Items.Add(Format('Error Message         : %s', [DS.EMessage]));
  41.     Form5.ListBox1.Items.Add(Format('Table Name            : %s', [DS.ETableName]));
  42.     Form5.ListBox1.Items.Add(Format('Field Name            : %s', [DS.EFieldName]));
  43.     Form5.ListBox1.Items.Add(Format('Field Display Name    : %s', [DS.EFieldDisplayName]));
  44.     Form5.ListBox1.Items.Add(Format('Field Number          : %d', [DS.EFieldNo]));
  45.     Form5.ListBox1.Items.Add(Format('Field Min Value       : %s', [DS.EFieldMinValue]));
  46.     Form5.ListBox1.Items.Add(Format('Field Max Value       : %s', [DS.EFieldMaxValue]));
  47.     Form5.ListBox1.Items.Add(Format('Field Default Value   : %s', [DS.EFieldDefValue]));
  48.     if DS.EFieldRequired then
  49.         Form5.ListBox1.Items.Add('Required              : Yes')
  50.     else
  51.         Form5.ListBox1.Items.Add('Required              : No');
  52.     Form5.ListBox1.Items.Add(Format('Token                 : %s', [DS.EToken]));
  53.     Form5.ListBox1.Items.Add(Format('Image Row             : %s', [DS.EImageRow]));
  54.     Form5.ListBox1.Items.Add(Format('User Name             : %s', [DS.EUserName]));
  55.     Form5.ListBox1.Items.Add(Format('File Name             : %s', [DS.EFileName]));
  56.     Form5.ListBox1.Items.Add(Format('Index Name            : %s', [DS.EIndexName]));
  57.     Form5.ListBox1.Items.Add(Format('Directory Name        : %s', [DS.EDirName]));
  58.     Form5.ListBox1.Items.Add(Format('Key Name              : %s', [DS.EKeyName]));
  59.     Form5.ListBox1.Items.Add(Format('Alias                 : %s', [DS.EAlias]));
  60.     Form5.ListBox1.Items.Add(Format('Drive Name            : %s', [DS.EDriveName]));
  61.     Form5.ListBox1.Items.Add(Format('Native Code           : %s', [DS.ENativeCode]));
  62.     Form5.ListBox1.Items.Add(Format('Native Message        : %s', [DS.ENativeMsg]));
  63.     Form5.ListBox1.Items.Add(Format('Line Number           : %s', [DS.ELineNumber]));
  64.     Form5.ListBox1.Items.Add(Format('Capability            : %s', [DS.ECapability]));
  65. {$IFDEF WIN32}
  66.     Form5.ListBox1.Items.Add(Format('Client Data Repository: %s', [DS.ECDRName]));
  67.     Form5.ListBox1.Items.Add(Format('User Error Message    : %s', [DS.EUserErrMsg]));
  68.     Form5.ListBox1.Items.Add(Format('Internal Limit        : %s', [DS.EInternalLimit]));
  69. {$ENDIF}
  70.     Form5.Show;
  71.     end;
  72.  
  73. procedure TForm2.SorcererLinked(Sender: TObject);
  74.     begin
  75.     Animals.AddTrap(DBIERR_KEYVIOL, DemoError);
  76.     Animals.AddTrap(DBIERR_MINVALERR, DemoError);
  77.     Animals.AddTrap(DBIERR_MAXVALERR, DemoError);
  78.     Animals.AddTrap(DBIERR_REQDERR, DemoError);
  79.     end;
  80.  
  81. procedure TForm2.FormDestroy(Sender: TObject);
  82.     begin
  83.     Animals.RemoveTrap(DBIERR_KEYVIOL);
  84.     Animals.RemoveTrap(DBIERR_MINVALERR);
  85.     Animals.RemoveTrap(DBIERR_MAXVALERR);
  86.     Animals.RemoveTrap(DBIERR_REQDERR);
  87.     end;
  88.  
  89. end.
  90.