port ( report3 ) ;. Close ;;;  
  Unit6  
  procedure TForm6. Button2Click (Sender: TObject) ;. table5. cancel ;;; TForm6. Button1Click (Sender: TObject) ;. Table5. Refresh ;. Table5. Insert ;; 
   Unit7  
  procedure TForm7. Button1Click (Sender: TObject) ;. Table1. Refresh ;. Table1. insert ;; TForm7. Button2Click (Sender: TObject) ;. Table1. Cancel ;. Table5. Cancel ;;; 
   Unit8  
  procedure TForm8. Button1Click (Sender: TObject) ;. Table2. Insert ;. DBGrid2. refresh ;; TForm8. Button2Click (Sender: TObject) ;. refresh ;. Table2. Cancel ;; TForm8. Button3Click (Sender: TObject) ;. Table3. Insert ;. DBGrid2. refresh ;; TForm8. Button4Click (Sender: TObject) ;. refresh ;. Table3. Cancel ;; TForm8. Button5Click (Sender: TObject) ;. Table2. Cancel ;. Table3. Cancel ;;. Refresh ;; 
				
				
				
				
			   SQL-запит  
   запите №1  
  select s. kods, s. kodd, datawyk, wartistsamowl. db ss. kods IN 
  (select d. kodddogowir. db d (databeg gt; =: prmdatabeg) and (dataend lt; =: prmdataend)) 
   запите №2  
  select sum (wartist), avg (kodd) samowl. dbkodd =: prmkodd