Особенности построения и работы алгоритма

      В разрабатываемом программном приложении мы использовали технологию баз данных. Возможности доступа к базам данных в Delphi обеспечиваются классом TDataSet. TDataSet, как подсказывает имя, представляет наборы данных, подобные строкам в таблице и обеспечивает как реляционный, так и навигационный доступ к данным. TDataSet определяет всю основную навигацию по записям и функции редактирования. TDBDataSet, порожденный непосредственно от TDataSet, представляет наборы данных, которые связаны с базой данных BDE (Borland Database Engine) [15, 156].

        Навигационный способ доступа заключается в обработке каждой отдельной записи набора данных. Этот способ обычно используется в локальных БД или в удаленных БД небольшого размера. При навигационном способе доступа каждый набор данных имеет невидимый указатель текущей записи. Указатель определяет запись, с которой могут выполняться такие операции, как редактирование или удаление. Компоненты Table и Query позволяют управлять положением этого указателя. Поля текущей записи доступны для просмотра. 

Применяя навигационный способ, мы осуществили следующие операции:

- сортировку записей;

- навигацию по набору данных;

- редактирование записей;

- вставку и удаление записей;

- поиск записей.

После запуска программы перед пользователем появляется первая форма выбора режима «Электронного расписания занятий СОФ НИУ «БелГУ» (Рис.2.1).

Рис. 2.1. Форма выбора режима работы

При выборе режима «заполнение» перед пользователем появляется форма zapolnenie (Рис.2.2).

Рис.2.2. Форма заполнения информации о расписании занятий

При выполнении команды Справка→ О программе становится активной форма «О программе» (Рис.2.3). 

Рис.2.3. Форма «О программе».

При выполнении команды Справка→ Об авторе становится активной форма, содержащая информацию о разработчике программного продукта (Рис.2.4).

                                                 Рис.2.4. Форма «Об авторе».

При выборе режима «просмотр» перед пользователем появляется форма prosmotr (Рис.2.5).

 

Рис. 2.5. Форма просмотра расписания

В качестве основного алгоритма программы рассмотрим пример запроса расписания групп:

procedure Tprosmotr.Button1Click(Sender: TObject);

 var s1:Tbutton; ng,ng1: string;

begin

s1:=Sender as Tbutton;

if button1.Caption<>'1 курс' then begin

                             s1:=Sender as Tbutton;

                             s:=s1.Caption;

                             nadpis;

                             end

else begin Showmessage(s);

case s[1] of

'П': ng:='1';

'Р': ng:='2';

' ': ng:='3';

'Ф': ng:='4';

'И': ng:='5';

'М': ng:='6';

'Г': ng:='7';

'Э': ng:='8';

'У': ng:='9';

'Б': ng:='10';

end;

ng:=ng+s1.Caption[1];

ng1:=ng+'5';

ng:=ng+'0';  

with Query1.SQL do begin

              Clear;

              Add ('select Nomer_par, Disciplina, Dolgnost, Prepodavatel, ayditoria, potok');

              Add ('from ":rasp:база расписание.db"');

              Add ('where (Nomer_gryp<='+ng1+')and (Nomer_gryp>='+ng+')');

              Add ('order by Nomer_gryp ');

              end;;

{DataSource1.DataSet:=query1;}

Showmessage(ng);

if query1.RecordCount<>0 then

                    datasource1.DataSet:=query1

else begin

showmessage('Таких записей нет');

datasource1.DataSet:=table1;

end;

dataSource1.DataSet.Active:=true;

              end;

end.

Таким образом, совокупность разрабатываемых таблиц, форм, модулей, запросов и отчетов и создают информационно-справочную систему «Электронного расписания СОФ НИУ «БелГУ», работа с которой позволяет получать информацию о расписании ее дальнейшее редактирование, сохранение и вывод результатов.