Подсистема учета работы автотранспорта
Предоставление данных по учету и анализу использования горюче-смазочных материалов подвижным составам автомобильного транспорта и строительно-дорожным машинам на предприятии. Программа по отслеживанию движения ГСМ и эффективности его использования.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | курсовая работа |
| Язык | русский |
| Дата добавления | 03.07.2012 |
| Размер файла | 1,1 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Размещено на http://www.allbest.ru/
Подсистема учёта работы автотранспорта
Введение
Невозможно найти предприятия, которое не закупало бы ресурсы - сырье, товары, услуги, и т.д. После того как принято решение о производстве определенного вида продукции или услуг, требуется обеспечить это производство исходными ресурсами. Возникает проблема закупок, т.е. экономически целесообразного приобретения товаров (услуг).
Закупки предполагают реализацию процесса купли-продажи между поставщиком и потребителем. Процесс закупки - взаимосвязанная последовательность действий: от выявления потребности в ресурсах до их поступления на предприятие.
Материально-техническое снабжение предприятий и организаций независимо от их форм собственности и условий функционирования является одной из основных подсистем логистики, которая постоянно находится в центре внимания ученых, специалистов и практиков. Для автоматизации всех этих процессов разрабатываются всевозможные АСУ, в своей работе я рассмотрю АС «ГСМ».
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.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 Files\URA\putevoy.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 Files\URA\putevoy.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 Files\URA\putevoy.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 Files\URA\putevoy.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 Files\URA\putevoy.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 Files\URA\putevoy.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.
Размещено на Allbest.ru
Подобные документы
Необходимость использования вычислительных технологий в технических расчетах. Особенности представления входной информации и разработки программы в среде Turbo-Pascal при необходимости учета технических масел на складе горюче-смазочных материалов.
курсовая работа [34,9 K], добавлен 27.11.2012Анализ входной и выходной информации на предприятии. Осуществление функционального и информационного моделирования базы данных, создание ее структуры. Программная реализация системы автоматизации учета работы автотранспорта. Оценка трудоемкости проекта.
дипломная работа [1,2 M], добавлен 09.07.2012Анализ деятельности складского учета, внедрение информационных технологий в процесс работы склада. Создание информационной системы учета движения материалов на складе. Моделирование бизнес-процессов. Проектирование физической структуры базы данных.
курсовая работа [4,1 M], добавлен 22.06.2014Автоматизация учета материалов на складе с применением баз данных (MS Access). Разработка логической структуры реляционной базы данных (входная информация - формы, выходные документы - отчеты). Применение программы, расчет экономической эффективности.
курсовая работа [4,3 M], добавлен 27.02.2011Схема функционирования и алгоритм работы кэш-памяти. Характеристика процесса: среднее время доступа к данным. Проблема согласования данных. Принципы работы дисковой подсистемы ОС. Цели использования, типы и атрибуты файлов. Структура файловой системы.
презентация [109,2 K], добавлен 20.12.2013Организационная и функциональная структуры туристического агентства. Основные требования к автоматизированным информационным системам. Контекстное моделирование; проектирование экранных форм, CRC-карточек и построение диаграмм потоков данных DFD.
курсовая работа [483,9 K], добавлен 18.05.2014Анализ современного состояния проблемы по учету движения кадров на предприятии. Изучение мирового рынка информационных систем учета и контроля персонала. Разработка программного продукта для конкретного предприятия. Охрана труда при работе с компьютером.
дипломная работа [3,4 M], добавлен 23.04.2015Анализ сред разработки для веб-проектов. Система учета работы элементов информационной инфраструктуры. Создание базы данных и каркаса системы на языке HTML и CSS. Технологии использования и демонстрация работы системы. Экономическое обоснование проекта.
дипломная работа [2,1 M], добавлен 25.06.2014Комплекс задач по учету и контролю выработки и отгрузки товарной продукции. Описание информационного обеспечения. Концептуальное проектирование базы данных. Массивы информации, используемые алгоритмом. Программирование задачи "Учет и контроль отгрузки".
дипломная работа [1,3 M], добавлен 21.06.2011Реализация базы данных для автоматизированной системы, обслуживающей процесс учета ремонта и техобслуживания автотранспорта. Основные функции отдела реализации теплоснабжающей организации. Обоснование выбора SQL. Создание таблиц базы данных, триггеры.
курсовая работа [233,9 K], добавлен 30.11.2008
