ine:=RvSystem1; RvSystem1 do:=False;:=RvRenderPDF1;:= Sotrudniki.pdf raquo ;;;. Execute ;;.
Лістинг Unit3 (процедури)
procedure TForm3.Button2Click (Sender: TObject);.DataSource:=DSZakaz;.DataSource:=DSZakaz;.DataSource.DataSet.Active:=true;;TForm3.Button1Click(Sender: TObject) ;: Integer;, s: string; (Combobox1.Text= Маса вантажу ) then:= Massa_gruza raquo ;; (Combobox1.Text= Пункт призначення ) then:= Punkt_naznacheniya raquo ;; ( Combobox1.Text= Пункт відправлення ) then:= Punkt_otpravleniya raquo ;;. close; .sql.clear; .SQL.Add ( select * from Zakaz where + a + = + # 39 + Edit1.text + # 39 raquo;);.Open;.dataset.close;.dataset:=Poisk;.DataSource:=DSPoisk;.DataSource:=DSPoisk;.DataSet.Active:=true;;TForm3.ComboBox1Change(Sender: TObject); (ComboBox1.Text= Маса вантажу ) or (Combobox1.Text= Пункт призначення ) or (Combobox1.Text= Пункт відправлення ) then.Enabled:=true.Enabled:=false; ; TForm3.Button3Click (Sender: TObject) ;. Close; .Show ;; TForm3.Button4Click (Sender: TObject) ;. Engine:=RvSystem1; RvSystem1 do:=False;:=RvRenderPDF1;:= Sotrudniki.pdf ;;. Execute ;;.
Лістинг Unit4 (процедури)
procedure TForm4.Button1Click (Sender: TObject) ;: Word; (ComboBox2.Text lt; gt; Перший пілот ) then
begin:=MessageDLG ( Даний співробітник не може бути Першим пілотом !!! , mtError, [mbOk], 0);
end; (ComboBox2.Text= Перший пілот ) then.DataSet.Active:=false;_pilot.close;_pilot.SQL.Text:=laquo;insert into eqipaj (Perviy_pilot) value (raquo;+#39+DBEdit1.Text+#39+laquo;)raquo;;_pilot.ExecSQL;.DataSet.Active:=true;;;TForm4.Button2Click(Sender: TObject) ;: Word;: string;:=DBEdit2.Text; (ComboBox2.Text lt; gt; Другий пілот ) then
begin:=MessageDLG ( Даний співробітник не може бути Другим пілотом !!! Вибрати даного співробітника Другим пілотом ? , mtWarning, [mbYes, mbNo], 0 );
if R=mrYes then.DataSet.Active:=false;_pilot.close;_pilot.SQL.Text:=laquo;update eqipaj set Vtoroy_pilot= + # 39 + DBEdit1.Text + # 39 + where Nomer_eqipaja=raquo;+#39+I+#39+laquo;raquo;;_pilot.ExecSQL;.DataSet.Active:=true;;.DataSet.Active:=false;_pilot.close;_pilot.SQL.Text:=laquo;update eqipaj set Vtoroy_pilot= + # 39 + DBEdit1.Text + # 39 + where Nomer_eqipaja= + # 39 + I + # 39 + raquo ;; _ pilot.ExecSQL; .DataSet.Active:=true ;;; TForm4.Button3Click (Sender: TObject) ;: Word;: string;:=DBEdit2.Text; (ComboBox2.Text lt; gt; Штурман ) then
begin:=MessageDLG ( Даний співробітник не може бути Штурманом !!! Вибрати даного співробітника Штурманом ? , mtWarning, [mbYes, mbNo], 0);
if R=mrYes then.DataSet.Active:=false;.close;.SQL.Text:=laquo;update eqipaj set Shturman= + # 39 + DBEdit1.Text + # 39 + laquo ; where Nomer_eqipaja=raquo;+#39+I+#39+laquo;raquo;;.ExecSQL;.DataSet.Active:=true;;.DataSet.Active:=false;.close;.SQL.Text:=laquo;update eqipaj set Shturman= + # 39 + DBEdit1.Text + # 39 + where Nomer_eqipaja= + # 39 + I + # 39 + raquo ;;. ExecSQL; .DataSet.Active:=true ;;; TForm4.Button4Click (Sender: TObject) ;: Word;: string;:=DBEdit2. Text; (ComboBox2.Text lt; gt; Борт Інженер ) then
begin:=MessageDLG ( Даний співробітник не може бути Борт інженером !!! Вибрати даного співробітника Борт Інженером ? , mtWarning, [mbYes, mbNo], 0 );
if R=mrYes then.DataSet.Active:=false;.close;.SQL.Text:=laquo;update eqipaj set Injener= + # 39 + DBEdit1.Text + # 39 + laquo ; where Nomer_eqipaja=raquo;+#39+I+#39+laquo;raquo;;.ExecSQL;.DataSet.Active:=true;;.DataSet.Active:=false;.close;.SQL.Text:=laquo;update eqipaj set Injener= + # 39 + DBEdit1.Text + # 39 + where Nomer_eqipaja= + # 39 + I + # 39 + raquo ;;. ExecSQL; .DataSet.Active:=true ;;; TForm4.ComboBox1Change (Sender: TObject) ;: Word;: string; (ComboBox1.Text= ПІБ ) then.Enabled:=true; .Enabled:=false; .Enabled:=false; .Enabled:=true ;; ; TForm4.Button5Click (Sender: TObject) ;: string; (ComboBox1.Text= ПІБ ) then:= FIO raquo ;;. close; .SQL.Text:= select * from Sotrudniki where + a + = + # 39 + Edit1.text + # 39 raquo;;.ExecSQL;.dataset.close;.dataset:=Search;.DataSource:=DSSearch;.DataSource:=DSSearch;.DataSet.Active:=true;;TForm4.Button6Click(Sender: TObject);.DataSource.DataSet.Active:=false;.DataSource:=DSSotrudniki;.DataSource:=DSSotrudniki;.DataSource.DataSet.Active:=true;;TForm4.ComboBox2Change(Sender: TObject) ;: string; (ComboBox2.Text= Перший пілот ) then
begin:= Лет.Состав (Перший пілот) raquo ;;
Search.close; .SQL.Text:= select * from Sotrudniki where Doljnost= + # 39 + a + # 39 and Razreshenie_na_polet= Готовий raquo ;;. ExecSQL ;; (ComboBox2.Text= Другий пілот ) then
begin:= Лет.Состав (Другий пілот) raquo ;; ...