Приложение и Листинг файла FormPrepodavatel

unit Unit7;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Mask;

type

TFormGryppa = class(TForm)

DBECode_gruppa: TDBEdit;

DBE_gruppa: TDBEdit;

Label1: TLabel;

Label2: TLabel;

Button1: TButton;

Button2: TButton;

Button3: TButton;

DBNavigator1: TDBNavigator;

DBGrid1: TDBGrid;

DBEdit1: TDBEdit;

Label3: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FormGryppa: TFormGryppa;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit1, Unit6;

{$R *.dfm}

procedure TFormGryppa.Button1Click(Sender: TObject);

begin

dm.ADO_ID_Grupp.Filter:='[Группы]='+QuotedStr(formGryppa.DBGrid1.Columns.Items[1].Field.Text);

dm.ADO_ID_Grupp.Filtered:= true;

end;

procedure TFormGryppa.Button2Click(Sender: TObject);

begin

dm.ADO_ID_Grupp.Filter:= '';

dm.ADO_ID_Grupp.Filtered:= false;

end;

procedure TFormGryppa.Button3Click(Sender: TObject);

begin

FormGryppa.Close;

end;

end.

Приложение к Листинг файла FormPredmet

unit Unit6;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Mask;

type

TFormPredmet = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DBE_Code_predmet: TDBEdit;

DBE_Predmet: TDBEdit;

Label1: TLabel;

Label2: TLabel;

Button1: TButton;

Button2: TButton;

Button3: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FormPredmet: TFormPredmet;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit1;

{$R *.dfm}

procedure TFormPredmet.Button1Click(Sender: TObject);

begin

dm.ADOPredmet.Filter:='[Предмет]='+QuotedStr(formPredmet.DBGrid1.Columns.Items[1].Field.Text);

dm.ADOPredmet.Filtered:= true;

end;

procedure TFormPredmet.Button2Click(Sender: TObject);

begin

dm.ADOPredmet.Filter:= '';

dm.ADOPredmet.Filtered:= false;

end;

procedure TFormPredmet.Button3Click(Sender: TObject);

begin

FormPredmet.Close;

end;

end.

Приложение л Листинг файла FormUspevaemost

unit Unit8;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Mask;

type

TFormUspevaemost = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Button3: TButton;

Button4: TButton;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DBE_Code_nomer: TDBEdit;

DBE_Data: TDBEdit;

DBE_Code_predmet: TDBEdit;

DBE_Ozenka: TDBEdit;

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FormUspevaemost: TFormUspevaemost;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit1, Unit6, Unit7, Unit9;

{$R *.dfm}

procedure TFormUspevaemost.Button3Click(Sender: TObject);

begin

FormUspevaemost.Close;

end;

procedure TFormUspevaemost.Button4Click(Sender: TObject);

begin

dm.ADOUspevaemost.Filter:='[Оценка]='+formUspevaemost.DBGrid1.Columns.Items[3].Field.Text;

dm.ADOUspevaemost.Filtered:= true;

end;

end.