Учет общественной активности студентов академической группы

  ADOTable2Summa.Value:=stip;

           end;

       end;

  end

else

 begin

//--Студент не активист, базовая

    stip:= bazstip;

    ADOTable2Summa.Value:=stip;

  end; 
 

end; 

procedure TDataModule2.ADOTable2AfterOpen(DataSet: TDataSet);

begin

  ADOTable2.First;

end; 

end. 
 
 

Form3 

unit Unit3; 

interface 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, DBCtrls, StdCtrls, Mask; 

type

  TForm3 = class(TForm)

  Label1: TLabel;

  Label2: TLabel;

  Label3: TLabel;

  Label4: TLabel;

  Label5: TLabel;

  DBEditl: TDBEdit;

  DBEdit2: TDBEdit;

  DBEdit3: TDBEdit;

  DBEdit4: TDBEdit;

  DBEdit5: TDBEdit;

  DBEdit6: TDBEdit;

  DBEdit7: TDBEdit;

  DBEdit8: TDBEdit;

  Label6: TLabel;

  Label7: TLabel;

  Label8: TLabel;

  DBNavigator1: TDBNavigator;

  Buttonl: TButton;

Button2: TButton;

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

  { Private declarations }

public

  { Public declarations }

end; 

var

Form3: TForm3; 

implementation 

uses Unit1, Unit2; 

{$R *.dfm} 

procedure TForm3.Button2Click(Sender: TObject);

begin

  if DataModule2.ADOTablel .Modified then DataModule2.ADOTablel .Post;

end; 

procedure TForm3.Button1Click(Sender: TObject);

begin

  DataModule2.ADOTable1.Cancel;

end;

                                     

end. 
 

Form4 

unit Unit4; 

interface 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls; 

type

  TForm4 = class(TForm)

    Label 1: TLabel;

    Label2: TLabel;

    Edit1:TEdit;

    Edit2:TEdit;

    Button1: TButton;

   Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    Button5: TButton;

   procedure Button1Click(Sender: TObject);

   procedure Button2Click(Sender: TObject);

   procedure Button3Click(Sender: TObject);

   procedure Button5Click(Sender: TObject);

   procedure Button4Click(Sender: TObject);

private

  { Private declarations }

public

  { Public declarations }

end; 

var

Form4: TForm4; 

implementation 

uses Unit1, Unit2, Unit3; 

{$R*.dfm} 

procedure TForm4.ButtonlClick(Sender: TObject);

begin

   DataModule2.ADOTable1.Filtered:=true;

   DataModule2.ADOTable2.Filtered:=true;

   DataModule2.ADOTable1.Filter:='Фамилия='"+Edit1.Text+"";

   DataModme2.ADOTable2.Filter:='Фамилия='"+Edit1.Text+"";

end; 

procedure TForm4.Button2Click(Sender: TObject);

begin

   DataModule2.ADOTable1.Filtered:=true;

   DataModule2.ADOTable2.Filtered:=true;

   DataModule2.ADOTable1.Filter:= 'Группа='''+Edit2.Text+'''';

   DataModule2.ADOTable2.Filter:= 'Группа='''+Edit2.Text+''''_;

end; 

procedure TForm4.Button3Click(Sender: TObject);

begin

   DataModule2.ADOTable1.Filtered:=true;

   DataModule2.ADOTable2.Filtered:=true;

   DataModule2.ADOTable1.Filter:='Фамилия='"+Edit1.Text+'" or Группа='"+Edit2.Text+"";

   DataModule2.ADOTable2.Filter:='Фамилия='"+Edit1.Text+'" or Группа='"+Edit2.Text+"";

end; 

procedure TForm4.Button5Click(Sender: TObject);

begin

   DataModule2.ADOTable1.Filtered:=false;

   DataModule2.ADOTable2.Filtered:=false;

end; 

procedure TForm4.Button4Click(Sender: TObject);

begin 

  Form4.close;

end; 

end. 
 
 

Form5 

unit Unit5; 

interface 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ExtCtrls, StdCtrls, jpeg; 

type

TForm5 = class(TForm)

   Image 1: TImage;

   Label 1: TLabel;

private

   { Private declarations }

public

   { Public declarations }

end; 

var Form5: TForm5; 

implementation 

{$R *.dfm} 

end.