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

Тип работы:
Курсовая
Предмет:
Программирование


Узнать стоимость

Детальная информация о работе

Выдержка из работы

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

Введение

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

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

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

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

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

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

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

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

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

Место нахождения и почтовый адрес Подразделения: 654 029, Кемеровская область, г. Новокузнецк, пр. Курако, д. 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. 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);

begin

Form4. Show;

end;

procedure TForm1. N9Click (Sender: TObject);

begin

Form5. Show;

end;

procedure TForm1. TrayIconClick (Sender: TObject);

begin

end;

procedure TForm1. N8Click (Sender: TObject);

begin

Form6. Show;

end;

procedure TForm1. N7Click (Sender: TObject);

begin

Form9. Show

end;

procedure TForm1. N6Click (Sender: TObject);

begin

Form10. Show

end;

procedure TForm1. N5Click (Sender: TObject);

begin

Form11. Show

end;

procedure TForm1. N4Click (Sender: TObject);

begin

Form3. Show

end;

procedure TForm1. N11Click (Sender: TObject);

begin

Form2. Show;

end;

procedure TForm1. N16Click (Sender: TObject);

begin

Form20. Show;

end;

procedure TForm1. N17Click (Sender: TObject);

begin

Form12. Show;

end;

procedure TForm1. N18Click (Sender: TObject);

begin

Form15. Show;

end;

procedure TForm1. N1Click (Sender: TObject);

begin

Form8. Show;

end;

procedure TForm1. DBLookupComboBox11Click (Sender: TObject);

var KAT: string;

begin

if ((ADOTable2. Fields[7]. AsBoolean=True) or (ADOTable2. Fields[8]. AsBoolean=True)

or (ADOTable2. Fields[9]. AsBoolean=True)) AND

(ADOTable2. Fields[23]. AsString='2') then

Begin

DBLookupComboBox3. Enabled: =True;

DBLookupComboBox4. Enabled: =True;

JvDBLookupCombo2. Enabled: =True;

DBEdit6. Enabled: =True;

DBEdit7. Enabled: =True;

DBEdit8. Enabled: =True;

DBEdit10. Enabled: =True;

DBEdit11. Enabled: =True;

DBEdit12. Enabled: =True;

DBEdit14. Enabled: =True;

DBEdit15. Enabled: =True;

DBEdit17. Enabled: =True;

DBEdit18. Enabled: =True;

JvDBSpinEdit1. Enabled: =True;

JvDBSpinEdit2. Enabled: =True;

End

Else

Begin

ADOTable1. Fields[7]. AsString:='11';

DBLookupComboBox3. Enabled: =False;

DBLookupComboBox4. Enabled: =False;

JvDBLookupCombo2. Enabled: =False;

DBEdit6. Enabled: =False;

DBEdit7. Enabled: =False;

DBEdit8. Enabled: =False;

DBEdit10. Enabled: =False;

DBEdit11. Enabled: =False;

DBEdit12. Enabled: =False;

DBEdit14. Enabled: =False;

DBEdit15. Enabled: =False;

DBEdit17. Enabled: =False;

DBEdit18. Enabled: =False;

JvDBSpinEdit1. Enabled: =False;

JvDBSpinEdit2. Enabled: =False;

End;

if (ADOTable2. Fields[6]. AsBoolean=True) then KAT: ='A';

if (ADOTable2. Fields[7]. AsBoolean=True) then KAT: ='B';

if (ADOTable2. Fields[8]. AsBoolean=True) then KAT: ='C';

if (ADOTable2. Fields[9]. AsBoolean=True) then KAT: ='D';

if (ADOTable2. Fields[13]. AsBoolean=True) then KAT: ='PA';

if (ADOTable2. Fields[14]. AsBoolean=True) then KAT: ='PB';

if (ADOTable2. Fields[15]. AsBoolean=True) then KAT: ='PC';

if (ADOTable2. Fields[16]. AsBoolean=True) then KAT: ='PD';

if (ADOTable2. Fields[17]. AsBoolean=True) then KAT: ='PE';

if (ADOTable2. Fields[18]. AsBoolean=True) then KAT: ='TA';

if (ADOTable2. Fields[19]. AsBoolean=True) then KAT: ='TB';

if (ADOTable2. Fields[20]. AsBoolean=True) then KAT: ='TC';

if (ADOTable2. Fields[21]. AsBoolean=True) then KAT: ='TD';

if (ADOTable2. Fields[22]. AsBoolean=True) then KAT: ='TE';

begin

ADOTable4. Filtered: =False;

ADOTable4. Active: =False;

ADOTable4. Filter: =KAT + ' = True';

ADOTable4. Filtered: =True;

ADOTable4. Active: =True;

end;

end;

procedure TForm1. DBLookupComboBox2Click (Sender: TObject);

var KAT: string;

begin

if ((ADOTable2. Fields[7]. AsBoolean=True) or (ADOTable2. Fields[8]. AsBoolean=True)

or (ADOTable2. Fields[9]. AsBoolean=True)) AND

(ADOTable2. Fields[23]. AsString='2') then

Begin

DBLookupComboBox3. Enabled: =True;

DBLookupComboBox4. Enabled: =True;

JvDBLookupCombo2. Enabled: =True;

DBEdit6. Enabled: =True;

DBEdit7. Enabled: =True;

DBEdit8. Enabled: =True;

DBEdit10. Enabled: =True;

DBEdit11. Enabled: =True;

DBEdit12. Enabled: =True;

DBEdit14. Enabled: =True;

DBEdit15. Enabled: =True;

DBEdit17. Enabled: =True;

DBEdit18. Enabled: =True;

JvDBSpinEdit1. Enabled: =True;

JvDBSpinEdit2. Enabled: =True;

End

Else

Begin

ADOTable1. Fields[7]. AsString:='11';

DBLookupComboBox3. Enabled: =False;

DBLookupComboBox4. Enabled: =False;

JvDBLookupCombo2. Enabled: =False;

DBEdit6. Enabled: =False;

DBEdit7. Enabled: =False;

DBEdit8. Enabled: =False;

DBEdit10. Enabled: =False;

DBEdit11. Enabled: =False;

DBEdit12. Enabled: =False;

DBEdit14. Enabled: =False;

DBEdit15. Enabled: =False;

DBEdit17. Enabled: =False;

DBEdit18. Enabled: =False;

JvDBSpinEdit1. Enabled: =False;

JvDBSpinEdit2. Enabled: =False;

End;

if (ADOTable2. Fields[6]. AsBoolean=True) then KAT: ='A';

if (ADOTable2. Fields[7]. AsBoolean=True) then KAT: ='B';

if (ADOTable2. Fields[8]. AsBoolean=True) then KAT: ='C';

if (ADOTable2. Fields[9]. AsBoolean=True) then KAT: ='D';

if (ADOTable2. Fields[13]. AsBoolean=True) then KAT: ='PA';

if (ADOTable2. Fields[14]. AsBoolean=True) then KAT: ='PB';

if (ADOTable2. Fields[15]. AsBoolean=True) then KAT: ='PC';

if (ADOTable2. Fields[16]. AsBoolean=True) then KAT: ='PD';

if (ADOTable2. Fields[17]. AsBoolean=True) then KAT: ='PE';

if (ADOTable2. Fields[18]. AsBoolean=True) then KAT: ='TA';

if (ADOTable2. Fields[19]. AsBoolean=True) then KAT: ='TB';

if (ADOTable2. Fields[20]. AsBoolean=True) then KAT: ='TC';

if (ADOTable2. Fields[21]. AsBoolean=True) then KAT: ='TD';

if (ADOTable2. Fields[22]. AsBoolean=True) then KAT: ='TE';

begin

ADOTable4. Filtered: =False;

ADOTable4. Active: =False;

ADOTable4. Filter: =KAT + ' = True';

ADOTable4. Filtered: =True;

ADOTable4. Active: =True;

end;

end;

procedure TForm1. DBLookupComboBox3Click (Sender: TObject);

begin

if (ADOTable3. Fields[3]. AsBoolean=False) then

begin

ADOTable4. Filtered: =False;

ADOTable4. Active: =False;

ADOTable4. Filter: ='EC = True';

ADOTable4. Filtered: =True;

ADOTable4. Active: =True;

end;

end;

procedure TForm1. FormCloseQuery (Sender: TObject; var CanClose: Boolean);

begin

Form14. Close;

end;

procedure TForm1. FormCreate (Sender: TObject);

begin

ADOTable1. Last;

end;

end;

procedure TForm1. Image1Click (Sender: TObject);

begin

Form9. Show

end;

procedure TForm1. JvXPButton10Click (Sender: TObject);

begin

ADOTable1. Cancel;

end;

procedure TForm1. JvXPButton11Click (Sender: TObject);

begin

ADOTable1. Refresh;

end;

procedure TForm1. JvXPButton120Click (Sender: TObject);

begin

Form13. Show;

end;

procedure TForm1. JvXPButton1Click (Sender: TObject);

begin

if ADOTable1. Modified then

ADOTable1. Post;

end;

procedure TForm1. JvXPButton2Click (Sender: TObject);

begin

Form7. Show;

end;

procedure TForm1. JvXPButton3Click (Sender: TObject);

begin

ADOTable1. Next;

end;

procedure TForm1. JvXPButton4Click (Sender: TObject);

begin

ADOTable1. First;

end;

procedure TForm1. JvXPButton5Click (Sender: TObject);

begin

ADOTable1. Prior;

end;

procedure TForm1. JvXPButton6Click (Sender: TObject);

begin

ADOTable1. Last;

end;

procedure TForm1. JvXPButton7Click (Sender: TObject);

begin

ADOTable1. Insert;

end;

procedure TForm1. JvXPButton8Click (Sender: TObject);

begin

ADOTable1. Delete;

end;

procedure TForm1. JvXPButton9Click (Sender: TObject);

begin

ADOTable1. Edit;

end;

end.

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

procedure TForm7. RadioButton2Click (Sender: TObject);

begin

DateTimePicker1. Enabled: =True;

Edit1. Enabled: =False;

Edit2. Enabled: =False;

DateTimePicker2. Enabled: =False;

DateTimePicker3. Enabled: =False;

end;

procedure TForm7. RadioButton3Click (Sender: TObject);

begin

Edit1. Enabled: =True;

Edit2. Enabled: =True;

DateTimePicker1. Enabled: =False;

DateTimePicker2. Enabled: =False;

DateTimePicker3. Enabled: =False;

end;

procedure TForm7. RadioButton4Click (Sender: TObject);

begin

DateTimePicker1. Enabled: =False;

Edit1. Enabled: =False;

Edit2. Enabled: =False;

DateTimePicker2. Enabled: =True;

DateTimePicker3. Enabled: =True;

end;

procedure TForm7. RadioButton1Click (Sender: TObject);

begin

DateTimePicker1. Enabled: =False;

Edit1. Enabled: =False;

Edit2. Enabled: =False;

DateTimePicker2. Enabled: =False;

DateTimePicker3. Enabled: =False;

end;

procedure TForm7. Button1Click (Sender: TObject);

var

Workbook, Range, Cell1, Cell2, ArrayData, Sl: Variant;

BeginCol, BeginRow, j: integer;

RowCount, ColCount, K1, K2, Ras1, Ras2: Integer;

Per1, Per2: Extended;

DataV, DataZ, VremyaV, VremyaZ: TDateTime;

ShFile, NPL, Marka, GN, Taks, PM, PN, T, M, Vod, NVod, Z,

O, D, P1, P2, R1, R2, G1, G2, Otm, VR1, VR2, OO, F, Kl, FIOP, SP1, SP2, OrS: String;

begin

if Form1. ADOTable1. Modified then

Form1. ADOTable1. Post;

Form1. ADOTable10. Active: =False;

Form1. ADOTable10. Filtered: =False;

if RadioButton1. Checked=True then

Form1. ADOTable10. Filter: ='Код = ' +

Form1. ADOTable1. FieldByName ('Код'). AsString;

if RadioButton2. Checked=True then

Form1. ADOTable10. Filter: ='Д_выезда = ' +

DateToStr (DateTimePicker1. Date);

if RadioButton3. Checked=True then

Form1. ADOTable10. Filter: ='№ > ' +

IntToStr (StrToInt (Edit1. Text) — 1) + ' and № < ' +

IntToStr (StrToInt (Edit2. Text)+1);

if RadioButton4. Checked=True then

Form1. ADOTable10. Filter: ='Д_выезда > ' +

DateToStr (DateTimePicker2. Date-1)+ ' and Д_заезда < ' +

DateToStr (DateTimePicker3. Date+1);

Form1. ADOTable10. Filtered: =True;

Form1. ADOTable10. Active: =True;

While not Form1. ADOTable10. Eof do

Begin

ADOTable1. Active: =False;

ADOTable1. Filtered: =False;

ADOTable1. Filter: ='код = ' +

Form1. ADOTable10. Fields[34]. AsString;

ADOTable1. Filtered: =True;

ADOTable1. Active: =True;

F: =ADOTable1. Fields[23]. AsString;

if F='2' then // лицевая гр.

Begin

NPL: =Form1. ADOTable10. Fields[0]. AsString;

DataV: =Form1. ADOTable10. Fields[1]. AsDateTime;

DataZ: =Form1. ADOTable10. Fields[2]. AsDateTime;

VremyaV: =Form1. ADOTable10. Fields[3]. AsDateTime;

VremyaZ: =Form1. ADOTable10. Fields[4]. AsDateTime;

Marka: =Form1. ADOTable10. Fields[5]. AsString;

GN: =Form1. ADOTable10. Fields[6]. AsString;

PM: =Form1. ADOTable10. Fields[7]. AsString;

if PM='-' then PM: ='';

PN: =Form1. ADOTable10. Fields[8]. AsString;

if PN='-' then PN: ='';

T: =Form1. ADOTable10. Fields[9]. AsString;

Vod: =Form1. ADOTable10. Fields[10]. AsString;

Nvod: =Form1. ADOTable10. Fields[11]. AsString;

Kl: =Form1. ADOTable10. Fields[11]. AsString;

Z: =Form1. ADOTable10. Fields[12]. AsString;

if Z='-' then Z: ='';

if Z='перевозка грузов' then Z: ='';

O: =Form1. ADOTable10. Fields[13]. AsString;

D: =Form1. ADOTable10. Fields[14]. AsString;

M: =Form1. ADOTable10. Fields[15]. AsString;

Taks: =Form1. ADOTable10. Fields[16]. AsString;

P1: =Form1. ADOTable10. Fields[17]. AsString;

P2: =Form1. ADOTable10. Fields[23]. AsString;

R1: =Form1. ADOTable10. Fields[18]. AsString;

R2: =Form1. ADOTable10. Fields[24]. AsString;

G1: =Form1. ADOTable10. Fields[19]. AsString;

G2: =Form1. ADOTable10. Fields[25]. AsString;

K1: =Form1. ADOTable10. Fields[20]. AsInteger;

K2: =Form1. ADOTable10. Fields[26]. AsInteger;

Ras1: =Form1. ADOTable10. Fields[21]. AsInteger;

Ras2: =Form1. ADOTable10. Fields[27]. AsInteger;

Per1: =Form1. ADOTable10. Fields[22]. AsExtended;

Per2: =Form1. ADOTable10. Fields[28]. AsExtended;

Otm: =Form1. ADOTable10. Fields[35]. AsString;

VR1: =Form1. ADOTable10. Fields[36]. AsString;

VR2: =Form1. ADOTable10. Fields[37]. AsString;

OO: =Form1. ADOTable10. Fields[33]. AsString;

Kl: =Form1. ADOTable10. Fields[38]. AsString;

FIOP: =Form1. ADOTable10. Fields[39]. AsString;

SP1: =Form1. ADOTable10. Fields[40]. AsString;

SP2: =Form1. ADOTable10. Fields[41]. AsString;

ShFile: ='C:Program FilesURAputevoy. xlt';

BeginCol:= 1;

BeginRow:= 13;

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

RowCount:= Form1. ADOTable10. RecordCount;

ColCount:= Form1. ADOTable10. FieldDefs. Count;

ExcelApp:= CreateOleObject ('Excel. Application');

ExcelApp. Application. EnableEvents:= false;

Workbook:= ExcelApp. WorkBooks. Add (ShFile);

ArrayData:= VarArrayCreate ([1, RowCount, 1, ColCount], varVariant);

Sl: =WorkBook. WorkSheets[1]. Cells [3,86]; // № пут. л.

Sl. Value: =NPL;

Sl: =WorkBook. WorkSheets[1]. Cells [1,83]; // отметки

Sl. Value: =Otm;

Sl: =WorkBook. WorkSheets[1]. Cells [5,47]; // дата

Sl. Value: =DataV;

Sl: =WorkBook. WorkSheets[1]. Cells [5,58]; // месяц

Sl. Value: =DataV;

Sl: =WorkBook. WorkSheets[1]. Cells [5,79]; // год

Sl. Value: =DataV;

Sl: =WorkBook. WorkSheets[1]. Cells [6,17]; // Организация_полн.

Sl. Value: =O;

Sl: =WorkBook. WorkSheets[1]. Cells [8,26]; // марка а/м

Sl. Value: =Marka;

Sl: =WorkBook. WorkSheets[1]. Cells [11,28]; // гос. номер

Sl. Value: =GN;

Sl: =WorkBook. WorkSheets[1]. Cells [14,9]; // водитель

Sl. Value: =FIOP;

Sl: =WorkBook. WorkSheets[1]. Cells [16,16]; // №уд.

Sl. Value: =NVod;

Sl: =WorkBook. WorkSheets[1]. Cells [16,45]; // класс

Sl. Value: =Kl;

Sl: =WorkBook. WorkSheets[1]. Cells [12,8]; // прицеп

Sl. Value: =PM;

Sl: =WorkBook. WorkSheets[1]. Cells [12,47]; // гос. номер

Sl. Value: =PN;

Sl: =WorkBook. WorkSheets[1]. Cells [13,117]; // выезд_число

Sl. Value: =DataV;

Sl: =WorkBook. WorkSheets[1]. Cells [13,124]; // выезд_месяц

Sl. Value: =DataV;

Sl: =WorkBook. WorkSheets[1]. Cells [13,131]; // выезд_время

Sl. Value: =VremyaV;

Sl: =WorkBook. WorkSheets[1]. Cells [14,117]; // заезд_число

Sl. Value: =DataZ;

Sl: =WorkBook. WorkSheets[1]. Cells [14,124]; // заезд_месяц

Sl. Value: =DataZ;

Sl: =WorkBook. WorkSheets[1]. Cells [14,131]; // заезд_время

Sl. Value: =VremyaZ;

Sl: =WorkBook. WorkSheets[1]. Cells [19,102]; // топливо

Sl. Value: =T;

Sl: =WorkBook. WorkSheets[1]. Cells [27,1]; // в распоряжение1

Sl. Value: =VR1;

Sl: =WorkBook. WorkSheets[1]. Cells [27,46]; // погрузка1

Sl. Value: =P1;

Sl: =WorkBook. WorkSheets[1]. Cells [27,83]; // разгрузка1

Sl. Value: =R1;

Sl: =WorkBook. WorkSheets[1]. Cells [27,120]; // груз1

Sl. Value: =G1;

Sl: =WorkBook. WorkSheets[1]. Cells [27,158]; // ездки1

Sl. Value: =K1;

Sl: =WorkBook. WorkSheets[1]. Cells [27,168]; // расстояние1

Sl. Value: =Ras1;

Sl: =WorkBook. WorkSheets[1]. Cells [27,178]; // перевезено1

Sl. Value: =Per1;

Sl: =WorkBook. WorkSheets[1]. Cells [28,1]; // в распоряжение2

Sl. Value: =VR2;

Sl: =WorkBook. WorkSheets[1]. Cells [28,46]; // погрузка2

Sl. Value: =P2;

Sl: =WorkBook. WorkSheets[1]. Cells [28,83]; // разгрузка2

Sl. Value: =R2;

Sl: =WorkBook. WorkSheets[1]. Cells [28,120]; // груз2

Sl. Value: =G2;

Sl: =WorkBook. WorkSheets[1]. Cells [28,158]; // ездки2

Sl. Value: =K2;

Sl: =WorkBook. WorkSheets[1]. Cells [28,168]; // расстояние2

Sl. Value: =Ras2;

Sl: =WorkBook. WorkSheets[1]. Cells [28,178]; // перевезено2

Sl. Value: =Per2;

Sl: =WorkBook. WorkSheets[1]. Cells [19,22]; // диспетчер

Sl. Value: =D;

Sl: =WorkBook. WorkSheets[1]. Cells [41,37]; // механик

Sl. Value: =M;

Sl: =WorkBook. WorkSheets[1]. Cells [44,37]; // водитель

Sl. Value: =Vod;

Sl: =WorkBook. WorkSheets[1]. Cells [41,105]; // водитель

Sl. Value: =Vod;

Sl: =WorkBook. WorkSheets[1]. Cells [44,105]; // механик

Sl. Value: =M;

Sl: =WorkBook. WorkSheets[1]. Cells [47,135]; // отметки

Sl. Value: =OO;

Sl: =WorkBook. WorkSheets[1]. Cells [29,46]; // задание

Sl. Value: =Z;

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

Sl. Value: =SP1;

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

Sl. Value: =SP2;

ExcelApp. Worksheets. Item[1]. PrintOut;

ExcelApp. DisplayAlerts:= False;

ExcelApp. Quit;

end;

if F='1' then

Begin

NPL: =Form1. ADOTable10. Fields[0]. AsString;

DataV: =Form1. ADOTable10. Fields[1]. AsDateTime;

DataZ: =Form1. ADOTable10. Fields[2]. AsDateTime;

VremyaV: =Form1. ADOTable10. Fields[3]. AsDateTime;

VremyaZ: =Form1. ADOTable10. Fields[4]. AsDateTime;

Marka: =Form1. ADOTable10. Fields[5]. AsString;

GN: =Form1. ADOTable10. Fields[6]. AsString;

PM: =Form1. ADOTable10. Fields[7]. AsString;

PN: =Form1. ADOTable10. Fields[8]. AsString;

T: =Form1. ADOTable10. Fields[9]. AsString;

Vod: =Form1. ADOTable10. Fields[10]. AsString;

Nvod: =Form1. ADOTable10. Fields[11]. AsString;

Kl: =Form1. ADOTable10. Fields[11]. AsString;

Z: =Form1. ADOTable10. Fields[12]. AsString;

O: =Form1. ADOTable10. Fields[13]. AsString;

D: =Form1. ADOTable10. Fields[14]. AsString;

M: =Form1. ADOTable10. Fields[15]. AsString;

Taks: =Form1. ADOTable10. Fields[16]. AsString;

P1: =Form1. ADOTable10. Fields[17]. AsString;

P2: =Form1. ADOTable10. Fields[23]. AsString;

R1: =Form1. ADOTable10. Fields[18]. AsString;

R2: =Form1. ADOTable10. Fields[24]. AsString;

G1: =Form1. ADOTable10. Fields[19]. AsString;

G2: =Form1. ADOTable10. Fields[25]. AsString;

K1: =Form1. ADOTable10. Fields[20]. AsInteger;

K2: =Form1. ADOTable10. Fields[26]. AsInteger;

Ras1: =Form1. ADOTable10. Fields[21]. AsInteger;

Ras2: =Form1. ADOTable10. Fields[27]. AsInteger;

Per1: =Form1. ADOTable10. Fields[22]. AsExtended;

Per2: =Form1. ADOTable10. Fields[28]. AsExtended;

Otm: =Form1. ADOTable10. Fields[35]. AsString;

VR1: =Form1. ADOTable10. Fields[36]. AsString;

VR2: =Form1. ADOTable10. Fields[37]. AsString;

OO: =Form1. ADOTable10. Fields[33]. AsString;

Kl: =Form1. ADOTable10. Fields[38]. AsString;

FIOP: =Form1. ADOTable10. Fields[39]. AsString;

SP1: =Form1. ADOTable10. Fields[40]. AsString;

SP2: =Form1. ADOTable10. Fields[41]. AsString;

OrS: =Form1. ADOTable10. Fields[42]. AsString;

ShFile: ='C:Program FilesURAputevoy. xlt';

BeginCol:= 1;

BeginRow:= 13;

RowCount:= Form1. ADOTable10. RecordCount;

ColCount:= Form1. ADOTable10. FieldDefs. Count;

ExcelApp:= CreateOleObject ('Excel. Application');

ExcelApp. Application. EnableEvents:= false;

Workbook:= ExcelApp. WorkBooks. Add (ShFile);

ArrayData:= VarArrayCreate ([1, RowCount, 1, ColCount], varVariant);

Sl: =WorkBook. WorkSheets[5]. Cells [4,66];

Sl. Value: =NPL;

Sl: =WorkBook. WorkSheets[5]. Cells [1,22];

Sl. Value: =Otm;

Sl: =WorkBook. WorkSheets[5]. Cells [6,35];

Sl. Value: =DataV;

Sl: =WorkBook. WorkSheets[5]. Cells [7,35];

Sl. Value: =DataZ;

Sl: =WorkBook. WorkSheets[5]. Cells [8,17];

Sl. Value: =O;

Sl: =WorkBook. WorkSheets[5]. Cells [11,32];

Sl. Value: =Marka;

Sl: =WorkBook. WorkSheets[5]. Cells [12,35];

Sl. Value: =GN;

Sl: =WorkBook. WorkSheets[5]. Cells [13,13];

Sl. Value: =FIOP;

Sl: =WorkBook. WorkSheets[5]. Cells [15,19];

Sl. Value: =NVod;

Sl: =WorkBook. WorkSheets[5]. Cells [15,48];

Sl. Value: =Kl;

Sl: =WorkBook. WorkSheets[5]. Cells [28,31];

Sl. Value: =VremyaV;

Sl: =WorkBook. WorkSheets[5]. Cells [33,33];

Sl. Value: =VremyaZ;

Sl: =WorkBook. WorkSheets[5]. Cells [27,58];

Sl. Value: =T;

Sl: =WorkBook. WorkSheets[5]. Cells [17,17];

Sl. Value: =VR1;

Sl: =WorkBook. WorkSheets[5]. Cells [25,1];

Sl. Value: ='по городу';

Sl: =WorkBook. WorkSheets[5]. Cells [30,30];

Sl. Value: =D;

Sl: =WorkBook. WorkSheets[5]. Cells [34,28];

Sl. Value: =D;

Sl: =WorkBook. WorkSheets[5]. Cells [19,66];

Sl. Value: =M;

Sl: =WorkBook. WorkSheets[5]. Cells [41,26];

Sl. Value: =Vod;

Sl: =WorkBook. WorkSheets[5]. Cells [24,68];

Sl. Value: =Vod;

Sl: =WorkBook. WorkSheets[5]. Cells [44,66];

Sl. Value: =M;

Sl: =WorkBook. WorkSheets[5]. Cells [17,73];

Sl. Value: =SP1;

Sl: =WorkBook. WorkSheets[5]. Cells [43,72];

Sl. Value: =SP2;

Sl: =WorkBook. WorkSheets[5]. Cells [20,1];

Sl. Value: =OrS;

ExcelApp. Worksheets. Item[5]. PrintOut;

ExcelApp. DisplayAlerts:= False;

ExcelApp. Quit;

End;

Form1. ADOTable10. Next;

End;

end;

procedure TForm7. Button2Click (Sender: TObject);

var

Workbook, Range, Cell1, Cell2, ArrayData, Sl: Variant;

BeginCol, BeginRow, j: integer;

RowCount, ColCount, K1, K2, Ras1, Ras2: Integer;

Per1, Per2: Extended;

DataV, DataZ, VremyaV, VremyaZ: TDateTime;

ShFile, NPL, Marka, GN, Taks, PM, PN, T, M, Vod, NVod, Z,

O, D, P1, P2, R1, R2, G1, G2, Otm, VR1, VR2, OO, F: String;

begin

if Form1. ADOTable1. Modified then

Form1. ADOTable1. Post;

Form1. ADOTable10. Active: =False;

Form1. ADOTable10. Filtered: =False;

if RadioButton1. Checked=True then

Form1. ADOTable10. Filter: ='Код = ' +

Form1. ADOTable1. FieldByName ('Код'). AsString;

if RadioButton2. Checked=True then

Form1. ADOTable10. Filter: ='Д_выезда = ' +

DateToStr (DateTimePicker1. Date);

if RadioButton3. Checked=True then

Form1. ADOTable10. Filter: ='№ > ' +

IntToStr (StrToInt (Edit1. Text) — 1) + ' and № < ' +

IntToStr (StrToInt (Edit2. Text)+1);

if RadioButton4. Checked=True then

Form1. ADOTable10. Filter: ='Д_выезда > ' +

DateToStr (DateTimePicker2. Date-1)+ ' and Д_заезда < ' +

DateToStr (DateTimePicker3. Date+1);

Form1. ADOTable10. Filtered: =True;

Form1. ADOTable10. Active: =True;

While not Form1. ADOTable10. Eof do

Begin

ADOTable1. Active: =False;

ADOTable1. Filtered: =False;

ADOTable1. Filter: ='код = ' +

Form1. ADOTable10. Fields[34]. AsString;

ADOTable1. Filtered: =True;

ADOTable1. Active: =True;

F: =ADOTable1. Fields[23]. AsString;

if F='2' then

Begin

Vod: =Form1. ADOTable10. Fields[10]. AsString;

D: =Form1. ADOTable10. Fields[14]. AsString;

Taks: =Form1. ADOTable10. Fields[16]. AsString;

ShFile: ='C:Program FilesURAputevoy. xlt';

BeginCol:= 1;

BeginRow:= 13;

RowCount:= Form1. ADOTable10. RecordCount;

ColCount:= Form1. ADOTable10. FieldDefs. Count;

ExcelApp:= CreateOleObject ('Excel. Application');

ExcelApp. Application. EnableEvents:= false;

Workbook:= ExcelApp. WorkBooks. Add (ShFile);

ArrayData:= VarArrayCreate ([1, RowCount, 1, ColCount], varVariant);

Sl: =WorkBook. WorkSheets[2]. Cells [18,105];

Sl. Value: =Vod;

Sl: =WorkBook. WorkSheets[2]. Cells [19,158];

Sl. Value: =D;

Sl: =WorkBook. WorkSheets[2]. Cells [35,166];

Sl. Value: =Taks;

ExcelApp. Worksheets. Item[2]. PrintOut;

ExcelApp. DisplayAlerts:= False;

ExcelApp. Quit;

End;

if F='1' then

Begin

Taks: =Form1. ADOTable10. Fields[16]. AsString;

ShFile: ='C:Program FilesURAputevoy. xlt';

BeginCol:= 1;

BeginRow:= 13;

RowCount:= Form1. ADOTable10. RecordCount;

ColCount:= Form1. ADOTable10. FieldDefs. Count;

ExcelApp:= CreateOleObject ('Excel. Application');

ExcelApp. Application. EnableEvents:= false;

Workbook:= ExcelApp. WorkBooks. Add (ShFile);

ArrayData:= VarArrayCreate ([1, RowCount, 1, ColCount], varVariant);

Sl: =WorkBook. WorkSheets[6]. Cells [38,11]; // таксировщик

Sl. Value: =Taks;

ExcelApp. Worksheets. Item[6]. PrintOut;

ExcelApp. DisplayAlerts:= False; // отрубить Excel

ExcelApp. Quit;

End;

Form1. ADOTable10. Next;

End;

end;

procedure TForm7. Button3Click (Sender: TObject);

var

Workbook, Range, Cell1, Cell2, ArrayData, Sl: Variant;

BeginCol, BeginRow, j: integer;

RowCount, ColCount, K1, K2, Ras1, Ras2: Integer;

Per1, Per2: Extended;

DataV, DataZ, VremyaV, VremyaZ: TDateTime;

ShFile, NPL, Marka, GN, Taks, PM, PN, T, M, Vod, NVod, Z,

O, D, P1, P2, R1, R2, G1, G2, Otm, VR1, VR2, OO, F: String;

begin

if Form1. ADOTable1. Modified then

Form1. ADOTable1. Post;

Form1. ADOTable10. Active: =False;

Form1. ADOTable10. Filtered: =False;

if RadioButton1. Checked=True then

Form1. ADOTable10. Filter: ='Код = ' +

Form1. ADOTable1. FieldByName ('Код'). AsString;

if RadioButton2. Checked=True then

Form1. ADOTable10. Filter: ='Д_выезда = ' +

DateToStr (DateTimePicker1. Date);

if RadioButton3. Checked=True then

Form1. ADOTable10. Filter: ='№ > ' +

IntToStr (StrToInt (Edit1. Text) — 1) + ' and № < ' +

IntToStr (StrToInt (Edit2. Text)+1);

if RadioButton4. Checked=True then

Form1. ADOTable10. Filter: ='Д_выезда > ' +

DateToStr (DateTimePicker2. Date-1)+ ' and Д_заезда < ' +

DateToStr (DateTimePicker3. Date+1);

Form1. ADOTable10. Filtered: =True;

Form1. ADOTable10. Active: =True;

While not Form1. ADOTable10. Eof do

Begin

ADOTable1. Active: =False;

ADOTable1. Filtered: =False;

ADOTable1. Filter: ='код = ' +

Form1. ADOTable10. Fields[34]. AsString;

ADOTable1. Filtered: =True;

ADOTable1. Active: =True;

F: =ADOTable1. Fields[24]. AsString;

if F='True' then

begin

ShFile: ='C:Program FilesURAputevoy. xlt';

BeginCol:= 1;

BeginRow:= 13;

RowCount:= Form1. ADOTable10. RecordCount;

ColCount:= Form1. ADOTable10. FieldDefs. Count;

ExcelApp:= CreateOleObject ('Excel. Application');

ExcelApp. Application. EnableEvents:= false;

Workbook:= ExcelApp. WorkBooks. Add (ShFile);

ArrayData:= VarArrayCreate ([1, RowCount, 1, ColCount], varVariant);

ExcelApp. Worksheets. Item[3]. PrintOut;

ExcelApp. DisplayAlerts:= False; // отрубить Excel

ExcelApp. Quit; //

end;

Form1. ADOTable10. Next;

End;

end;

procedure TForm7. Button4Click (Sender: TObject);

var

Workbook, Range, Cell1, Cell2, ArrayData, Sl: Variant;

BeginCol, BeginRow, j: integer;

RowCount, ColCount, K1, K2, Ras1, Ras2: Integer;

Per1, Per2: Extended;

DataV, DataZ, VremyaV, VremyaZ: TDateTime;

ShFile, NPL, Marka, GN, Taks, PM, PN, T, M, Vod, NVod, Z,

O, D, P1, P2, R1, R2, G1, G2, Otm, VR1, VR2, OO, F: String;

begin

if Form1. ADOTable1. Modified then

Form1. ADOTable1. Post;

Form1. ADOTable10. Active: =False;

Form1. ADOTable10. Filtered: =False;

if RadioButton1. Checked=True then

Form1. ADOTable10. Filter: ='Код = ' +

Form1. ADOTable1. FieldByName ('Код'). AsString;

if RadioButton2. Checked=True then

Form1. ADOTable10. Filter: ='Д_выезда = ' +

DateToStr (DateTimePicker1. Date);

if RadioButton3. Checked=True then

Form1. ADOTable10. Filter: ='№ > ' +

IntToStr (StrToInt (Edit1. Text) — 1) + ' and № < ' +

IntToStr (StrToInt (Edit2. Text)+1);

if RadioButton4. Checked=True then

Form1. ADOTable10. Filter: ='Д_выезда > ' +

DateToStr (DateTimePicker2. Date-1)+ ' and Д_заезда < ' +

DateToStr (DateTimePicker3. Date+1);

Form1. ADOTable10. Filtered: =True;

Form1. ADOTable10. Active: =True;

While not Form1. ADOTable10. Eof do

Begin

ADOTable1. Active: =False;

ADOTable1. Filtered: =False;

ADOTable1. Filter: ='код = ' +

Form1. ADOTable10. Fields[34]. AsString;

ADOTable1. Filtered: =True;

ADOTable1. Active: =True;

F: =ADOTable1. Fields[24]. AsString;

if F='True' then

Begin

NPL: =Form1. ADOTable10. Fields[0]. AsString;

DataV: =Form1. ADOTable10. Fields[1]. AsDateTime;

Marka: =Form1. ADOTable10. Fields[5]. AsString;

GN: =Form1. ADOTable10. Fields[6]. AsString;

T: =Form1. ADOTable10. Fields[9]. AsString;

Vod: =Form1. ADOTable10. Fields[10]. AsString;

Nvod: =Form1. ADOTable10. Fields[11]. AsString;

O: =Form1. ADOTable10. Fields[13]. AsString;

D: =Form1. ADOTable10. Fields[14]. AsString;

Taks: =Form1. ADOTable10. Fields[16]. AsString;

ShFile: ='C:Program FilesURAputevoy. xlt';

BeginCol:= 1;

BeginRow:= 13;

RowCount:= Form1. ADOTable10. RecordCount;

ColCount:= Form1. ADOTable10. FieldDefs. Count;

ExcelApp:= CreateOleObject ('Excel. Application');

ExcelApp. Application. EnableEvents:= false;

Workbook:= ExcelApp. WorkBooks. Add (ShFile);

ArrayData:= VarArrayCreate ([1, RowCount, 1, ColCount], varVariant);

Sl: =WorkBook. WorkSheets[4]. Cells [4,24];

Sl. Value: =DataV;

Sl: =WorkBook. WorkSheets[4]. Cells [4,30];

Sl. Value: =DataV;

Sl: =WorkBook. WorkSheets[4]. Cells [4,47];

Sl. Value: =DataV;

Sl: =WorkBook. WorkSheets[4]. Cells [5,14];

Sl. Value: =O;

Sl: =WorkBook. WorkSheets[4]. Cells [7,14];

Sl. Value: =Marka;

Sl: =WorkBook. WorkSheets[4]. Cells [7,113];

Sl. Value: =GN;

Sl: =WorkBook. WorkSheets[4]. Cells [10,12];

Sl. Value: =Vod;

Sl: =WorkBook. WorkSheets[4]. Cells [11,125];

Sl. Value: =NVod;

Sl: =WorkBook. WorkSheets[4]. Cells [35,98];

Sl. Value: =Vod;

Sl: =WorkBook. WorkSheets[4]. Cells [39,27];

Sl. Value: =Vod;

Sl: =WorkBook. WorkSheets[4]. Cells [60,164];

Sl. Value: =Taks;

Sl: =WorkBook. WorkSheets[4]. Cells [4,172];

Sl. Value: =NPL;

ExcelApp. Worksheets. Item[4]. PrintOut;

ExcelApp. DisplayAlerts:= False;

ExcelApp. Quit; //

end;

Form1. ADOTable10. Next;

End;

end;

procedure TForm7. FormCreate (Sender: TObject);

begin

DateTimePicker1. DateTime: =now;

DateTimePicker2. DateTime: =now-1;

DateTimePicker3. DateTime: =now+1;

end;

end.

Заключение

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

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

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

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

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

2 Автоматизированные рабочие места / http: // www. formoza. ru

3 «Инспектор+: интеллектуальный охранный комплекс» / www. iss. ru

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

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

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

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

ПоказатьСвернуть
Заполнить форму текущей работой