开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
DBErrFo.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：3k
源码类别：

Delphi控件源码

开发平台：

Delphi

DBErrFo.pas：源码内容
  1. unit DBErrFo;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Grids, DBGrids, DB, DBTables, StdCtrls, AppEvnts;
  9. type
  10.   TForm1 = class(TForm)
  11.     Memo1: TMemo;
  12.     Label1: TLabel;
  13.     Table1: TTable;
  14.     DataSource1: TDataSource;
  15.     DBGrid1: TDBGrid;
  16.     Button1: TButton;
  17.     Button2: TButton;
  18.     Button3: TButton;
  19.     Button4: TButton;
  20.     Query1: TQuery;
  21.     ApplicationEvents1: TApplicationEvents;
  22.     procedure Button1Click(Sender: TObject);
  23.     procedure Button2Click(Sender: TObject);
  24.     procedure Button3Click(Sender: TObject);
  25.     procedure Button4Click(Sender: TObject);
  26.     procedure Table1DeleteError(DataSet: TDataSet; E: EDatabaseError;
  27.       var Action: TDataAction);
  28.     procedure Table1EditError(DataSet: TDataSet; E: EDatabaseError;
  29.       var Action: TDataAction);
  30.     procedure Table1PostError(DataSet: TDataSet; E: EDatabaseError;
  31.       var Action: TDataAction);
  32.     procedure ApplicationEvents1Exception(Sender: TObject; E: Exception);
  33.   private
  34.     { Private declarations }
  35.   public
  36.     procedure ShowError (E: EDBEngineError);
  37.   end;
  39. var
  40.   Form1: TForm1;
  42. implementation
  44. {$R *.DFM}
  46. procedure TForm1.ShowError(E: EDBEngineError);
  47. var
  48.   I: Integer;
  49. begin
  50.   Memo1.Lines.Add('');
  51.   Memo1.Lines.Add('Error: ' + (E.Message));
  52.   Memo1.Lines.Add('Number of errors: ' +
  53.     IntToStr(E.ErrorCount));
  54.   // iterate through the Errors
  55.   for I := 0 to E.ErrorCount - 1 do
  56.   begin
  57.     Memo1.Lines.Add('Message: ' +
  58.       E.Errors[I].Message);
  59.     Memo1.Lines.Add('   Category: ' +
  60.       IntToStr(E.Errors[I].Category));
  61.      Memo1.Lines.Add('   Error Code: ' +
  62.       IntToStr(E.Errors[I].ErrorCode));
  63.     Memo1.Lines.Add('   SubCode: ' +
  64.       IntToStr(E.Errors[I].SubCode));
  65.     Memo1.Lines.Add('   Native Error: ' +
  66.       IntToStr(E.Errors[I].NativeError));
  67.     Memo1.Lines.Add('');
  68.   end;
  69. end;
  72. procedure TForm1.Button1Click(Sender: TObject);
  73. begin
  74.   Table1.FieldByName ('Name').Value := 'something';
  75. end;
  77. procedure TForm1.Button2Click(Sender: TObject);
  78. var
  79.   S: String;
  80. begin
  81.   s := Table1.FieldByName ('Name').Value;
  82.   Table1.Insert;
  83.   Table1.FieldByName ('Name').Value := s;
  84.   Table1.Post;
  85. end;
  87. procedure TForm1.Button3Click(Sender: TObject);
  88. begin
  89.   Query1.SQL.Clear;
  90.   Query1.SQL.Add (
  91.     'select * from Countries where Population > 100000');
  92.   Query1.Open;
  93. end;
  95. procedure TForm1.Button4Click(Sender: TObject);
  96. begin
  97.   Query1.SQL.Clear;
  98.   Query1.SQL.Add (
  99.     'select * from Country where Populations > 100000');
  100.   Query1.Open;
  101. end;
  103. procedure TForm1.Table1DeleteError(DataSet: TDataSet; E: EDatabaseError;
  104.   var Action: TDataAction);
  105. begin
  106.   Memo1.Lines.Add (' -> Delete Error: ' + E.Message);
  107. end;
  109. procedure TForm1.Table1EditError(DataSet: TDataSet; E: EDatabaseError;
  110.   var Action: TDataAction);
  111. begin
  112.   Memo1.Lines.Add (' -> Edit Error: ' + E.Message);
  113. end;
  115. procedure TForm1.Table1PostError(DataSet: TDataSet; E: EDatabaseError;
  116.   var Action: TDataAction);
  117. begin
  118.   Memo1.Lines.Add (' -> Post Error: ' + E.Message);
  119. end;
  121. procedure TForm1.ApplicationEvents1Exception(Sender: TObject;
  122.   E: Exception);
  123. begin
  124.   Beep;
  125.   if E is EDBEngineError then
  126.     ShowError (EDBEngineError (E))
  127.   else
  128.     ShowMessage (E.Message);
  129. end;
  131. end.