Interface

uses

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

Dialogs, StdCtrls, ExtCtrls, Buttons, jpeg;

type

TForm3 = class(TForm)

Panel1: TPanel;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

BitBtn1: TBitBtn;

Image1: tImage;

procedure Button5Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

Implementation

uses Unit1, Unit9, Unit8;

{$R *.dfm}

procedure TForm3.Button5Click(Sender: TObject);

begin

Form3.Close;

Form1.show;

Form1.visible:=true;

end;

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

procedure TForm3.Button1Click(Sender: TObject); \\ переименование предметов

begin

Form9.show;

Form9.DBGrid1.DataSource:=DataModule8.DataSource4;

DataModule8.kurs1p.active:=true;

Form9.DBNavigator1.DataSource:=DataModule8.DataSource4;

Form9.DBGrid1.Columns[1].Title.caption:='ФИО';

Form9.DBGrid1.Columns[2].Title.caption:='Русский';

Form9.DBGrid1.Columns[3].Title.caption:='Математика';

Form9.DBGrid1.Columns[4].Title.caption:='Литература';

Form9.DBGrid1.Columns[5].Title.caption:='Физика';

Form9.DBGrid1.Columns[6].Title.caption:='Химия';

Form9.DBGrid1.Columns[7].Title.caption:='ОБЖ';

Form9.DBGrid1.Columns[8].Title.caption:='Физкультура';

Form9.DBGrid1.Columns[9].Title.caption:='Введение в специальность';

Form9.DBGrid1.Columns[10].Title.caption:='История';

Form9.DBGrid1.Columns[11].Title.caption:='Обществознание';

Form9.DBGrid1.Columns[12].Title.caption:='Иностранный';

Form9.Caption:='Ведомость группы 1-1П';

end;

procedure TForm3.Button2Click(Sender: TObject); \\ переименование предметов

begin

Form9.show;

Form9.DBGrid1.DataSource:=DataModule8.DataSource10;

DataModule8.kurs2p.active:=true;

Form9.DBNavigator1.DataSource:=DataModule8.DataSource10;

Form9.DBGrid1.Columns[1].Title.caption:='ФИО';

Form9.DBGrid1.Columns[2].Title.caption:='Дискретная математика';

Form9.DBGrid1.Columns[3].Title.caption:='Праксиология';

Form9.DBGrid1.Columns[4].Title.caption:='Высшая математика';

Form9.DBGrid1.Columns[5].Title.caption:='Алгоритмизация';

Form9.DBGrid1.Columns[6].Title.caption:='Математическая статистика';

Form9.DBGrid1.Columns[7].Title.caption:='Архитектура ЭВМ';

Form9.DBGrid1.Columns[8].Title.caption:='Физкультура';

Form9.DBGrid1.Columns[9].Title.caption:='русский';

Form9.DBGrid1.Columns[10].Title.caption:='Иностранный';

Form9.Caption:='Ведомость группы 2-1П';

end;

procedure TForm3.Button3Click(Sender: TObject); \\ переименование предметов

begin

Form9.show;

Form9.DBGrid1.DataSource:=DataModule8.DataSource16;

DataModule8.kurs3p.active:=true;

Form9.DBNavigator1.DataSource:=DataModule8.DataSource16;

Form9.DBGrid1.Columns[1].Title.caption:='ФИО';

Form9.DBGrid1.Columns[2].Title.caption:='ТРПП';

Form9.DBGrid1.Columns[3].Title.caption:='Информационная Безопасность';

Form9.DBGrid1.Columns[4].Title.caption:='БЖ';

Form9.DBGrid1.Columns[5].Title.caption:='Право';

Form9.DBGrid1.Columns[6].Title.caption:='ПОПД';

Form9.DBGrid1.Columns[7].Title.caption:='Менеджмент';

Form9.DBGrid1.Columns[8].Title.caption:='Физкультура';

Form9.DBGrid1.Columns[9].Title.caption:='Иностранный';

Form9.DBGrid1.Columns[10].Title.caption:='База данных';

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

Form9.DBGrid1.Columns[11].Title.caption:='РУБД';

Form9.Caption:='Ведомость группы 3-1П';

end;

procedure TForm3.Button4Click(Sender: TObject); \\ переименование предметов

begin

Form9.show;

Form9.DBGrid1.DataSource:=DataModule8.DataSource22;

DataModule8.kurs4p.active:=true;

Form9.DBNavigator1.DataSource:=DataModule8.DataSource22;

Form9.DBGrid1.Columns[1].Title.caption:='ФИО';

Form9.DBGrid1.Columns[2].Title.caption:='Математические методы';

Form9.DBGrid1.Columns[3].Title.caption:='Основы построения АИС';

Form9.DBGrid1.Columns[4].Title.caption:='ПОКС';

Form9.DBGrid1.Columns[5].Title.caption:='ППП';

Form9.DBGrid1.Columns[6].Title.caption:='Компьютерная графика';

Form9.DBGrid1.Columns[7].Title.caption:='Сети';

Form9.DBGrid1.Columns[8].Title.caption:='Физкультура';

Form9.DBGrid1.Columns[9].Title.caption:='Иностранный';

Form9.Caption:='Ведомость группы 4-1П';

end;

procedure TForm3.BitBtn1Click(Sender: TObject); \\ назад на предыдущую форму

begin

Form3.Close;

Form1.show;

Form1.visible:=true;

end;

end.

unit Unit8; \\ Связываем таблицы с базой данных