Подсистема учета работы автотранспорта
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
ields[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]; // показание спидометра при возвращении
+(StrToInt(Edit1.Text)-1)+and<+(StrToInt(Edit2.Text)+1);RadioButton4.Checked=Truethen.ADOTable10.Filter:=_>+(DateTimePicker2.Date-1)+and_<+(DateTimePicker3.Date+1);.ADOTable10.Filtered:=True;.ADOTable10.Active:=True;notForm1.ADOTable10.Eofdo.Active:=False;.Filtered:=False;.Filter:==+.ADOTable10.Fields[34].AsString;.Filtered:=True;.Active:=True;:=ADOTable1.Fields[23].AsString;F=2then:=Form1.ADOTable10.Fields[10].AsString;:=Form1.ADOTable10.Fields[14].AsString;:=Form1.ADOTable10.Fields[16].AsString;:=C:\ProgramFiles\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=1then:=Form1.ADOTable10.Fields[16].AsString;:=C:\ProgramFiles\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.Modifiedthen.ADOTable1.Post;.ADOTable10.Active:=False;.ADOTable10.Filtered:=False;RadioButton1.Checked=Truethen.ADOTable10.Filter:==+.ADOTable1.FieldByName().AsString;RadioButton2.Checked=Truethen.ADOTable10.Filter:=_=+(DateTimePicker1.Date);RadioButton3.Checked=Truethen.ADOTable10.Filter:=>+(StrToInt(Edit1.Text)-1)+and<+(StrToInt(Edit2.Text)+1);RadioButton4.Checked=Truethen.ADOTable10.Filter:=_>+(DateTimePicker2.Date-1)+and_<+(DateTimePicker3.Date+1);.ADOTable10.Filtered:=True;.ADOTable10.Active:=True;notForm1.ADOTable10.Eofdo.Active:=False;.Filtered:=False;.Filter:==+.ADOTable10.Fields[34].AsString;.Filtered:=True;.Active:=True;:=ADOTable1.Fields[24].AsString;F=Truethen:=C:\ProgramFiles\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.Modifiedthen.ADOTable1.Post;.ADOTable10.Active:=False;.ADOTable10.Filtered:=False;RadioButton1.Checked=Truethen.ADOTable10.Filter:==+.ADOTable1.FieldByName().AsString;RadioButton2.Checked=Truethen.ADOTable10.Filter:=_=+(DateTimePicker1.Date);RadioButton3.Checked=Truethen.ADOTable10.Filter:=>+(StrToInt(Edit1.Text)-1)+and<+(StrToInt(Edit2.Text)+1);RadioButton4.Checked=Truethen.ADOTable10.Filter:=_%