Подсистема учета работы автотранспорта

 

Подсистема учёта работы автотранспорта

Введение

Невозможно найти предприятия, которое не закупало бы ресурсы - сырье, товары, услуги, и т.д. После того как принято решение о производстве определенного вида продукции или услуг, требуется обеспечить это производство исходными ресурсами. Возникает проблема закупок, т.е. экономически целесообразного приобретения товаров (услуг).

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

Материально-техническое снабжение предприятий и организаций независимо от их форм собственности и условий функционирования является одной из основных подсистем логистики, которая постоянно находится в центре внимания ученых, специалистов и практиков. Для автоматизации всех этих процессов разрабатываются всевозможные АСУ, в своей работе я рассмотрю АС «ГСМ».

1. Организационное обеспечение

Материальный склад станции Новокузнецк является структурной единицей Кузбасского отдела материально-технического обеспечения обособленной структурной единицей Новосибирской дирекции материально - технического обеспечения - структурного подразделения Росжелдорснаба - филиала открытого акционерного общества «Российские железные дороги».

В своей деятельности Подразделение руководствуется Конституцией Российской Федерации, федеральными законами, иными нормативными правовыми актами Российской Федерации, уставом: открытого акционерного общества «Российские железные дороги» (далее - ОАО «РЖД»), приказами и другими нормативными документами ОАО «РЖД», положением о Новосибирской дирекции материально-технического обеспечения - структурного подразделения Росжелдорснаба - филиала открытого акционерного общества «Российские железные дороги», нормативными документами Росжелдорснаба, Дирекции.

Подразделение не является филиалом или представительством ОАО «РЖД», не имеет статус юридического лица и осуществляет деятельность от имени ОАО «РЖД».

Для организации и ведения своей деятельности Подразделение открывает текущий счет ОАО «РЖД» в порядке, установленном законодательством Российской Федерации и внутренними документами ОАО «РЖД».

Подразделение имеет круглую печать, содержащую ее наименование, а также полное наименование с указанием на ОАО «РЖД», Росжелдорснаб, Дирекцию на русском языке. Подразделение может иметь штампы, бланки и иные реквизиты со своим наименованием, содержащие ссылку на Дирекцию, Росжелдорснаб и ОАО «РЖД».

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

Функции предприятия

Подразделение для достижения целей деятельности осуществляет следующие задачи и функции:

·обеспечение производственной деятельности структурных подразделений железной дороги, и иных филиалов ОАО «РЖД» и выделяемых дочерних структур материально-техническими ресурсами (МТР);

·организация работ по техническому перевооружению и управлению качеством в системе материально-технического обеспечения ОАО «РЖД»;

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

·подготовка материалов и представление в Дирекцию с соблюдением установленных сроков для ведения претензионно - исковой работы в соответствии с законодательством РФ и внутренними документами ОАО «РЖД», Росжелдорснаба, Дирекции;

·реализация мероприятий по улучшению качества и ритмичности поставок МТР;

·участие в реализаций мероприятий по сокращению затрат и совершенствованию системы управления Подразделения.

·реализация политики ОАО «РЖД» в части закупок материально-технических ресурсов для нужд структурных подразделений железной дороги и иных получателей;

·отпуск материальных ресурсов структурным подразделениям железной дороги, иным филиалам ОАО «РЖД», выделяемым дочерним структурам, иными получателями в пределах железной дороги;

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

·разработка и осуществление мероприятий по совершенствованию организации складского хозяйства и сохранности материальных ценностей, рациональному использованию складских помещений и транспортных средств, улучшение организации погрузо-разгрузочных работ и сокращение простоев транспортных средств под погрузкой-выгрузкой;

·разработка и исполнение мероприятий по снижению затрат на потребляемые МТР и содержанию инфраструктуры складского хозяйства,

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

2. Техническое обеспечение

·процессор: Intel Core 2 Duo E7400 2.80 GHz

·материнская плата: ASUS P5Q-EM

·оперативная память: Kingston KVR800D2N5 2 Gb

·жёсткий диск: Seagate Barracuda 7200.10 320 Gb.

3.Программное обеспечение

·Microsoft Windows XP SP3

·Microsoft Office:

oWord

oExcel

oAccess

oPower Point

oVisio

·АС «ГСМ»

·АС «Учёт работы автотранспорта»

3.1 АС «ГСМ»

Для своевременного и достоверного предоставления данных по учету и анализу использования ГСМ подвижным составом автомобильного транспорта и строительно-дорожных машин на предприятии используется АС «ГСМ».

3.1.1Вход в программу

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

Рисунок 3.1

Загрузится главное окно программы (Рис. 3.2).

Рисунок 3.2

3.1.2Заполнение АМТС

Форма АМТС предназначена для работы с транспортными средствами.

В данной форме реализованы функции: занесение нового транспортного средства, списание, передача на другие предприятие и продажа существующего транспортного средства. Любое действие с транспортным средством вступает в силу только после акцептирования этого действия администратором программы.

3.1.3Занесение новых транспортных средств

Для занесения нового транспортного средства откройте форму АМТС (Меню Данные/ АМТС) (Рис. 3.2) и в открывшемся окне нажмите кнопку Обновить. После обновления нажмите кнопку Приобретение (Рис. 3.3), в появившейся строке внесите характеристики транспортного средства. После окончания ввода нажмите кнопку Сохранить.

Рисунок 3.3

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

3.1.4Списание транспортных средств

Для списания транспортного средства откройте форму АМТС (Меню Данные/ АМТС) (Рис. 3.2) и в открывшемся окне нажмите кнопку Обновить. После обновления выделите техническое средство, которое необходимо списать, курсором мыши и нажмите кнопку Списание (Рис. 3.3), в появившемся окне внесите дату списания транспортного средства (Рис. 3.4). После окончания ввода нажмите кнопку Сохранить.

Строка, отображающая списанное транспортное средство подсвечивается серым цветом.

Рисунок 3.4

3.1.5Продажа транспортных средств

Для продажи транспортного средства откройте форму АМТС (Меню Данные/ АМТС) (Рис. 3.2) и в открывшемся окне нажмите кнопку Обновить. После обновления выделите техническое средство, которое необходимо продать, курсором мыши и нажмите кнопку Продажа (Рис. 3.3), в появившемся окне внесите дату продажи транспортного средства (Рис. 3.5). После окончания ввода нажмите кнопку Сохранить.

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

Рисунок 3.5

3.1.6Передача транспортных средств

Для передачи транспортного средства на другое предприятие откройте форму АМТС (Меню Данные/ АМТС) и в открывшемся окне нажмите кнопку Обновить. После обновления выделите техническое средство, которое необходимо передать, курсором мыши и нажмите кнопку Передача, в появившемся окне внесите дату передачи и предприятие, на которое осуществляется передача транспортного средства. После окончания ввода нажмите кнопку Сохранить.

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

3.1.7Просмотр транспортных средств по статусу

Статус транспортного средства может быть: новый, рабочий, списанный, проданный, переданный.

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

3.1.8Заполнение путевых листов

Для заполнения путевых листов на транспортного средства откройте форму Путевые листы (Меню Данные/ Путевые листы) и в открывшемся окне нажмите кнопку Обновить. После обновления нажмите кнопку Вставить, в активной строке внесите данные путевого листа. После окончания ввода нажмите кнопку Сохранить.

3.1.9Заполнение простоев АМТС

Для заполнения путевых листов на транспортного средства откройте форму Простои (Меню Данные/ Простои) и в открывшемся окне нажмите кнопку Обновить. После обновления нажмите кнопку Вставить, в активной строке внесите данные простоя АМТС (дату, АМТС, причину). После окончания ввода нажмите кнопку Сохранить.

3.1.10 Заполнение справочника Водители

Для заполнения справочника водители откройте форму Водители (Меню Справочники/ Водители) и в открывшемся окне нажмите кнопку Обновить. После обновления нажмите кнопку Вставить, в появившейся строке внесите Ф.И.О. и дату поступления. После окончания ввода нажмите кнопку Сохранить. После увольнения водителя необходимо занести дату увольнения.

3.1.11 Формирование и просмотр отчетов

Для просмотра отчетов необходимо загрузить страницу Microsoft Internet Explorer. Откройте ссылку на Главную страницу (Меню Отчеты/ Главная страница) и в открывшемся окне нажмите введите Пользователя и пароль, поставьте галочку Сохранить пароль.

Загрузится страница Microsoft Internet Explorer, на которой вы можете формировать отчеты.

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

3.2 АС «Учёт работы автотранспорта»

Программный код

Код главной формы:

procedure TForm1.N10Click (Sender: TObject);. Show;;TForm1.N9Click (Sender: TObject);. Show;;TForm1. TrayIconClick (Sender: TObject);;TForm1.N8Click (Sender: TObject);. Show;;TForm1.N7Click (Sender: TObject);. Show;TForm1.N6Click (Sender: TObject);. Show;TForm1.N5Click (Sender: TObject);. Show;TForm1.N4Click (Sender: TObject);. Show;TForm1.N11Click (Sender: TObject);. Show;;TForm1.N16Click (Sender: TObject);. Show;;TForm1.N17Click (Sender: TObject);. Show;;TForm1.N18Click (Sender: TObject);. Show;;TForm1.N1Click (Sender: TObject);. Show;;TForm1.DBLookupComboBox11Click (Sender: TObject);KAT:string;((ADOTable2. Fields[7].AsBoolean=True) or (ADOTable2. Fields[8].AsBoolean=True)(ADOTable2. Fields[9].AsBoolean=True)) AND

(ADOTable2. Fields[23].AsString='2') then. Enabled:=True;. Enabled:=True;. Enabled:=True;. Enabled:=True;. Enabled:=True;. Enabled:=True;. Enabled:=True;. Enabled:=True;. Enabled:=True;. Enabled:=True;. Enabled:=True;. Enabled:=True;. Enabled:=True;. Enabled:=True;. Enabled:=True;. Fields[7].AsString:='11';. Enabled:=False;. Enabled:=False;. Enabled:=False;. Enabled:=False;. Enabled:=False;. Enabled:=False;. Enabled:=False;. Enabled:=False;. Enabled:=False;. Enabled:=False;. Enabled:=False;. Enabled:=False;. Enabled:=False;. Enabled:=False;. Enabled:=False;;(ADOTable2. Fields[6].AsBoolean=True) then KAT:='A';(ADOTable2. Fields[7].AsBoolean=True) then KAT:='B';(ADOTable2. Fields[8].AsBoolean=True) then KAT:='C';(ADOTable2. Fields[9].AsBoolean=True) then KAT:='D';(ADOTable2. Fields[13].AsBoolean=True) then KAT:='PA';(ADOTable2. Fields[14].AsBoolean=True) then KAT:='PB';(ADOTable2. Fields[15].AsBoolean=True) then KAT:='PC';(ADOTable2. Fields[16].AsBoolean=True) then KAT:='PD';(ADOTable2. Fields[17].AsBoolean=True) then KAT:='PE';(ADOTable2. Fields[18].AsBoolean=True) then KAT:='TA';(ADOTable2. Fields[19].AsBoolean=True) then KAT:='TB';(ADOTable2. Fields[20].AsBoolean=True) then KAT:='TC';(ADOTable2. Fields[21].AsBoolean=True) then KAT:='TD';(ADOTable2. Fields[22].AsBoolean=True) then KAT:='TE';. Filtered:=False;. Active:=False;. Filter:=KAT + ' = True';. Filtered:=True;. Active:=True;;;TForm1.DBLookupComboBox2Click (Sender: TObject);KAT:string;((ADOTable2. Fields[7].AsBoolean=True) or (ADOTable2. Fields[8].AsBoolean=True)(ADOTable2. Fields[9].AsBoolean=True)) AND

(ADOTable2. Fields[23].AsString='2') then. Enabled:=True;. Enabled:=True;. Enabled:=True;. Enabled:=True;. Enabled:=True;. Enabled:=True;. Enabled:=True;. Enabled:=True;. Enabled:=True;. Enabled:=True;. Enabled:=True;. Enabled:=True;. Enabled:=True;. Enabled:=True;. Enabled:=True;. Fields[7].AsString:='11';. Enabled:=False;. Enabled:=False;. Enabled:=False;. Enabled:=False;. Enabled:=False;. Enabled:=False;. Enabled:=False;. Enabled:=False;. Enabled:=False;. Enabled:=False;. Enabled:=False;. Enabled:=False;. Enabled:=False;. Enabled:=False;. Enabled:=False;;(ADOTable2. Fields[6].AsBoolean=True) then KAT:='A';(ADOTable2. Fields[7].AsBoolean=True) then KAT:='B';(ADOTable2. Fields[8].AsBoolean=True) then KAT:='C';(ADOTable2. Fields[9].AsBoolean=True) then KAT:='D';(ADOTable2. Fields[13].AsBoolean=True) then KAT:='PA';(ADOTable2. Fields[14].AsBoolean=True) then KAT:='PB';(ADOTable2. Fields[15].AsBoolean=True) then KAT:='PC';(ADOTable2. Fields[16].AsBoolean=True) then KAT:='PD';(ADOTable2. Fields[17].AsBoolean=True) then KAT:='PE';(ADOTable2. Fields[18].AsBoolean=True) then KAT:='TA';(ADOTable2. Fields[19].AsBoolean=True) then KAT:='TB';(ADOTable2. Fields[20].AsBoolean=True) then KAT:='TC';(ADOTable2. Fields[21].AsBoolean=True) then KAT:='TD';(ADOTable2. Fields[22].AsBoolean=True) then KAT:='TE';. Filtered:=False;. Active:=False;. Filter:=KAT + ' = True';. Filtered:=True;. Active:=True;;;TForm1.DBLookupComboBox3Click (Sender: TObject);(ADOTable3. Fields[3].AsBoolean=False) then. Filtered:=False;. Active:=False;. Filter:='EC = True';. Filtered:=True;. Active:=True;;;TForm1. FormCloseQuery (Sender: TObject; var CanClose: Boolean);. Close;;TForm1. FormCreate (Sender: TObject);. Last;;;TForm1. Image1Click (Sender: TObject);. Show;TForm1. JvXPButton10Click (Sender: TObject);. Cancel;;TForm1. JvXPButton11Click (Sender: TObject);. Refresh;;TForm1. JvXPButton120Click (Sender: TObject);. Show;;TForm1. JvXPButton1Click (Sender: TObject);ADOTable1. Modified then. Post;;TForm1. JvXPButton2Click (Sender: TObject);. Show;;TForm1. JvXPButton3Click (Sender: TObject);. Next;;TForm1. JvXPButton4Click (Sender: TObject);. First;;TForm1. JvXPButton5Click (Sender: TObject);. Prior;;TForm1. JvXPButton6Click (Sender: TObject);. Last;;TForm1. JvXPButton7Click (Sender: TObject);. Insert;;TForm1. JvXPButton8Click (Sender: TObject);. Delete;;TForm1. JvXPButton9Click (Sender: TObject);. Edit;

end;

end.

Код формы печати путевых листов:

procedure TForm7. RadioButton2Click (Sender: TObject);. Enabled:=True;. Enabled:=False;. Enabled:=False;. Enabled:=False;. Enabled:=False;;TForm7. RadioButton3Click (Sender: TObject);. Enabled:=True;. Enabled:=True;. Enabled:=False;. Enabled:=False;. Enabled:=False;;TForm7. RadioButton4Click (Sender: TObject);. Enabled:=False;. Enabled:=False;. Enabled:=False;. Enabled:=True;. Enabled:=True;;TForm7. RadioButton1Click (Sender: TObject);. Enabled:=False;. Enabled:=False;. Enabled:=False;. Enabled:=False;. Enabled:=False;;TForm7. Button1Click (Sender: TObject);, Range, Cell1, Cell2, ArrayData, Sl: Variant;, BeginRow, j: integer;, ColCount, K1, K2, Ras1, Ras2: Integer;, Per2: Extended;, DataZ, VremyaV, VremyaZ: TDateTime;, NPL, Marka, GN, Taks, PM, PN, T, M, Vod, NVod, Z,, D, P1, P2, R1, R2, G1, G2, Otm, VR1, VR2, OO, F, Kl, FIOP, SP1, SP2, OrS: String;Form1.ADOTable1. Modified then.ADOTable1. Post;.ADOTable10. Active:=False;.ADOTable10. Filtered:=False;RadioButton1. Checked=True then.ADOTable10. Filter:='Код = ' +.ADOTable1. FieldByName('Код').AsString;RadioButton2. Checked=True then.ADOTable10. Filter:='Д_выезда = ' +(DateTimePicker1. Date);RadioButton3. Checked=True then.ADOTable10. Filter:='№ > ' +(StrToInt(Edit1. Text) - 1) + ' and № < ' +(StrToInt(Edit2. Text)+1);RadioButton4. Checked=True then.ADOTable10. Filter:='Д_выезда > ' +(DateTimePicker2. Date-1)+ ' and Д_заезда < ' +(DateTimePicker3. Date+1);.ADOTable10. Filtered:=True;.ADOTable10. Active:=True;not Form1.ADOTable10. Eof do. Active:=False;. Filtered:=False;. Filter:='код = ' +.ADOTable10. Fields[34].AsString;. Filtered:=True;. Active:=True;:=ADOTable1. Fields[23].AsString;F='2' then // лицевая гр.:=Form1.ADOTable10. Fields[0].AsString;:=Form1.ADOTable10. Fields[1].AsDateTime;:=Form1.ADOTable10. Fields[2].AsDateTime;:=Form1.ADOTable10. Fields[3].AsDateTime;:=Form1.ADOTable10. Fields[4].AsDateTime;:=Form1.ADOTable10. Fields[5].AsString;:=Form1.ADOTable10. Fields[6].AsString;:=Form1.ADOTable10. Fields[7].AsString;PM='-' then PM:='';:=Form1.ADOTable10. Fields[8].AsString;PN='-' then PN:='';:=Form1.ADOTable10. Fields[9].AsString;:=Form1.ADOTable10. Fields[10].AsString;:=Form1.ADOTable10. Fields[11].AsString;:=Form1.ADOTable10. Fields[11].AsString;:=Form1.ADOTable10. Fields[12].AsString;Z='-' then Z:=''; Z='перевозка грузов' then Z:='';

O:=Form1.ADOTable10. Fields[13].AsString;:=Form1.ADOTable10. Fields[14].AsString;:=Form1.ADOTable10. Fields[15].AsString;:=Form1.ADOTable10. Fields[16].AsString;:=Form1.ADOTable10. Fields[17].AsString;:=Form1.ADOTable10. Fields[23].AsString;:=Form1.ADOTable10. Fields[18].AsString;:=Form1.ADOTable10. Fields[24].AsString;:=Form1.ADOTable10. Fields[19].AsString;:=Form1.ADOTable10. Fields[25].AsString;:=Form1.ADOTable10. Fields[20].AsInteger;:=Form1.ADOTable10. Fields[26].AsInteger;:=Form1.ADOTable10. Fields[21].AsInteger;:=Form1.ADOTable10. Fields[27].AsInteger;:=Form1.ADOTable10. Fields[22].AsExtended;:=Form1.ADOTable10. Fields[28].AsExtended;:=Form1.ADOTable10. Fields[35].AsString;:=Form1.ADOTable10. Fields[36].AsString;:=Form1.ADOTable10. Fields[37].AsString;:=Form1.ADOTable10. Fields[33].AsString;:=Form1.ADOTable10. Fields[38].AsString;:=Form1.ADOTable10. Fields[39].AsString;:=Form1.ADOTable10. Fields[40].AsString;:=Form1.ADOTable10. Fields[41].AsString;:='C:\Program Files\URA\putevoy.xlt';:= 1;

BeginRow:= 13;

// Размеры выводимого массива данных

RowCount:= Form1.ADOTable10. RecordCount;:= Form1.ADOTable10. FieldDefs. Count;:= CreateOleObject ('Excel. Application');. Application. EnableEvents:= false;:= ExcelApp. WorkBooks. Add(ShFile);:= VarArrayCreate([1, RowCount, 1, ColCount], varVariant);:=WorkBook. WorkSheets[1].Cells [3,86]; // № пут. л.. Value:=NPL;:=WorkBook. WorkSheets[1].Cells [1,83]; // отметки. Value:=Otm;:=WorkBook. WorkSheets[1].Cells [5,47]; // дата. Value:=DataV;:=WorkBook. WorkSheets[1].Cells [5,58]; // месяц. Value:=DataV;:=WorkBook. WorkSheets[1].Cells [5,79]; // год. Value:=DataV;:=WorkBook. WorkSheets[1].Cells [6,17]; // Организация_полн.. Value:=O;:=WorkBook. WorkSheets[1].Cells [8,26]; // марка а/м. Value:=Marka;:=WorkBook. WorkSheets[1].Cells [11,28]; // гос. номер. Value:=GN;:=WorkBook. WorkSheets[1].Cells [14,9]; // водитель. Value:=FIOP;:=WorkBook. WorkSheets[1].Cells [16,16]; // №уд.. Value:=NVod;:=WorkBook. WorkSheets[1].Cells [16,45]; // класс. Value:=Kl;:=WorkBook. WorkSheets[1].Cells [12,8]; // прицеп. Value:=PM;:=WorkBook. WorkSheets[1].Cells [12,47]; // гос. номер. Value:=PN;:=WorkBook. WorkSheets[1].Cells [13,117]; // выезд_число. Value:=DataV;:=WorkBook. WorkSheets[1].Cells [13,124]; // выезд_месяц. Value:=DataV;:=WorkBook. WorkSheets[1].Cells [13,131]; // выезд_время. Value:=VremyaV;:=WorkBook. WorkSheets[1].Cells [14,117]; // заезд_число. Value:=DataZ;:=WorkBook. WorkSheets[1].Cells [14,124]; // заезд_месяц. Value:=DataZ;:=WorkBook. WorkSheets[1].Cells [14,131]; // заезд_время. Value:=VremyaZ;:=WorkBook. WorkSheets[1].Cells [19,102]; // топливо. Value:=T;:=WorkBook. WorkSheets[1].Cells [27,1]; // в распоряжение1. Value:=VR1;:=WorkBook. WorkSheets[1].Cells [27,46]; // погрузка1. Value:=P1;:=WorkBook. WorkSheets[1].Cells [27,83]; // разгрузка1. Value:=R1;:=WorkBook. WorkSheets[1].Cells [27,120]; // груз1. Value:=G1;:=WorkBook. WorkSheets[1].Cells [27,158]; // ездки1. Value:=K1;:=WorkBook. WorkSheets[1].Cells [27,168]; // расстояние1. Value:=Ras1;:=WorkBook. WorkSheets[1].Cells [27,178]; // перевезено1. Value:=Per1;:=WorkBook. WorkSheets[1].Cells [28,1]; // в распоряжение2. Value:=VR2;:=WorkBook. WorkSheets[1].Cells [28,46]; // погрузка2. Value:=P2;:=WorkBook. WorkSheets[1].Cells [28,83]; // разгрузка2. Value:=R2;:=WorkBook. WorkSheets[1].Cells [28,120]; // груз2. Value:=G2;:=WorkBook. WorkSheets[1].Cells [28,158]; // ездки2. Value:=K2;:=WorkBook. WorkSheets[1].Cells [28,168]; // расстояние2. Value:=Ras2;:=WorkBook. WorkSheets[1].Cells [28,178]; // перевезено2. Value:=Per2;:=WorkBook. WorkSheets[1].Cells [19,22]; // диспетчер. Value:=D;:=WorkBook. WorkSheets[1].Cells [41,37]; // механик. Value:=M;:=WorkBook. WorkSheets[1].Cells [44,37]; // водитель. Value:=Vod;:=WorkBook. WorkSheets[1].Cells [41,105]; // водитель. Value:=Vod;:=WorkBook. WorkSheets[1].Cells [44,105]; // механик. Value:=M;:=WorkBook. WorkSheets[1].Cells [47,135]; // отметки. Value:=OO;:=WorkBook. WorkSheets[1].Cells [29,46]; // задание. Value:=Z;:=WorkBook. WorkSheets[1].Cells [13,152]; // показание спидометра при выезде

Sl. Value:=SP1;:=WorkBook. WorkSheets[1].Cells [14,152]; // показание спидометра при возвращении

Sl. Value:=SP2;. Worksheets. Item[1].PrintOut;. DisplayAlerts:= False;. Quit;;F='1' then:=Form1.ADOTable10. Fields[0].AsString;:=Form1.ADOTable10. Fields[1].AsDateTime;:=Form1.ADOTable10. Fields[2].AsDateTime;:=Form1.ADOTable10. Fields[3].AsDateTime;:=Form1.ADOTable10. Fields[4].AsDateTime;:=Form1.ADOTable10. Fields[5].AsString;:=Form1.ADOTable10. Fields[6].AsString;:=Form1.ADOTable10. Fields[7].AsString;:=Form1.ADOTable10. Fields[8].AsString;:=Form1.ADOTable10. Fields[9].AsString;:=Form1.ADOTable10. Fields[10].AsString;:=Form1.ADOTable10. Fields[11].AsString;:=Form1.ADOTable10. Fields[11].AsString;:=Form1.ADOTable10. Fields[12].AsString;:=Form1.ADOTable10. Fields[13].AsString;:=Form1.ADOTable10. Fields[14].AsString;:=Form1.ADOTable10. Fields[15].AsString;:=Form1.ADOTable10. Fields[16].AsString;:=Form1.ADOTable10. Fields[17].AsString;:=Form1.ADOTable10. Fields[23].AsString;:=Form1.ADOTable10. Fields[18].AsString;:=Form1.ADOTable10. Fields[24].AsString;:=Form1.ADOTable10. Fields[19].AsString;:=Form1.ADOTable10. Fields[25].AsString;:=Form1.ADOTable10. Fields[20].AsInteger;:=Form1.ADOTable10. Fields[26].AsInteger;:=Form1.ADOTable10. Fields[21].AsInteger;:=Form1.ADOTable10. Fields[27].AsInteger;:=Form1.ADOTable10. Fields[22].AsExtended;:=Form1.ADOTable10. Fields[28].AsExtended;:=Form1.ADOTable10. Fields[35].AsString;:=Form1.ADOTable10. Fields[36].AsString;:=Form1.ADOTable10. Fields[37].AsString;:=Form1.ADOTable10. Fields[33].AsString;:=Form1.ADOTable10. Fields[38].AsString;:=Form1.ADOTable10. Fields[39].AsString;:=Form1.ADOTable10. Fields[40].AsString;:=Form1.ADOTable10. Fields[41].AsString;:=Form1.ADOTable10. Fields[42].AsString;:='C:\Program Files\URA\putevoy.xlt';:= 1;:= 13;:= Form1.ADOTable10. RecordCount;:= Form1.ADOTable10. FieldDefs. Count;:= CreateOleObject ('Excel. Application');. Application. EnableEvents:= false;:= ExcelApp. WorkBooks. Add(ShFile);:= VarArrayCreate([1, RowCount, 1, ColCount], varVariant);:=WorkBook. WorkSheets[5].Cells [4,66];. Value:=NPL;:=WorkBook. WorkSheets[5].Cells [1,22];. Value:=Otm;:=WorkBook. WorkSheets[5].Cells [6,35];. Value:=DataV;:=WorkBook. WorkSheets[5].Cells [7,35];. Value:=DataZ;:=WorkBook. WorkSheets[5].Cells [8,17];. Value:=O;:=WorkBook. WorkSheets[5].Cells [11,32];. Value:=Marka;:=WorkBook. WorkSheets[5].Cells [12,35];. Value:=GN;:=WorkBook. WorkSheets[5].Cells [13,13];. Value:=FIOP;:=WorkBook. WorkSheets[5].Cells [15,19];. Value:=NVod;:=WorkBook. WorkSheets[5].Cells [15,48];. Value:=Kl;:=WorkBook. WorkSheets[5].Cells [28,31];. Value:=VremyaV;:=WorkBook. WorkSheets[5].Cells [33,33];. Value:=VremyaZ;:=WorkBook. WorkSheets[5].Cells [27,58];. Value:=T;:=WorkBook. WorkSheets[5].Cells [17,17];. Value:=VR1;:=WorkBook. WorkSheets[5].Cells [25,1];. Value:='по городу';:=WorkBook. WorkSheets[5].Cells [30,30];. Value:=D;:=WorkBook. WorkSheets[5].Cells [34,28];. Value:=D;:=WorkBook. WorkSheets[5].Cells [19,66];. Value:=M;:=WorkBook. WorkSheets[5].Cells [41,26];. Value:=Vod;:=WorkBook. WorkSheets[5].Cells [24,68];. Value:=Vod;:=WorkBook. WorkSheets[5].Cells [44,66];. Value:=M;:=WorkBook. WorkSheets[5].Cells [17,73];. Value:=SP1;:=WorkBook. WorkSheets[5].Cells [43,72];. Value:=SP2;:=WorkBook. WorkSheets[5].Cells [20,1];. Value:=OrS;. Worksheets. Item[5].PrintOut;. DisplayAlerts:= False;. Quit;;.ADOTable10. Next;;;TForm7. Button2Click (Sender: TObject);, Range, Cell1, Cell2, ArrayData, Sl: Variant;, BeginRow, j: integer;, ColCount, K1, K2, Ras1, Ras2: Integer;, Per2: Extended;, DataZ, VremyaV, VremyaZ: TDateTime;, NPL, Marka, GN, Taks, PM, PN, T, M, Vod, NVod, Z,, D, P1, P2, R1, R2, G1, G2, Otm, VR1, VR2, OO, F: String;Form1.ADOTable1. Modified then.ADOTable1. Post;.ADOTable10. Active:=False;.ADOTable10. Filtered:=False;RadioButton1. Checked=True then.ADOTable10. Filter:='Код = ' +.ADOTable1. FieldByName('Код').AsString;RadioButton2. Checked=True then.ADOTable10. Filter:='Д_выезда = ' +(DateTimePicker1. Date);RadioButton3. Checked=True then.ADOTable10. Filter:='№ > ' +(StrToInt(Edit1. Text) - 1) + ' and № < ' +(StrToInt(Edit2. Text)+1);RadioButton4. Checked=True then.ADOTable10. Filter:='Д_выезда > ' +(DateTimePicker2. Date-1)+ ' and Д_заезда < ' +(DateTimePicker3. Date+1);.ADOTable10. Filtered:=True;.ADOTable10. Active:=True;not Form1.ADOTable10. Eof do. Active:=False;. Filtered:=False;. Filter:='код = ' +.ADOTable10. Fields[34].AsString;. Filtered:=True;. Active:=True;:=ADOTable1. Fields[23].AsString;F='2' then:=Form1.ADOTable10. Fields[10].AsString;:=Form1.ADOTable10. Fields[14].AsString;:=Form1.ADOTable10. Fields[16].AsString;:='C:\Program Files\URA\putevoy.xlt';:= 1;:= 13;:= Form1.ADOTable10. RecordCount;:= Form1.ADOTable10. FieldDefs. Count;:= CreateOleObject ('Excel. Application');. Application. EnableEvents:= false;:= ExcelApp. WorkBooks. Add(ShFile);:= VarArrayCreate([1, RowCount, 1, ColCount], varVariant);:=WorkBook. WorkSheets[2].Cells [18,105];. Value:=Vod;:=WorkBook. WorkSheets[2].Cells [19,158];. Value:=D;:=WorkBook. WorkSheets[2].Cells [35,166];. Value:=Taks;. Worksheets. Item[2].PrintOut;. DisplayAlerts:= False;. Quit;;F='1' then:=Form1.ADOTable10. Fields[16].AsString;:='C:\Program Files\URA\putevoy.xlt';:= 1;:= 13;:= Form1.ADOTable10. RecordCount;:= Form1.ADOTable10. FieldDefs. Count;:= CreateOleObject ('Excel. Application');. Application. EnableEvents:= false;:= ExcelApp. WorkBooks. Add(ShFile);:= VarArrayCreate([1, RowCount, 1, ColCount], varVariant);:=WorkBook. WorkSheets[6].Cells [38,11]; // таксировщик. Value:=Taks;. Worksheets. Item[6].PrintOut;. DisplayAlerts:= False; // отрубить Excel. Quit;;.ADOTable10. Next;;;TForm7. Button3Click (Sender: TObject);, Range, Cell1, Cell2, ArrayData, Sl: Variant;, BeginRow, j: integer;, ColCount, K1, K2, Ras1, Ras2: Integer;, Per2: Extended;, DataZ, VremyaV, VremyaZ: TDateTime;, NPL, Marka, GN, Taks, PM, PN, T, M, Vod, NVod, Z,, D, P1, P2, R1, R2, G1, G2, Otm, VR1, VR2, OO, F: String;Form1.ADOTable1. Modified then.ADOTable1. Post;.ADOTable10. Active:=False;.ADOTable10. Filtered:=False;RadioButton1. Checked=True then.ADOTable10. Filter:='Код = ' +.ADOTable1. FieldByName('Код').AsString;RadioButton2. Checked=True then.ADOTable10. Filter:='Д_выезда = ' +(DateTimePicker1. Date);RadioButton3. Checked=True then.ADOTable10. Filter:='№ > ' +(StrToInt(Edit1. Text) - 1) + ' and № < ' +(StrToInt(Edit2. Text)+1);RadioButton4. Checked=True then.ADOTable10. Filter:='Д_выезда > ' +(DateTimePicker2. Date-1)+ ' and Д_заезда < ' +(DateTimePicker3. Date+1);.ADOTable10. Filtered:=True;.ADOTable10. Active:=True;not Form1.ADOTable10. Eof do. Active:=False;. Filtered:=False;. Filter:='код = ' +.ADOTable10. Fields[34].AsString;. Filtered:=True;. Active:=True;:=ADOTable1. Fields[24].AsString;F='True' then:='C:\Program Files\URA\putevoy.xlt';:= 1;:= 13;:= Form1.ADOTable10. RecordCount;:= Form1.ADOTable10. FieldDefs. Count;:= CreateOleObject ('Excel. Application');. Application. EnableEvents:= false;:= ExcelApp. WorkBooks. Add(ShFile);:= VarArrayCreate([1, RowCount, 1, ColCount], varVariant);. Worksheets. Item[3].PrintOut;. DisplayAlerts:= False; // отрубить Excel. Quit; // ;.ADOTable10. Next;;;TForm7. Button4Click (Sender: TObject);, Range, Cell1, Cell2, ArrayData, Sl: Variant;, BeginRow, j: integer;, ColCount, K1, K2, Ras1, Ras2: Integer;, Per2: Extended;, DataZ, VremyaV, VremyaZ: TDateTime;, NPL, Marka, GN, Taks, PM, PN, T, M, Vod, NVod, Z,, D, P1, P2, R1, R2, G1, G2, Otm, VR1, VR2, OO, F: String;Form1.ADOTable1. Modified then.ADOTable1. Post;.ADOTable10. Active:=False;.ADOTable10. Filtered:=False;RadioButton1. Checked=True then.ADOTable10. Filter:='Код = ' +.ADOTable1. FieldByName('Код').AsString;RadioButton2. Checked=True then.ADOTable10. Filter:='Д_выезда = ' +(DateTimePicker1. Date);RadioButton3. Checked=True then.ADOTable10. Filter:='№ > ' +(StrToInt(Edit1. Text) - 1) + ' and № < ' +(StrToInt(Edit2. Text)+1);RadioButton4. Checked=True then.ADOTable10. Filter:='Д_выезда > ' +(DateTimePicker2. Date-1)+ ' and Д_заезда < ' +(DateTimePicker3. Date+1);.ADOTable10. Filtered:=True;.ADOTable10. Active:=True;not Form1.ADOTable10. Eof do. Active:=False;. Filtered:=False;. Filter:='код = ' +.ADOTable10. Fields[34].AsString;. Filtered:=True;. Active:=True;:=ADOTable1. Fields[24].AsString;F='True' then:=Form1.ADOTable10. Fields[0].AsString;:=Form1.ADOTable10. Fields[1].AsDateTime;:=Form1.ADOTable10. Fields[5].AsString;:=Form1.ADOTable10. Fields[6].AsString;:=Form1.ADOTable10. Fields[9].AsString;:=Form1.ADOTable10. Fields[10].AsString;:=Form1.ADOTable10. Fields[11].AsString;:=Form1.ADOTable10. Fields[13].AsString;:=Form1.ADOTable10. Fields[14].AsString;:=Form1.ADOTable10. Fields[16].AsString;:='C:\Program Files\URA\putevoy.xlt';:= 1;:= 13;:= Form1.ADOTable10. RecordCount;:= Form1.ADOTable10. FieldDefs. Count;:= CreateOleObject ('Excel. Application');. Application. EnableEvents:= false;:= ExcelApp. WorkBooks. Add(ShFile);:= VarArrayCreate([1, RowCount, 1, ColCount], varVariant);:=WorkBook. WorkSheets[4].Cells [4,24];. Value:=DataV;:=WorkBook. WorkSheets[4].Cells [4,30];. Value:=DataV;:=WorkBook. WorkSheets[4].Cells [4,47];. Value:=DataV;:=WorkBook. WorkSheets[4].Cells [5,14];. Value:=O;:=WorkBook. WorkSheets[4].Cells [7,14];. Value:=Marka;:=WorkBook. WorkSheets[4].Cells [7,113];. Value:=GN;:=WorkBook. WorkSheets[4].Cells [10,12];. Value:=Vod;:=WorkBook. WorkSheets[4].Cells [11,125];. Value:=NVod;:=WorkBook. WorkSheets[4].Cells [35,98];. Value:=Vod;:=WorkBook. WorkSheets[4].Cells [39,27];. Value:=Vod;:=WorkBook. WorkSheets[4].Cells [60,164];. Value:=Taks;:=WorkBook. WorkSheets[4].Cells [4,172];. Value:=NPL;. Worksheets. Item[4].PrintOut;. DisplayAlerts:= False;. Quit; // ;.ADOTable10. Next;;;TForm7. FormCreate (Sender: TObject);. DateTime:=now;. DateTime:=now-1;. DateTime:=now+1;;.

Заключение

АС «ГСМ» позволяет оперативно и чётко отслеживать расход топлива и смазочных материалов, пробег автомобилей, количество отработанных водителями часов, наличие автотранспорта, а так же позволяет проводить аналитическую работу, сокращает сроки обработки информации и имеет большой экономический эффект.

Главная функция программы заключается в возможности руководства компании любого уровня отследить движение ГСМ и автотранспорта, а также его эффективность использования.

программа горючий автомобильный смазочный

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

1Автоматизированные информационные технологии в экономике: Учебник / Под ред. проф. Г.А. Титоренко. М.: Компьютер, ЮНИТИ, 2003.

2Автоматизированные рабочие места / #"justify">«Инспектор+: интеллектуальный охранный комплекс» / www.iss.ru

Информационные системы для руководителей / Под ред. Ф.И. Перегудова. - М.: Финансы и статистика, 1989.

Кантарь И.Л. «Автоматизированные рабочие места управленческого аппарата», 1990.

Мишенин А.И. Теория экономических информационных систем: Учебник. - М.: Финансы и статистика, 1993.

Шураков В.В. «Автоматизированное рабочее место для статической обработки данных», 1990.

Подсистема учёта работы автотранспорта Введение Невозможно найти предприятия, которое не закупало бы ресур

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