учень - то доступно, лише «пройти урок».
if User.UserName= admin then.Visible:=true; .Visible:=true; button4.Visible:=true;
Додавання фігур з настройками в урок (створення списку доступних силуетів):
procedure TfrmaddFigLessons.CreateTree ;: Integer; DM.qSelectSiluets do; .Clear; .Add ( SELECT siId, siName FROM Siluets ) ;. Add ( WHERE siTag= + QuotedStr ( Study )) ;; RecordCount lt; 1 then ( У базі данн, не знайдено # 13ні одного силуету ,, [mbOk], 0) ;. Close ;; i:=1 to RecordCount do.Items.Add (nil, FieldByName ( siName ). AsString) ;;;;. Clear; .Add ( SELECT srSiluet, srTime, siName, siId ) ;. Add ( FROM SilResults, Siluets ) ;. Add ( WHERE (srSiluet=siId) and ( srUser= + (User.UserId) + ) ) ;; RecordCount lt; 1 then ;;;; i:=1 to RecordCount do.Add (FieldByName ( siName ). AsString) ;;;;;;
Додавання фігур з настройками в урок (збереження в БД):
with DM.tbLesFigures do;;(laquo;leNameraquo;).AsString:=LeName;(laquo;leFigNameraquo;).AsString:=TV.Selected.Text;(laquo;leTypeHelpraquo;).AsString:=HelpofType;(laquo;leHelpGridraquo;).AsInteger:=LeGrid;(laquo;leTimeHelpraquo;).AsInteger:=LeTime;;;;
//End of.kolFig:=frmAddlessons.kolFig + 1; .Edit1.Text:=frmAddlessons.Edit1.Text + Tv.Selected.Text + , raquo ;; not Assigned (frmaddLessons) then:=TfrmaddLessons.Create (Application) ;. Show; .Hide;
Збереження УрокаTfrmAddLessons.Button2Click (Sender: TObject); DM.tbLessons do;;(laquo;lesNameraquo;).AsString:=Edit2.Text;(laquo;leKolFigraquo;).AsInteger:=KolFig;;;;MessageDlg(laquo;Урок Збережено! Raquo ;, mtInformation,
[mbYes], 0)=mrYes then; Click (self);
End;
Перевірка зібраності силуету, перехід до наступного, перехід до результатів:
procedure TfrmLessonsStudy.btnCheckClick (Sender: TObject) ;: Integer ;: array of TFigure ;, ShiftY: Double; (Figures, ShiftX, ShiftY); (ShiftFigures, Length (Figures)); i:=0 to High ( Figures) do [i]:=TFigure.Create (Figures [i] .X - ShiftX, [i] .Y - ShiftY, Figures [i] .R, Figures [i] .hlpR, [i] .Grad, Figures [i] .Idnt); CompOneSiluet (Siluet.SiluetId, ShiftFigures) then
begin
//Siluet.Save; MessageDlg ( Вітаємо, Ви впоралися з цим завданням! # 13 +
Для продовження натисни ті Та raquo ;, mtInformation,
[mbYes, mbNo], 0)=mrYes then
//FAfterClose:=cResult; DM.qLesFigures do.Clear; .Add ( SELECT leFigName, leTypeHelp, leHelpGrid, leTimeHelp ) ;. Add ( FROM LesFigures ) ;. Add ( WHERE ( leName= + lesson + ) ) ;;; i:=0 to nomles do;:=FieldByName ( leFigName ). AsString ;; (nomles + 1)=kolfig thenfAfterClose: =cLesResult; .Result:=Res; .kolfig:=kolfig; .lesson:=lesson; .timer:=Time-startTime ;; end else:=finish + 1;:=nomles + 1; (nextlesson); (Figures, 7); (Figures, 4 );:=High (Figures) + 1; (self); (self);.Caption:=lesson + + Завдання № + IntToStr (Nomles + 1) + + Siluet.SiluetName;
end ;; MessageDlg ( Ви не вірно зібрали цей силует, # 13 +
спробуйте ще раз raquo ;, mtError, [mbOk], 0);
4. Схема функціонування ПС або ПТС
Архітектура системи представлена ??нижче
Далі наведено докладний опис вузлів схеми функціонування:
Стартова форма - форма, з якої починається робота користувача;
Початок занять - перехід до занять;
Реєстрація - форма реєстрації нових користувачів;
Вихід - вихід з програми;
Вхід - тут необхідно підтвердити реєстрацію;
Навчання - форма вибору виду навчання;
Діагностика - форма вибору виду діагностики;
Результати - виведення результатів;
Традиційний танграм (Навчання) - форма вибору силуету з подальшим переходом до його збирання. По закінченню виводяться результати;
Уроки - перехід до початкової форми уроків;
Пройти урок - перехід до форми вибору уроку, з подальшим його проходженням. Після закінчення виводяться результати.
Створити урок - перехід до формі створення уроків доступною тільки адміністратору. Вибирається назва уроків, з БД в нього додаються фігури.
Редагувати урок - перехід до формі редагування уроків доступною тільки адміністратору. У даній формі можна перейменувати, видалити урок, а так само додати або видалити фігури входить до складу існуючих уроків.
Традиційний танграм (Діагностика) - перехід до розробленого режиму діагностика зі стандартними фігурами.
х3, 4х4, 5,5 - перехід до розробленого режиму діагностика з фігурами з відповідних матриць.
5. Дані ПС
Обмін даних програми обмежується роботою з Базою Даних Tangram.mdb. Вхідні дані задаються користувачем у формах і програмно записуються через послідовність спеціальних команд. Вихідні дані - беруться з Бази Даних в певних моментах роботи програми за допомогою SQL запитів і виводяться на користувача форми. Далі детально розглянуті вхідні і вихідні...
