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

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

Delphi控件源码

开发平台：

Delphi

CompaniesData.pas：源码内容
  1. unit CompaniesData;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Db, IBCustomDataSet, IBDatabase;
  9. type
  10.   TDmCompanies = class(TDataModule)
  11.     DataCompanies: TIBDataSet;
  12.     DataLocations: TIBDataSet;
  13.     DataPeople: TIBDataSet;
  14.     dsCompanies: TDataSource;
  15.     IBTransaction1: TIBTransaction;
  16.     DataLocationsID: TIntegerField;
  17.     DataLocationsID_COMPANY: TIntegerField;
  18.     DataLocationsADDRESS: TIBStringField;
  19.     DataLocationsFAX: TIBStringField;
  20.     DataLocationsPHONE: TIBStringField;
  21.     DataLocationsSTATE: TIBStringField;
  22.     DataLocationsTOWN: TIBStringField;
  23.     DataLocationsZIP: TIBStringField;
  24.     DataPeopleID: TIntegerField;
  25.     DataPeopleID_COMPANY: TIntegerField;
  26.     DataPeopleID_LOCATION: TIntegerField;
  27.     DataPeopleKEY_CONTACT: TIBStringField;
  28.     DataPeopleNAME: TIBStringField;
  29.     DataPeopleEMAIL: TIBStringField;
  30.     DataPeopleFAX: TIBStringField;
  31.     DataPeoplePHONE: TIBStringField;
  32.     DataCompaniesID: TIntegerField;
  33.     DataCompaniesNAME: TIBStringField;
  34.     DataCompaniesTAX_CODE: TIBStringField;
  35.     procedure DataLocationsAfterInsert(DataSet: TDataSet);
  36.     procedure DataPeopleAfterInsert(DataSet: TDataSet);
  37.   private
  38.     { Private declarations }
  39.   public
  40.     { Public declarations }
  41.   end;
  43. implementation
  45. uses
  46.   MainData;
  48. {$R *.DFM}
  50. procedure TDmCompanies.DataLocationsAfterInsert(DataSet: TDataSet);
  51. begin
  52.   // initialize the data of the detail record
  53.   // with a reference to the master record
  54.   DataLocationsID_COMPANY.AsInteger :=
  55.     DataCompaniesID.AsInteger;
  56. end;
  58. procedure TDmCompanies.DataPeopleAfterInsert(DataSet: TDataSet);
  59. begin
  60.   // initialize the data of the detail record
  61.   // with a reference to the master record
  62.   DataPeopleID_COMPANY.AsInteger :=
  63.     DataCompaniesID.AsInteger;
  64.   // the suggested location is the active one, if available
  65.   if not DataLocations.IsEmpty then
  66.     DataPeopleID_LOCATION.AsInteger :=
  67.       DataLocationsID.AsInteger;
  68.   // the first person added becomes the key contact
  69.   // (checks if the filtered dataset of people is empty)
  70.   DataPeopleKEY_CONTACT.AsBoolean := DataPeople.IsEmpty;
  71. end;
  73. end.