Image1: tImage;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

procedure Button9Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure CheckBox13Click(Sender: TObject);

procedure CheckBox14Click(Sender: TObject);

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

procedure BitBtn4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form12: TForm12;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm12.BitBtn1Click(Sender: TObject); \\ Выполнение SQL Запроса

var z1:String;

begin

form12.Memo1.Text:='';

//1-1A

if form12.Button1.Enabled then

if form12.Button6.Enabled then

if form12.CheckBox1.Checked=true then

begin

form12.Memo1.Lines.Add(', Russki as Русский');

end;

if form12.Button1.Enabled then

if form12.Button6.Enabled then

if form12.CheckBox2.Checked=true then

begin

form12.Memo1.Lines.Add(', Matematika as Математика');

end;

if form12.Button1.Enabled then

if form12.Button6.Enabled then

if form12.CheckBox3.Checked=true then

begin

form12.Memo1.Lines.Add(', Literatura as Литература');

end;

if form12.Button1.Enabled then

if form12.Button6.Enabled then

if form12.CheckBox4.Checked=true then

begin

form12.Memo1.Lines.Add(', Fizika as Физика');

end;

if form12.Button1.Enabled then

if form12.Button6.Enabled then

if form12.CheckBox5.Checked=true then

begin

form12.Memo1.Lines.Add(', Himiy as Химия');

end;

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

if form12.Button1.Enabled then

if form12.Button6.Enabled then

if form12.CheckBox6.Checked=true then

begin

form12.Memo1.Lines.Add(', OBJ as ОБЖ');

end;

if form12.Button1.Enabled then

if form12.Button6.Enabled then

if form12.CheckBox7.Checked=true then

begin

form12.Memo1.Lines.Add(', Fizkultura as Физкультура');

end;

if form12.Button1.Enabled then

if form12.Button6.Enabled then

if form12.CheckBox8.Checked=true then

begin

form12.Memo1.Lines.Add(', Vvedenie as Введение');

end;

if form12.Button1.Enabled then

if form12.Button6.Enabled then

if form12.CheckBox9.Checked=true then

begin

form12.Memo1.Lines.Add(', Istoriy as История');

end;

if form12.Button1.Enabled then

if form12.Button6.Enabled then

if form12.CheckBox10.Checked=true then

begin

form12.Memo1.Lines.Add(', Obshestvoznanie as Обществознание');

end;

if form12.Button1.Enabled then

if form12.Button6.Enabled then

if form12.CheckBox11.Checked=true then

begin

form12.Memo1.Lines.Add(', Biologiy as Биология');

end;

if form12.Button1.Enabled then

if form12.Button6.Enabled then

begin

z1:=form12.Memo1.Text;

form12.Query1.Close;

form12.Query1.SQL.Clear;

form12.Query1.SQL.Add('Select ID , fio '+z1+' from "1kurs.db"');

form12.Query1.ExecSQL;

form12.Query1.Open;

Form12.DBGrid1.Columns[0].Title.caption:='ID';

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

end;

if form12.Button1.Enabled then

if form12.Button6.Enabled then

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

begin

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

end;

//1-1Г

if form12.Button2.Enabled then

if form12.Button6.Enabled then

if form12.CheckBox1.Checked=true then

begin

form12.Memo1.Lines.Add(', Russki as Русский');

end;

if form12.Button2.Enabled then

if form12.Button6.Enabled then

if form12.CheckBox2.Checked=true then

begin

form12.Memo1.Lines.Add(', Matematika as Математика');

end;

if form12.Button2.Enabled then

if form12.Button6.Enabled then

if form12.CheckBox3.Checked=true then

begin

form12.Memo1.Lines.Add(', Literatura as Литература');

end;

if form12.Button2.Enabled then

if form12.Button6.Enabled then

if form12.CheckBox4.Checked=true then

begin

form12.Memo1.Lines.Add(', Fizika as Физика');

end;

if form12.Button2.Enabled then

if form12.Button6.Enabled then

if form12.CheckBox5.Checked=true then

begin

form12.Memo1.Lines.Add(', Himiy as Химия');

end;

if form12.Button2.Enabled then

if form12.Button6.Enabled then

if form12.CheckBox6.Checked=true then

begin

form12.Memo1.Lines.Add(', OBJ as ОБЖ');

end;

if form12.Button2.Enabled then

if form12.Button6.Enabled then

if form12.CheckBox7.Checked=true then

begin

form12.Memo1.Lines.Add(', Fizkultura as Физкультура');

end;

if form12.Button2.Enabled then

if form12.Button6.Enabled then

if form12.CheckBox8.Checked=true then

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

begin

form12.Memo1.Lines.Add(', Vvedenie as Введение');

end;

if form12.Button2.Enabled then

if form12.Button6.Enabled then

if form12.CheckBox9.Checked=true then

begin

form12.Memo1.Lines.Add(', Istoriy as История');

end;

if form12.Button2.Enabled then

if form12.Button6.Enabled then

if form12.CheckBox10.Checked=true then

begin

form12.Memo1.Lines.Add(', Obshestvoznanie as Обществознание');

end;

if form12.Button2.Enabled then

if form12.Button6.Enabled then

if form12.CheckBox11.Checked=true then

begin

form12.Memo1.Lines.Add(', Biologiy as Биология');

end;

if form12.Button2.Enabled then

if form12.Button6.Enabled then

begin

z1:=form12.Memo1.Text;

form12.Query1.Close;

form12.Query1.SQL.Clear;

form12.Query1.SQL.Add('Select ID , fio '+z1+' from "kurs1g.db"');

form12.Query1.ExecSQL;

form12.Query1.Open;

Form12.DBGrid1.Columns[0].Title.caption:='ID';

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

end;

if form12.Button2.Enabled then

if form12.Button6.Enabled then

begin

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

end;

if form12.Button3.Enabled then //1-1П

if form12.Button6.Enabled then

if form12.CheckBox1.Checked=true then

begin

form12.Memo1.Lines.Add(', Russki as Русский');

end;

if form12.Button3.Enabled then

if form12.Button6.Enabled then

if form12.CheckBox2.Checked=true then

begin

form12.Memo1.Lines.Add(', Matematika as Математика');

end;

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

if form12.Button3.Enabled then

if form12.Button6.Enabled then

if form12.CheckBox3.Checked=true then

begin

form12.Memo1.Lines.Add(', Literatura as Литература');

end;

if form12.Button3.Enabled then

if form12.Button6.Enabled then

if form12.CheckBox4.Checked=true then

begin

form12.Memo1.Lines.Add(', Fizika as Физика');

end;

if form12.Button3.Enabled then

if form12.Button6.Enabled then

if form12.CheckBox5.Checked=true then

begin

form12.Memo1.Lines.Add(', Himiy as Химия');

end;

if form12.Button3.Enabled then

if form12.Button6.Enabled then

if form12.CheckBox6.Checked=true then

begin

form12.Memo1.Lines.Add(', OBJ as ОБЖ');

end;

if form12.Button3.Enabled then

if form12.Button6.Enabled then

if form12.CheckBox7.Checked=true then

begin

form12.Memo1.Lines.Add(', Fizkultura as Физкультура');

end;

if form12.Button3.Enabled then

if form12.Button6.Enabled then

if form12.CheckBox8.Checked=true then

begin

form12.Memo1.Lines.Add(', Vvedenie as Введение');

end;

if form12.Button3.Enabled then

if form12.Button6.Enabled then

if form12.CheckBox9.Checked=true then

begin

form12.Memo1.Lines.Add(', Istoriy as История');

end;

if form12.Button3.Enabled then

if form12.Button6.Enabled then

if form12.CheckBox10.Checked=true then

begin

form12.Memo1.Lines.Add(', Obshestvoznanie as Обществознание');

end;

if form12.Button3.Enabled then

if form12.Button6.Enabled then

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

if form12.CheckBox11.Checked=true then

begin

form12.Memo1.Lines.Add(', Biologiy as Биология');

end;

if form12.Button3.Enabled then

if form12.Button6.Enabled then

begin

z1:=form12.Memo1.Text;

form12.Query1.Close;

form12.Query1.SQL.Clear;

form12.Query1.SQL.Add('Select ID , fio '+z1+' from "kurs1p.db"');

form12.Query1.ExecSQL;

form12.Query1.Open;

Form12.DBGrid1.Columns[0].Title.caption:='ID';

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

end;

if form12.Button3.Enabled then

if form12.Button6.Enabled then

begin

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

end;

if form12.Button4.Enabled then //1-1Сп

if form12.Button6.Enabled then

if form12.CheckBox1.Checked=true then

begin

form12.Memo1.Lines.Add(', Russki as Русский');

end;

if form12.Button4.Enabled then

if form12.Button6.Enabled then

if form12.CheckBox2.Checked=true then

begin

form12.Memo1.Lines.Add(', Matematika as Математика');

end;

if form12.Button4.Enabled then

if form12.Button6.Enabled then

if form12.CheckBox3.Checked=true then

begin

form12.Memo1.Lines.Add(', Literatura as Литература');

end;

if form12.Button4.Enabled then

if form12.Button6.Enabled then

if form12.CheckBox4.Checked=true then

begin

form12.Memo1.Lines.Add(', Fizika as Физика');

end;

if form12.Button4.Enabled then

if form12.Button6.Enabled then

if form12.CheckBox5.Checked=true then

begin

form12.Memo1.Lines.Add(', Himiy as Химия');

end;

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

if form12.Button4.Enabled then

if form12.Button6.Enabled then

if form12.CheckBox6.Checked=true then

begin

form12.Memo1.Lines.Add(', OBJ as ОБЖ');

end;

if form12.Button4.Enabled then

if form12.Button6.Enabled then

if form12.CheckBox7.Checked=true then

begin

form12.Memo1.Lines.Add(', Fizkultura as Физкультура');

end;

if form12.Button4.Enabled then

if form12.Button6.Enabled then

if form12.CheckBox8.Checked=true then

begin

form12.Memo1.Lines.Add(', Vvedenie as Введение');

end;

if form12.Button4.Enabled then

if form12.Button6.Enabled then

if form12.CheckBox9.Checked=true then

begin

form12.Memo1.Lines.Add(', Istoriy as История');

end;

if form12.Button4.Enabled then

if form12.Button6.Enabled then

if form12.CheckBox10.Checked=true then

begin

form12.Memo1.Lines.Add(', Obshestvoznanie as Обществознание');

end;

if form12.Button4.Enabled then

if form12.Button6.Enabled then

if form12.CheckBox11.Checked=true then

begin

form12.Memo1.Lines.Add(', Biologiy as Биология');

end;

if form12.Button4.Enabled then

if form12.Button6.Enabled then

begin

z1:=form12.Memo1.Text;

form12.Query1.Close;

form12.Query1.SQL.Clear;

form12.Query1.SQL.Add('Select ID , fio '+z1+' from "kurs1sp.db"');

form12.Query1.ExecSQL;

form12.Query1.Open;

Form12.DBGrid1.Columns[0].Title.caption:='ID';

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

end;

if form12.Button4.Enabled then

if form12.Button6.Enabled then

begin

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

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

end;

if form12.Button5.Enabled then //1-1Э

if form12.Button6.Enabled then

if form12.CheckBox1.Checked=true then

begin

form12.Memo1.Lines.Add(', Russki as Русский');

end;

if form12.Button5.Enabled then

if form12.Button6.Enabled then

if form12.CheckBox2.Checked=true then

begin

form12.Memo1.Lines.Add(', Matematika as Математика');

end;

if form12.Button5.Enabled then

if form12.Button6.Enabled then

if form12.CheckBox3.Checked=true then

begin

form12.Memo1.Lines.Add(', Literatura as Литература');

end;

if form12.Button5.Enabled then

if form12.Button6.Enabled then

if form12.CheckBox4.Checked=true then

begin

form12.Memo1.Lines.Add(', Fizika as Физика');

end;

if form12.Button5.Enabled then

if form12.Button6.Enabled then

if form12.CheckBox5.Checked=true then

begin

form12.Memo1.Lines.Add(', Himiy as Химия');

end;

if form12.Button5.Enabled then

if form12.Button6.Enabled then

if form12.CheckBox6.Checked=true then

begin

form12.Memo1.Lines.Add(', OBJ as ОБЖ');

end;

if form12.Button5.Enabled then

if form12.Button6.Enabled then

if form12.CheckBox7.Checked=true then

begin

form12.Memo1.Lines.Add(', Fizkultura as Физкультура');

end;

if form12.Button5.Enabled then

if form12.Button6.Enabled then

if form12.CheckBox8.Checked=true then

begin

form12.Memo1.Lines.Add(', Vvedenie as Введение');

end;

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

if form12.Button5.Enabled then

if form12.Button6.Enabled then

if form12.CheckBox9.Checked=true then

begin

form12.Memo1.Lines.Add(', Istoriy as История');

end;

if form12.Button5.Enabled then

if form12.Button6.Enabled then

if form12.CheckBox10.Checked=true then

begin

form12.Memo1.Lines.Add(', Obshestvoznanie as Обществознание');

end;

if form12.Button5.Enabled then

if form12.Button6.Enabled then

if form12.CheckBox11.Checked=true then

begin

form12.Memo1.Lines.Add(', Biologiy as Биология');

end;

if form12.Button5.Enabled then

if form12.Button6.Enabled then

begin

z1:=form12.Memo1.Text;

form12.Query1.Close;

form12.Query1.SQL.Clear;

form12.Query1.SQL.Add('Select ID , fio '+z1+' from "kurs1e.db"');

form12.Query1.ExecSQL;

form12.Query1.Open;

Form12.DBGrid1.Columns[0].Title.caption:='ID';

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

end;

if form12.Button5.Enabled then

if form12.Button6.Enabled then

begin

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

end;

if form12.Button1.Enabled then //2-1A

if form12.Button7.Enabled then

if form12.CheckBox1.Checked=true then

begin

form12.Memo1.Lines.Add(', Praksiologiy as Праксиология');

end;

if form12.Button1.Enabled then

if form12.Button7.Enabled then

if form12.CheckBox2.Checked=true then

begin

form12.Memo1.Lines.Add(', Fizkultura as Физкультура');

end;

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

if form12.Button1.Enabled then

if form12.Button7.Enabled then

if form12.CheckBox3.Checked=true then

begin

form12.Memo1.Lines.Add(', Religiy as Религия');

end;

if form12.Button1.Enabled then

if form12.Button7.Enabled then

if form12.CheckBox4.Checked=true then

begin

form12.Memo1.Lines.Add(', Russkiy as Русский');

end;

if form12.Button1.Enabled then

if form12.Button7.Enabled then

if form12.CheckBox5.Checked=true then

begin

form12.Memo1.Lines.Add(', Risunok as Рисунок');

end;

if form12.Button1.Enabled then

if form12.Button7.Enabled then

if form12.CheckBox6.Checked=true then

begin

form12.Memo1.Lines.Add(', OPK as ОПК');

end;

if form12.Button1.Enabled then

if form12.Button7.Enabled then

if form12.CheckBox7.Checked=true then

begin

form12.Memo1.Lines.Add(', Konstrukcii as Конструкции');

end;

if form12.Button1.Enabled then

if form12.Button7.Enabled then

if form12.CheckBox8.Checked=true then

begin

form12.Memo1.Lines.Add(', Ekologiy as Экология');

end;

if form12.Button1.Enabled then

if form12.Button7.Enabled then

if form12.CheckBox9.Checked=true then

begin

form12.Memo1.Lines.Add(', Informatika as Информатика');

end;

if form12.Button1.Enabled then

if form12.Button7.Enabled then

begin

z1:=form12.Memo1.Text;

form12.Query1.Close;

form12.Query1.SQL.Clear;

form12.Query1.SQL.Add('Select ID , fio '+z1+' from "kurs2a.db"');

form12.Query1.ExecSQL;

form12.Query1.Open;

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

Form12.DBGrid1.Columns[0].Title.caption:='ID';

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

end;

if form12.Button1.Enabled then

if form12.Button7.Enabled then

begin

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

end;

if form12.Button4.Enabled then //2-1Сп

if form12.Button7.Enabled then

if form12.CheckBox1.Checked=true then

begin

form12.Memo1.Lines.Add(', Elektroteh as Электротехника');

end;

if form12.Button4.Enabled then

if form12.Button7.Enabled then

if form12.CheckBox2.Checked=true then

begin

form12.Memo1.Lines.Add(', Grafika as Графика');

end;

if form12.Button4.Enabled then

if form12.Button7.Enabled then

if form12.CheckBox3.Checked=true then

begin

form12.Memo1.Lines.Add(', Mehanika as Механика');

end;

if form12.Button4.Enabled then

if form12.Button7.Enabled then

if form12.CheckBox4.Checked=true then

begin

form12.Memo1.Lines.Add(', Informatika as Информатика');

end;

if form12.Button4.Enabled then

if form12.Button7.Enabled then

if form12.CheckBox5.Checked=true then

begin

form12.Memo1.Lines.Add(', In_yaz as Иностранный');

end;

if form12.Button4.Enabled then

if form12.Button7.Enabled then

if form12.CheckBox6.Checked=true then

begin

form12.Memo1.Lines.Add(', Fizkultura as Физика');

end;

if form12.Button4.Enabled then

if form12.Button7.Enabled then

if form12.CheckBox7.Checked=true then

begin

form12.Memo1.Lines.Add(', Russkii as Русский');

end;

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

if form12.Button4.Enabled then

if form12.Button7.Enabled then

if form12.CheckBox8.Checked=true then

begin

form12.Memo1.Lines.Add(', Str_materiali as Стр_Материалы');

end;

if form12.Button4.Enabled then

if form12.Button7.Enabled then

if form12.CheckBox9.Checked=true then

begin

form12.Memo1.Lines.Add(', Geodezia as Геодезия');

end;

if form12.Button4.Enabled then

if form12.Button7.Enabled then

begin

z1:=form12.Memo1.Text;

form12.Query1.Close;

form12.Query1.SQL.Clear;

form12.Query1.SQL.Add('Select ID , fio '+z1+' from "kurs2sp.db"');

form12.Query1.ExecSQL;

form12.Query1.Open;

Form12.DBGrid1.Columns[0].Title.caption:='ID';

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

end;

if form12.Button4.Enabled then

if form12.Button7.Enabled then

begin

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

end;

if form12.Button2.Enabled then //2-1Г

if form12.Button7.Enabled then

if form12.CheckBox1.Checked=true then

begin

form12.Memo1.Lines.Add(', Geologia as Геология');

end;

if form12.Button2.Enabled then

if form12.Button7.Enabled then

if form12.CheckBox2.Checked=true then

begin

form12.Memo1.Lines.Add(', Iskopaemie as Ископаемые');

end;

if form12.Button2.Enabled then

if form12.Button7.Enabled then

if form12.CheckBox3.Checked=true then

begin

form12.Memo1.Lines.Add(', Gidravlika as Гидравлика');

end;

if form12.Button2.Enabled then

if form12.Button7.Enabled then

if form12.CheckBox4.Checked=true then

begin

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

form12.Memo1.Lines.Add(', Geodeziy as Геодезия ');

end;

if form12.Button2.Enabled then

if form12.Button7.Enabled then

if form12.CheckBox5.Checked=true then

begin

form12.Memo1.Lines.Add(', Informatika as Информатика');

end;

if form12.Button2.Enabled then

if form12.Button7.Enabled then

if form12.CheckBox6.Checked=true then

begin

form12.Memo1.Lines.Add(', Praksiologiy as Праксиология');

end;

if form12.Button2.Enabled then

if form12.Button7.Enabled then

if form12.CheckBox7.Checked=true then

begin

form12.Memo1.Lines.Add(', In_Yaz as Иностранный');

end;

if form12.Button2.Enabled then

if form12.Button7.Enabled then

if form12.CheckBox8.Checked=true then

begin

form12.Memo1.Lines.Add(', Fizkultura as Физкультура');

end;

if form12.Button2.Enabled then

if form12.Button7.Enabled then

begin

z1:=form12.Memo1.Text;

form12.Query1.Close;

form12.Query1.SQL.Clear;

form12.Query1.SQL.Add('Select ID , fio '+z1+' from "kurs2g.db"');

form12.Query1.ExecSQL;

form12.Query1.Open;

Form12.DBGrid1.Columns[0].Title.caption:='ID';

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

end;

if form12.Button2.Enabled then

if form12.Button7.Enabled then

begin

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

end;

if form12.Button3.Enabled then //2-1П

if form12.Button7.Enabled then

if form12.CheckBox1.Checked=true then

begin

form12.Memo1.Lines.Add(', Diskretnaya_mat as Дискретная_Мат');

end;

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

if form12.Button3.Enabled then

if form12.Button7.Enabled then

if form12.CheckBox2.Checked=true then

begin

form12.Memo1.Lines.Add(', Proksiology as Праксиология');

end;

if form12.Button3.Enabled then

if form12.Button7.Enabled then

if form12.CheckBox3.Checked=true then

begin

form12.Memo1.Lines.Add(', Vishaya_mat as Высшая_Мат');

end;

if form12.Button3.Enabled then

if form12.Button7.Enabled then

if form12.CheckBox4.Checked=true then

begin

form12.Memo1.Lines.Add(', Osnovi_algoritm as Основы_Алгоритм');

end;

if form12.Button3.Enabled then

if form12.Button7.Enabled then

if form12.CheckBox5.Checked=true then

begin

form12.Memo1.Lines.Add(', Mat_Stat as Мат_Стат');

end;

if form12.Button3.Enabled then

if form12.Button7.Enabled then

if form12.CheckBox6.Checked=true then

begin

form12.Memo1.Lines.Add(', Arhitektura_EVM as Архитектура_ЭВМ');

end;

if form12.Button3.Enabled then

if form12.Button7.Enabled then

if form12.CheckBox7.Checked=true then

begin

form12.Memo1.Lines.Add(', Fizkultura as Физкультура');

end;

if form12.Button3.Enabled then

if form12.Button7.Enabled then

if form12.CheckBox8.Checked=true then

begin

form12.Memo1.Lines.Add(', Russkii as Русский');

end;

if form12.Button3.Enabled then

if form12.Button7.Enabled then

if form12.CheckBox9.Checked=true then

begin

form12.Memo1.Lines.Add(', In_Yaz as Иностранный');

end;

if form12.Button3.Enabled then

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

if form12.Button7.Enabled then

begin

z1:=form12.Memo1.Text;

form12.Query1.Close;

form12.Query1.SQL.Clear;

form12.Query1.SQL.Add('Select ID , fio '+z1+' from "kurs2p.db"');

form12.Query1.ExecSQL;

form12.Query1.Open;

Form12.DBGrid1.Columns[0].Title.caption:='ID';

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

end;

if form12.Button3.Enabled then

if form12.Button7.Enabled then

begin

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

end;

if form12.Button5.Enabled then //2-1Э

if form12.Button7.Enabled then

if form12.CheckBox1.Checked=true then

begin

form12.Memo1.Lines.Add(', Fizkultura as Физкультура');

end;

if form12.Button5.Enabled then

if form12.Button7.Enabled then

if form12.CheckBox2.Checked=true then

begin

form12.Memo1.Lines.Add(', In_yaz as Иностранный');

end;

if form12.Button5.Enabled then

if form12.Button7.Enabled then

if form12.CheckBox3.Checked=true then

begin

form12.Memo1.Lines.Add(', Fiz_Osnovi as Физ_Основы');

end;

if form12.Button5.Enabled then

if form12.Button7.Enabled then

if form12.CheckBox4.Checked=true then

begin

form12.Memo1.Lines.Add(', Matematika as Математика');

end;

if form12.Button5.Enabled then

if form12.Button7.Enabled then

if form12.CheckBox5.Checked=true then

begin

form12.Memo1.Lines.Add(', Informatika as Информатика');

end;

if form12.Button5.Enabled then

if form12.Button7.Enabled then

if form12.CheckBox6.Checked=true then

begin

form12.Memo1.Lines.Add(', Izmerenia as Измерения');

end;

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

if form12.Button5.Enabled then

if form12.Button7.Enabled then

if form12.CheckBox7.Checked=true then

begin

form12.Memo1.Lines.Add(', Elektrotehnika as Электротехника');

end;

if form12.Button5.Enabled then

if form12.Button7.Enabled then

if form12.CheckBox8.Checked=true then

begin

form12.Memo1.Lines.Add(', Ekonomika as Экономика');

end;

if form12.Button5.Enabled then

if form12.Button7.Enabled then

begin

z1:=form12.Memo1.Text;

form12.Query1.Close;

form12.Query1.SQL.Clear;

form12.Query1.SQL.Add('Select ID , fio '+z1+' from "kurs2e.db"');

form12.Query1.ExecSQL;

form12.Query1.Open;

Form12.DBGrid1.Columns[0].Title.caption:='ID';

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

end;

if form12.Button5.Enabled then

if form12.Button7.Enabled then

begin

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

end;

//3-1A

if form12.Button1.Enabled then

if form12.Button8.Enabled then

if form12.CheckBox1.Checked=true then

begin

form12.Memo1.Lines.Add(', Tehnologii as Технологии');

end;

if form12.Button1.Enabled then

if form12.Button8.Enabled then

if form12.CheckBox2.Checked=true then

begin

form12.Memo1.Lines.Add(', Tipologii as Типологии');

end;

if form12.Button1.Enabled then

if form12.Button8.Enabled then

if form12.CheckBox3.Checked=true then

begin

form12.Memo1.Lines.Add(', Risunok as Рисунок');

end;

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

if form12.Button1.Enabled then

if form12.Button8.Enabled then

if form12.CheckBox4.Checked=true then

begin

form12.Memo1.Lines.Add(', MAF as МАФ');

end;

if form12.Button1.Enabled then

if form12.Button8.Enabled then

if form12.CheckBox5.Checked=true then

begin

form12.Memo1.Lines.Add(', Delovoe as Деловое_Общ');

end;

if form12.Button1.Enabled then

if form12.Button8.Enabled then

if form12.CheckBox6.Checked=true then

begin

form12.Memo1.Lines.Add(', Sociologiy as Социология');

end;

if form12.Button1.Enabled then

if form12.Button8.Enabled then

if form12.CheckBox7.Checked=true then

begin

form12.Memo1.Lines.Add(', BJ as БЖ');

end;

if form12.Button1.Enabled then

if form12.Button8.Enabled then

if form12.CheckBox8.Checked=true then

begin

form12.Memo1.Lines.Add(', Gradostroitelstvo as Градостроительство');

end;

if form12.Button1.Enabled then

if form12.Button8.Enabled then

if form12.CheckBox9.Checked=true then

begin

form12.Memo1.Lines.Add(', Fizkultura as Физкультура');

end;

if form12.Button1.Enabled then

if form12.Button8.Enabled then

begin

z1:=form12.Memo1.Text;

form12.Query1.Close;

form12.Query1.SQL.Clear;

form12.Query1.SQL.Add('Select ID , fio '+z1+' from "kurs3a.db"');

form12.Query1.ExecSQL;

form12.Query1.Open;

Form12.DBGrid1.Columns[0].Title.caption:='ID';

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

end;

if form12.Button1.Enabled then

if form12.Button8.Enabled then

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

begin

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

end;

//3-1Сп

if form12.Button4.Enabled then

if form12.Button8.Enabled then

if form12.CheckBox1.Checked=true then

begin

form12.Memo1.Lines.Add(', Tehnologii as Технологии');

end;

if form12.Button4.Enabled then

if form12.Button8.Enabled then

if form12.CheckBox2.Checked=true then

begin

form12.Memo1.Lines.Add(', TOSP as ТОСП');

end;

if form12.Button4.Enabled then

if form12.Button8.Enabled then

if form12.CheckBox3.Checked=true then

begin

form12.Memo1.Lines.Add(', Konstrukcii as Конструкции');

end;

if form12.Button4.Enabled then

if form12.Button8.Enabled then

if form12.CheckBox4.Checked=true then

begin

form12.Memo1.Lines.Add(', Ohrana_truda as Охрана_Труда');

end;

if form12.Button4.Enabled then

if form12.Button8.Enabled then

if form12.CheckBox5.Checked=true then

begin

form12.Memo1.Lines.Add(', In_yaz as Иностранный');

end;

if form12.Button4.Enabled then

if form12.Button8.Enabled then

if form12.CheckBox6.Checked=true then

begin

form12.Memo1.Lines.Add(', Fizkultura as Физкультура ');

end;

if form12.Button4.Enabled then

if form12.Button8.Enabled then

if form12.CheckBox7.Checked=true then

begin

form12.Memo1.Lines.Add(', Seti as Сети');

end;

if form12.Button4.Enabled then

if form12.Button8.Enabled then

if form12.CheckBox8.Checked=true then

begin

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

form12.Memo1.Lines.Add(', Filosofia as Философия');

end;

if form12.Button4.Enabled then

if form12.Button8.Enabled then

if form12.CheckBox9.Checked=true then

begin

form12.Memo1.Lines.Add(', Menedjment as Менеджмент');

end;

if form12.Button4.Enabled then

if form12.Button8.Enabled then

begin

z1:=form12.Memo1.Text;

form12.Query1.Close;

form12.Query1.SQL.Clear;

form12.Query1.SQL.Add('Select ID , fio '+z1+' from "kurs3sp.db"');

form12.Query1.ExecSQL;

form12.Query1.Open;

Form12.DBGrid1.Columns[0].Title.caption:='ID';

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

end;

if form12.Button4.Enabled then

if form12.Button8.Enabled then

begin

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

end;

//3-1Г

if form12.Button2.Enabled then

if form12.Button8.Enabled then

if form12.CheckBox1.Checked=true then

begin

form12.Memo1.Lines.Add(', Gidrogeologiy as Гидрогеология');

end;

if form12.Button2.Enabled then

if form12.Button8.Enabled then

if form12.CheckBox2.Checked=true then

begin

form12.Memo1.Lines.Add(', Polevie_metodi as Полевые_Методы');

end;

if form12.Button2.Enabled then

if form12.Button8.Enabled then

if form12.CheckBox3.Checked=true then

begin

form12.Memo1.Lines.Add(', Strukturnay_geo as Структурная_ГЕО');

end;

if form12.Button2.Enabled then

if form12.Button8.Enabled then

if form12.CheckBox4.Checked=true then

begin

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

form12.Memo1.Lines.Add(', Fizkultura as Физкультура');

end;

if form12.Button2.Enabled then

if form12.Button8.Enabled then

if form12.CheckBox5.Checked=true then

begin

form12.Memo1.Lines.Add(', In_Yaz as Иностранный');

end;

if form12.Button2.Enabled then

if form12.Button8.Enabled then

if form12.CheckBox6.Checked=true then

begin

form12.Memo1.Lines.Add(', Injenernaia as Инженерная');

end;

if form12.Button2.Enabled then

if form12.Button8.Enabled then

if form12.CheckBox7.Checked=true then

begin

form12.Memo1.Lines.Add(', BJ as БЖ');

end;

if form12.Button2.Enabled then

if form12.Button8.Enabled then

begin

z1:=form12.Memo1.Text;

form12.Query1.Close;

form12.Query1.SQL.Clear;

form12.Query1.SQL.Add('Select ID , fio '+z1+' from "kurs3g.db"');

form12.Query1.ExecSQL;

form12.Query1.Open;

Form12.DBGrid1.Columns[0].Title.caption:='ID';

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

end;

if form12.Button2.Enabled then

if form12.Button8.Enabled then

begin

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

end;

//3-1П

if form12.Button3.Enabled then

if form12.Button8.Enabled then

if form12.CheckBox1.Checked=true then

begin

form12.Memo1.Lines.Add(', In_Yaz as Иностранный');

end;

if form12.Button3.Enabled then

if form12.Button8.Enabled then

if form12.CheckBox2.Checked=true then

begin

form12.Memo1.Lines.Add(', TRPP as ТРПП');

end;

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

if form12.Button3.Enabled then

if form12.Button8.Enabled then

if form12.CheckBox3.Checked=true then

begin

form12.Memo1.Lines.Add(', IB as ИБ');

end;

if form12.Button3.Enabled then

if form12.Button8.Enabled then

if form12.CheckBox4.Checked=true then

begin

form12.Memo1.Lines.Add(', BJ as БЖ');

end;

if form12.Button3.Enabled then

if form12.Button8.Enabled then

if form12.CheckBox5.Checked=true then

begin

form12.Memo1.Lines.Add(', Pravo as Право');

end;

if form12.Button3.Enabled then

if form12.Button8.Enabled then

if form12.CheckBox6.Checked=true then

begin

form12.Memo1.Lines.Add(', POPD as ПОПД');

end;

if form12.Button3.Enabled then

if form12.Button8.Enabled then

if form12.CheckBox7.Checked=true then

begin

form12.Memo1.Lines.Add(', Menedjment as Менеджмент');

end;

if form12.Button3.Enabled then

if form12.Button8.Enabled then

if form12.CheckBox8.Checked=true then

begin

form12.Memo1.Lines.Add(', BD as БД');

end;

if form12.Button3.Enabled then

if form12.Button8.Enabled then

if form12.CheckBox9.Checked=true then

begin

form12.Memo1.Lines.Add(', RUBD as РУБД');

end;

if form12.Button3.Enabled then

if form12.Button8.Enabled then

if form12.CheckBox10.Checked=true then

begin

form12.Memo1.Lines.Add(', Fizkultura as Физкультура');

end;

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

if form12.Button3.Enabled then

if form12.Button8.Enabled then

begin

z1:=form12.Memo1.Text;

form12.Query1.Close;

form12.Query1.SQL.Clear;

form12.Query1.SQL.Add('Select ID , fio '+z1+' from "kurs3p.db"');

form12.Query1.ExecSQL;

form12.Query1.Open;

Form12.DBGrid1.Columns[0].Title.caption:='ID';

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

end;

if form12.Button3.Enabled then

if form12.Button8.Enabled then

begin

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

end;

//3-1Э

if form12.Button5.Enabled then

if form12.Button8.Enabled then

if form12.CheckBox1.Checked=true then

begin

form12.Memo1.Lines.Add(', Tehnologii as Технологии');

end;

if form12.Button5.Enabled then

if form12.Button8.Enabled then

if form12.CheckBox2.Checked=true then

begin

form12.Memo1.Lines.Add(', Ohrana_truda as Охрана_Труда');

end;

if form12.Button5.Enabled then

if form12.Button8.Enabled then

if form12.CheckBox3.Checked=true then

begin

form12.Memo1.Lines.Add(', Fizkultura as Физкультура');

end;

if form12.Button5.Enabled then

if form12.Button8.Enabled then

if form12.CheckBox4.Checked=true then

begin

form12.Memo1.Lines.Add(', In_yaz as Иностранный');

end;

if form12.Button5.Enabled then

if form12.Button8.Enabled then

if form12.CheckBox5.Checked=true then

begin

form12.Memo1.Lines.Add(', Oborudovanie as Оборудование');

end;

if form12.Button5.Enabled then

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

if form12.Button8.Enabled then

if form12.CheckBox6.Checked=true then

begin

form12.Memo1.Lines.Add(', Vich_tehnika as Выч_Техника');

end;

if form12.Button5.Enabled then

if form12.Button8.Enabled then

if form12.CheckBox7.Checked=true then

begin

form12.Memo1.Lines.Add(', Filosofia as Философия');

end;

if form12.Button5.Enabled then

if form12.Button8.Enabled then

if form12.CheckBox8.Checked=true then

begin

form12.Memo1.Lines.Add(', Pravo as Право');

end;

if form12.Button5.Enabled then

if form12.Button8.Enabled then

if form12.CheckBox9.Checked=true then

begin

form12.Memo1.Lines.Add(', Matematika as Математика');

end;

if form12.Button5.Enabled then

if form12.Button8.Enabled then

begin

z1:=form12.Memo1.Text;

form12.Query1.Close;

form12.Query1.SQL.Clear;

form12.Query1.SQL.Add('Select ID , fio '+z1+' from "kurs3e.db"');

form12.Query1.ExecSQL;

form12.Query1.Open;

Form12.DBGrid1.Columns[0].Title.caption:='ID';

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

end;

if form12.Button5.Enabled then

if form12.Button8.Enabled then

begin

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

end;

//4-1A

if form12.Button1.Enabled then

if form12.Button9.Enabled then

if form12.CheckBox1.Checked=true then

begin

form12.Memo1.Lines.Add(', Interier as Интерьер');

end;

if form12.Button1.Enabled then

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

if form12.Button9.Enabled then

if form12.CheckBox2.Checked=true then

begin

form12.Memo1.Lines.Add(', SAPR as САПР');

end;

if form12.Button1.Enabled then

if form12.Button9.Enabled then

if form12.CheckBox3.Checked=true then

begin

form12.Memo1.Lines.Add(', Konstrukcii as Конструкции');

end;

if form12.Button1.Enabled then

if form12.Button9.Enabled then

if form12.CheckBox4.Checked=true then

begin

form12.Memo1.Lines.Add(', Ec_otr as Ес_Отр');

end;

if form12.Button1.Enabled then

if form12.Button9.Enabled then

if form12.CheckBox5.Checked=true then

begin

form12.Memo1.Lines.Add(', In_Yaz as Иностранный');

end;

if form12.Button1.Enabled then

if form12.Button9.Enabled then

if form12.CheckBox6.Checked=true then

begin

form12.Memo1.Lines.Add(', Menedjment as Менеджмент');

end;

if form12.Button1.Enabled then

if form12.Button9.Enabled then

if form12.CheckBox7.Checked=true then

begin

form12.Memo1.Lines.Add(', Fizkultura as Физкультура');

end;

if form12.Button1.Enabled then

if form12.Button9.Enabled then

if form12.CheckBox8.Checked=true then

begin

form12.Memo1.Lines.Add(', Arh_Proektir as Арх_Проектирование');

end;

if form12.Button1.Enabled then

if form12.Button9.Enabled then

begin

z1:=form12.Memo1.Text;

form12.Query1.Close;

form12.Query1.SQL.Clear;

form12.Query1.SQL.Add('Select ID , fio '+z1+' from "kurs4a.db"');

form12.Query1.ExecSQL;

form12.Query1.Open;

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

Form12.DBGrid1.Columns[0].Title.caption:='ID';

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

end;

if form12.Button1.Enabled then

if form12.Button9.Enabled then

begin

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

end;

//4-1П

if form12.Button3.Enabled then

if form12.Button9.Enabled then

if form12.CheckBox1.Checked=true then

begin

form12.Memo1.Lines.Add(', Mat_metodi as Мат_Методы');

end;

if form12.Button3.Enabled then

if form12.Button9.Enabled then

if form12.CheckBox2.Checked=true then

begin

form12.Memo1.Lines.Add(', Osnovi_postroeniy as Основы_построения');

end;

if form12.Button3.Enabled then

if form12.Button9.Enabled then

if form12.CheckBox3.Checked=true then

begin

form12.Memo1.Lines.Add(', PPP as ППП');

end;

if form12.Button3.Enabled then

if form12.Button9.Enabled then

if form12.CheckBox4.Checked=true then

begin

form12.Memo1.Lines.Add(', PO_KS as ПО_КС');

end;

if form12.Button3.Enabled then

if form12.Button9.Enabled then

if form12.CheckBox5.Checked=true then

begin

form12.Memo1.Lines.Add(', In_Yaz as Иностранный');

end;

if form12.Button3.Enabled then

if form12.Button9.Enabled then

if form12.CheckBox6.Checked=true then

begin

form12.Memo1.Lines.Add(', Grafika as Графика');

end;

if form12.Button3.Enabled then

if form12.Button9.Enabled then

if form12.CheckBox7.Checked=true then

begin

form12.Memo1.Lines.Add(', Seti as Сети');

end;

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

if form12.Button3.Enabled then

if form12.Button9.Enabled then

if form12.CheckBox8.Checked=true then

begin

form12.Memo1.Lines.Add(', Fizkultura as Физкультура');

end;

if form12.Button3.Enabled then

if form12.Button9.Enabled then

begin

z1:=form12.Memo1.Text;

form12.Query1.Close;

form12.Query1.SQL.Clear;

form12.Query1.SQL.Add('Select ID , fio '+z1+' from "kurs4p.db"');

form12.Query1.ExecSQL;

form12.Query1.Open;

Form12.DBGrid1.Columns[0].Title.caption:='ID';

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

end;

if form12.Button3.Enabled then

if form12.Button9.Enabled then

begin

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

end;

//4-1Э

if form12.Button5.Enabled then

if form12.Button9.Enabled then

if form12.CheckBox1.Checked=true then

begin

form12.Memo1.Lines.Add(', Menedjment as Менеджмент');

end;

if form12.Button5.Enabled then

if form12.Button9.Enabled then

if form12.CheckBox2.Checked=true then

begin

form12.Memo1.Lines.Add(', In_yaz as Иностранный');

end;

if form12.Button5.Enabled then

if form12.Button9.Enabled then

if form12.CheckBox3.Checked=true then

begin

form12.Memo1.Lines.Add(', Fizkultura as Физкультура');

end;

if form12.Button5.Enabled then

if form12.Button9.Enabled then

if form12.CheckBox4.Checked=true then

begin

form12.Memo1.Lines.Add(', Oborudovanie as оборудование');

end;

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

if form12.Button5.Enabled then

if form12.Button9.Enabled then

if form12.CheckBox5.Checked=true then

begin

form12.Memo1.Lines.Add(', Elektroizmer as Электроизмерения ');

end;

if form12.Button5.Enabled then

if form12.Button9.Enabled then

if form12.CheckBox6.Checked=true then

begin

form12.Memo1.Lines.Add(', Istochniki_pitania as Источники_Питания');

end;

if form12.Button5.Enabled then

if form12.Button9.Enabled then

if form12.CheckBox7.Checked=true then

begin

form12.Memo1.Lines.Add(', Tehnicheskay_pr as Техническая_ПР');

end;

if form12.Button5.Enabled then

if form12.Button9.Enabled then

begin

z1:=form12.Memo1.Text;

form12.Query1.Close;

form12.Query1.SQL.Clear;

form12.Query1.SQL.Add('Select ID , fio '+z1+' from "kurs4e.db"');

form12.Query1.ExecSQL;

form12.Query1.Open;

Form12.DBGrid1.Columns[0].Title.caption:='ID';

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

end;

if form12.Button5.Enabled then

if form12.Button9.Enabled then

begin

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

end;

//4-1Г

if form12.Button2.Enabled then

if form12.Button9.Enabled then

if form12.CheckBox1.Checked=true then

begin

form12.Memo1.Lines.Add(', Injenernaia_geo as Инженерная_ГЕО');

end;

if form12.Button2.Enabled then

if form12.Button9.Enabled then

if form12.CheckBox2.Checked=true then

begin

form12.Memo1.Lines.Add(', Gidrogeologia as Гидрогеология');

end;

if form12.Button2.Enabled then

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

if form12.Button9.Enabled then

if form12.CheckBox3.Checked=true then

begin

form12.Memo1.Lines.Add(', POPD as ПОПД');

end;

if form12.Button2.Enabled then

if form12.Button9.Enabled then

if form12.CheckBox4.Checked=true then

begin

form12.Memo1.Lines.Add(', Menedjment as Менеджмент');

end;

if form12.Button2.Enabled then

if form12.Button9.Enabled then

if form12.CheckBox5.Checked=true then

begin

form12.Memo1.Lines.Add(', In_Yaz as Иностранный');

end;

if form12.Button2.Enabled then

if form12.Button9.Enabled then

if form12.CheckBox6.Checked=true then

begin

form12.Memo1.Lines.Add(', Fizkultura as Физкультура');

end;

if form12.Button2.Enabled then

if form12.Button9.Enabled then

if form12.CheckBox7.Checked=true then

begin

form12.Memo1.Lines.Add(', In_tehnologii as Ин_Технологии');

end;

if form12.Button2.Enabled then

if form12.Button9.Enabled then

begin

z1:=form12.Memo1.Text;

form12.Query1.Close;

form12.Query1.SQL.Clear;

form12.Query1.SQL.Add('Select ID , fio '+z1+' from "kurs4g.db"');

form12.Query1.ExecSQL;

form12.Query1.Open;

Form12.DBGrid1.Columns[0].Title.caption:='ID';

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

end;

if form12.Button2.Enabled then

if form12.Button9.Enabled then

begin

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

end;

//4-1Сп

if form12.Button4.Enabled then

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

if form12.Button9.Enabled then

if form12.CheckBox1.Checked=true then

begin

form12.Memo1.Lines.Add(', Upr_Personalom as Упр_Персоналом');

end;

if form12.Button4.Enabled then

if form12.Button9.Enabled then

if form12.CheckBox2.Checked=true then

begin

form12.Memo1.Lines.Add(', Fizkultura as Физкультура');

end;

if form12.Button4.Enabled then

if form12.Button9.Enabled then

if form12.CheckBox3.Checked=true then

begin

form12.Memo1.Lines.Add(', OND as ОНД');

end;

if form12.Button4.Enabled then

if form12.Button9.Enabled then

if form12.CheckBox4.Checked=true then

begin

form12.Memo1.Lines.Add(', In_Yaz as Иностранный');

end;

if form12.Button4.Enabled then

if form12.Button9.Enabled then

if form12.CheckBox5.Checked=true then

begin

form12.Memo1.Lines.Add(', TEZS as ТЕЗС');

end;

if form12.Button4.Enabled then

if form12.Button9.Enabled then

if form12.CheckBox6.Checked=true then

begin

form12.Memo1.Lines.Add(', KKP as ККП');

end;

if form12.Button4.Enabled then

if form12.Button9.Enabled then

if form12.CheckBox7.Checked=true then

begin

form12.Memo1.Lines.Add(', Tehnologii as Технологии');

end;

if form12.Button4.Enabled then

if form12.Button9.Enabled then

if form12.CheckBox8.Checked=true then

begin

form12.Memo1.Lines.Add(', Dok_obespechenie as ДОК_Обеспечение');

end;

if form12.Button4.Enabled then

if form12.Button9.Enabled then

if form12.CheckBox9.Checked=true then

begin

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

form12.Memo1.Lines.Add(', POPD as ПОПД');

end;

if form12.Button4.Enabled then

if form12.Button9.Enabled then

begin

z1:=form12.Memo1.Text;

form12.Query1.Close;

form12.Query1.SQL.Clear;

form12.Query1.SQL.Add('Select ID , fio '+z1+' from "kurs4sp.db"');

form12.Query1.ExecSQL;

form12.Query1.Open;

Form12.DBGrid1.Columns[0].Title.caption:='ID';

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

end;

if form12.Button4.Enabled then

if form12.Button9.Enabled then

begin

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

end;

end;

procedure TForm12.BitBtn2Click(Sender: TObject);

begin

Form12.DBGrid1.DataSource.DataSet.Close;

form12.GroupBox1.Visible:=false;

form12.GroupBox2.Visible:=false;

Form12.BitBtn1.Visible:=false;

Form12.BitBtn3.Visible:=false;

Form12.Visible:=false;

Form1.visible:=true;

end;

procedure TForm12.Button1Click(Sender: TObject);

begin

form12.Button6.Caption:='1-1А';

form12.Button7.Caption:='2-1А';

form12.Button8.Caption:='3-1А';

form12.Button9.Caption:='4-1А';

form12.BitBtn4.Enabled:=true;

form12.Button2.Enabled:=false;

form12.Button3.Enabled:=false;

form12.Button4.Enabled:=false;

form12.Button5.Enabled:=false;

Form12.GroupBox1.Visible:=true;

end;

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

procedure TForm12.Button6Click(Sender: TObject);

begin

form12.GroupBox2.Visible:=true;

Form12.Button7.Enabled:=False;

Form12.Button8.Enabled:=False;

Form12.Button9.Enabled:=False;

form12.CheckBox1.Caption:='Русский язык';

form12.CheckBox2.Caption:='Математика';

form12.CheckBox3.Caption:='Литература';

form12.CheckBox4.Caption:='Физика';

form12.CheckBox5.Caption:='Химия';

form12.CheckBox6.Caption:='ОБЖ';

form12.CheckBox7.Caption:='Физкультура';

form12.CheckBox8.Caption:='Введ. в спец.';

form12.CheckBox9.Caption:='История';

form12.CheckBox10.Caption:='Общество';

form12.CheckBox11.Caption:='Биология';

form12.CheckBox12.Visible:=False;

Form12.BitBtn1.Visible:=true;

Form12.BitBtn3.Visible:=true;

end;

procedure TForm12.BitBtn3Click(Sender: TObject);

begin

Form12.DBGrid1.DataSource.DataSet.Close;

form12.CheckBox1.Checked:=false;

form12.CheckBox2.Checked:=false;

form12.CheckBox3.Checked:=false;

form12.CheckBox4.Checked:=false;

form12.CheckBox5.Checked:=false;

form12.CheckBox6.Checked:=false;

form12.CheckBox7.Checked:=false;

form12.CheckBox8.Checked:=false;

form12.CheckBox9.Checked:=false;

form12.CheckBox10.Checked:=false;

form12.CheckBox11.Checked:=false;

form12.CheckBox12.Checked:=false;

form12.CheckBox13.Checked:=false;

form12.Memo1.Text:='';

end;

procedure TForm12.Button7Click(Sender: TObject);

begin

if form12.Button1.Enabled=true then //2-1А

begin

form12.GroupBox2.Visible:=true;

Form12.Button6.Enabled:=False;

Form12.Button8.Enabled:=False;

Form12.Button9.Enabled:=False;

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

form12.CheckBox1.Caption:='Праксиология';

form12.CheckBox2.Caption:='Физкультура';

form12.CheckBox3.Caption:='Религия';

form12.CheckBox4.Caption:='Русский язык';

form12.CheckBox5.Caption:='Рисунок';

form12.CheckBox6.Caption:='ОПК';

form12.CheckBox7.Caption:='Конструкции';

form12.CheckBox8.Caption:='Экология';

form12.CheckBox9.Caption:='Информатика';

form12.CheckBox10.Visible:=False;

form12.CheckBox11.Visible:=False;

form12.CheckBox12.Visible:=False;

end;

if form12.Button5.Enabled=true then //2-1Э

begin

form12.GroupBox2.Visible:=true;

Form12.Button6.Enabled:=False;

Form12.Button8.Enabled:=False;

Form12.Button9.Enabled:=False;

form12.CheckBox1.Caption:='Физкультура';

form12.CheckBox2.Caption:='Иностранный';

form12.CheckBox3.Caption:='Физ.Основы';

form12.CheckBox4.Caption:='Математика';

form12.CheckBox5.Caption:='Информатика';

form12.CheckBox6.Caption:='Измерения';

form12.CheckBox7.Caption:='Электротехника';

form12.CheckBox8.Caption:='Экономика';

form12.CheckBox9.Visible:=false;

form12.CheckBox10.Visible:=False;

form12.CheckBox11.Visible:=False;

form12.CheckBox12.Visible:=False;

end;

if form12.Button4.Enabled=true then //2-1Сп

begin

form12.GroupBox2.Visible:=true;

Form12.Button6.Enabled:=False;

Form12.Button8.Enabled:=False;

Form12.Button9.Enabled:=False;

form12.CheckBox1.Caption:='Электротехника';

form12.CheckBox2.Caption:='Графика';

form12.CheckBox3.Caption:='Механика';

form12.CheckBox4.Caption:='Информатика';

form12.CheckBox5.Caption:='Иностранный';

form12.CheckBox6.Caption:='Физкультура';

form12.CheckBox7.Caption:='Русский язык';

form12.CheckBox8.Caption:='Строит. Мат.';

form12.CheckBox9.Caption:='Геодезия';

form12.CheckBox10.Visible:=False;

form12.CheckBox11.Visible:=False;

form12.CheckBox12.Visible:=False;

end;

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

if form12.Button3.Enabled=true then //2-1П

begin

form12.GroupBox2.Visible:=true;

Form12.Button6.Enabled:=False;

Form12.Button8.Enabled:=False;

Form12.Button9.Enabled:=False;

form12.CheckBox1.Caption:='Дискретная мат.';

form12.CheckBox2.Caption:='Проксиология';

form12.CheckBox3.Caption:='Высшая мат.';

form12.CheckBox4.Caption:='Основы алгоритм.';

form12.CheckBox5.Caption:='Мат стат';

form12.CheckBox6.Caption:='Архитектура ЭВМ';

form12.CheckBox7.Caption:='Физкультура';

form12.CheckBox8.Caption:='Русский';

form12.CheckBox9.Caption:='Иностранный';

form12.CheckBox10.Visible:=False;

form12.CheckBox11.Visible:=False;

form12.CheckBox12.Visible:=False;

end;

if form12.Button2.Enabled=true then //2-1Г

begin

form12.GroupBox2.Visible:=true;

Form12.Button6.Enabled:=False;

Form12.Button8.Enabled:=False;

Form12.Button9.Enabled:=False;

form12.CheckBox1.Caption:='Геология';

form12.CheckBox2.Caption:='Ископаемые';

form12.CheckBox3.Caption:='Гидравлика';

form12.CheckBox4.Caption:='Геодезия';

form12.CheckBox5.Caption:='Информатика';

form12.CheckBox6.Caption:='Праксиология';

form12.CheckBox7.Caption:='Иностранный';

form12.CheckBox8.Caption:='Физкультура';

form12.CheckBox9.visible:=false;

form12.CheckBox10.Visible:=False;

form12.CheckBox11.Visible:=False;

form12.CheckBox12.Visible:=False;

end;

Form12.BitBtn1.Visible:=true;

Form12.BitBtn3.Visible:=true;

end;

procedure TForm12.Button8Click(Sender: TObject);

begin

if form12.Button1.Enabled=true then //3-1A

begin

form12.GroupBox2.Visible:=true;

Form12.Button6.Enabled:=False;

Form12.Button7.Enabled:=False;

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

Form12.Button9.Enabled:=False;

form12.CheckBox1.Caption:='Инф.Тех.';

form12.CheckBox2.Caption:='Типологии Зд.';

form12.CheckBox3.Caption:='Рисунок';

form12.CheckBox4.Caption:='МАФ';

form12.CheckBox5.Caption:='Деловое общение';

form12.CheckBox6.Caption:='Социология';

form12.CheckBox7.Caption:='БЖ';

form12.CheckBox8.Caption:='Градостр.';

form12.CheckBox9.Caption:='Физкультура';

form12.CheckBox10.Visible:=False;

form12.CheckBox11.Visible:=False;

form12.CheckBox12.Visible:=False;

end;

if form12.Button5.Enabled=true then //3-1Э

begin

form12.GroupBox2.Visible:=true;

Form12.Button6.Enabled:=False;

Form12.Button7.Enabled:=False;

Form12.Button9.Enabled:=False;

form12.CheckBox1.Caption:='Технологии';

form12.CheckBox2.Caption:='Охрана труда';

form12.CheckBox3.Caption:='Физкультура';

form12.CheckBox4.Caption:='Иностранный';

form12.CheckBox5.Caption:='Оборудование';

form12.CheckBox6.Caption:='Выч.Техника';

form12.CheckBox7.Caption:='Философия';

form12.CheckBox8.Caption:='Право';

form12.CheckBox9.Caption:='Математика';

form12.CheckBox10.Visible:=False;

form12.CheckBox11.Visible:=False;

form12.CheckBox12.Visible:=False;

end;

if form12.Button4.Enabled=true then //3-1Сп

begin

form12.GroupBox2.Visible:=true;

Form12.Button6.Enabled:=False;

Form12.Button7.Enabled:=False;

Form12.Button9.Enabled:=False;

form12.CheckBox1.Caption:='Технологии';

form12.CheckBox2.Caption:='ТОСП';

form12.CheckBox3.Caption:='Конструкции';

form12.CheckBox4.Caption:='Охрана труда';

form12.CheckBox5.Caption:='Иностранный';

form12.CheckBox6.Caption:='Социология';

form12.CheckBox7.Caption:='Физкультура';

form12.CheckBox8.Caption:='Сети';

form12.CheckBox9.Caption:='Философия';

form12.CheckBox10.Caption:='Менеджмент';

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

form12.CheckBox11.Visible:=False;

form12.CheckBox12.Visible:=False;

end;

if form12.Button3.Enabled=true then //3-1П

begin

form12.GroupBox2.Visible:=true;

Form12.Button6.Enabled:=False;

Form12.Button7.Enabled:=False;

Form12.Button9.Enabled:=False;

form12.CheckBox1.Caption:='Иностранный';

form12.CheckBox2.Caption:='ТРПП';

form12.CheckBox3.Caption:='Информ. Безоп.';

form12.CheckBox4.Caption:='БЖ';

form12.CheckBox5.Caption:='Право';

form12.CheckBox6.Caption:='ПОПД';

form12.CheckBox7.Caption:='Менеджмент';

form12.CheckBox8.Caption:='БД';

form12.CheckBox9.Caption:='РУБД';

form12.CheckBox10.Caption:='Физкультура';

form12.CheckBox11.Visible:=False;

form12.CheckBox12.Visible:=False;

end;

if form12.Button2.Enabled=true then //3-1Г

begin

form12.GroupBox2.Visible:=true;

Form12.Button6.Enabled:=False;

Form12.Button7.Enabled:=False;

Form12.Button9.Enabled:=False;

form12.CheckBox1.Caption:='Гидрогеология';

form12.CheckBox2.Caption:='Полевые методы';

form12.CheckBox3.Caption:='Структурная гео';

form12.CheckBox4.Caption:='Физкультура';

form12.CheckBox5.Caption:='Иностранный';

form12.CheckBox6.Caption:='Инженерная гео';

form12.CheckBox7.Caption:='БЖ';

form12.CheckBox8.visible:=false;

form12.CheckBox9.visible:=false;

form12.CheckBox10.Visible:=False;

form12.CheckBox11.Visible:=False;

form12.CheckBox12.Visible:=False;

end;

Form12.BitBtn1.Visible:=true;

Form12.BitBtn3.Visible:=true;

end;

procedure TForm12.Button9Click(Sender: TObject);

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

begin

if form12.Button1.Enabled=true then //4-1А

begin

form12.GroupBox2.Visible:=true;

Form12.Button6.Enabled:=False;

Form12.Button7.Enabled:=False;

Form12.Button8.Enabled:=False;

form12.CheckBox1.Caption:='Интерьер';

form12.CheckBox2.Caption:='САПР';

form12.CheckBox3.Caption:='Конструкции';

form12.CheckBox4.Caption:='Ес.Отр.';

form12.CheckBox5.Caption:='Иностранный';

form12.CheckBox6.Caption:='Менеджмент';

form12.CheckBox7.Caption:='Физкультура';

form12.CheckBox8.Caption:='Арх.Проект.';

form12.CheckBox9.Visible:=False;

form12.CheckBox10.Visible:=False;

form12.CheckBox11.Visible:=False;

form12.CheckBox12.Visible:=False;

end;

if form12.Button5.Enabled=true then //4-1Э

begin

form12.GroupBox2.Visible:=true;

Form12.Button6.Enabled:=False;

Form12.Button7.Enabled:=False;

Form12.Button8.Enabled:=False;

form12.CheckBox1.Caption:='Менеджмент';

form12.CheckBox2.Caption:='Иностранный';

form12.CheckBox3.Caption:='Физкультура';

form12.CheckBox4.Caption:='Оборудование';

form12.CheckBox5.Caption:='Электроизмер.';

form12.CheckBox6.Caption:='Источники питания';

form12.CheckBox7.Caption:='Техническая пр.';

form12.CheckBox8.Visible:=false;

form12.CheckBox9.Visible:=False;

form12.CheckBox10.Visible:=False;

form12.CheckBox11.Visible:=False;

form12.CheckBox12.Visible:=False;

end;

if form12.Button4.Enabled=true then //4-1Сп

begin

form12.GroupBox2.Visible:=true;

Form12.Button6.Enabled:=False;

Form12.Button7.Enabled:=False;

Form12.Button8.Enabled:=False;

form12.CheckBox1.Caption:='Упр.Персоналом';

form12.CheckBox2.Caption:='Физкультура';

form12.CheckBox3.Caption:='ОНД';

form12.CheckBox4.Caption:='Иностранный';

form12.CheckBox5.Caption:='ТЕЗС';

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

form12.CheckBox6.Caption:='ККП';

form12.CheckBox7.Caption:='Технологии';

form12.CheckBox8.Caption:='Док.Обеспеч.';

form12.CheckBox9.Caption:='ПОПД';

form12.CheckBox10.Visible:=False;

form12.CheckBox11.Visible:=False;

form12.CheckBox12.Visible:=False;

end;

if form12.Button3.Enabled=true then //4-1П

begin

form12.GroupBox2.Visible:=true;

Form12.Button6.Enabled:=False;

Form12.Button7.Enabled:=False;

Form12.Button8.Enabled:=False;

form12.CheckBox1.Caption:='Мат. Методы';

form12.CheckBox2.Caption:='Основы постр.';

form12.CheckBox3.Caption:='ППП';

form12.CheckBox4.Caption:='ПО КС';

form12.CheckBox5.Caption:='Иностранный';

form12.CheckBox6.Caption:='Графика';

form12.CheckBox7.Caption:='Сети';

form12.CheckBox8.Caption:='Физкультура';

form12.CheckBox9.Visible:=False;

form12.CheckBox10.Visible:=False;

form12.CheckBox11.Visible:=False;

form12.CheckBox12.Visible:=False;

end;

if form12.Button2.Enabled=true then //4-1Г

begin

form12.GroupBox2.Visible:=true;

Form12.Button6.Enabled:=False;

Form12.Button7.Enabled:=False;

Form12.Button8.Enabled:=False;

form12.CheckBox1.Caption:='Инженерная гео.';

form12.CheckBox2.Caption:='Гидрогеология';

form12.CheckBox3.Caption:='ПОПД';

form12.CheckBox4.Caption:='Менеджмент';

form12.CheckBox5.Caption:='Иностранный';

form12.CheckBox6.Caption:='Физкультура';

form12.CheckBox7.Caption:='Информ.Тех.';

form12.CheckBox8.Visible:=false;

form12.CheckBox9.Visible:=False;

form12.CheckBox10.Visible:=False;

form12.CheckBox11.Visible:=False;

form12.CheckBox12.Visible:=False;

end;

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

Form12.BitBtn1.Visible:=true;

Form12.BitBtn3.Visible:=true;

end;

procedure TForm12.Button2Click(Sender: TObject);

begin

form12.Button6.Caption:='1-1Г';

form12.Button7.Caption:='2-1Г';

form12.Button8.Caption:='3-1Г';

form12.Button9.Caption:='4-1Г';

form12.BitBtn4.Enabled:=true;

form12.Button1.Enabled:=false;

form12.Button3.Enabled:=false;

form12.Button4.Enabled:=false;

form12.Button5.Enabled:=false;

Form12.GroupBox1.Visible:=true;

end;

procedure TForm12.Button3Click(Sender: TObject);

begin

form12.Button6.Caption:='1-1П';

form12.Button7.Caption:='2-1П';

form12.Button8.Caption:='3-1П';

form12.Button9.Caption:='4-1П';

form12.BitBtn4.Enabled:=true;

form12.Button2.Enabled:=false;

form12.Button1.Enabled:=false;

form12.Button4.Enabled:=false;

form12.Button5.Enabled:=false;

Form12.GroupBox1.Visible:=true;

end;

procedure TForm12.Button4Click(Sender: TObject);

begin

form12.Button6.Caption:='1-1Сп';

form12.Button7.Caption:='2-1Сп';

form12.Button8.Caption:='3-1Сп';

form12.Button9.Caption:='4-1Сп';

form12.BitBtn4.Enabled:=true;

form12.Button2.Enabled:=false;

form12.Button3.Enabled:=false;

form12.Button1.Enabled:=false;

form12.Button5.Enabled:=false;

Form12.GroupBox1.Visible:=true;

end;

procedure TForm12.Button5Click(Sender: TObject);

begin

form12.Button6.Caption:='1-1Э';

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

form12.Button7.Caption:='2-1Э';

form12.Button8.Caption:='3-1Э';

form12.Button9.Caption:='4-1Э';

form12.BitBtn4.Enabled:=true;

form12.Button2.Enabled:=false;

form12.Button3.Enabled:=false;

form12.Button4.Enabled:=false;

form12.Button1.Enabled:=false;

Form12.GroupBox1.Visible:=true;

end;

procedure TForm12.CheckBox13Click(Sender: TObject);

begin

if form12.CheckBox13.Checked=true then

begin

form12.CheckBox1.Checked:=true;

form12.CheckBox2.Checked:=true;

form12.CheckBox3.Checked:=true;

form12.CheckBox4.Checked:=true;

form12.CheckBox5.Checked:=true;

form12.CheckBox6.Checked:=true;

form12.CheckBox7.Checked:=true;

form12.CheckBox8.Checked:=true;

form12.CheckBox9.Checked:=true;

form12.CheckBox10.Checked:=true;

form12.CheckBox11.Checked:=true;

form12.CheckBox12.Checked:=true;

end

else

begin

form12.CheckBox1.Checked:=False;

form12.CheckBox2.Checked:=False;

form12.CheckBox3.Checked:=False;

form12.CheckBox4.Checked:=False;

form12.CheckBox5.Checked:=False;

form12.CheckBox6.Checked:=False;

form12.CheckBox7.Checked:=False;

form12.CheckBox8.Checked:=False;

form12.CheckBox9.Checked:=False;

form12.CheckBox10.Checked:=False;

form12.CheckBox11.Checked:=False;

form12.CheckBox12.Checked:=False;

end;

end;

procedure TForm12.CheckBox14Click(Sender: TObject);

begin

form12.CheckBox1.Checked:=False;

form12.CheckBox2.Checked:=False;

form12.CheckBox3.Checked:=False;

form12.CheckBox4.Checked:=False;

form12.CheckBox5.Checked:=False;

form12.CheckBox6.Checked:=False;

form12.CheckBox7.Checked:=False;

form12.CheckBox8.Checked:=False;

form12.CheckBox9.Checked:=False;

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

form12.CheckBox10.Checked:=False;

form12.CheckBox11.Checked:=False;

form12.CheckBox12.Checked:=False;

end;

procedure TForm12.BitBtn4Click(Sender: TObject);

begin

form12.Button1.Enabled:=true;

form12.Button2.Enabled:=true;

form12.Button3.Enabled:=true;

form12.Button4.Enabled:=true;

form12.Button5.Enabled:=true;

form12.Button6.Enabled:=true;

form12.Button7.Enabled:=true;

form12.Button8.Enabled:=true;

form12.Button9.Enabled:=true;

form12.Caption:='Поиск';

Form12.DBGrid1.DataSource.DataSet.Close;

form12.CheckBox1.Checked:=false;

form12.CheckBox2.Checked:=false;

form12.CheckBox3.Checked:=false;

form12.CheckBox4.Checked:=false;

form12.CheckBox5.Checked:=false;

form12.CheckBox6.Checked:=false;

form12.CheckBox7.Checked:=false;

form12.CheckBox8.Checked:=false;

form12.CheckBox9.Checked:=false;

form12.CheckBox10.Checked:=false;

form12.CheckBox11.Checked:=false;

form12.CheckBox12.Checked:=false;

form12.CheckBox13.Checked:=false;

form12.Memo1.Text:='';

form12.GroupBox1.Visible:=false;

form12.GroupBox2.Visible:=false;

Form12.BitBtn1.Visible:=false;

Form12.BitBtn3.Visible:=false;

form12.BitBtn4.Enabled:=false;

end;

end.