Глава 3 Программная реализация

 

Для реализации БД и разработки интерфейса мы используем среду программирования Delphi.

Главное меню программы создаем следующим образом.

Создаем новый проект и на форме (Form1) размещаем следующие компоненты (см. Приложение 6):

1. MainMenu – этот компонент служит для создания меню программы, в свойстве Items мы прописываем наше меню, состоящее из справочников, отчетов, «о программе» и «выход».

2. Button – в данном компоненте мы изменяем свойство Caption на «Выход», щелкаем два раза по компоненту и в процедуре прописываем Close; т.е. при нажатии на эту кнопку происходит закрытие окна.

Затем для осуществления доступа к нашим созданным в Database Desktop таблицам мы создаем дополнительный модуль Data Module (см. Приложение 6). На этом модуле мы размещаем следующие компоненты:

1. Query1 – в данном компоненте в свойстве DatabaseName мы прописываем путь у нашей БД, в свойстве SQL мы прописываем текст запроса:  Select * from Student

И свойству Action мы устанавливаем значение True.

2. DataSource1 – этот компонент обеспечивает доступ к БД через компонент Query1. В свойстве DataSet мы выбираем Query1.

3. Table1 – в этом компоненте в свойстве DatabaseName мы прописываем путь у нашей БД, а в свойстве TableName мы выбираем нужную нам таблицу. Затем устанавливаем для свойства Action значение True.

4.  DataSource2 – этот компонент мы связываем с компонентом Table1 при помощи свойства DataSet,

Далее создаем новую форму (Form3). На ней размещаем следующие компоненты (см. Приложение 6):

1. DBGrid1 – данный компонент мы используем для отображения содержимого наших справочников. В свойстве DataSource мы прописываем DataM.DataSource2, тем самым получая доступ к справочнику.

2. Размещаем кнопку редактирования, используя при этом компонент Button. Для того, чтобы при нажатии на эту кнопку появилось окно редактирования создадим еще одну форму(см. ниже Form7). Затем щелкнем по кнопке два раза и напишем текст программы в процедуре.

procedure TForm3.Button1Click(Sender: TObject);

begin

Form7.Show; //отображение окна редактирования

end;

3. Размещаем кнопку «Добавить», используя компонент Button. Щелкаем два раза по компоненту и в открывшемся окне в процедуре procedure TForm3.Button2Click(Sender: TObject) прописываем следующий текст:

procedure TForm3.Button2Click(Sender: TObject);

begin // вставка новой строки

DataM.Table1.Insert;

DataM.Table1.FieldByName('FIO').AsString:=' ';

DataM.Table1.FieldByName('GRUPPA').AsString:=' ';

DataM.Table1.FieldByName('TOWN').AsString:=' ';

DataM.Table1.Post;

end;

4. Размещаем кнопку «Удалить», используя все тот же компонент Button. Щелкаем два раза и пишем следующий текст:

procedure TForm3.Button3Click(Sender: TObject);

begin

DataM.Table1.Delete; // удаление записи

end;

5. Аналогично размещаем кнопку «Закрыть» и пишем следующий текст:

procedure TForm3.Button4Click(Sender: TObject);

begin

Close;

end;

Создаем еще одну форму (Form4), размещая на ней следующие компоненты (см. Приложение 7):

1. Кнопку Button с названием «Просмотр отчета №1», щелкаем по ней два раза и пишем следующее:

procedure TForm4.Button1Click(Sender: TObject);

begin

Form5.QuickRep1.Preview; // вывод отчета

end;

2. Кнопку Button с названием «Просмотр отчета №2», щелкаем по ней два раза и пишем следующее:

procedure TForm4.Button3Click(Sender: TObject);

begin

Form6.QuickRep1.Preview;

end;

3. Кнопку Button с названием «Закрыть», щелкаем по ней два раза и пишем следующее:

procedure TForm4.Button2Click(Sender: TObject);

begin

Close;

end;

Создаем новую форму (Form5), на которой будет отображаться отчет №1. Размещаем на ней следующие компоненты (см. Приложение 7):

1. Query1 – в свойстве DatabaseName мы прописываем путь у нашей БД. И свойству Action устанавливаем значение True.

В свойстве SQL пишем следующий запрос:

Select NZ,FIO,Subs,MARK

from Student,Subs,Marks

where Student.NZ=Marks.NZ and Subs.S_ID=Marks.S_ID

ORDER BY FIO

2. QuckRep1 – данный компонент служит для отображения нужного нам отчета. В свойстве DataSet выбираем Query1.

Создаем новую форму (Form6), на которой будет отображаться отчет №2. Размещаем на ней следующие компоненты (см. Приложение 8):

1. Query1 – В свойстве DatabaseName мы прописываем путь у нашей БД. И свойству Action устанавливаем значение True.

В свойстве SQL пишем следующий запрос:

Select * from Prepodavatel   ORDER BY FIO

2. QuckRep1 – данный компонент служит для отображения нужного нам отчета. В свойстве DataSet выбираем Query1.

Создаем новую форму (Form7) – это будет наше окно для редактирования. Размещаем следующие компоненты (см. Приложение 8):

1. Label1, Label2, Label3 – в свойстве Caption меняем название соответственно «ФИО», «Группа», «Город».

2. Edit1, Edit2, Edit3 – для ввода значений

3. Кнопка Button «Выполнить», щелкаем по ней два раза и пишем следующий текст:

procedure TForm7.Button1Click(Sender: TObject);

begin

DataM.Table1.Edit;

DataM.Table1.FieldByName('FIO').AsString:=Edit1.Text;

DataM.Table1.FieldByName('GRUPPA').AsString:=Edit2.Text;

DataM.Table1.FieldByName('TOWN').AsString:=Edit3.Text;

DataM.Table1.Post;

end;

4. Кнопка Button «Закрыть», щелкаем по ней два раза и пишем следующий текст:

procedure TForm7.Button2Click(Sender: TObject);

begin

Close;

end;

Создаем последнюю форму для наших справочников (Form8), на которой размещаем следующие компоненты:

1. DBGrid1 – данный компонент мы используем для отображения содержимого наших справочников. В свойстве DataSource мы прописываем DataM.DataSource1, тем самым получая доступ к справочнику.

2. Кнопку Button с названием «Закрыть», щелкаем по ней два раза и пишем следующее:

procedure TForm8.Button1Click(Sender: TObject);

begin

Close;  end;

Для того чтобы при выборе в меню справочника отбражались нужные данные, мы щелкаем в компоненте MainMenu по справочнику «Студенты» и прописываем следующий текст программы:

procedure TForm1.N2Click(Sender: TObject);

begin

Form3.Show;

end;

Затем щелкаем по справочнику «Предметы» и пишем:

procedure TForm1.N3Click(Sender: TObject);

begin

Form8.Show;

DataM.Query1.SQL.Clear;

DataM.Query1.SQL.Add('Select * from Subs');

DataM.Query1.Active:=true;

end;

Далее щелкаем по справочнику «Преподаватели» и пишем:

procedure TForm1.N4Click(Sender: TObject);

begin

Form8.Show;

DataM.Query1.SQL.Clear;

DataM.Query1.SQL.Add('Select * from Prepodavatel');

DataM.Query1.Active:=true;

end;

И наконец, щелкаем по справочнику «Кафедры» и пишем следующее:

procedure TForm1.N5Click(Sender: TObject);

begin

Form8.Show;

DataM.Query1.SQL.Clear;

DataM.Query1.SQL.Add('Select * from Kafedra');

DataM.Query1.Active:=true;

end;

С помощью данных компонентов мы разработали удобный интерфейс для пользователя.