Автор работы: Пользователь скрыл имя, 19 Апреля 2010 в 19:11, Не определен
Целью курсовой работы ИС «Преподаватели» является разработка реляционной базы данных и приложения для работы с ней.
Для достижения данной цели были поставлены следующие задачи для ИС «Преподаватели»:
хранение данных о преподавателях;
автоматизация ввода информации;
автоматизация получения данных о преподавателе;
Бывают случаи, когда эффективность работы сотрудников отдела кадров зависит от вовремя найденных сведений о конкретном преподавателе. Для обеспечения более оперативного и конкретизированного поиска необходимых сведений о преподавателе и была разработана данная ИС.
ИС «Преподаватели» предоставляет возможность хранения информации о преподавателе в базе данных.
ИС «Преподаватели» разработана специально для сотрудников отдела кадров ВУЗа.
dm.t_status.Open;
end;
procedure TMainForm.DBGrid1CellClick(
begin
MainForm.GroupBox3.Visible:=
dm.QPredmet.SQL.Text:='select
distinct * from predmety p, prepodavateli pr, gruppy_predmety_prepodavateli
g, gruppy gr where p.pr=g.pr and g.gr=gr.gr and g.prep=pr.prep and pr.prep='+IntToStr(dm.Qprepod[
dm.QPredmet.Open;
end;
procedure TMainForm.N10Click(Sender: TObject);
begin
Fgruppa_add.ShowModal;
end;
procedure TMainForm.Button1Click(Sender: TObject);
begin
dm.Qprepod.SQL.Text:='select * from prepodavateli';
dm.Qprepod.open;
end;
procedure TMainForm.DBLCB_kaf_
begin
rball.Checked:=false;
dm.Qprepod.SQL.Text:='select * from prepodavateli, kafedry where prepodavateli.kaf=kafedry.kaf and kaf=:par2 order by f';
dm.Qprepod.ParamByName('par2')
dm.Qprepod.Open;
end;
procedure TMainForm.RBallClick(Sender: TObject);
begin
dm.Qprepod.SQL.Text:='select * from prepodavateli order by f';
dm.Qprepod.Open;
end;
end.