Подсистема учета работы автотранспорта
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
b5>+(DateTimePicker2.Date-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:=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