Then begin

Form10.Caption:='Главная форма: вы в режиме просмотра и редактирования';

Form10.DBNavigator5.Visible:=false;

Form10.DBNavigator1.Visible:=true;

Form10.DBNavigator6.Visible:=false;

Form10.DBNavigator2.Visible:=true;

Form10.DBNavigator7.Visible:=false;

Form10.DBNavigator3.Visible:=true;

Form10.DBNavigator8.Visible:=false;

Form10.DBNavigator4.Visible:=true;

end;

PageControl2.Visible:=false;

PageControl1.Visible:=true;

end;

procedure TForm10.Button2Click(Sender: TObject);

begin

PageControl1.Visible:=false;

PageControl2.Visible:=true;

end;

procedure TForm10.Button3Click(Sender: TObject);

begin

Memo7.Visible:=true;

end;

procedure TForm10.Button4Click(Sender: TObject);

begin

Memo7.Visible:=false;

end;

procedure TForm10.N5Click(Sender: TObject);

begin

Form1.Show;

end;

procedure TForm10.N6Click(Sender: TObject);

begin

Form2.Show;

end;

procedure TForm10.N7Click(Sender: TObject);

begin

Form3.Show;

end;

procedure TForm10.N4Click(Sender: TObject);

begin

Form4.Show;

end;

procedure TForm10.ComboBox1Change(Sender: TObject);

begin

if Table1.Locate('Kod', ComboBox1.Text, []) then

DBGrid1.SetFocus;

end;

procedure TForm10.ComboBox2Change(Sender: TObject);

begin

if Table2.Locate('KodDisciplini', ComboBox2.Text, []) then

DBGrid2.SetFocus;

end;

procedure TForm10.ComboBox3Change(Sender: TObject);

begin

if Table3.Locate('TabNomerPrepodavatelya', ComboBox3.Text, []) then

DBGrid3.SetFocus;

end;

procedure TForm10.ComboBox4Change(Sender: TObject);

begin

if Table4.Locate('TabNomerPrepodavatelya', ComboBox4.Text, []) then

DBGrid4.SetFocus;

end;

procedure TForm10.Table1BeforePost(DataSet: TDataSet);

begin

if Table1.FieldValues['Kod']<=0 then

begin

ShowMessage('Ошибка! Код дисциплины не может быть меньше или равен нулю! Введите еще раз!');

ShowMessage('В поле Код будет занесен 0!');

Table1.FieldValues['Kod']:=0;

end;

if Table1.FieldValues['NomerPlana']<>7 then

begin

ShowMessage('Ошибка! Номер плана, с которым работает база данных 7!');

ShowMessage('В поле Номер плана будет занесен 7!');

Table1.FieldValues['NomerPlana']:=7;

end;

end;

procedure TForm10.N8Click(Sender: TObject);

begin

Form2.Close;

Form10.Close;

Form5.Show;

end;

end.

Заключение:

В данной работе была разработана База данных «Учебный план-Преподаватель», было проведено инфологическое и логическое проектирование предметной области - учебный процесс. База данных была реализована с помощью Delphi7, для этого были разработаны таблицы, формы, отчеты, запросы. Сформирован удобный пользовательский интерфейс, позволяющий работать в различных режимах доступа к базе данных.

Разработанная база данных может служить для автоматизации и оптимизации учебного процесса, кроме того доступна, как профессиональным пользователям программными средствами, так и новичку в этой сфере.

При разработке базы данных «Учебный план-Преподаватель» были получены следующие навыки и проявлены следующие компетенции:

• Понимание требования к заданию и следование им

• Проявление письменной коммуникации

• Знание элементов системы программирования Delphi7

• Знание и применение элементов технологии БД

• Способность к анализу и синтезу

• Стремление к качеству результата

• Способность к управлению информацией

Всему этому способствовали следующие индивидуальные черты: уверенность в своих способностях, целеустремленность, умение самостоятельно решать проблемы, настойчивость в достижении результатов, трудолюбие, умение общаться.

Некоторые качества, которые препятствовали ходу работы: неправильная оценка своих возможностей, недооценка объема и требований.

Данная работа помогла развитию положительных организационных и профессиональных навыков.