Подсистема учета работы автотранспорта
Подсистема учёта работы
автотранспорта
Введение
Невозможно найти предприятия, которое не закупало бы ресурсы
- сырье, товары, услуги, и т.д. После того как принято решение о производстве
определенного вида продукции или услуг, требуется обеспечить это производство
исходными ресурсами. Возникает проблема закупок, т.е. экономически
целесообразного приобретения товаров (услуг).
Закупки предполагают реализацию процесса купли-продажи между
поставщиком и потребителем. Процесс закупки - взаимосвязанная
последовательность действий: от выявления потребности в ресурсах до их
поступления на предприятие.
Материально-техническое снабжение предприятий и организаций
независимо от их форм собственности и условий функционирования является одной
из основных подсистем логистики, которая постоянно находится в центре внимания
ученых, специалистов и практиков. Для автоматизации всех этих процессов
разрабатываются всевозможные АСУ, в своей работе я рассмотрю АС «ГСМ».
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:
o Word
o Excel
o Access
o Power Point
o Visio
· АС «ГСМ»
· АС «Учёт работы автотранспорта»
3.1
АС «ГСМ»
Для своевременного и достоверного предоставления данных по
учету и анализу использования ГСМ подвижным составом автомобильного транспорта
и строительно-дорожных машин на предприятии используется АС «ГСМ».
3.1.1 Вход
в программу
Для входа в систему необходимо ввести имя пользователя и
пароль, нажать кнопку ОК (Рис. 3.1).
Рисунок 3.1
Рисунок 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.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 Автоматизированные
рабочие места / http:// www.formoza.ru
«Инспектор+:
интеллектуальный охранный комплекс» / www.iss.ru
Информационные
системы для руководителей / Под ред. Ф.И. Перегудова. - М.: Финансы и
статистика, 1989.
Кантарь
И.Л. «Автоматизированные рабочие места управленческого аппарата», 1990.
Мишенин
А.И. Теория экономических информационных систем: Учебник. - М.: Финансы и
статистика, 1993.
Шураков
В.В. «Автоматизированное рабочее место для статической обработки данных», 1990.