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

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

Delphi控件源码

开发平台：

Delphi

DbxSingleForm.pas：源码内容
  1. unit DbxSingleForm;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, DBXpress, Provider, SqlExpr, ToolWin, DBActns,
  8.   ActnList, ComCtrls, DB, DBClient, DBLocal, DBLocalS, ImgList, StdCtrls,
  9.   Grids, DBGrids, DBLocalB, ActnMan, ActnCtrls;
  11. type
  12.   TForm1 = class(TForm)
  13.     SQLConnection1: TSQLConnection;
  14.     SQLClientDataSet1: TSQLClientDataSet;
  15.     SQLMonitor1: TSQLMonitor;
  16.     PageControl1: TPageControl;
  17.     TabSheet1: TTabSheet;
  18.     TabSheet2: TTabSheet;
  19.     ActionToolBar2: TActionToolBar;
  20.     ImageList1: TImageList;
  21.     ActionManager1: TActionManager;
  22.     DataSetFirst1: TDataSetFirst;
  23.     DataSetPrior1: TDataSetPrior;
  24.     DataSetNext1: TDataSetNext;
  25.     DataSetLast1: TDataSetLast;
  26.     DataSetInsert1: TDataSetInsert;
  27.     DataSetDelete1: TDataSetDelete;
  28.     DataSetEdit1: TDataSetEdit;
  29.     DataSetPost1: TDataSetPost;
  30.     DataSetCancel1: TDataSetCancel;
  31.     DataSetRefresh1: TDataSetRefresh;
  32.     DBGrid1: TDBGrid;
  33.     Button1: TButton;
  34.     DataSource1: TDataSource;
  35.     MemoLog: TMemo;
  36.     procedure Button1Click(Sender: TObject);
  37.     procedure FormCreate(Sender: TObject);
  38.     procedure DoUpdate(DataSet: TDataSet);
  39.     procedure SQLMonitor1LogTrace(Sender: TObject; CBInfo: pSQLTRACEDesc);
  40.   private
  41.     { Private declarations }
  42.   public
  43.     { Public declarations }
  44.   end;
  46. var
  47.   Form1: TForm1;
  49. implementation
  51. {$R *.dfm}
  53. procedure TForm1.Button1Click(Sender: TObject);
  54. begin
  55.   MemoLog.Lines := SQLMonitor1.TraceList;
  56. end;
  58. procedure TForm1.FormCreate(Sender: TObject);
  59. begin
  60.   SQLMonitor1.Active := True;
  61.   SQLClientDataSet1.Open;
  62. end;
  64. procedure TForm1.DoUpdate(DataSet: TDataSet);
  65. begin
  66.   // immediately apply local changes to the database
  67.   SQLClientDataSet1.ApplyUpdates(0);
  68. end;
  70. procedure TForm1.SQLMonitor1LogTrace(Sender: TObject;
  71.   CBInfo: pSQLTRACEDesc);
  72. begin
  73.   MemoLog.Lines.Add (CBInfo.pszTrace);
  74. end;
  76. end.