home *** CD-ROM | disk | FTP | other *** search
- unit Unit2;
-
- interface
-
- uses
- DataSorc, SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
- Forms, Dialogs, StdCtrls, Mask, DBCtrls, DB, DBTables, ExtCtrls, Wwdatsrc;
-
- type
- TForm2 = class(TForm)
- DBEdit1: TDBEdit;
- Label1: TLabel;
- Panel3: TPanel;
- DBNavigator1: TDBNavigator;
- Animals: TDataSorcerer;
- procedure SorcererLinked(Sender: TObject);
- procedure FormDestroy(Sender: TObject);
- private
- procedure DemoError(DS: TDataSorcerer; ErrCode: integer);
- { Private declarations }
- public
- { Public declarations }
- end;
-
- var
- Form2: TForm2;
-
- implementation
-
- uses
- DBiErrs, Unit5;
-
- {$R *.DFM}
-
- procedure TForm2.DemoError(DS: TDataSorcerer; ErrCode: integer);
- begin
- Form5.ListBox1.Clear;
- Form5.ListBox1.Font.Name := 'FixedSys';
- Form5.ListBox1.Items.Add(Format('Error Code : %d', [ErrCode]));
- Form5.ListBox1.Items.Add(Format('Error Message : %s', [DS.EMessage]));
- Form5.ListBox1.Items.Add(Format('Table Name : %s', [DS.ETableName]));
- Form5.ListBox1.Items.Add(Format('Field Name : %s', [DS.EFieldName]));
- Form5.ListBox1.Items.Add(Format('Field Display Name : %s', [DS.EFieldDisplayName]));
- Form5.ListBox1.Items.Add(Format('Field Number : %d', [DS.EFieldNo]));
- Form5.ListBox1.Items.Add(Format('Field Min Value : %s', [DS.EFieldMinValue]));
- Form5.ListBox1.Items.Add(Format('Field Max Value : %s', [DS.EFieldMaxValue]));
- Form5.ListBox1.Items.Add(Format('Field Default Value : %s', [DS.EFieldDefValue]));
- if DS.EFieldRequired then
- Form5.ListBox1.Items.Add('Required : Yes')
- else
- Form5.ListBox1.Items.Add('Required : No');
- Form5.ListBox1.Items.Add(Format('Token : %s', [DS.EToken]));
- Form5.ListBox1.Items.Add(Format('Image Row : %s', [DS.EImageRow]));
- Form5.ListBox1.Items.Add(Format('User Name : %s', [DS.EUserName]));
- Form5.ListBox1.Items.Add(Format('File Name : %s', [DS.EFileName]));
- Form5.ListBox1.Items.Add(Format('Index Name : %s', [DS.EIndexName]));
- Form5.ListBox1.Items.Add(Format('Directory Name : %s', [DS.EDirName]));
- Form5.ListBox1.Items.Add(Format('Key Name : %s', [DS.EKeyName]));
- Form5.ListBox1.Items.Add(Format('Alias : %s', [DS.EAlias]));
- Form5.ListBox1.Items.Add(Format('Drive Name : %s', [DS.EDriveName]));
- Form5.ListBox1.Items.Add(Format('Native Code : %s', [DS.ENativeCode]));
- Form5.ListBox1.Items.Add(Format('Native Message : %s', [DS.ENativeMsg]));
- Form5.ListBox1.Items.Add(Format('Line Number : %s', [DS.ELineNumber]));
- Form5.ListBox1.Items.Add(Format('Capability : %s', [DS.ECapability]));
- {$IFDEF WIN32}
- Form5.ListBox1.Items.Add(Format('Client Data Repository: %s', [DS.ECDRName]));
- Form5.ListBox1.Items.Add(Format('User Error Message : %s', [DS.EUserErrMsg]));
- Form5.ListBox1.Items.Add(Format('Internal Limit : %s', [DS.EInternalLimit]));
- {$ENDIF}
- Form5.Show;
- end;
-
- procedure TForm2.SorcererLinked(Sender: TObject);
- begin
- Animals.AddTrap(DBIERR_KEYVIOL, DemoError);
- Animals.AddTrap(DBIERR_MINVALERR, DemoError);
- Animals.AddTrap(DBIERR_MAXVALERR, DemoError);
- Animals.AddTrap(DBIERR_REQDERR, DemoError);
- end;
-
- procedure TForm2.FormDestroy(Sender: TObject);
- begin
- Animals.RemoveTrap(DBIERR_KEYVIOL);
- Animals.RemoveTrap(DBIERR_MINVALERR);
- Animals.RemoveTrap(DBIERR_MAXVALERR);
- Animals.RemoveTrap(DBIERR_REQDERR);
- end;
-
- end.
-