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

8.            Иллюстрированный самоучитель по Delphi 7 для начинающих

9.           Иллюстрированный самоучитель по Delphi 7 для профессионалов 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Приложение 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Form1 

unit Unit 1; 

interface 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, Grids, DBGrids, StdCtrls; 

Type

TForm1 = class(TForm)

 DBGridUTDBGrid;

MainMenu1: TMainMenu;

 N1: TMenuItem;

 N2: TMenuItem;

 N3: TMenuItem;

 N4: TMenuItem;

 N5: TMenuItem;

 N6: TMenuItem;

 N7: TMenuItem;

 N8: TMenuItem;

 N9: TMenuItem;

 N10: TMenuItem;

 N11: TMenuItem;

N12: TMenuItem;

N13: TMenuItem;

N14: TMenuItem;

N15: TMenuItem;

N16: TMenuItem;

N17: TMenuItem;

N18: TMenuItem;

N19: TMenuItem;

N20: TMenuItem;

N21: TMenuItem;

N22: TMenuItem;

N23: TMenuItem;

N24: TMenuItem;

Button1:TButton;

N25: TMenuItem;

N26: TMenuItem;

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure N13Click(Sender: TObject);

procedure N14Click(Sender: TObject);

procedure N19Click(Sender: TObject);

procedure N20Click(Sender: TObject);

procedure N21Click(Sender: TObject);

procedure N17Click(Sender: TObject);

procedure N18Click(Sender: TObject);

procedure N23Click(Sender: TObject);

procedure N24Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure N25Click(Sender: TObject);

procedure N26Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end; 

var

Forml: TForm1; 

implementation 

uses Unit2, Unit3, Unit4, Unit5; 

{$R *.dfm} 

procedure TForm1.N2Click(Sender: TObject);

begin

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

end; 

procedure TForm1.N3Click(Sender: TObject);

begin

   Close;

end; 

procedure TForm1.N5Click(Sender: TObject);

begin

   DataModule2.ADOTable1.Insert;

   Form3.ShowModal;

end; 

procedure TForml.N6Click(Sender: TObject);

begin

   Form3.ShowModal;

end; 

procedure TForm1.N7Click(Sender: TObject);

begin

   if application.MessageBox(PChar('Вы действительно хотите удалить запись'+ DataModule2.ADOTable1.DesignerData), 'Внимание!!!',MB_OKCANCEL)=id_OK

   then DataModule2.ADOTablel .Delete;

end; 

procedure TForml.N9Click(Sender: TObject);

begin

   DataModule2.ADOTable1.IndexFieldNames:='Фамилия';

   DataModule2.ADOTable2.IndexFieldNames:='Фамилия';

end; 

procedure TForml.N10Click(Sender: TObject);

begin

   DataModule2.ADOTable1.IndexFieldNames:= 'Гpyппa';

   DataModule2.ADOTable2.IndexFieldNames:= 'Гpyппa';

end; 

procedure TForml.N11Click(Sender: TObject);

begin

   DataModule2.ADOTable1.IndexFieldNames:=";

   DataModule2.ADOTable2.IndexFieldNames:=";

end; 

procedure TForml.N13Click(Sender: TObject);

begin

    Form4.Show;

end; 

procedure TForml.N14Click(Sender: TObject);

begin

   DataModule2.ADOTable1.Filtered:=false;

   DataModule2.ADOTable2.Filtered:=false;

end; 

procedure TForml.N19Click(Sender: TObject);

begin

   DataModule2.ADOTable1.Filtered:=true;

   DataModule2.ADOTable2.Filtered:=true;

   DataModule2.ADOTable1.Filter:='Cпopт="+'"_;

   DataModule2.ADOTable2.Filter:='Cпopт="+'";

end; 

procedure TForm1.N20Click(Sender: TObject);

begin

   DataModule2.ADOTable1.Filtered:=true;

   DataModule2.ADOTable2.Filtered:=true;

   DataModule2.ADOTable1.Filter:='KBH="+'";

   DataModule2.ADOTable2.Filter:='KBH="+'";

end; 

procedure TForml.N21Click(Sender: TObject);

begin

   DataModule2.ADOTable1.Filtered:=true;

   DataModule2.ADOTable2.Filtered:=true;

   DataModule2.ADOTable1.Filter:='Cтароста="+'";

   DataModule2.ADOTable2.Filter:='Староста="+'";

end;

procedure TForml.N17Click(Sender: TObject);

begin

   DataModule2.ADOTable1.Filtered:=true;

   DataModule2.ADOTable2.Filtered:=true;

   DataModule2.ADOTable1.Filter:='Cпopт="+" and KBH="+" and Староста="+'";

   DataModule2.ADOTable2.Filter:='Cпopт="+" and KBH="+" and Староста="+'";

end; 

procedure TForml.N18Click(Sender: TObject);

begin

   DataModule2.ADOTable1.Filtered:=true;

   DataModule2.ADOTable2.Filtered:=true;

   DataModule2.ADOTable1.Filter:='Cпopт="-" and KBH="-" and Староста="-'";

   DataModule2.ADOTable2.Filter:='Cпopт="-" and KBH="-" and Староста="-'";

end; 

procedure TForml.N23Click(Sender: TObject);

begin

   DBGrid1.DataSource:=datamodule2.DataSource2;

end; 

procedure TForm1.N24Click(Sender: TObject);

begin

   Form5.Show;

end; 

procedure TForm1.Button1Click(Sender: TObject);

begin

   Close;

end; 

procedure TForml.N25Click(Sender: TObject);

begin

   DataModule2.ADOTable1.Filtered:=false;

   DataModule2.ADOTable2.Filtered:=false;

end; 

procedure TForm1.N26Click(Sender: TObject);

begin

   DBGrid1.DataSource:=datamodule2.DataSource1;

end; 

end. 
 
 
 
 
 
 
 

DataModule2 

unit Unit2; 

interface 

uses

SysUtils, Messages, Classes, DB, ADODB; 

type

 TDataModule2 = class(TDataModule)

   ADOConnection1: TADOConnection;

   ADOTablel:TADOTable;

   DataSourcel: TDataSource;

   ADOTablelDSDesigner:   TAutoIncField;

   ADOTable1DSDesigner2: TWideStringField;

   ADOTable1DSDesigner3: TWideStringField;

   ADOTable1DSDesigner4: TDateTimeField;

   ADOTable1DSDesigner5: TWideStringField;

   ADOTable1DSDesigner6: TWideStringField;

   ADOTable1DSDesigner7: TWideStringField;

   ADOTable1DSDesigner8: TWideStringField;

   ADOTable1DSDesigner9: TWideStringField;

   ADOTable2: TADOTable;

   DataSource2: TDataSource;

   ADOTable2DSDesigner:   TWideStringField;

   ADOTable2DSDesigner2: TWideStringField;

   ADOTable2DSDesigner3: TDateTimeField;

   ADOTable2DSDesigner4: TWideStringField;

   ADOTable2DSDesigner5: TWideStringField;

   ADOTable2DSDesigner6: TWideStringField;

   ADOTable2DSDesigner7: TWideStringField;

   ADOTable2Summa: TFloatField;

   ADOTable2DSDesigner8: TAutoIncField;

   procedure ADOTable2CalcFields(DataSet: TDataSet);

   procedure ADOTable2AfterOpen(DataSet: TDataSet);

private

   { Private declarations }

public

   { Public declarations }

end; 

var

   DataModule2: TDataModule2; 

implementation 

uses Unit1, Unit3, Unit4; 

{$R *.dfm} 

procedure TDataModule2.ADOTable2CalcFields(DataSet: TDataSet);

var

  stip: Real;

const

  bazstip: Integer=500;

   profsous: Real= 0.01;

  begin

      //--Проверка на активиста

      if (ADOTable2DSDesigner4.Value='+') OR

         (ADOTable2DSDesigner5.Value='+')OR

         (ADOTable2DSDesigner6.Value='+')then

  begin

     //--Студент точно активист,

    //--проверка на старосту.

     if (ADOTable2DSDesigner6.Value='+') AND

        ((ADOTable2DSDesigner4.Value='+') OR (ADOTable2DSDesigner5.Value='+')) then

    begin

    //--Студент староста,

     //--проверка занимается ли он еще и всем остальным

     if (ADOTable2DSDesigner4.Value='+') AND

        (ADOTable2DSDesigner5.Value='+')then

       //--Студент староста и занимается еще 2 видами деятельности

       //стипендия базовая +300

       begin

   stip:=(bazstip+300)*(1-profsous);

   ADOTable2Summa.Value:=stip;

  end

else

   //--Студент староста, и занимается еще 1 видом деятельности

   //--стипендия базовая +200

   begin

     stip:=(bazstip+200)*(l-profsous);

     ADOTable2Summa.Value:=stip;

      end;

  end

else

  //--Студент активист, но не староста

  //--проверка на 2 вида деятельности

begin

  if (ADOTable2DSDesigner4.Value='+') AND

    (ADOTable2DSDesigner5.Value='+') then

     //--Студент занимается 2 видами деятельности

    //--стипендия базовая +150

   begin

     stip:= (bazstip+150)*(1-profsous);

     ADOTable2Summa.Value:=stip;

   end

else

  //--Студент занимается только 1 видом деятельности

  //--стипендия базовая +100

begin

  stip:=(bazstip+100)*(1-profsous);