- опорное приспособление, позволяющее изменять угол наклона поверхности клавиатуры в пределах от 5°до 15°;
- высоты среднего ряда клавиш не более 30 мм;
- расположение часто используемых клавиш в центре, внизу и справа, редко используемых - вверх и влево;
- выделение цветом, размером формой и местом расположения функциональных групп клавиш;
- минимальный размер клавиш - 13 мм, оптимальный - 15 мм;
- клавиши с углублением в центре и шагом 19 ± 1 мм;
- расстояние между клавишами не менее 3 мм;
- одинаковый ход для всех клавиш с минимальным сопротивлением нажатию 0,25 Н и максимальной - не более 1,5Н;
- звуковую обратную связь от включения клавиш с регулировкой уровня звукового сигнала и возможностью его отключения.
1. Режим труда и отдыха операторов непосредственно работающих с ВДТ, должен зависеть от характера выполняемой работы: при вводе данных, редактировании программ, чтении информации с экрана. Непрерывная продолжительность работы с ВТ не должна превышать 4-х часов при 8-ми часовом рабочем дне.
2. При 8-ми часовой рабочей смене основным перерывом является перерыв на обед. Дополнительно при работе с ВТ вводятся регламентированные перерывы: - для 1-ой категории работ (работа по считыванию информации с экрана ВДТ или ПЭВМ с предварительным запросом) через 2 часа от начала рабочей смены и через 2 часа после обеденного перерыва продолжительностью 15 минут каждый; - для 2-ой категории работ (работа по вводу информации) через 2 часа от начала рабочей смены и 1.5-2.0 часа после обеденного перерыва продолжительностью 15 минут каждый или продолжительностью 10 минут через каждый час работы; - для 3-ей категории работ (творческая работа в режиме диалога с ПЭВМ) через 1.5-2.0 часа от начала рабочей смены и 1.5-2.0 часа после обеденного перерыва продолжительностью 20 минут каждый или продолжительностью 15 минут через каждый час работы.
Таблица 9.6. Время регламентных перерывов в зависимости от продолжительности рабочей смены, вида и категории трудовой деятельностис ВТ
| Категорияработыс ВТ | Уровень нагрузки за рабочую смену при видах работ с ВДТ | Суммарное время регламентированных перерывов, мин | |||
| группа А, количество знаков | группа Б, количество знаков | группа В, час | при 8 - ми часовой смене | при 16 - ми часовой смене | |
| I | до 20.000 | до 15.000 | до 2.0 | 30 | 70 |
| II | до 40.000 | до 30.000 | до 4.0 | 50 | 90 |
| III | до 60.000 | до 60.000 | до 6.0 | 70 | 120 |
Примечание: Время перерывов дано при соблюдении требований Санитарных правил и норм. При несоответствии фактических условий труда требованиям настоящих санитарных правил и норм, время регламентированных перерывов следует увеличить на 30 %.
3. Продолжительность непрерывной работы с ВТ без регламентированного перерыва не должна превышать 2-х часов.
4. Пользователи ВТ в производственных условиях должны проходить обязательные предварительные (при поступлении на работу) и периодические медицинские осмотры в порядке и в сроки, установленные Минздравом России.
5. К непосредственной работе с ВТ допускаются лица, не имеющие медицинских противопоказаний.
6. Женщины со времени установления беременности к выполнению всех видов работ, связанных с использованием ВТ, не допускаются. Трудоустройство беременных женщин следует осуществлять в соответствии с "Гигиеническими рекомендациями по рациональному трудоустройству беременных женщин".[15]
Заключение
В данной дипломной работе стояла задача разработки БД по учету вагонов на подъездном пути предприятия.
В процессе выполнения дипломной работы были достигнуты следующие результаты:
спроектирована концептуальная модель баз данных;
спроектирована логическая модель с учетом нормализации и ссылочной целостности данных;
осуществлена выборка СУБД и построена физическая модель, с определением полей и типов данных;
выбран комплекс технических средств;
реализованы основные программные модули системы;
На основании полученных материалов была разработана информационно-справочная система по учету вагонов на подъездном пути предприятия. Данная система направлена на автоматизацию процесса обработки информации по вагонам, а также для расчета затрат на обслуживание подвижного состава.
1. Вендров А.М. Проектирование программного обеспечения экономических информационных систем, Финансы и статистика, М, 2002 г.
2. Гэри Хансен, Джеймс Хансен. Базы данных. Разработка и управление, Бином, М, 2001 г.
3. Джен Л. Харрингтон. Проектирование реляционных баз данных Лори, 2006 г.
4. Джеффри Д. Ульман, Дженнифер Уидом. Основы реляционных баз данных, Лори, М, 2006 г.
5. Кен Хендерсон. Профессиональное руководство по SQL Server. Структура и реализация (+ CD-ROM), Вильямс, М, 2006 г.
6. Министерство здравоохранения Российской Федерации. Гигиенические требования к вычислительной технике, условиям и организации работы, М, 2002 г.
7. Питер Роб, Карлос Коронел. Системы баз данных: проектирование, реализация и управление, БХВ-Петербург, Сп-б, 2004 г.
8. Сорокин А.В. Разработка баз данных, Питер, Сп-б, 2005 г.
9. Томас Коннолли, Каролин Бегг, Анна Страчан. Базы данных. Проектирование, реализация и сопровождение. Теория и практика, Вильямс, М, 2001 г.
10. Шкрыль А.А. Разработка клиент-серверных приложений в Delphi, БХВ-Петербург, Сп-б, 2006 г.
11. Элисон Балтер. Профессиональное программирование в Microsoft Office Access 2003 (+CD-ROM), Вильямс, М, 2006 г.
Листинг программы
unitUnit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, ActnList, StdCtrls, Grids, DBGrids, OleServer, AccessXP, Qt {, QDialogs};
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
PopupMenu1: TPopupMenu;
ActionList1: TActionList;
N1: TMenuItem;
N3: TMenuItem;
GroupBox1: TGroupBox;
DBGrid1: TDBGrid;
add: TAction;
edit: TAction;
del: TAction;
N16: TMenuItem;
N17: TMenuItem;
N18: TMenuItem;
N2: TMenuItem;
N4: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
procedure FormShow(Sender: TObject);
procedure addExecute(Sender: TObject);
procedure editExecute(Sender: TObject);
procedure delExecute(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure N7Click(Sender: TObject);
procedure N2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit3, Unit4, Unit5, Unit2, Unit6, Unit7, Unit9;
{$R *.dfm}
procedure TForm1.FormShow(Sender: TObject);
begin
Tbl := 'Vagon';
ShowZapros;
end;
procedure TForm1.addExecute(Sender: TObject);
begin
Form6.Caption := 'Информация по вагону';
Tbl := 'Vagon';
ForEdit := '-1';
Form6.ShowModal;
if ((EditMode=false)and(EditIns)) then
begin
EditMode:=true;
Form6.ShowModal;
end;
end;
procedure TForm1.editExecute(Sender: TObject);
begin
if (DataModule2.QShow['V.id']=Null) then
begin
ShowMessage('Нечего редактировать');
EditMode := false;
end
else
begin
EditMode:=True;
Form6.ShowModal;
end;
end;
procedure TForm1.delExecute(Sender: TObject);
begin
if (DataModule2.QShow['V.id']=Null) then
begin
ShowMessage('Нечего удалять');
EditMode := false;
end
else
begin
Tbl := 'Vagon';
pole1 := 'id';
pole2 := 'mymonth';
pole3 := 'myyear';
pole4 := 'nomer_vagona';
pole5 := 'invent_nomer';
pole6 := 'year_izgot';
pole7 := 'gruzopodemnost';
pole8 := 'liter';
pole9 := 'key_rod_vagona';
pole10 := 'iznos';
pole11 := 'prinadlezhnost';
pole12 := 'key_raion_dvizh';
pole13 := '';
ForDel := DataModule2.QShow['v.id'];
DelZapros;
ShowZapros();
end;
end;
procedure TForm1.N4Click(Sender: TObject);
begin
ShowMessage('Бурцева Екатерина');
end;
procedure TForm1.N12Click(Sender: TObject);
begin
Form1.Close;
end;
procedure TForm1.N10Click(Sender: TObject);
begin
ForReport();
Form9.ShowModal;
end;
procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var InputString: string;
begin
if ([ssCtrl] = Shift) and (key=key_F) then
begin
InputString := InputBox('Поиск', 'Введите инвентарный номер:', '');
if InputString <> '' then
begin
if not DataModule2.QShow.Locate('invent_nomer',InputString,[]) then
begin
showmessage('Запись не найдена');
end;
end;
end;
end;
procedure TForm1.N7Click(Sender: TObject);
begin
{ For MyI:=0 to Form9.StringGrid1.RowCount-1 do
begin
Form9.StringGrid1.Cells[0,MyI] := Form1.DBGrid1.Columns[MyI].Title.Caption;
end; }
{ for tmpI:=0 to 10 do
Form9.StringGrid1.Cells[1,tmpI] := '';}
{ Form9.StringGrid1.Enabled := true;
Form9.Button1.Enabled := true;
Form9.Button1.Caption := 'Искать';
Form9.ShowModal();}
end;
procedure TForm1.N2Click(Sender: TObject);
begin
winhelp(Form1.Handle,'help.hlp',HELP_CONTEXT,1);
end;
end.
unit Unit2;
interface
uses
SysUtils, Classes, DB, ADODB;
type
TDataModule2 = class(TDataModule)
ADOConnection1: TADOConnection;
Query1: TADOQuery;
DS1: TDataSource;
QShow: TADOQuery;
DSshow: TDataSource;
Qtmp: TADOQuery;
DStmp: TDataSource;
QOSV: TADOQuery;
DSOSV: TDataSource;
Quslugi: TADOQuery;
DSuslugi: TDataSource;
QSelUs: TADOQuery;
DSselUs: TDataSource;
QueryRep: TADOQuery;
DSQueryRep: TDataSource;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
private
{ Private declarations }
public
{ Public declarations }
end;
var
DataModule2: TDataModule2;
implementation
{$R *.dfm}
end.
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, DBGrids, Menus, ActnList;
type
TForm3 = class(TForm)
GroupBox1: TGroupBox;
DBGrid1: TDBGrid;
Edit1: TEdit;
Button1: TButton;
Label1: TLabel;
Edit2: TEdit;
Label2: TLabel;
ActionList1: TActionList;
PopupMenu1: TPopupMenu;
del: TAction;
N1: TMenuItem;
procedure Button1Click(Sender: TObject);
procedure DBGrid1DblClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure delExecute(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure DBGrid1CellClick(Column: TColumn);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
Uses Unit2, Unit4;
{$R *.dfm}
procedure TForm3.Button1Click(Sender: TObject);
begin
If (tbl='Ceha') then
begin
ToIns2 := Edit2.Text;
end;
ToIns := Edit1.Text;
InsertZapros();
ShowZapros();
Edit1.Clear;
Edit2.Clear;
end;