Разработка прикладной программы на основе архитектуры "клиент – сервер"

 















Курсовая работа

По дисциплине «Операционные системы»

На тему:

Разработка прикладной программы на основе архитектуры клиент - сервер


Содержание


1. Введение

. Описание применения

. Описание программы менеджера

3.1 Вход в качестве пользователя

.1.1 Переход к тестам

.1.2 Переход к лекция

.1.3 Сообщения

.1.4 Выход

.2 Вход в качестве преподавателя

.2.1 Результаты пользователей

.2.2 Просмотр и редактирование тестов

.2.3 Установление режима прохождения тестов

.2.4 Сообщения

.2.5 Добавление новых лекций

.2.6 Выход

4. Описание теста

Заключение

Список литературы

Приложение

интерфейс сервер клиент электронный учебник


1. Введение


Цель работы - данный программный продукт представляет собой электронный учебник. Основное предназначение данной программы - возможность дистанционного обучения студентов и тестирование у них знаний по данному предмету.

У студентов появляются следующие преимущества:

. самостоятельное изучение лекционнго материала по данной дисциплине;

. проверка знаний, по пройденному лекционному материалу с помощью прохождения тестов, содержащихся в данном программном продукте;

. общение с преподавателем путем отправки сообщений.

Преподаватель имеет следующие возможности:

1.добавлять новый лекционный материал по данному предмету;

2.добавлять метордические указания к выполнению практических работ по данной дисциплине.

.тестировать студентов и проверять их знания;

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

.связываться со студентами с помощью отправки сообщений.


2. Описание применения


ОБРАЩЕНИЕ К ПРОГРАММЕ

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

ФАЙЛЫ СИСТЕМЫ

В данной систме осуществляется работа с базой данной «DB.mdb», которая содержит всебе таблицы. Каждая таблица состоит из соответствующих полей. Рассмотрим использующиеся в программе таблицы:


Таблица 1. Студенты

Название поляТип поляДлина поляВид поляРасшифровка НазванияLoginТекстовый50КлючевоеЛогинParolТекстовый50ПарольFamТекстовый25ФамилияNameТекстовый20ИмяGroupТекстовый10ГруппаKod_rezЧисловой3КлючевоеРезультатKod_mesЧисловой3КлючевоеСообщение

Таблица 2. Результаты сдачи тестов

Название поляТип поляДлина поляВид поляРасшифровка НазванияKod_rezЧисловой3КлючевоеРезультатNaz_testТекстовый50Название тестаRezultatЧисловой3Оценка

Таблица 3. Сообщения

Название поляТип поляДлина поляВид поляРасшифровка НазванияKod_mesЧисловой3КлючевоеСообщениеKomy_sТекстовый50Название тестаOtkogo_sТекстовый50ОценкаSoderganieТекстовый100Содержание

Таблица 4. Вопросы

Название поляТип поляДлина поляВид поляРасшифровка НазванияIdСчетчикдлинное целоеКлючевоеКодNomerЧисловойдлинное целоеПорядковый номерVoprosТекстовый255Вопрос

Таблица 5. Варианты ответов

Название поляТип поляДлина поляВид поляРасшифровка НазванияIdСчетчикдлинное целоеКлючевоеКодVoprosЧисловойдлинное целоеВопросOtvetТекстовый255ОтветPravЛогическийда/нетПравильный

Таблица 6. Объяснения к вариантам ответов

Название поляТип поляДлина поляВид поляРасшифровка НазванияIdСчетчикдлинное целоеКлючевоеКодVoprosЧисловойдлинное целоеВопросObiasТекстовый255ОбъяснениеPravЛогическийда/нетПравильный

3. Описание программы менеджера


Рисунок 1. Структура программы-менеджера


Клиент- сервер:

В главном окне программы (рисунок 2) в пункте меню «Вход» существует возможность входа в систему в качестве студента или преподавателя, предварительно введя логин и пароль. В пункте «Регистрация» осуществляется регистрация новых пользователей. Пункт меню «О программе» содержит информацию о самой программе и ее разработчиках. Пункт «Выход» осущетвляет выход из программы.


Рисунок 2. Главное меню программы

Регистрация нового пользователя

Регистрация осуществляется нажатием на соответствующую кнопку или нажатием клавиши F4. В окне регистрации необходимо заполнить все данные о пользователе. Ввод фамилии и имени пользователя осуществляется только на русском языке (рисунок 3).

Ввод фамилии и имени

if edit3.Text='' then begin(Handle,PChar('Введите фамилию!'),PChar('Ошибка'), MB_ICONWARNING+MB_DEFBUTTON2);; end;edit1.Text='' then begin(Handle,PChar('Введите имя!'),PChar('Ошибка'), MB_ICONWARNING+MB_DEFBUTTON2);

exit; ;

На данном этапе осуществляется ввод двух строк - fam и name, которые соответствуют фамилии и имени пользователя. Принятие введеной информации осуществляется по нажатию на кнопку «ОК».

Ввод номера группы

if edit2.Text='' then begin(Handle,PChar('Укажите группу!'),PChar('Ошибка'), MB_ICONWARNING+MB_DEFBUTTON2);;;

На данном этапе осуществляется ввод номера группы в поле group. Принятие введеной информации осуществляется по нажатию «ОК».

Ввод лоигна

if (datamodule2.ADOTable1.Locate('login',MaskEdit1.Text,[])) then begin(Handle,PChar('Такой логин уже существует!'),PChar('Ошибка'), MB_ICONWARNING+MB_DEFBUTTON2);.MaskEdit1.Text:=''; ; end;form11.MaskEdit1.Text='' then begin(Handle,PChar('Введите логин!'),PChar('Ошибка'), MB_ICONWARNING+MB_DEFBUTTON2);; ;

На данном этапе осуществляется ввод логина в поле login. Затем производится проверка введенного логинаю Если прочитанный логин совпадает с введенным, то выводится соответствующее сообщение и осуществляется переход к повторному вводу логина.

Ввод пароля

if (datamodule2.ADOTable1.Locate('parol',MaskEdit2.Text,[])) then begin(Handle,PChar('Введенный пароль уже существует!'),PChar('Ошибка'), MB_ICONWARNING+MB_DEFBUTTON2);.MaskEdit2.Text:=''; ; ;form11.MaskEdit2.Text='' then begin(Handle,PChar('Введите пароль!'),PChar('Ошибка'), MB_ICONWARNING+MB_DEFBUTTON2);; ;

На данном этапе осуществляется ввод пароля в поле parol. Затем производится проверка введенного пароля. Если прочитанный пароль совпадает с введенным, то выводится соответствующее сообщение и осуществляется переход к повторному вводу пароля.

Формирование имени пользователя:

DataModule2.ADOTable1.FieldValues['login']:=form11.MaskEdit1.Text;.ADOTable1.FieldValues['parol']:=form11.MaskEdit2.Text;.ADOTable1.FieldValues['fam']:=form11.Edit2.Text;.ADOTable1.FieldValues['name']:=form11.Edit3.Text;.ADOTable1.FieldValues['group']:=form11.Edit1.Text;

Таблица, содержащая личные данные пользователей, сцеплением в одну строку следующих компонентов:

·фамилия пользователя;

·имя пользователя;

·номер группы;

·логин.

Запись введенной информации:

DATAMODULE2.ADOTABLE1.INSERT;.ADOTABLE1.POST;

Запись введенных данных о пользователе осуществляется в вспециальную таблицу, котороя хранит данные о всех пользователях.


Рисунок 3. Регистрация нового пользователя


О программе

procedure TAboutBox.OKButtonClick(Sender: TObject);.Close;;.

При нажатии в главном меню программы на кнопку «О программе», выйдет новое окно, которое содержит информацию о программе и ее создателях (рисунок 4).


Рисунок 4. О программе


Выход из программы

procedure TForm4.N2Click(Sender: TObject);application.MessageBox('Вы действительно хотите выйти? ',

'Выход',mb_iconQuestion+mb_yesno)=idyes then.Close;;

При нажатиии на кнопку Выход, выведется специальное сообщение. Оно требует подтверждения о выходе из прогрммы (рисунок 5).


Рисунок 5. Выход из программы


3.1 Вход в качестве пользователя


Рисунок 6. Вход через пользователя


Для перехода в главное меню пользователя необходимо в новом окне программы ввести логин и пароль.

Ввод логина и пароля

if not(key in['0'..'9',#9,#13]) then key:=#13; begin;Key = #13 then beginform8.MaskEdit1.Text='' then begin(Handle,PChar('Введите логин!'),PChar('Внимание'), MB_ICONWARNING+MB_DEFBUTTON2);; ;form8.MaskEdit2.Text='' then begin(Handle,PChar('Введите пароль!'),PChar('Внимание'), MB_ICONWARNING+MB_DEFBUTTON2);; ;

Введенные данные принимаются при нажатии на кнопку «ОК». Ввод осуществляется только любыми буквами или цифрами. Если пароль или логин не введены, то на экран выведутся специальные сообщения (рисунок 7).

Поиск логина и пароля в файле учета пользователей.

Условие 1:(form8.MaskEdit1.Text<>datamodule2.adotable1login.Text) or (form8.MaskEdit2.Text<>datamodule2.adotable1parol.Text)then.Text:=edit1.Text+'a';edit1.Text='a' then begin MessageBox(Handle,PChar('Ошибка! У Вас осталось две попытки'),PChar('Ошибка'), MB_ICONWARNING+MB_DEFBUTTON2);.clear;.clear;;edit1.Text='aa' then begin MessageBox(Handle,PChar('Ошибка! У Вас осталось одна попытка'),PChar('Ошибка'), MB_ICONWARNING+MB_DEFBUTTON2);.clear;.clear;;edit1.Text='aaa' then begin MessageBox(Handle,PChar('Вы ошиблись 3 раза!'),PChar('Ошибка'), MB_ICONWARNING+MB_DEFBUTTON2);.hide;.close;;;

Это условие проверяет, соответствуют ли прочитанные логин и пароль, хранящиеся в таблице, введенным на предыдущем шаге. Если это условие не выполняется, то на экран выводится специальное сообщение. Если пароль и логин 3 раза были неправильно введены, осуществится обратный переход к главному меню программы.

Условие 2:(form8.MaskEdit1.Text=datamodule2.adotable1login.Text) and (form8.MaskEdit2.Text=datamodule2.adotable1parol.Text) then.show;.adotable1.Filtered:=true;.adotable1.Filter:='login='+quotedstr(MaskEdit1.Text);.Label2.Caption:=datamodule2.ADOTable1fam.Text;.Label3.Caption:=datamodule2.ADOTable1name.Text;.Label4.Caption:=datamodule2.ADOTable1group.Text;.Hide;;

Это условие проверяет, соответствуют ли прочитанные логин и пароль, хранящиеся в таблице, введенным на предыдущем шаге. Если это условие выполняется, то осуществляется переход к меню пользователя.


Рисунок 7. Ввод логина и пароля

Главное меню пользователя:

В главном меню пользователю предлагется выбрать один из пунков с помощью выбора соответсвующего пункта меню (рисунок 8). При нажатии клавишы на пункт меню Файл- Прочитать лекции пользователь имеет возможность перейти к тестам. В пункте меню Файл-Пройти тест пользователь имеет возможность пройти один из существующих тестов. Выбрав пункт меню Сообщения пользователь может отправить сообщение преподавателю или прочитать полученные им сообщения. В пункте меню «Назад» осуществляется возврат в главно е менню программы.


Рисунок 8. Меню пользователя


3.1.1 Переход к тестам

Для этого нужно в пункте меню пользователя выбрать вкладку «Пройти тест». Затем в новом окне выбрать нужную вкладку.


Рисунок 9. Меню теста

1)Установление режима прохождения тестов (рисунок 10):


Рисунок 10. Установление режима прохождения тестов


Установление режима по умолчанию:

Для этого необходимо нажать на кнопку «Начать тест» (рисунок 9). Перед пользователем появиться окно, содержащее в себе вопросы теста, варианты ответа и пояснения к этим вариантам. Переход к следующему вопросу осуществляется нажатием на кнопку «Далее» (рисунок 11).Ttesti.Vopros(nomer:integer);.Vopros.Locate('Номер',mass[nomer],[]);.Variant.First;.Caption:=DataModule2.Variant.FieldValues['Ответ'];DataModule2.Variant.FieldValues['Правильный']=true then.Tag:=1 else RadioButton1.Tag:=0;.Obyasnenie.First;.Caption:=DataModule2.Obyasnenie.FieldValues['Объяснение'];DataModule2.Obyasnenie.FieldValues['Правильный']=true then.Tag:=1 else RadioButton5.Tag:=0;;

2) Поиск агента в таблице хранения вопросов к тесту:

procedure Ttesti.Vopros(nomer:integer);.Vopros.Locate('Номер',mass[nomer],[]);.Variant.First;.Caption:=DataModule2.Variant.FieldValues['Ответ'];

3) Копирование результатов теста в таблицу учета сдачи тестов Rezultаti:

datamodule2.ADOTable3.Insert;.ADOTable3.FieldByName('rezultat').Value:=cena;.ADOTable3.FieldByName('fam').Value:=form9.Label2.Caption;.ADOTable3.FieldByName('name').Value:=form9.Label3.Caption;.ADOTable3.FieldByName('group').Value:=form9.Label4.Caption;.ADOTable3.FieldByName('data').Value:=datetostr(date);.ADOTable3.Post;

После прохождения теста в таблицу Rezultati записывается количество набранных баллов(rezultat), фамилия студента (fam), количество отвеченных имя студента (name) и группа, в которой он учится (group), дата прохождения теста (date).

4) Копирование результатов теста в файл учета сдачи тестов Rezultаti.txt:

if fileexists(put_k_data_base+rasshirenie_file_data_base) then(file_db,put_k_data_base+rasshirenie_file_data_base);(file_db);(file_db,put_k_data_base+rasshirenie_file_data_base);(file_db);;(file_db,'Имя '+form9.Label3.Caption);(file_db,'Фамилия '+form9.Label2.Caption);(file_db,'Группа '+form9.Label4.Caption);(file_db,'Дата '+datetostr(date));(file_db,'Время '+timetostr(time));(file_db,'Результат '+cena);(file_db,' ');(file_db);

После прохождения теста в файл Rezultati.txt записывается количество набранных баллов(cena), фамилия студента (fam), количество отвеченных имя студента (name) и группа, в которой он учится (group), дата и время прохождения теста (date, time).


Рисунок 11. Прохождение теста


5) Справка

procedure Tabout.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;: Integer; Column: TColumn; State: TGridDrawState);TDBGrid(Sender).DataSource.DataSet.RecNo mod 2 = 1TDBGrid(Sender).Canvas.Brush.Color:=$00FFC6C6 else(Sender).Canvas.Brush.Color:=$00FFD7EB;gdSelected IN StateBegin(Sender).Canvas.Brush.Color:=clWindow;(Sender).Canvas.Font.Color:=clWindowText;;(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);;

В этом пункте содержится полная инструкция о том, как осуществляется процесс прохождения теста


3.1.2 Переход к лекция

procedure TForm18.Button1Click(Sender: TObject);OpenDialog1.Execute then.Lines.LoadFromFile(OpenDialog1.FileName);;

Переход к лекциям осуществляется выбором пенкта меню «Файл»- «Прочитать лекции», после чего в новом окне в пункте «Файл» - «Открыть»


3.1.3 Сообщения

1) Отправка сообщений

procedure TForm12.Button1Click(Sender: TObject);form12.Memo1.Text='' then(Handle,PChar('Ваше не содержит текста!'),PChar('Ошибка'), MB_ICONWARNING+MB_DEFBUTTON2); exit; end;.ADOTable4.Insert;.ADOTable4.FieldValues['ot_kogo']:=form9.Label2.Caption+' '+form9.Label3.Caption;.ADOTable4.FieldValues['soderganie']:=form12.Memo1.Text;.ADOTable4.FieldValues['komy']:=form12.Edit1.Text;.ADOTable4.FieldValues['data']:=datetostr(date);.ADOTable4.Post;

{form9.Label2.Caption:=form11.Edit3.Text;.Label3.Caption:=form11.Edit1.Text;.Label4.Caption:=form11.Edit2.Text;.Close;.MessageBox('Сообщение доставлено!','Готово',MB_OK or MB_ICONINFORMATION);.show;end;

Для отправки нового сообщения необходимо в меню пользователя выбрать пункт меню «Сообщения» - «Отправить новое сообщение» (рисунок 14). Далее в новом окне ввести текст сообщения и нажать на кнопку отправить. Отправка сообщений возможна только преподавателю.

2) Чтение полученных сообщений

procedure TForm17.DBGrid1DblClick(Sender: TObject);.show;.Edit1.Text:=form17.DBGrid1.SelectedField.DataSet.FieldValues['ot_kogo'];.Memo1.Text:= form17.DBGrid1.SelectedField.DataSet.FieldValues['soderganie'];.Close;;

Чтение полученных сообщений осуществляется в два этапа.

При выборе первого подпункта перед пользователем появляется список всех входящих сообщений (рисунок 15).

При двойном щелчке на определенном сообщении оно открывается в режиме просмотра для пользователя. Здесь, нажав на кнопку «Ответить», можно ответить на сообщении (рисунок 16).Tform15.Button2Click(Sender: Tobject);form15.Edit1.Text=Преподавательthen begin form12.show;.Edit1.Text:=form15.Edit1.Text;.Edit1.Text:=;.Memo1.Text:=;.Close;.show;.Edit1.Text:=form15.Edit1.Text;.Close;;


3.1.4 Выход

procedure TForm9.N5Click(Sender: TObject);.show;.Close;;

При нажатии в главном меню пользователя кнопки «Назад» открывается главное окно программы.

3.2 Вход в качестве преподавателя


Рисунок 17. Вход через преподавателя


Ввод и проверка пароля:

procedure TForm5.MaskEdit1KeyPress(Sender: TObject; var Key: Char);:integer;form5.MaskEdit1.Text='' then begin(Handle,PChar('Введите пароль!'),PChar('Внимание'), MB_ICONWARNING+MB_DEFBUTTON2);; end(form5.MaskEdit1.Text='') or (form5.MaskEdit1.Text<>datamodule2.ADOTable2key2.text) then begin.Text:=edit1.Text+'a';edit1.Text='a' then begin MessageBox(Handle,PChar('Пароль введен не верно! У Вас осталось две попытки'),PChar('Ошибка'), MB_ICONWARNING+MB_DEFBUTTON2);.clear; end;edit1.Text='aa' then begin MessageBox(Handle,PChar('Пароль введен не верно! У Вас осталось одна попытка'),PChar('Ошибка'), MB_ICONWARNING+MB_DEFBUTTON2);.clear; end;edit1.Text='aaa' then begin MessageBox(Handle,PChar('Пароль 3 раза был введен не верно!'),PChar('Ошибка'), MB_ICONWARNING+MB_DEFBUTTON2);.hide;.show; end; end;(form5.MaskEdit1.Text=datamodule2.ADOTable2key2.text) then begin.show;.Hide;.MaskEdit1.Clear;;

После выбора в главном меню программы пункта «Преподаватель», необходимо в новом окне ввода пароля подтвердить пароль. В этом же окне можно сменить пароль, нажав на соответствующую кнопку (рисунок 18).


Рисунок 18. Ввод пароля


Смена пароля:

procedure TForm7.Image1Click(Sender: TObject);:integer;.ADOTable2.Edit;.ADOTable2key2.text:=form7.MaskEdit2.Text;.ADOTable2.Post;.MessageBox('Пароль был сохранен успешно!','Готово',MB_OK or MB_ICONINFORMATION);.show;.Hide;;;

Для смены пароля необходимо подтвердить старый пароль, а затем ввести новый пароль и нажать на кнопку «ОК» (рисунок 19).


Рисунок 19. Смена пароля


Меню преподавателя:

В меню преподавателя предлагется выбрать один из пунков. В пункте меню «Файл» - «Тесты» преподаватель может осуществить переход к тестам. В пункте «Написать лекции» можно добавить новый лекции. А в пункте «Просмотреть результаты» преподаватель осуществляет просмотр результатов сдачи тестов студентами (рисунок 20).


Рисунок 20. Меню преподавателя


3.2.1 Результаты пользователей


Рисунок 21. Структура меню «Результаты пользователя»


Вывод списка пользователей:

procedure TForm10.BitBtn2Click(Sender: TObject);.show;.Close;;TForm10.N1Click(Sender: TObject);application.MessageBox('Удалить эту запись? ',

'Удаление',mb_iconQuestion+mb_yesno)=idyes then.ADOTable3.Delete;;

В этом пункте содержит список всех студентов прошедших тестирование. Этот список можно редактировать, путем удаления из него пользователей (рисунок 22).


Рисунок 22. Просмотр результатов


Выход в главное меню:

procedure TForm10.N2Click(Sender: TObject);.show;.Close;;.

При нажатии на кнопку «Нзад» таблица учета пользователей закрывается и происходит переход в меню преподавателя.


3.2.2 Просмотр и редактирование тестов

Просмотр и редактирование списка агентов (рисунок 23):


Рисунок 24. Структура меню «Просмотр и редактирование списка агентов»


Вывод списка агентов:

procedure TForm1.RadioButton1Click(Sender: TObject);.Show;.Button2Click(Sender);.Visible:=false;;

Вывод списка агентов заключается в чтении из базы данных таблиц, содержащих в себе вопросы к тестам.

Переход к редактированию теста:

procedure TEdittest.DBGrid2DrawColumnCell(Sender: TObject; const Rect: TRect;: Integer; Column: TColumn; State: TGridDrawState);TDBGrid(Sender).DataSource.DataSet.RecNo mod 2 = 1TDBGrid(Sender).Canvas.Brush.Color:=$00FFC6C6 else(Sender).Canvas.Brush.Color:=$00FFD7EB;gdSelected IN StateBegin(Sender).Canvas.Brush.Color:=clWindow;(Sender).Canvas.Font.Color:=clWindowText;;(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);(Column.FieldName = 'Правильный') thenColumn.Field.AsBoolean=true then(TDBGrid(Sender).Canvas, Rect, True)(TDBGrid(Sender).Canvas, Rect, False);;

В данном режиме преводаватель может внести изменения в тест (рисунок 24). Это осуществляется путем изменения данных в вопросе, варианте ответа на вопрос или объяснения к данному вариенту ответа.


Рисунок 24. Редактирование теста


Выход в главное меню:

procedure Edittest.RadioButton1Click(Sender: TObject);.Close;.Show;


3.2.3 Установление режима прохождения тестов


Рисунок 25. Структура меню «Установление режима прохождения тестов»


Установление режима по умолчанию:

Для этого необходимо нажать на кнопку «Начать тест». Перед пользователем появиться окно, содержащее в себе вопросы теста, варианты ответа и пояснения к этим вариантам. Переход к следующему вопросу осуществляется нажатием на кнопку «Далее».Ttesti.Button1Click(Sender: TObject);i:integer;:TRadioButton;:string;_db:textfile;((RadioButton1.Checked=true) or

(RadioButton2.Checked=true) or

(RadioButton3.Checked=true) or

(RadioButton4.Checked=true) )

((RadioButton5.Checked=true) or

(RadioButton6.Checked=true) or

(RadioButton7.Checked=true) or

(RadioButton8.Checked=true) ) then

begini := 0 to GroupBox1.ControlCount-1 do begin:=TRadioButton(GroupBox1.Controls[i]);RB.Checked=true then.Caption:=inttostr(strtoint(Label1.Caption)+RB.Tag);;i := 0 to GroupBox2.ControlCount-1 do :=TRadioButton(GroupBox2.Controls[i]);RB.Checked=true then.Caption:=inttostr(strtoint(Label1.Caption)+RB.Tag);;strtoint(Label2.Caption)<11 then begin(strtoint(Label2.Caption));.Caption:='Тестирование. Вопрос '+inttostr(strtoint(Label2.Caption)-1)+' из 10';


3.2.4 Сообщения

1) Отправка сообщений

procedure TForm12.Button1Click(Sender: TObject);.ADOTable4.Insert;.ADOTable4.FieldValues['ot_kogo']:=form9.Label2.Caption+' '+form9.Label3.Caption;.ADOTable4.FieldValues['soderganie']:=form12.Memo1.Text;.ADOTable4.FieldValues['komy']:=form12.Edit1.Text;.ADOTable4.FieldValues['data']:=datetostr(date);.ADOTable4.Post;

{form9.Label2.Caption:=form11.Edit3.Text;.Label3.Caption:=form11.Edit1.Text;.Label4.Caption:=form11.Edit2.Text;.Close; .show;;

Для отправки нового сообщения необходимо в меню преподавателявыбрать пункт меню «Сообщения» - «Отправить новое сообщение». Далее в окне отпраки сообщений указать пользователя, которомуотправляется сообщение. Это делается нажатием на кнопку «Выбрать…». В появившемся списке, двойным щелчком мыши, выбирается пользователь. Затем вводится текст сообщения и нажатием на кнопку «Отправить» осуществляется доставка сообщения пользователю (рисунок 26).


Рисунок 26. Отправка сообщений

2) Чтение полученных сообщений

procedure TForm17.DBGrid1DblClick(Sender: TObject);.show;.Edit1.Text:=form17.DBGrid1.SelectedField.DataSet.FieldValues['ot_kogo'];.Memo1.Text:= form17.DBGrid1.SelectedField.DataSet.FieldValues['soderganie'];.Close;;

Чтение полученных сообщений осуществляется в два этапа. При выборе первого подпункта перед пользователем появляется список всех входящих сообщений, из которых он может выбрать какое - то определенное сообщение и ответить на него.

При двойном щелчке на определенном сообщении, оно открывается в режиме просмотра для пользователя. Здесь, нажав на кнопку «Ответить», можно ответить на сообщении.TForm15.Button2Click(Sender: TObject);form15.Edit1.Text='Преподаватель'then begin form12.show;.Edit1.Text:=form15.Edit1.Text;.Edit1.Text:='';.Memo1.Text:='';.Close;.show;.Edit1.Text:=form15.Edit1.Text;.Close;;

3.2.5 Добавление новых лекций

Сохранение новой лекции:

procedure TForm18.Button2Click(Sender: TObject);SaveDialog1, Memo1 doExecute then.SaveToFile(FileName);.FileName:=FileName; // Чтобы исправленный текст не затёр источник; ;

В данном пункте преподавателю дается возможность написания новых лекций для пользователей. Для этого в окне редактора необходимо набрать текст лекции и нажать в пункте меню «Файл» на кнопку «Сохранить как».

Редактирование лекции:

procedure TForm18.Button3Click(Sender: TObject);application.MessageBox('Сохранить изменения в файле? ',

'Сохранение',mb_iconQuestion+mb_yesno)=idyes then.Lines.SaveToFile(OpenDialog1.FileName); // Сохраняем туда, откуда считали.Memo1.Text:='';;

Также существует возможность редактирования уже существующих в списке лекций. В этом случае в пункте меню «Файл» выбрать кнопку «Открыть», затем отредактировать текст, а для сохранения изменений необходимо нажать на кнопку «Сохранить».


3.2.6 Выход

procedure TForm6.N2Click(Sender: TObject);.show;.Close;;

Выход осуществляется нажатием на кнопку «Назад». При нажатии в меню преподавателя кнопки «Назад» открывается главное меню программы.


4. Описание теста


Рисунок 27. Структура теста


Структура обучающего теста представлена на рисунке 27. Все используемых в нашей системе обучающих тесты имеют одинаковую структуру. Они отличаются лишь тем, что осуществляют работу с разными файлами-вопросниками.

Объявление переменных:

const_k_data_base='Rezultati';_file_data_base='.txt';: Ttesti;: array of integer; //массив над которым будем извращаться

Открытие таблицы с вопросами:

DataModule2.Vopros.Locate('Номер',mass[nomer],[]);.Variant.First;.Caption:=DataModule2.Variant.FieldValues['Ответ'];DataModule2.Variant.FieldValues['Правильный']=true then.Tag:=1 else RadioButton1.Tag:=0;.Obyasnenie.First;.Caption:=DataModule2.Obyasnenie.FieldValues['Объяснение'];DataModule2.Obyasnenie.FieldValues['Правильный']=true then.Tag:=1 else RadioButton5.Tag:=0;

В данной курсовой работе используется тест, вопросы которого хранятся в виде таблицы под названием «Вопросы».

Подсчет количества вопросов в тесте:

for i := 0 to GroupBox1.ControlCount-1 do:=TRadioButton(GroupBox1.Controls[i]);RB.Checked=true then.Caption:=inttostr(strtoint(Label1.Caption)+RB.Tag);;i := 0 to GroupBox2.ControlCount-1 do:=TRadioButton(GroupBox2.Controls[i]);

Подсчет количества вопросов втесте осуществляется построчно из таблицы тестов.

Сохранение правильных ответов:

datamodule2.ADOTable3.Insert;.ADOTable3.FieldByName('rezultat').Value:=cena;.ADOTable3.FieldByName('fam').Value:=form9.Label2.Caption;.ADOTable3.FieldByName('name').Value:=form9.Label3.Caption;.ADOTable3.FieldByName('group').Value:=form9.Label4.Caption;.ADOTable3.FieldByName('data').Value:=datetostr(date);.ADOTable3.Post;fileexists(put_k_data_base+rasshirenie_file_data_base) then(file_db,put_k_data_base+rasshirenie_file_data_base);(file_db);(file_db,put_k_data_base+rasshirenie_file_data_base);(file_db);;(file_db,'Имя '+form9.Label3.Caption);(file_db,'Фамилия '+form9.Label2.Caption);(file_db,'Группа '+form9.Label4.Caption);(file_db,'Дата '+datetostr(date));(file_db,'Время '+timetostr(time));(file_db,'Результат '+cena);(file_db,' ');(file_db);

Результаты сдачи теста заносятся в специальную таблицу и также сохраняютя в тектовом файле.

Вывод статистики на экран:

if strtoint(Label1.Caption)>16 then:='5' elsestrtoint(Label1.Caption)>13 then:='4' elsestrtoint(Label1.Caption)>9 then:='3' else:='2';MessageDlg('Набрано баллов '+Label1.Caption+'.'+#13+

'Ваша оценка: '+cena+'!',, [mbYes], 0)=mrYes then


Заключение


Программа с клиент - серверной архитектурой взаимодействует с пользователе через главное меню программы, где пользователю предлагается войти в систему или зарегистрироваться.

Регистрация - это сохранения данных о пользователе, таких как имя, фамилия, номер группы, логин, пароль втаблице для хранения личных данных о студентах.

Вход в систему - ввод логина и пароля.

Данные о пользователе хранятся в таблице, куда и будут сохраняться данные о ходе его обучения.

После входа в систему перед пользователем появиться меню, в котором он сможет выбрать свои дальнейшие действия.

Преподаватель может создавать и редактировать лекции и тесты, которые предлагается пройти студентам. Также преподаватель устанавливает порядок прохождения тестов. Связь со студентами происходит с помощью сообщений.

После осуществления выбора пользователь сможет прочитать полный курс лекций по лданному премету, либо пройти тест. Прохождение каждого теста осуществляется только один раз.

При прохождении теста пользовательотвечает на вопросы по конуретному курсу обучения. Информация о студенте и результате сдачи теста записывается в таблицу и тестовый файл.

Преподаватель проходит идентификацию посредством ввода пароля, который хранится в специальном массиве. Если пароль введен верно, то преподаватель переходит в главное меню, где у него имеется возможность:

·просматривать и редактировать списки зарегистрированных пользователей;

·просматривать и удалять результаты прохождения конкретным пользователем конкретного теста;

·просматривать и редактировать списки лекции и тесты.

Разработать программу с клиент - серверной архитектурой, с помощью которой будет осуществляться связь преподавателя со студентами и доступ к информации, неоходимой для обучения студентов. Информация о студентах и результатах сдачи тестов будут храниться в специально отведенной для этого базе данных.


Список литературы


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<>datamodule2.ADOTable2key2.text) then.Text:=edit1.Text+'a';edit1.Text='a' 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<>datamodule2.ADOTable2key2.text) then.Text:=edit1.Text+'a';edit1.Text='a' 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; end;TForm5.Image1MouseDown(Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);.Left := Image1.Left + 1; Image1.Top := Image1.Top + 1;;TForm5.Image1MouseUp(Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);.Left := Image1.Left - 1; Image1.Top := Image1.Top - 1;;TForm5.Image2MouseDown(Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);.Left := Image2.Left + 1; Image2.Top := Image2.Top + 1;;TForm5.Image2MouseUp(Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);.Left := Image2.Left - 1; Image2.Top := Image2.Top - 1;;.

Unit6;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Menus, jpeg, ExtCtrls, StdCtrls;= class(TForm): TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TImage;: TLabel;N2Click(Sender: TObject);N5Click(Sender: TObject);N6Click(Sender: TObject);N9Click(Sender: TObject);N10Click(Sender: TObject);N4Click(Sender: TObject);N3Click(Sender: TObject);;: TForm6;Unit4, Unit10, Unit13, Unit15, DM, Unit16, Unit1, Unit9, Unit18;TForm6.N2Click(Sender: TObject);.show;.Close;;TForm6.N5Click(Sender: TObject);.show;.Close;;TForm6.N6Click(Sender: TObject);.show;;TForm6.N9Click(Sender: TObject);.show;;TForm6.N10Click(Sender: TObject);.Show;.adotable4.Filtered:=true;.adotable4.Filter:='komy='+quotedstr('Преподаватель');;TForm6.N4Click(Sender: TObject);.Label2.Caption:='Преподаватель';.Label3.Caption:='преподаватель';.Label4.Caption:='000';.show;.RadioButton2.Enabled:=true;;TForm6.N3Click(Sender: TObject);

{WinExec('C:\Windows\notepad.exe',SW_NORMAL);/}.show;.N4.Enabled:=true;.N5.Enabled:=true;.N7.Enabled:=true;;.Unit7;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, jpeg, ExtCtrls, Mask, StdCtrls;= class(TForm): TGroupBox;: TLabel;: TLabel;: TEdit;: TMaskEdit;: TMaskEdit;: TImage;: TImage;Image1Click(Sender: TObject);Image2Click(Sender: TObject);Image2MouseDown(Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);Image2MouseUp(Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);Image1MouseDown(Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);Image1MouseUp(Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);;: TForm7;DM, Unit4, Unit6, Unit5, Unit9;TForm7.Image1Click(Sender: TObject);:integer;form7.MaskEdit1.Text='' then begin(Handle,PChar('Введите пароль!'),PChar('Внимание'), MB_ICONWARNING+MB_DEFBUTTON2);; end else(form7.MaskEdit1.Text='') or (form7.MaskEdit1.Text<>datamodule2.ADOTable2key2.text) then.Text:=edit1.Text+'a';edit1.Text='a' then begin MessageBox(Handle,PChar('Пароль введен не верно! У Вас осталось две попытки'),PChar('Ошибка'), MB_ICONWARNING+MB_DEFBUTTON2);.clear;.clear;;edit1.Text='aa' then begin MessageBox(Handle,PChar('Пароль введен не верно! У Вас осталось одна попытка'),PChar('Ошибка'), MB_ICONWARNING+MB_DEFBUTTON2);.clear;.clear; end;edit1.Text='aaa' then begin MessageBox(Handle,PChar('Пароль 3 раза был введен не верно!'),PChar('Ошибка'), MB_ICONWARNING+MB_DEFBUTTON2);.hide;.show;; end;(form7.MaskEdit1.Text=datamodule2.ADOTable2key2.text) then.ADOTable2.Edit;.ADOTable2key2.text:=form7.MaskEdit2.Text;.ADOTable2.Post;.MessageBox('Пароль был сохранен успешно!','Готово',MB_OK or MB_ICONINFORMATION);.show;.Hide;;.MaskEdit1.Clear;.MaskEdit1.Clear;;TForm7.Image2Click(Sender: TObject);.show;.Close;;TForm7.Image2MouseDown(Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);.Left := Image2.Left + 1; Image2.Top := Image2.Top + 1;;TForm7.Image2MouseUp(Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);.Left := Image2.Left - 1; Image2.Top := Image2.Top - 1;;TForm7.Image1MouseDown(Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);.Left := Image1.Left + 1; Image1.Top := Image1.Top + 1;;TForm7.Image1MouseUp(Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);.Left := Image1.Left - 1; Image1.Top := Image1.Top - 1;;.Unit8;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, jpeg, ExtCtrls, Mask, StdCtrls;= class(TForm): TGroupBox;: TGroupBox;: TLabel;: TLabel;: TEdit;: TMaskEdit;: TMaskEdit;: TImage;: TImage;: TLabel;Image2Click(Sender: TObject);Image1Click(Sender: TObject);MaskEdit2KeyPress(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);public;: TForm8;DM, Unit4, Unit5, Unit9;TForm8.Image2Click(Sender: TObject);.Close;.show;;TForm8.Image1Click(Sender: TObject);:integer;form8.MaskEdit1.Text='' then begin(Handle,PChar('Введите логин!'),PChar('Внимание'), MB_ICONWARNING+MB_DEFBUTTON2);;;form8.MaskEdit2.Text='' then begin(Handle,PChar('Введите пароль!'),PChar('Внимание'), MB_ICONWARNING+MB_DEFBUTTON2);; end else(form8.MaskEdit1.Text<>datamodule2.adotable1login.Text) or (form8.MaskEdit2.Text<>datamodule2.adotable1parol.Text)then.Text:=edit1.Text+'a';edit1.Text='a' then begin MessageBox(Handle,PChar('Ошибка! У Вас осталось две попытки'),PChar('Ошибка'), MB_ICONWARNING+MB_DEFBUTTON2);.clear;.clear;;edit1.Text='aa' then begin MessageBox(Handle,PChar('Ошибка! У Вас осталось одна попытка'),PChar('Ошибка'), MB_ICONWARNING+MB_DEFBUTTON2);.clear;.clear;;edit1.Text='aaa' then begin MessageBox(Handle,PChar('Вы ошиблись 3 раза!'),PChar('Ошибка'), MB_ICONWARNING+MB_DEFBUTTON2);.hide;.close;; end;(form8.MaskEdit1.Text=datamodule2.adotable1login.Text) and (form8.MaskEdit2.Text=datamodule2.adotable1parol.Text) then.show;.adotable1.Filtered:=true;.adotable1.Filter:='login='+quotedstr(MaskEdit1.Text);.Label2.Caption:=datamodule2.ADOTable1fam.Text;.Label3.Caption:=datamodule2.ADOTable1name.Text;.Label4.Caption:=datamodule2.ADOTable1group.Text;.Hide;.MaskEdit1.Clear;.MaskEdit2.Clear;; end;TForm8.MaskEdit2KeyPress(Sender: TObject; var Key: Char);not(key in['0'..'9',#9,#13]) then key:=#13; begin;Key = #13 then beginform8.MaskEdit1.Text='' then begin(Handle,PChar('Введите логин!'),PChar('Внимание'), MB_ICONWARNING+MB_DEFBUTTON2);; end;form8.MaskEdit2.Text='' then begin(Handle,PChar('Введите пароль!'),PChar('Внимание'), MB_ICONWARNING+MB_DEFBUTTON2);; end(form8.MaskEdit1.Text<>datamodule2.adotable1login.Text) or (form8.MaskEdit2.Text<>datamodule2.adotable1parol.Text)then.Text:=edit1.Text+'a';edit1.Text='a' then begin MessageBox(Handle,PChar('Ошибка! У Вас осталось две попытки'),PChar('Ошибка'), MB_ICONWARNING+MB_DEFBUTTON2);.clear;.clear;;edit1.Text='aa' then begin MessageBox(Handle,PChar('Ошибка! У Вас осталось одна попытка'),PChar('Ошибка'), MB_ICONWARNING+MB_DEFBUTTON2);.clear;.clear;;edit1.Text='aaa' then begin MessageBox(Handle,PChar('Вы ошиблись 3 раза!'),PChar('Ошибка'), MB_ICONWARNING+MB_DEFBUTTON2);.hide;.close;; end;(form8.MaskEdit1.Text=datamodule2.adotable1login.Text) and (form8.MaskEdit2.Text=datamodule2.adotable1parol.Text) then.show;.adotable1.Filtered:=true;.adotable1.Filter:='login='+quotedstr(MaskEdit1.Text);.Label2.Caption:=datamodule2.ADOTable1fam.Text;.Label3.Caption:=datamodule2.ADOTable1name.Text;.Label4.Caption:=datamodule2.ADOTable1group.Text;.Hide;.MaskEdit1.Clear;.MaskEdit2.Clear;; end; end;TForm8.Image1MouseDown(Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);.Left := Image1.Left + 1; Image1.Top := Image1.Top + 1;;TForm8.Image1MouseUp(Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);.Left := Image1.Left - 1; Image1.Top := Image1.Top - 1;;TForm8.Image2MouseDown(Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);.Left := Image2.Left + 1; Image2.Top := Image2.Top + 1;;TForm8.Image2MouseUp(Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);.Left := Image2.Left - 1; Image2.Top := Image2.Top - 1;;.

Unit9;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Menus, jpeg, ExtCtrls, StdCtrls;= class(TForm): TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TImage;: TLabel;: TLabel;: TLabel;: TLabel;N5Click(Sender: TObject);N3Click(Sender: TObject);N8Click(Sender: TObject);N9Click(Sender: TObject);N2Click(Sender: TObject);;: TForm9;Unit1, Unit4, Unit12, DM, Unit15, Unit17, Unit18;TForm9.N5Click(Sender: TObject);.show;.Close;;TForm9.N3Click(Sender: TObject);(datamodule2.ADOTable3.Locate('fam',form9.Label2.Caption,[])) and (datamodule2.ADOTable3.Locate('name',form9.Label3.Caption,[])) then(Handle,PChar('Извините, но Вы уже проходили этот тест!'),PChar('Внимание'), MB_ICONWARNING+MB_DEFBUTTON2);; end.show;.RadioButton2.Enabled:=false;;TForm9.N8Click(Sender: TObject);.edit1.text:='Преподаватель';.show;;TForm9.N9Click(Sender: TObject);.Show;.adotable4.Filtered:=true;.adotable4.Filter:='komy='+quotedstr(form9.Label2.Caption+' '+form9.Label3.Caption);;TForm9.N2Click(Sender: TObject);.show;.N4.Enabled:=false;.N5.Enabled:=false;.N7.Enabled:=false;; end.Unit11;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Buttons, Mask;= class(TForm): TMaskEdit;: TMaskEdit;: TEdit;: TEdit;: TEdit;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TBitBtn;: TBitBtn;BitBtn1Click(Sender: TObject);BitBtn2Click(Sender: TObject);Edit3KeyPress(Sender: TObject; var Key: Char);Edit2KeyPress(Sender: TObject; var Key: Char);;: TForm11;DM, Unit4, Unit9;TForm11.BitBtn1Click(Sender: TObject);(datamodule2.ADOTable1.Locate('login',MaskEdit1.Text,[])) then(Handle,PChar('Такой логин уже существует!'),PChar('Ошибка'), MB_ICONWARNING+MB_DEFBUTTON2);.MaskEdit1.Text:='';; end;(datamodule2.ADOTable1.Locate('parol',MaskEdit2.Text,[])) then(Handle,PChar('Введенный пароль уже существует!'),PChar('Ошибка'), MB_ICONWARNING+MB_DEFBUTTON2);.MaskEdit2.Text:='';; end;form11.MaskEdit1.Text='' then(Handle,PChar('Введите логин!'),PChar('Ошибка'), MB_ICONWARNING+MB_DEFBUTTON2);; end;form11.MaskEdit2.Text='' then(Handle,PChar('Введите пароль!'),PChar('Ошибка'), MB_ICONWARNING+MB_DEFBUTTON2);; end;edit2.Text='' then(Handle,PChar('Укажите группу!'),PChar('Ошибка'), MB_ICONWARNING+MB_DEFBUTTON2);;;edit3.Text='' then(Handle,PChar('Введите фамилию!'),PChar('Ошибка'), MB_ICONWARNING+MB_DEFBUTTON2);; end;edit1.Text='' then(Handle,PChar('Введите имя!'),PChar('Ошибка'), MB_ICONWARNING+MB_DEFBUTTON2);; end;.ADOTable1.Insert;.ADOTable1.FieldValues['login']:=form11.MaskEdit1.Text;.ADOTable1.FieldValues['parol']:=form11.MaskEdit2.Text;.ADOTable1.FieldValues['fam']:=form11.Edit2.Text;.ADOTable1.FieldValues['name']:=form11.Edit3.Text;.ADOTable1.FieldValues['group']:=form11.Edit1.Text;.ADOTable1.Post;.MessageBox('Сохранение прошло успешно!','Готово',MB_OK or MB_ICONINFORMATION);.Label2.Caption:=form11.Edit2.Text;.Label3.Caption:=form11.Edit3.Text;.Label4.Caption:=form11.Edit1.Text;.MaskEdit1.Text:='';.MaskEdit2.Text:='';.Edit1.Text:='';.Edit2.Text:='';.Edit3.Text:='';.Close;.show;;TForm11.BitBtn2Click(Sender: TObject);.MaskEdit1.Text:='';.MaskEdit2.Text:='';.Edit1.Text:='';.Edit2.Text:='';.Edit3.Text:='';.Close;.Show;;TForm11.Edit3KeyPress(Sender: TObject; var Key: Char);not(key in['а'..'я','А'..'Я',#8]) then key:=#0;;Tform11.Edit2KeyPress(Sender: TObject; var Key: Char);not(key in['а'..'я','А'..'Я',#8]) then key:=#0;; end.Unit12;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls;= class(TForm): TGroupBox;: TGroupBox;: TGroupBox;: TLabel;: TMemo;: TButton;: TButton;: TButton;: TEdit;Button1Click(Sender: TObject);Button3Click(Sender: TObject);Button2Click(Sender: TObject);;: TForm12;Unit9, DM;TForm12.Button1Click(Sender: TObject);form12.Memo1.Text='' then(Handle,PChar('Ваше не содержит текста!'),PChar('Ошибка'), MB_ICONWARNING+MB_DEFBUTTON2);; end;.ADOTable4.Insert;.ADOTable4.FieldValues['ot_kogo']:=form9.Label2.Caption+' '+form9.Label3.Caption;.ADOTable4.FieldValues['soderganie']:=form12.Memo1.Text;.ADOTable4.FieldValues['komy']:=form12.Edit1.Text;.ADOTable4.FieldValues['data']:=datetostr(date);.ADOTable4.Post;

{form9.Label2.Caption:=form11.Edit3.Text;.Label3.Caption:=form11.Edit1.Text;.Label4.Caption:=form11.Edit2.Text;.MaskEdit1.Text:='';.MaskEdit2.Text:='';.Edit1.Text:='';.Edit2.Text:='';.Edit3.Text:=''; }.Edit1.Text:='';.Memo1.Text:='';.Close;.MessageBox('Сообщение доставлено!','Готово',MB_OK or MB_ICONINFORMATION);.show;;TForm12.Button3Click(Sender: TObject);.Edit1.Text:='';.Memo1.Text:='';.Close;.Show; end;TForm12.Button2Click(Sender: TObject);.Memo1.Text:='';; end.Unit13;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls;= class(TForm): TGroupBox;: TGroupBox;: TGroupBox;: TMemo;: TEdit;: TButton;: TButton;: TButton;: TButton;Button1Click(Sender: TObject);Button2Click(Sender: TObject);Button4Click(Sender: TObject);Button3Click(Sender: TObject);;: TForm13;Unit14, DM, Unit6;TForm13.Button1Click(Sender: TObject);.show;;TForm13.Button2Click(Sender: TObject);form13.Memo1.Text='' then(Handle,PChar('Ваше не содержит текста!'),PChar('Ошибка'), MB_ICONWARNING+MB_DEFBUTTON2);; end;.ADOTable4.Insert;.ADOTable4.FieldValues['ot_kogo']:='Преподаватель';.ADOTable4.FieldValues['soderganie']:=form13.Memo1.Text;.ADOTable4.FieldValues['komy']:=form13.Edit1.Text;.ADOTable4.FieldValues['data']:=datetostr(date);.ADOTable4.Post;.Edit1.Text:='';.Memo1.Text:='';.Close;.MessageBox('Сообщение доставлено!','Готово',MB_OK or MB_ICONINFORMATION);.show;;TForm13.Button4Click(Sender: TObject);.Edit1.Text:='';.Memo1.Text:='';.Close;.Show;;TForm13.Button3Click(Sender: TObject);.Edit1.Text:='';.Memo1.Text:='';; end.Unit14;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Grids, DBGrids;= class(TForm): TDBGrid;DBGrid1DblClick(Sender: TObject);;: TForm14;DM, Unit13;TForm14.DBGrid1DblClick(Sender: TObject);.Show;.Edit1.Text:=form14.DBGrid1.SelectedField.DataSet.FieldValues['fam']+' '+form14.DBGrid1.SelectedField.DataSet.FieldValues['name'];.Close;;.Unit15;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls;= class(TForm): TGroupBox;: TGroupBox;: TGroupBox;: TEdit;: TMemo;: TButton;: TButton;Button1Click(Sender: TObject);Button2Click(Sender: TObject);;: TForm15;Unit13, Unit12;TForm15.Button1Click(Sender: TObject);.Edit1.Text:='';.Memo1.Text:='';.Close;;TForm15.Button2Click(Sender: TObject);form15.Edit1.Text='Преподаватель'then begin form12.show;.Edit1.Text:=form15.Edit1.Text;.Edit1.Text:='';.Memo1.Text:='';.Close;else.show;.Edit1.Text:=form15.Edit1.Text;.Close;; end.Unit16;е, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Grids, DBGrids, Menus;= class(TForm): TDBGrid;: TPopupMenu;: TMenuItem;DBGrid1DblClick(Sender: TObject);N1Click(Sender: TObject);;: TForm16;DM, testirovanie, Unit15, Unit6;TForm16.DBGrid1DblClick(Sender: TObject);.show;.Edit1.Text:=form16.DBGrid1.SelectedField.DataSet.FieldValues['ot_kogo'];.Memo1.Text:= form16.DBGrid1.SelectedField.DataSet.FieldValues['soderganie'];.Close;;TForm16.N1Click(Sender: TObject);application.MessageBox('Удалить это сообщение? ',

'Удаление',mb_iconQuestion+mb_yesno)=idyes then.ADOTable4.Delete;; end.Unit17;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Grids, DBGrids, Menus;= class(TForm): TDBGrid;: TPopupMenu;: TMenuItem;DBGrid1DblClick(Sender: TObject);N1Click(Sender: TObject);;: TForm17;DM, Unit15, Unit9;TForm17.DBGrid1DblClick(Sender: TObject);.show;.Edit1.Text:=form17.DBGrid1.SelectedField.DataSet.FieldValues['ot_kogo'];.Memo1.Text:= form17.DBGrid1.SelectedField.DataSet.FieldValues['soderganie'];.Close;;TForm17.N1Click(Sender: TObject);application.MessageBox('Удалить это сообщение? ',

'Удаление',mb_iconQuestion+mb_yesno)=idyes then.ADOTable4.Delete;; end.

Unit18;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Menus;= class(TForm): TOpenDialog;: TMemo;: TSaveDialog;: TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;FormShow(Sender: TObject);Button1Click(Sender: TObject);Button2Click(Sender: TObject);Button3Click(Sender: TObject);N7Click(Sender: TObject);N3Click(Sender: TObject);N4Click(Sender: TObject);N5Click(Sender: TObject);N2Click(Sender: TObject);;: TForm18;f: TextFile; // текстовый файл теста

{$R *.dfm}TForm18.FormShow(Sender: TObject);

// снимаем признак открытого файла (мы его еще не открывали);TForm18.Button1Click(Sender: TObject);OpenDialog1.Execute then.Lines.LoadFromFile(OpenDialog1.FileName);;TForm18.Button2Click(Sender: TObject);SaveDialog1, Memo1 doExecute then.SaveToFile(FileName);.FileName:=FileName; ; end;TForm18.Button3Click(Sender: TObject);application.MessageBox('Сохранить изменения в файле? ',

'Сохранение',mb_iconQuestion+mb_yesno)=idyes then.Lines.SaveToFile(OpenDialog1.FileName); .Memo1.Text:=''; end;TForm18.N7Click(Sender: TObject);.Memo1.Clear;;TForm18.N3Click(Sender: TObject);.Memo1.Clear;OpenDialog1.Execute then.Lines.LoadFromFile(OpenDialog1.FileName);;TForm18.N4Click(Sender: TObject);application.MessageBox('Сохранить изменения в файле? ',

'Сохранение',mb_iconQuestion+mb_yesno)=idyes then begin;.Lines.SaveToFile(OpenDialog1.FileName); ; end;TForm18.N5Click(Sender: TObject);SaveDialog1, Memo1 doExecute then.SaveToFile(FileName);.FileName:=FileName; // Чтобы исправленный текст не затёр источник;pos('.', SaveDialog1.FileName)=0 then.FileName := SaveDialog1.FileName + '.txt';;TForm18.N2Click(Sender: TObject);form18.Memo1.Text:='';.Close;; end.



Курсовая работа По дисциплине «Операционные системы» На тему: Разработка прикладной п

Больше работ по теме:

КОНТАКТНЫЙ EMAIL: [email protected]

Скачать реферат © 2017 | Пользовательское соглашение

Скачать      Реферат

ПРОФЕССИОНАЛЬНАЯ ПОМОЩЬ СТУДЕНТАМ