outp.n:=trunc(tmp);

outp.Nach:=data[3];

outp.Kon:=data[4];

outp.Dlit:=data[5];

val(data[6],outp.osm,k);

result:=outp;

end;

procedure TMainFrm.N15Click(Sender: TObject);

var f: TextFile;

s: string;

outp: TRaspInfo;

begin

{импорт расписаний}

if OpenDialog.Execute then begin

RaspTable.Active:=true;

if not rasptable.IsEmpty then begin

RaspTable.Active:=false;

RaspTable.EmptyTable;{очистка таблицы}

RaspTable.Active:=true;

end;

assignfile(f,opendialog.FileName);

reset(f);

repeat

readln(f,s);

outp:=strconvert_rasp(s);

RaspTable.InsertRecord([outp.M,outp.n,outp.V,outp.s,outp.nach,outp.kon,outp.dlit,outp.osm]);

until EOF(F);

closefile(f);

RaspTable.Active:=false;

end;

end;

procedure TMainFrm.N18Click(Sender: TObject);

begin

RaspViewFrm.showmodal;

end;

procedure TMainFrm.N19Click(Sender: TObject);

begin

WorkView.ShowModal;

end;

function StrConvert_Work(s: string): TWorkInfo;

const tabulator: char = #9;

var Data:array [1..6] of string;

id,k,i: integer;

outp: TWorkInfo;

begin

id:=1;k:=1;

{разбиваем строку на подстроки}

for i:=1 to length(s) do

if (s[i]=tabulator) or (i=length(s)) then begin

if i=length(s) then data[k]:=copy(s,id,i-id+1)

else data[k]:=copy(s,id,i-id);

k:=k+1;

id:=i+1;

end;

{преобразуем}

val(data[1],outp.T,k);

val(data[2],outp.M,k);

val(data[3],outp.NV,k);

val(data[5],outp.NK,k);

outp.FV:= data[4];

outp.FK:= data[6];

result:=outp;

end;

procedure TMainFrm.N16Click(Sender: TObject);

var f: TextFile;

s: string;

outp: TWorkInfo;

begin

{импорт работников}

if OpenDialog.Execute then begin

WorkTable.Active:=true;

if not WorkTable.IsEmpty then begin

WorkTable.Active:=false;

WorkTable.EmptyTable;{очистка таблицы}

WorkTable.Active:=true;

end;

assignfile(f,opendialog.FileName);

reset(f);

repeat readln(f,s);

outp:=strconvert_work(s);

WorkTable.InsertRecord([outp.t,outp.m,outp.nv,outp.fv,outp.nk,outp.fk]);

until EOF(F);

closefile(f);

WorkTable.Active:=false;

end;

end;

procedure TMainFrm.FormActivate(Sender: TObject);

var i: integer;

begin

MarshTable.Active:=true;

MarshTable.First;

for i:=1 to MarshTable.RecordCount do begin

MarshNoCombo.Items.Add(IntToStr(MarshTable.FieldValues['MARSH_NO']));

{if i<>MarshTable.RecordCount} MarshTable.Next;

end;

MarshTable.Active:=false;

end;

procedure TMainFrm.N3Click(Sender: TObject);

begin

AllView.ShowModal;

end;

function StrConvert_troll(s: string): TTrollInfo;

const tabulator: char = #9;

var Data:array [1..6] of string;

id,k,i: integer;

outp: TTrollInfo;

begin

id:=1;k:=1;

{разбиваем строку на подстроки}

for i:=1 to length(s) do

if (s[i]=tabulator) or (i=length(s)) then begin

if i=length(s) then data[k]:=copy(s,id,i-id+1)

else data[k]:=copy(s,id,i-id);

k:=k+1;

id:=i+1;

end;

{преобразуем}

val(data[2],outp.T,k);

val(data[1],outp.M,k);

val(data[3],outp.o1,k);

val(data[4],outp.o2,k);

val(data[5],outp.o3,k);

val(data[6],outp.o4,k);

result:=outp;

end;

procedure TMainFrm.N17Click(Sender: TObject);

var f: TextFile;

s: string;

outp: TTrollInfo;

begin

{импорт работников}

if OpenDialog.Execute then begin

TrollTable.Active:=true;

if not TrollTable.IsEmpty then begin

TrollTable.Active:=false;

TrollTable.EmptyTable;{очистка таблицы}

TrollTable.Active:=true;

end;

assignfile(f,opendialog.FileName);

reset(f);

repeat readln(f,s);

outp:=strconvert_troll(s);

TrollTable.InsertRecord([outp.T,outp.M,outp.o1,outp.o2,outp.o3,outp.o4]);

until EOF(F);

closefile(f);

TrollTable.Active:=false;

end;

end;

procedure TMainFrm.N20Click(Sender: TObject);

begin

TrollView.ShowModal;

end;

procedure TMainFrm.OKBtnClick(Sender: TObject);

begin

RaspOut.ShowModal;

end;

end.

Приложение 3

РЕЗУЛЬТАТЫ РАБОТЫ ПРОГРАММЫ

Форма ввода имени пользователя и пароля представлена на рис. П.3.1.

Рис. П.3.1

Основная форма программы представлена на рис. П.3.2.

Рис. П.3.2

Содержимое таблицы «Пользователи» представлено на рис. П.3.3.

Рис. П.3.3

Содержимое таблицы «Работники» после импорта данных представлено на рис. П.3.4.

Рис. П.3.4

Содержимое таблицы «Трамваи» после импорта данных представлено на рис. П.3.5.



Рис. П.3.5

Содержимое таблицы «Расписание» после импорта данных представлено на рис. П.3.5.

Рис. П.3.5

Форма составления графика представлена на рис. П.3.6.

Рис. П.3.6.

Приложение 4

РУКОВОДСТВО ОПЕРАТОРА ПО ПРОГРАММЕ

П.4.1. Назначение программы

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

В программе предусмотрено выполнение следующих функций:

1) хранение, отображение и возможность корректировки информации о подвижном составе парка, его экипажах, поездных расписаниях;

2) импорт исходных данных из других подсистем системы;

3) резервное сохранение информационной базы и составленных графиков;

4) автоматическое составление месячных графиков работы подвижного состава.

П.4.2. Условия применения программы

При работе с программой необходимо обеспечить выполнение следующих требований к комплексу технических средств:

1) компьютер типа IBM PC или любым совместимым с ним, имеющий процессор типа Intel или совместимый с ним (не ниже Pentium 100);

2) оперативная память должна составлять не менее 16 Мб;

3) жесткий диск должен иметь свободное пространство не

менее 10 Мб;

4) манипулятор типа «мышь»;

5) видеоадаптер и монитор, поддерживающие разрешение 800х600 пиксел;

6) для печати документов необходимо наличие принтера формата А4.

Программа реализована в среде программирования Delphi версии 7 корпорации Borland.

В качестве формата базы данных выбран формат баз данных dBase IV.

П.4.3. Пуск программы

Программа представлена в виде исполнимого модуля diploma.exe. Запуск программы может быть произведен из командной строки любой программной оболочки или из системного меню программ операционной системы.

П.4.4. Команды оператора

Интерфейс подсистемы разработан с учетом стандартов ОС Windows. Поэтому выполнение различных действий производится из нескольких точек: основное меню, панель инструментов и пункт списка в основной форме.

Вся работа в подсистеме опирается на эргономику и удобство использования, поэтому подсистема ориентирована на манипулятор типа «мышь». Строковые поля заполняются вручную с помощью клавиатуры.

Перемещение между полями осуществляется либо «мышью» либо посредством нажатия клавиши «Tab», обратный ход по полям - «Shift-Tab».

Для закрытия экранных форм используется либо кнопка «Закрыть» либо стандартные средства ОС Windows.

При работе с программой «Система составления графиков работы подвижного состава трамвайного депо» используются как правило два режима:

работа с экранной формой;

работа с печатной формой.

Работы с экранными формами осуществляется по правилам форм в ОС Windows (используются стандартные панели инструментов, меню и элементы ввода данных).

Работа с печатными формами отличается своей простотой: форма открывается в режиме предварительного просмотра, а для ее вывода на принтер используется стандартная пиктограмма в виде значка принтера (либо стандартное сочетание клавиш «Ctrl+P»).

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

П.4.5. Сообщения оператору

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

Таблица П.4.1.

Сообщения программы

Сообщение	Описание	Действия при получении сообщения
1	2	3
Пароль или имя пользователя не найдены	При аутентификации пользователь ввел неправильный пароль или имя	Повторить ввод имени пользователя и пароля
Неправильный формат файла для импорта	Попытка выполнить импорт данных из файла, неподходящего формата	Проверить правильность ввода имени файла.
Нельзя удалить пользователя root	Попытка удаления из таблицы зарегистрированных пользователей программы пользователя с именем root (администратора)	Данного пользователя нельзя удалить средствами программы
Количество машин не соответствует количеству экипажей	При проверке данных по выбранному маршруту выяснилось, что не для всех экипажей (машин) имеется машина (экипаж)	Проверить импортированные данные. Повторить импорт или добавить недостающие машины (экипажи) вручную
Количество расписаний не соответствует количеству машин	При проверке данных по выбранному маршруту выяснилось, что не для всех машин есть поездные расписания	Проверить импортированные данные. Повторить импорт или добавить недостающие расписания вручную
База данных повреждена! Восстановление из резервной копии	Обнаружено повреждение БД	Нажать в окне с сообщением кнопку «ОК». Данные будут восстановлены автоматически
Отсутствуют данные по ПС данного маршрута	Для выбранного маршрута нет данных по ПС	Импортировать недостающие данные или ввести их вручную
Отсутствуют данные по экипажам данного маршрута	Для выбранного маршрута нет данных по экипажам	Импортировать недостающие данные или ввести их вручную
Отсутствуют данные по расписаниям данного маршрута	Для выбранного поездным расписаниям экипажам	Импортировать недостающие данные или ввести их вручную

Размещено на Allbest.ru