Разработка программного средства "Портфолио педагога"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
?комфорта и других неблагоприятных ощущений, несмотря на соблюдение санитарно-гигиенических правил, рекомендуется применять индивидуальный подход с ограничением времени работ с ПЭВМ. В случаях, когда характер работы требует постоянного взаимодействия с монитором с напряжением внимания при исключении возможности периодического переключения на другие виды трудовой деятельности, не связанные с ПЭВМ рекомендуется делать перерыв через каждые 45-60 минут по 10-15 минут. При работе в ночную смену с 22 часов до 6 часов утра не зависимо от категории и вида трудовой деятельности продолжительность перерывов следует увеличить на 30%.
Помещения должны иметь естественное и искусственное освещение. Эксплуатация ПЭВМ в помещениях без естественного освещения допускается только при соответствующем обосновании и наличии положительного санитарно-эпидемиологического заключения. В качестве источников света при искусственном освещении следует применять люминеiентные лампы. Освещение не должно создавать бликов на поверхности экрана. При этом яркость бликов на экране не должна превышать 40 кандел на м.
Площадь на одно рабочее место пользователей ПЭВМ на базе электронно-лучевой трубки должна составлять не менее 6, а на базе плоских дискретных экранов - 4,5. Рабочие столы следует размещать таким образом, чтобы мониторы компьютеров были ориентированы боковой стороной к оконным проемам, и естественный свет попадал преимущественно слева. [4]
Заключение
В результате дипломного проектирования был создан программный продукт Портфолио педагога, который предназначен для сбора в единую базу дынных информации о сотрудниках. Разработанная программа может применяться в учреждении Кольчугинского политехнического колледжа а так же может быть применена и в других учебных учреждениях.
Данная программа позволяет:
избавить от рутинной работы;
- полу автоматизировать процесс заполнения личной анкеты;
- возможность редактирования личной анкеты;
сохранность информации;
возможность распечатывания.
В процессе дипломного проектирования были изучены новые возможности Delphi. Были изучены вопросы, которые касаются организации труда и техники безопасности. В экономической части дипломного проекта был произведен расчет себестоимости созданного программного продукта.
Список использованных источников
1.ГОСТ 19.004-80. ЕСПД. Термины и определения.
2.ГОСТ 19.102-77. ЕСПД. Стадии разработки.
.ГОСТ 19.701-90. ЕСПД. Схемы алгоритмов, программ, данных и систем.
4.Бельнова И. П, Методические указания к дипломному проектированию по разделу Безопасность жизнедеятельности и Охрана труда. ГБОУ СПО ВО Кольчугинский политехнический колледж, Кольчугино, 2012;
5.Бобровский С.И. Delphi7. Учебный курс-СПБ.: Питер, 2004.
6.Нормативно - раiеночная карта для разработчика;
7.Нормативно - раiеночная карта для программиста
8.Пестриков В.М., Маслобоев А.Н., Delphi на примерах. - СПб.: БХВ-Петербург, 2005. - 496 с: ил.
9.Санитарные правила и нормы РФ;
10.Соколова Е. Б. Расчет себестоимости программного продукта. Методическое пособие. Кольчугино: ГБОУ СПО ВО Кольчугинский политехнический колледж, 2008;
11.Фаронов В.В. Delphi. Программирование на языке высокого уровня. СПБ.: Питер, 2010
Приложение 1
модель
Приложение 2
Листинг программного средства.
unit Unit1;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Buttons;= class(TForm): TEdit;: TLabel;: TLabel;: TComboBox;: TSpeedButton;: TSpeedButton;: TSpeedButton;FormActivate(Sender: TObject);SpeedButton1Click(Sender: TObject);SpeedButton5Click(Sender: TObject);SpeedButton2Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TLoginForm;ScanDir(StartDir: String; Mask:string; List:TStrings);Unit2, Unit3, Unit8, Unit9;TLoginForm.FormActivate(Sender: TObject);
//if DateToStr(Date)<>04.06.2012 then close;
//заполняем выпадающий список пользователями.Items.Clear;
DM.Users.Lookup(Login,ComboBox1.Text,Pass)then">DM.Users.First;not DM.Users.Eof do.Items.Add(DM.UsersLogin.Value);.Users.Next;;.ItemIndex:=0;;TLoginForm.SpeedButton1Click(Sender: TObject);;;TLoginForm.SpeedButton5Click(Sender: TObject);:string;edit1.Text<>DM.Users.Lookup(Login,ComboBox1.Text,Pass) then
begin(Пароль не верный!);
exit;;ComboBox1.Text=Администратор then.Visible:=false;.Text:=;.visible:=false;.ShowModal;;;.Text:=;.visible:=false;.Anketa.Locate(ID_Users,DM.UsersID_Users.Value,[]);:=ComboBox1.Text;.Tag:=DM.AnketaID_Anketa.Value;.Caption:=Анкета: +nuser;
//---------------------------------
then.DateTimePicker1.Date:=DM.AnketaData_Rojd.ValueMain.DateTimePicker1.Date:=date;.Edit2.Text:=DM.AnketaDipl_Uhr.Value;DM.AnketaGod_Konc.Value then.DateTimePicker3.Date:=DM.AnketaMesto_D