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