Разработка автоматизированного рабочего места менеджера транспортного предприятия, страница 24

27. Соловьев А.Я. электронные вычислительные машины. В 8 книгах. Книга решение прикладных задач. – М.: Высшая школа, 2009. – 315с.

28. Фаронов В.В. Delphi. Программирование на языке высокого уровня. – П.: Питер, 2009  - 640 с.

29. Федорова Г.Н. Информационные системы. - М.: Академия,2013 - 208 с.

30. Фленов М. Е. Библия Delphi. – П.: БХВ-Петербург,2011. -  686 с.

31. Фонталин Н.Н. Расчет экономической эффективности в дипломных и курсовых проектах. Учебное пособие для ВУЗов, - М.: Высшая школа, 2006 – 400с.

32. Хомоненко А.Д., Гофман В.Э., Мещеряков Е.В. Delphi 7. –П.:БХВ-Петербург, 2010. – 1120 с.

33. Чиртик А.А. Программирование в Delphi. Трюки и эффекты. – П.: Питер,2010. -  400 с.

34. Шкарина Л. Язык SQL: учебный курс. - СПб.: Питер, 2010.  - 266 с.

35. Автотранспорт учет и анализ – // URL: http://www.rtop.fatal.ru (дата обращения – 12.10.2013г.)

36. Базы данных - теория и практика– // URL: http://rdbms.narod.ru дата обращения – 18.10.2013г.)

37. Журнал  Стандарт №01(48), январь 2007– // URL:  http://www.comnews.ru/ (дата обращения – 25.09.2013г.)

38. Официальный сайт ГИБДД МВД России .  – // URL: http://www.gibdd.ru/ (дата обращения – 25.10.2013г.)

39. Официальный сайт ФГУП «СВЯЗЬ-безопасность»– // URL:  http://www.svbc.ru/  (дата обращения – 16.10.2013г.)

40. Программа АТП: Путевые листы»  - // URL:   http://atpsoft.ru/ дата обращения – 16.10.2013г.)

41. Программы учета путевых листов – // URL: http://soft-trans.ru/ дата обращения – 16.10.2013г.)

Приложение 1

Рис. П1.1 Образец путевого листа

Таблица 1

Шаблон «Журнал учета движения путевых листов»

Номер путевого листа

Дата выдачи путевого листа

Водитель

Гаражный номер автомобиля

Подпись

Примечание

фамилия, имя, отчество

табельный номер

водителя в получении путевого листа

диспетчера и дата приемки путевого листа и документов от водителя

бухгалтера и дата приемки путевого листа


Приложение 2

Исходный код программного модуля storage

unit storage;

interface

procedure file_creation (text:string;path:string);

function pathbd(path:string ):string;

function ServicDate (DateBD:string): string;

function ServicTime (DateBD:string): string;

function ServicName (FioFull:string): string;

function ServicPatronymic (FioFull:string): string;

function ServicSurname (FioFull:string): string;

Var Null_path:boolean;

Tab:integer;

FieName:string;

FieNameP:string;

TabName:string;

Act:string;

RunGo:real;

I:integer;

implementation

function ServicPatronymic (FioFull:string): string;

var Patronymic,Surname: string;

begin

Surname:= Copy(FioFull,1,Pos(' ',FioFull)-1);

Delete(FioFull,1,Pos(' ',FioFull));

Patronymic:= Copy(FioFull,1,Pos(' ',FioFull)-1);

Delete(FioFull,1,Pos(' ',FioFull));

Result:= FioFull ;

end;

function ServicName (FioFull:string): string;

var Surname: string;

begin

Surname:= Copy(FioFull,1,Pos(' ',FioFull)-1);

Delete(FioFull,1,Pos(' ',FioFull));

Result:= Copy(FioFull,1,Pos(' ',FioFull)-1);

end;

function ServicSurname (FioFull:string): string;

begin

Result:= Copy(FioFull,1,Pos(' ',FioFull)-1);

end;

function ServicDate (DateBD:string): string;

var

year,month,day: string;

begin

year:= Copy(DateBD,1,Pos('-',DateBD)-1);

Delete(DateBD,1,Pos('-',DateBD));

month:= Copy(DateBD,1,Pos('-',DateBD)-1);

Delete(DateBD,1,Pos('-',DateBD));

day:=DateBD ;

Result:= day+'.'+month+'.'+year ;

end;

function ServicTime (DateBD:string): string;

var

hors,minute,second: string;

begin

Delete(DateBD,1,Pos(':',DateBD)-3);

hors:=Copy(DateBD,1,Pos(':',DateBD)-1);

Delete(DateBD,1,Pos(':',DateBD));

minute:=Copy(DateBD,1,Pos(':',DateBD)-1);

Delete(DateBD,1,Pos(':',DateBD));

second:=Copy(DateBD,1,Pos('.',DateBD)-1);