е у нього є можливість:
· переглядати і редагувати списки зареєстрованих користувачів;
· переглядати і видаляти результати проходження конкретним користувачем конкретного тесту;
· переглядати і редагувати списки лекції та тести.
Розробити програму з клієнт - серверною архітектурою, за допомогою якої буде здійснюватися зв'язок викладача зі студентами та доступ до інформації, неоходимой для навчання студентів. Інформація про студентів і результати складання тестів будуть зберігатися в спеціально відведеній для цього базі даних.
Список літератури
1.В. П. Алдонін, І. В. Волдайская, Visual FoxPro 9.0 для студентів ВНЗ. Изд. М. Инфра - М, 2010р., 224 с. з мул.
. Т. В. Мусіна, Visual FoxPro 9.0. Навчальний курс - К .: ВЕК +, СПб .: КОРОНА-ВІК, 2007, 528 с. з мул.
. Т. Л. Омельченко, І.І. Попов, Самовчитель Visual FoxPro 9.0. Изд. М. Инфра - М, 2009р., 464 с. з мул.
.У. В. Попкова, І. Н. Рогожкіна, Delphi 7.0. Изд. М. Юніті-Дана, 2010 г., 470с.
.А.А. Філімонова, В. П. Малишкін, Delphi самовчитель. Изд. М. Тріумф, 2011р., 200с. з мул.
Додаток
unit Unit1 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls;=class (TForm): TGroupBox ;: TRadioButton ;: TRadioButton ;: TRadioButton ;: TRadioButton; RadioButton1Click (Sender: TObject); RadioButton2Click (Sender: TObject); RadioButton3Click (Sender: TObject); RadioButton4Click (Sender: TObject) ;;: TForm1; DM, DB, testirovanie, Unit2, Unit3, Unit9; TForm1.RadioButton1Click (Sender: TObject ) ;. Show; .Button2Click (Sender) ;. Visible:=false ;; TForm1.RadioButton2Click (Sender: TObject) ;. Show; .Visible:=false ;; TForm1.RadioButton3Click (Sender: TObject) ;. Show ;; TForm1.RadioButton4Click (Sender: TObject) ;. Close; .RadioButton2.Enabled:=true ;; end.Unit4 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, Menus, jpeg, ExtCtrls;=class (TForm): TMainMenu ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TImage ;: TMenuItem; N3Click (Sender: TObject); N4Click (Sender: TObject); N2Click (Sender: TObject); N5Click (Sender: TObject); N6Click (Sender: TObject) ;;: TForm4; Unit5, Unit8, Unit11, Unit19; TForm4.N3Click (Sender: TObject) ;. hide; .show ;; TForm4.N4Click (Sender: TObject) ;. show; .Hide ;; TForm4.N2Click (Sender: TObject); application.MessageBox ( Ви дійсно хочете вийти? ,
Вихід , mb_iconQuestion + mb_yesno)=idyes then.Close ;; TForm4.N5Click (Sender: TObject) ;. Hide; .show ;; TForm4.N6Click (Sender: TObject) ;. Show ;;. Unit5 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, jpeg, ExtCtrls, Mask, StdCtrls;=class (TForm): TGroupBox ;: TLabel ;: TEdit ;: TMaskEdit ;: TImage;:TImage ;: TImage ;: TLabel; Image1Click (Sender: TObject); Image2Click (Sender: TObject); Label2Click (Sender: TObject); MaskEdit1KeyPress (Sender: TObject; var Key: Char); Image1MouseDown (Sender: TObject; Button: TMouseButton ;: TShiftState; X, Y: Integer); Image1MouseUp (Sender: TObject; Button: TMouseButton ;: TShiftState; X, Y: Integer); Image2MouseDown (Sender: TObject; Button: TMouseButton ;: TShiftState; X, Y: Integer ); Image2MouseUp (Sender: TObject; Button: TMouseButton ;: TShiftState; X, Y: Integer) ;;: TForm5; DM, Unit1, Unit6, Unit4, Unit7, Unit9; TForm5.Image1Click (Sender: TObject) ;: integer; form5.MaskEdit1.Text= then begin (Handle, PChar ( Введіть пароль! ), PChar ( Увага ), MB_ICONWARNING + MB_DEFBUTTON2) ;; end (form5.MaskEdit1.Text= ) or (form5.MaskEdit1.Text lt; gt; datamodule2.ADOTable2key2.text) then.Text:=edit1.Text + a raquo ;; edit1.Text= a raquo ; then begin MessageBox (Handle, PChar ( Пароль введен не верно! У Вас залишилося дві спроби ), PChar ( Помилка ), MB_ICONWARNING + MB_DEFBUTTON2) ;. clear ;; edit1.Text= aa then begin MessageBox (Handle, PChar ( Пароль введен не верно! У Вас залишилося одна спроба ), PChar ( Помилка ), MB_ICONWARNING + MB_DEFBUTTON2) ;. clear ;; edit1.Text= aaa then begin MessageBox (Handle, PChar ( Пароль 3 рази був введений не вірно! ), PChar ( Помилка ), MB_ICONWARNING + MB_DEFBUTTON2) ;. hide; .show ;; end; (form5.MaskEdit1.Text=datamodule2.ADOTable2key2.text) then.show; .Hide; .MaskEdit1.Clear ;; end; TForm5.Image2Click (Sender: TObject) ;. Show; .Close ;; TForm5.Label2Click (Sender: TObject) ;. show; .Close ;; TForm5.MaskEdit1KeyPress (Sender: TObject; var Key: Char) ;: integer ; not (key in [ 0 .. 9 , # 9, # 13]) then key:=# 13; begin; Key=# 13 then beginform5.MaskEdit1.Text= then begin (Handle, PChar ( Введіть пароль! ), PChar ( Увага ), MB_ICONWARNING + MB_DEFBUTTON2) ;; end (form5.MaskEdit1.Text= ) or (form5.MaskEdit1.Text lt; gt; datamodule2.ADOTable2key2.text) then.Text:=edit1.Text + a...
