Екзаменаційна сесія

Екзаменаційна сесія. Необхідно зберігати дані, необхідні для планування проведення екзаменаційної сесії: назву та коди спеціальностей, груп, дисциплін, прізвища викладачів. Сформувати графік проведення екзаменаційної сесії. Надрукувати розклад проведення екзаменаційної сесії.

Інформація, що повинна зберігатися в базі даних.

м

Рис. 1

1. Опис предметного середовища

Рис. 13 - Ієрархія форм застосування

Головна форма програми

На головній формі програми розташовані кнопки, завдяки яким можна здійснити перехід на інші форми для перегляду основних таблиць бази даних, а також для перегляду звіту.

Рис. 14

procedure TForm5.Button6Click(Sender: TObject);

begin

Close;

end;

procedure TForm5.Button1Click(Sender: TObject);

begin

Form1.Show;

end;

procedure TForm5.Button2Click(Sender: TObject);

begin

Form6.Show;

end;

procedure TForm5.Button3Click(Sender: TObject);

begin

Form3.Show;

Form3.GroupBox2.Visible:=False;

Form3.GroupBox1.Visible:=False;

end;

procedure TForm5.Button7Click(Sender: TObject);

begin

Form10.show;

end;

procedure TForm5.Button4Click(Sender: TObject);

begin

Form3.Show;

Form3.GroupBox2.Visible:=False;

Form3.GroupBox1.Visible:=True;

end;

procedure TForm5.Button5Click(Sender: TObject);

begin

Form10.Show;

Form10.QuickRep1.Preview;end;

Форма Спеціальність - Група.

Дана форма має дві таблиці та можливості редагування, а сама додавати, змінювати або видаляти дані.

Рис. 15

procedure TForm1.Button1Click(Sender: TObject);

begin

Form4.Show;

DataModule2.Table1.Insert;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Form4.Show;

DataModule2.Table1.Edit;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

DataModule2.Table1.Delete;

end;

procedure TForm1.Button7Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

Form7.Show;

DataModule2.Table2.Insert;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

Form7.Show;

DataModule2.Table2.Edit;

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

DataModule2.Table2.Delete;

end;

Форми для редагування даних:

Рис. 16

procedure TForm4.Button1Click(Sender: TObject);

begin

DataModule2.Table1.Post;

Close;

end;

procedure TForm4.Button2Click(Sender: TObject);

begin

DataModule2.Table1.Cancel;

Close;

end;

Форма Дисципліна - Викладачі

Дана форма має дві таблиці та можливості редагування, а сама додавати, змінювати або видаляти дані.

Рис. 17

Форми редагування даних:

Рис. 18

Форма Іспит

Дана форма є проміжною таблицею. Дану таблицю ми заповнюємо за допомогою таблиць Група і Дисципліна та вносимо дані про дату, час та місце проведення іспиту, а також маємо змогу редагування таблиці.

Рис. 19

procedure TForm3.Button2Click(Sender: TObject);

begin

datamodule2.Table5.Delete;

end;

procedure TForm3.Button1Click(Sender: TObject);

var

code_1,code_2:integer;

SQL_text,text:string;

begin

code_1:=DataModule2.Table2.FieldByName('GCode').Value;

code_2:=DataModule2.Table3.FieldByName('DCode').Value;

text:=Edit1.Text;

SQL_text:='InsertintoExamination values('+inttostr(code_2)+','+inttostr(code_1)+','+quotedstr(Edit1.text)+','+quotedstr(Edit2.text)+','+quotedstr(Edit3.text)+')';

DataModule2.Query1.SQL.Clear;

DataModule2.Query1.SQL.Add(SQL_text);

DataModule2.Query1.ExecSQL;

DataModule2.Table5.Refresh;

Edit1.Text:= '';

Edit2.Text:= '';

Edit3.Text:= '';

end;

Форма для редагування даних:

Рис. 20

procedure TForm9.Button1Click(Sender: TObject);

begin

DataModule2.Table5.Post;

Close;

end;

procedure TForm9.Button2Click(Sender: TObject);

begin

DataModule2.Table5.Cancel;

Close;

end;

Форма для визначення розкладу для певної спеціальності.

Форма за допомогою якої ми можемо визначати розклад для певної спеціальності обравши її з випадаючого списку.

Рис. 21

procedure TForm3.Button9Click(Sender: TObject);

var

sql_text:string;

begin

sql_text:='SELECT GName, GNum, DName, EData, ETime, EPlace FROM Examination E INNER JOIN Discipline D ON E.DCode = D.DCode INNER JOIN "Group" G ON E.GCode = G.GCode WHERE GName='''+ Form3.Edit6.Text+'''';

DataModule2.Query2.SQL.Clear;

DataModule2.Query2.SQL.Add(sql_text);

DataModule2.Query2.Open;

Form11.Show;

end;

procedure TForm3.FormCreate(Sender: TObject);

begin

whilenot Datamodule2.Table1.Eof dobegin

ComboBox1.Items.Add(Datamodule2.Table1.FieldByName('SName').AsString);

Datamodule2.Table1.Next;

end;

end;

procedure TForm3.ComboBox1Change(Sender: TObject);

begin

Form3.Edit6.Text:= Combobox1.Text;

end;

Результат формування розкладу:

Рис. 22

Форма DataModule.

Дана форма містить усі застосування компонентів програм, а саме такі компоненти, як Table, DataSource та Query.

Рис. 23

Форма Звіт.

Для створення розкладу екзаменаційної через звіт використовуємо компоненти вкладки QReport.

Рис. 24

Для формування розкладу задаємо SQLзапит.

procedure TForm10.FormActivate(Sender: TObject);

Varsql_text:string;

begin

sql_text:='SELECT GName, GNum, DName, EData, ETime, EPlace FROM Examination E INNER JOIN Discipline D ON E.DCode = D.DCode INNER JOIN "Group" G ON E.GCode = G.GCodeORDER BY GName, GNum, DName, EData, ETime, EPlace ';

DataModule2.Query1.SQL.Clear;

DataModule2.Query1.SQL.Add(sql_text);

DataModule2.Query1.Open;

end;

Розклад екзаменаційної сесії:

Рис. 25

Список використаної літератури