Подсистема учета работы автотранспорта
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
;.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 № +(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Автоматизированные рабочие места /
Инспектор+: интеллектуальный охранный комплекс / www.iss.ru
Информационные системы для руководителей / Под ред. Ф.И. Перегудова. - М.: Финансы и статистика, 1989.
Кантарь И.Л. Автоматизированные рабочие места управленческого аппарата, 1990.
Мишенин А.И. Теория экономических информационных систем: Учебник. - М.: Финансы и статистика, 1993.
Шураков В.В. Автоматизированное рабочее место для статической обработки данных, 1990.