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

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

Delphi控件源码

开发平台：

Delphi

DbxMultiForm.pas：源码内容
  1. unit DbxMultiForm;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, SqlExpr, DB, Grids, DBGrids, Provider, DBClient, StdCtrls,
  8.   DBLocal, DBLocalS, DBLocalB, DBTables, DBXpress, FMTBcd, ToolWin,
  9.   DBActns, ActnList, ImgList, ComCtrls, ActnMan, ActnCtrls;
  11. type
  12.   TForm1 = class(TForm)
  13.     SQLConnection1: TSQLConnection;
  14.     SQLDataSet1: TSQLDataSet;
  15.     ClientDataSet1: TClientDataSet;
  16.     DataSetProvider1: TDataSetProvider;
  17.     DataSource1: TDataSource;
  18.     ImageList1: TImageList;
  19.     ActionManager1: TActionManager;
  20.     DataSetFirst1: TDataSetFirst;
  21.     DataSetPrior1: TDataSetPrior;
  22.     DataSetNext1: TDataSetNext;
  23.     DataSetLast1: TDataSetLast;
  24.     DataSetInsert1: TDataSetInsert;
  25.     DataSetDelete1: TDataSetDelete;
  26.     DataSetEdit1: TDataSetEdit;
  27.     DataSetPost1: TDataSetPost;
  28.     DataSetCancel1: TDataSetCancel;
  29.     DataSetRefresh1: TDataSetRefresh;
  30.     ActionToolBar2: TActionToolBar;
  31.     SQLMonitor1: TSQLMonitor;
  32.     PageControl1: TPageControl;
  33.     TabSheet1: TTabSheet;
  34.     DBGrid1: TDBGrid;
  35.     TabSheet2: TTabSheet;
  36.     MemoLog: TMemo;
  37.     SQLDataSet1EMP_NO: TSmallintField;
  38.     SQLDataSet1FIRST_NAME: TStringField;
  39.     SQLDataSet1LAST_NAME: TStringField;
  40.     SQLDataSet1PHONE_EXT: TStringField;
  41.     SQLDataSet1HIRE_DATE: TSQLTimeStampField;
  42.     SQLDataSet1DEPT_NO: TStringField;
  43.     SQLDataSet1JOB_CODE: TStringField;
  44.     SQLDataSet1JOB_GRADE: TSmallintField;
  45.     SQLDataSet1JOB_COUNTRY: TStringField;
  46.     SQLDataSet1SALARY: TFMTBCDField;
  47.     SQLDataSet1FULL_NAME: TStringField;
  48.     procedure FormCreate(Sender: TObject);
  49.     procedure DoUpdate(DataSet: TDataSet);
  50.     procedure SQLMonitor1LogTrace(Sender: TObject; CBInfo: pSQLTRACEDesc);
  51.   private
  52.   protected
  53.     { Private declarations }
  55.   public
  56.     { Public declarations }
  57.   end;
  59. var
  60.   Form1: TForm1;
  62. implementation
  64. {$R *.DFM}
  66. procedure TForm1.FormCreate(Sender: TObject);
  67. begin
  68.   ClientDataSet1.Open;
  69. end;
  71. procedure TForm1.DoUpdate(DataSet: TDataSet);
  72. begin
  73.   ClientDataSet1.ApplyUpdates(0);
  74. end;
  76. procedure TForm1.SQLMonitor1LogTrace(Sender: TObject;
  77.   CBInfo: pSQLTRACEDesc);
  78. begin
  79.   MemoLog.Lines.Add (CBInfo.pszTrace);
  80. end;
  82. end.