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

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

Delphi控件源码

开发平台：

Delphi

ClassesData.pas：源码内容
  1. unit ClassesData;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   IBCustomDataSet, IBDatabase, Db, IBQuery;
  9. type
  10.   TDmClasses = class(TDataModule)
  11.     IBTransaction1: TIBTransaction;
  12.     IBClassReg: TIBDataSet;
  13.     dsClasses: TDataSource;
  14.     IBClasses: TIBDataSet;
  15.     IBPeopleReg: TIBDataSet;
  16.     dsReg: TDataSource;
  17.     procedure IBClassRegAfterInsert(DataSet: TDataSet);
  18.     procedure IBPeopleRegAfterInsert(DataSet: TDataSet);
  19.   private
  20.     { Private declarations }
  21.   public
  22.     { Public declarations }
  23.   end;
  25. var
  26.   DmClasses: TDmClasses;
  28. implementation
  30. uses MainData;
  32. {$R *.DFM}
  34. procedure TDmClasses.IBClassRegAfterInsert(DataSet: TDataSet);
  35. begin
  36.   IBClassReg.FieldByName ('ID_CLASS').AsString :=
  37.     IBClasses.FieldByName ('ID').AsString;
  38. end;
  40. procedure TDmClasses.IBPeopleRegAfterInsert(DataSet: TDataSet);
  41. begin
  42.   IBPeopleReg.FieldByName ('ID_CLASSES_REG').AsString :=
  43.     IBClassReg.FieldByName ('ID').AsString;
  44. end;
  46. end.