2. Button – в данном компоненте мы изменяем свойство Caption на «Выход», щелкаем два раза по компоненту и в процедуре прописываем Close; т.е. при нажатии на эту кнопку происходит закрытие окна.
Затем для осуществления доступа к нашим созданным в DatabaseDesktop таблицам мы создаем дополнительный модуль DataModule (см. Приложение 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;
С помощью данных компонентов мы разработали удобный интерфейс для пользователя.