РМ. Для цього в модулі OGTusers - необхідно ввести всі особисті дані і зареєструватися.
Це дає можливість вести журнал обліку конкретного користувача і обмежити програму від несанкціонованого проникнення.
На рис. 7 представлена ??форма першого входу, який здійснюється від імені директора. У подальшому пароль рекомендується змінити.
При реєстрації користувача в службових даних заповнюються всі особисті дані Прізвище, Ім'я, По батькові, предмет, який викладає вчитель, стаж і т.д. При необхідності користувачеві видаються права адміністратора.
Надалі пароль та інформацію про користувача можна редагувати. Це може зробити як сам користувач, так і адміністратор.
Рис. 13. Перший захід у програму від імені директора
При наступних входах в програму необхідно ввести логін і пароль користувача, за якими і буде визначено користувач. Форма авторизації представлена ??на рис. 14.
Рис. 14. Форма авторизації.
При правильному введенні пароля здійснюється вхід і з'являється головне вікно програми, зображеного на рис. 15.
Рис. 15. Головне вікно програми
На головному вікні програми розташовані наступні розділи:
? вчителя;
? клас;
? учні;
? табель;
? форма пошуку;
? панель кнопок.
Розділ Вчителі у свою чергу має таблицю вчителів. При виборі рядки в таблиці з'являється можливість зміни даних про вчителя. Дані, вже введені в систему, відображаються в поле даних, розташованому внизу програми.
Розділ Вчителі і опція редагування даних про вчителя представлена ??на рис. 16.
Рис. 16. Розділ Вчителі і редагування даних про вчителя.
Робота кнопки Пошук :
TForm_chert. BitBtn_findiiClick (Sender: TObject) ;:=DBGrid_chert_open ;. CreateForm (TForm_find, Form_find); _ find. ShowModal; TextZap lt; gt; then begin
//Підготовляємо запит. Query. Close ;. Query. Prepare ;. Query. SQL. Clear ;. Query. SQL. Text:= Select * from + Vid + ?? where + TextZap;
{ShowMessage (DM. Query. SQL. Text); }. Query. Open;.
При натисканні кнопки викликається запит, який Осущетвляется вибір інформації з бази даних за параметрами поьзователя. Однак, спочатку потрібно цей запит створити. Створення запиту вполняется за допомогою процедури:
TForm_find. SB_poiskClick (Sender: TObject) ;, n: integer ;, Zn: String ;:= raquo ;; i:=0 to GridName. Columns. Count - 1 do begin (StringGrid1. Cells [1, i + 1] lt; gt; ) and (StringGrid1. Cells [1, i + 1] lt; gt; порожньо ) then begin:= StringGrid1. Cells [1, i + 1]; (GridName. Columns [i]. FieldName= Shifr ) and (CB_stp. Checked=True) then Zn:=ShifrPoStp (Zn); GridName. Columns [i]. FieldName= Izmen then beginStrToIntDef (Zn, 10)=10 then begin ( УВАГА! + # 13 + ласка задайте точно номер зміни цифрою! , mtWarning, [mbOk], 0) ;:= raquo ;; ;;:=S + + GridName. Columns [i]. FieldName + = + + Zn + AND end else beginn:=1 to Length (Zn) do beginZn [n]= * then Zn [n]:=% raquo ;; Zn [n]= laquo ;? then Zn [n]:= _ raquo ;;;:=S + + GridName. Columns [i]. FieldName + LIKE + + Zn + AND raquo ;;;; StringGrid1. Cells [1, i + 1]= порожньо then:=S + + GridName. Columns [i]. FieldName + IS NULL AND raquo ;;; (S, Length (S) - 3,4) ;:=S ;;;.
Розділ Клас містить дані про класах і їх класних керівників. При виборі рядки в таблиці класів з'являється можливість зміни даних про нього. Дані, вже введені в систему, відображаються в поле даних, розташованому внизу програми. Вид розділу Клас представлений на рис. 17.
Рис. 17. Розділ Клас і редагування даних про клас.
Розділ Учні містить дані про учнів - особисті справи учнів в електронному вигляді. При виборі рядки в таблиці учнів з'являється можливість зміни даних про нього. Дані, вже введені в систему, відображаються в поле даних, розташованому внизу програми. Вид розділу Учні представлений на рис. 18.
Рис. 18. Розділ Учні і редагування даних про учня.
Розділ Табель містить дані про успішність учнів. При виборі рядки в таблиці учнів з'являється можливість зміни даних про нього. Дані, вже введені в систему, відображаються в поле даних, розташованому внизу програми. Вид розділу Табель...
