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

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

Delphi控件源码

开发平台：

Delphi

ClassesForm.pas：源码内容
  1. unit ClassesForm;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Grids, DBGrids, Db, ClassesData, StdCtrls, ComCtrls, DBCtrls, ExtCtrls;
  9. type
  10.   TFormClasses = class(TForm)
  11.     dsClassReg: TDataSource;
  12.     dsClasses: TDataSource;
  13.     Tab: TTabControl;
  14.     DBGridClasses: TDBGrid;
  15.     DBGridPeopleReg: TDBGrid;
  16.     dsPeopleReg: TDataSource;
  17.     Splitter1: TSplitter;
  18.     Panel1: TPanel;
  19.     DBGridClassReg: TDBGrid;
  20.     MemoNote: TDBMemo;
  21.     Splitter2: TSplitter;
  22.     Splitter3: TSplitter;
  23.     procedure FormCreate(Sender: TObject);
  24.     procedure TabChange(Sender: TObject);
  25.     procedure DBGridClassRegEditButtonClick(Sender: TObject);
  26.     procedure DBGridPeopleRegEditButtonClick(Sender: TObject);
  27.     procedure FormDestroy(Sender: TObject);
  28.   private
  29.     dm: TDmClasses;
  30.     SqlCommands: TStringList;
  31.   public
  32.     { Public declarations }
  33.   end;
  35. var
  36.   FormClasses: TFormClasses;
  38. implementation
  40. uses
  41.   CompaniesForm;
  43. {$R *.DFM}
  45. procedure TFormClasses.FormCreate(Sender: TObject);
  46. begin
  47.   dm := TDmClasses.Create (self);
  48.   // connect the datasets to the datasources
  49.   dsClasses.Dataset := dm.IBClasses;
  50.   dsClassReg.DataSet := dm.IBClassReg;
  51.   dsPeopleReg.DataSet := dm.IBPeopleReg;
  52.   // open the datasets
  53.   dm.IBClasses.Active := True;
  54.   dm.IBClassReg.Active := True;
  55.   dm.IBPeopleReg.Active := True;
  57.   // prepare the SQL for the three tabs
  58.   SqlCommands := TStringList.Create;
  59.   SqlCommands.Add (' where Starts_On > ''NOW''');
  60.   SqlCommands.Add (' where Starts_On <= ''NOW'' and ' +
  61.     ' extract (year from Starts_On) >= extract(year from current_timestamp)');
  62.   SqlCommands.Add (' where Extract (YEAR from Starts_On) < ' +
  63.     ' Extract(YEAR from current_timestamp)');
  64. end;
  66. procedure TFormClasses.TabChange(Sender: TObject);
  67. begin
  68.   dm.IBClasses.Active := False;
  69.   dm.IBClasses.SelectSQL [1] :=
  70.     SqlCommands [Tab.TabIndex];
  71.   dm.IBClasses.Active := True;
  72. end;
  74. procedure TFormClasses.DBGridClassRegEditButtonClick(Sender: TObject);
  75. var
  76.   CompanyName: string;
  77.   CompanyId: Integer;
  78. begin
  79.   CompanyId := dm.IBClassReg.FieldByName ('id_Company').AsInteger;
  80.   if TFormCompanies.SelectCompany (CompanyName, CompanyId) then
  81.   begin
  82.     dm.IBClassReg.Edit;
  83.     dm.IBClassReg.FieldByName (
  84.       'Name').AsString := CompanyName;
  85.     dm.IBClassReg.FieldByName (
  86.       'id_Company').AsInteger := CompanyId;
  87.   end;
  88. end;
  90. procedure TFormClasses.DBGridPeopleRegEditButtonClick(Sender: TObject);
  91. var
  92.   PersonName: string;
  93.   CompanyId, PersonId: Integer;
  94. begin
  95.   PersonId := 0;
  96.   CompanyId := dm.IBClassReg.FieldByName ('id_Company').AsInteger;
  97.   if not dm.IBPeopleReg.FieldByName ('id_Person').IsNull then
  98.     PersonId := dm.IBPeopleReg.FieldByName ('id_Person').AsInteger;
  99.   if TFormCompanies.SelectPerson (CompanyId, PersonId, PersonName) then
  100.   begin
  101.     if not (dm.IBPeopleReg.State in dsEditModes) then
  102.       dm.IBPeopleReg.Edit;
  103.     dm.IBPeopleReg.FieldByName (
  104.       'Name').AsString := PersonName;
  105.     dm.IBPeopleReg.FieldByName (
  106.       'ID_Person').AsInteger := PersonId;
  107.   end;
  108. end;
  110. procedure TFormClasses.FormDestroy(Sender: TObject);
  111. begin
  112.   SqlCommands.Free;
  113. end;
  115. end.