Interface

uses

SysUtils, Classes, DB, DBTables;

type

TDataModule8 = class(TDataModule)

DataSource1: TDataSource;

kurs1: TTable;

DataSource2: TDataSource;

kurs1ad: TTable;

DataSource3: TDataSource;

kurs1g: TTable;

DataSource4: TDataSource;

kurs1p: TTable;

kurs1sp: TTable;

DataSource5: TDataSource;

DataSource6: TDataSource;

kurs1e: TTable;

DataSource7: TDataSource;

DataSource8: TDataSource;

DataSource9: TDataSource;

DataSource10: TDataSource;

DataSource11: TDataSource;

DataSource12: TDataSource;

ПРИЛОЖЕНИЕ 6(Продолжение)

kurs2a: TTable;

kurs2ad: TTable;

kurs2g: TTable;

kurs2p: TTable;

kurs2sp: TTable;

kurs2e: TTable;

DataSource13: TDataSource;

DataSource14: TDataSource;

DataSource15: TDataSource;

DataSource16: TDataSource;

DataSource17: TDataSource;

DataSource18: TDataSource;

kurs3a: TTable;

kurs3ad: TTable;

kurs3g: TTable;

kurs3p: TTable;

kurs3sp: TTable;

kurs3e: TTable;

DataSource19: TDataSource;

DataSource20: TDataSource;

DataSource21: TDataSource;

DataSource22: TDataSource;

DataSource23: TDataSource;

DataSource24: TDataSource;

kurs4a: TTable;

kurs4ad: TTable;

kurs4g: TTable;

kurs4p: TTable;

kurs4sp: TTable;

kurs4e: TTable;

DataSource25: TDataSource;

kurs5sp: TTable;

private

{ Private declarations }

public

{ Public declarations }

end;

var

DataModule8: TDataModule8;

implementation

{$R *.dfm}

end.

unit Unit9; \\ отображение списка студентов и оценок

interface

uses

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

Dialogs, Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls, Buttons, jpeg;

type

TForm9 = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

BitBtn1: TBitBtn;

Image1: TImage;

ПРИЛОЖЕНИЕ 6(Продолжение)

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form9: TForm9;

implementation

uses Unit8;

{$R *.dfm}

procedure TForm9.BitBtn1Click(Sender: TObject); \\ закрытие формы

begin

Form9.Close;

end;

end.

unit Unit11; \\ отображение информации о создателях и о функционировании программы

interface

uses

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

Dialogs, StdCtrls, Buttons;

type

TForm11 = class(TForm)

Label1: TLabel;

BitBtn2: TBitBtn;

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form11: TForm11;

implementation

uses Unit10;

{$R *.dfm}

procedure TForm11.BitBtn2Click(Sender: TObject); \\ возвращение на главную форму

begin

Form10.visible:=true;

Form11.Visible:=false;

end;

end.

ПРИЛОЖЕНИЕ 6(Продолжение)

unit Unit12; \\Поиск

interface

uses

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

Dialogs, StdCtrls, Buttons, DB, DBTables, Grids, DBGrids, DBCtrls,

ExtCtrls, jpeg;

type

TForm12 = class(TForm)

Query1: TQuery;

BitBtn1: TBitBtn;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

BitBtn2: TBitBtn;

GroupBox1: TGroupBox;

Button6: TButton;

Button7: TButton;

Button8: TButton;

Button9: TButton;

GroupBox2: TGroupBox;

CheckBox1: TCheckBox;

CheckBox2: TCheckBox;

CheckBox3: TCheckBox;

CheckBox4: TCheckBox;

CheckBox5: TCheckBox;

CheckBox6: TCheckBox;

CheckBox7: TCheckBox;

CheckBox8: TCheckBox;

CheckBox9: TCheckBox;

CheckBox10: TCheckBox;

CheckBox11: TCheckBox;

CheckBox12: TCheckBox;

BitBtn3: TBitBtn;

Memo1: TMemo;

CheckBox13: TCheckBox;

BitBtn4: TBitBtn;