hecked = 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 № <' + (StrToInt (Edit2. Text) +1); RadioButton4. Checked = True then.ADOTable10. Filter: = 'Д_виезда>' + (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;. 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 № <' + (StrToInt (Edit2. Text) +1); RadioButton4. Checked = True then.ADOTable10. Filter: = 'Д_виезда>' + (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...
