TObject);. Show;; TForm1. JvXPButton1Click (Sender: TObject); ADOTable1. Modified then. Post;; TForm1. JvXPButton2Click (Sender: TObject);. Show;; TForm1. JvXPButton3Click (Sender: TObject);. Next;; TForm1. JvXPButton4Click (Sender: TObject);. First;; TForm1. JvXPButton5Click (Sender: TObject);. Prior;; TForm1. JvXPButton6Click (Sender: TObject);. Last;; TForm1. JvXPButton7Click (Sender: TObject);. Insert;; TForm1. JvXPButton8Click (Sender: TObject);. Delete;; TForm1. JvXPButton9Click (Sender: TObject);. Edit;
end;
end.
Код форми друку подорожніх листів:
procedure TForm7. RadioButton2Click (Sender: TObject);. Enabled: = True;. Enabled: = False;. Enabled: = False;. Enabled: = False;. Enabled: = False;; TForm7. RadioButton3Click (Sender: TObject);. Enabled: = True;. Enabled: = True;. Enabled: = False;. Enabled: = False;. Enabled: = False;; TForm7. RadioButton4Click (Sender: TObject);. Enabled: = False;. Enabled: = False;. Enabled: = False;. Enabled: = True;. Enabled: = True;; TForm7. RadioButton1Click (Sender: TObject);. Enabled: = False;. Enabled: = False;. Enabled: = False;. Enabled: = False;. Enabled: = False;; TForm7. Button1Click (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, Kl, FIOP, SP1, SP2, OrS: 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 [23]. AsString; F = '2 'then// лицьова гр.: = Form1.ADOTable10. Fields [0]. AsString;: = Form1.ADOTable10. Fields [1]. AsDateTime;: = Form1.ADOTable10. Fields [2]. AsDateTime;: = Form1.ADOTable10. Fields [3]. AsDateTime;: = Form1.ADOTable10. Fields [4]. AsDateTime;: = Form1.ADOTable10. Fields [5]. AsString;: = Form1.ADOTable10. Fields [6]. AsString;: = Form1.ADOTable10. Fields [7]. AsString; PM = '-' then PM: ='';: = Form1.ADO...
