Лістинг Unit1 (процедури)
TForm1.Button2Click (Sender: TObject); OpenPictureDialog1.Execute then.Picture.LoadFromFile(OpenPictureDialog1.FileName);.Edit;(Sotrudniki.FieldByName(laquo;fotoraquo;)).LoadFromFile(OpenPictureDialog1.FileName);.Post;;;TForm1.Button1Click(Sender: TObject); d1: TDateTime;, s: string; (Combobox1.Text= Дата народження ) then:= Data_rojdeniya raquo ;; (Combobox1.Text= Дата прийому ) then:= Data_priema raquo ;; (Combobox1.Text= Дата звільнення ) then:= Data_uvolneniya raquo ;; (Combobox1.Text= Посада ) then:= Doljnost raquo ;; (Combobox1.Text= Паспортні дані ) then: = Pasport_data raquo ;; (Combobox1.Text= Номер співробітника ) then:= Nomer_sotrudnika raquo ;; (Combobox1.Text= ПІБ ) then:= FIO raquo ;; (Combobox1.Text= Дата народження ) or (Combobox1.Text= Дата прийому ) or (Combobox1.Text= Дата звільнення ) then:=StrToDate(Edit1.text);:=FormatDateTime(laquo;yyyy-mm-ddraquo;,d1);.close;.sql.clear;(Combobox1.Text=laquo;Дата народження ) or (Combobox1.Text= Дата прийому ) or (Combobox1.Text= Дата звільнення ) then.SQL.Add ( select * from Sotrudniki where + a + = + # 39 + s + # 39 ). SQL.Add ( select * from Sotrudniki where + a + = + # 39 + Edit1.text + # 39 raquo;);.Open;.dataset.close;.dataset:=Poisk;.DataSource:=DSPoisk;.DataSource:=DSPoisk;.DataSet.Active:=true;;TForm1.Button3Click(Sender: TObject);:TDateTime;:string;:=now;:=FormatDateTime(laquo;yyyy-mm-ddraquo;,Date);_sotrudnikov.Close;_sotrudnikov.SQL.Text:=laquo;update sotrudniki inner join med_osmotr on Med_Osmotr.FIO=Sotrudniki.FIO SET Sotrudniki.Razreshenie_na_polet=Med_Osmotr.Razrehenie_na_polet where + # 39 + s + # 39 + =Med_Osmotr.Data_proverkiraquo;;_sotrudnikov.ExecSQL;.DataSet.Active:=false;.DataSource:=DSSotrudniki;.DataSource:=DSSotrudniki;.DataSource.DataSet.Active:=true;;TForm1.Button4Click(Sender: TObject) ;. Close; .Show ;; TForm1.wClick (Sender: TObject) ;. Engine:=RvSystem1; RvSystem1 do:=False;:=RvRenderPDF1;:= Sotrudniki.pdf raquo ;;;. Execute ;;.
Лістинг Unit2 (процедури)
procedure TForm2.Button1Click (Sender: TObject) ;. Show; .Hide ;; TForm2.Button2Click (Sender: TObject) ;. Show; .Hide ;; TForm2.Button3Click (Sender: TObject);.Show; .Hide ;; TForm2.Button4Click (Sender: TObject) ;. Show; .Hide ;; TForm2.Button5Click (Sender: TObject); _ reisa.Close; _reisa.SQL.Text:= update reis set sostoyanie= У польоті where Nomer_reisa=raquo;+#39+DBEdit1.Text+#39+laquo;raquo;;_reisa.ExecSQL;_eqipaja.Close;_eqipaja.SQL.Text:=laquo;update eqipaj set status= У польоті where Nomer_eqipaja=raquo;+#39+DBEdit2.Text+#39+laquo;raquo;;_eqipaja.ExecSQL;_zakaza.Close;_zakaza.SQL.Text:=laquo;update zakaz set status= У польоті where Nomer_zakaza=raquo;+#39+DBEdit3.Text+#39+laquo;raquo;;_zakaza.ExecSQL;_samoleta.Close;_samoleta.SQL.Text:=laquo;update samolet set status= У польоті where Nomer_samoleta=raquo;+#39+DBEdit4.Text+#39+laquo;raquo;;_samoleta.ExecSQL;.DataSource.DataSet.Active:=false;.DSZakaz.DataSet.Active:=false;.DSEqpaj.DataSet.Active:=false;.DSSamolet.DataSet.Active:=false;.DataSource.DataSet.Active:=true;.DSZakaz.DataSet.Active:=true;.DSEqpaj.DataSet.Active:=true;.DSSamolet.DataSet.Active:=true;;TForm2.Button6Click(Sender: TObject) ;. Show; .Hide ;; TForm2.Button7Click (Sender: TObject); _ reisa.Close; _reisa.SQL.Text:= update reis set sostoyanie= Виконано where Nomer_reisa=raquo;+#39+DBEdit1.Text+#39+laquo;raquo;;_reisa.ExecSQL;_eqipaja.Close;_eqipaja.SQL.Text:=laquo;update eqipaj set status= Готовий where Nomer_eqipaja=raquo;+#39+DBEdit2.Text+#39+laquo;raquo;;_eqipaja.ExecSQL;_zakaza.Close;_zakaza.SQL.Text:=laquo;update zakaz set status= Виконано where Nomer_zakaza=raquo;+#39+DBEdit3.Text+#39+laquo;raquo;;_zakaza.ExecSQL;_samoleta.Close;_samoleta.SQL.Text:=laquo;update samolet set status= Не готовий where Nomer_samoleta=raquo;+#39+DBEdit4.Text+#39+laquo;raquo;;_samoleta.ExecSQL;_proverku.Close;_proverku.SQL.Text:=laquo;update Sostoyanie_samoletov set sostoyanie_fuzelyaja= не перевірено laquo ;, Dvigateli= не перевірено , Bort_sistem= не перевірено , Proviziya_voda= Порожній laquo ;, Zapravka_toplivom = Порожній laquo ;, Pokritie_POJ= Не виконано where Nomer_samoleta=raquo;+#39+DBEdit4.Text+#39+laquo;raquo;;_proverku.ExecSQL;.DataSource.DataSet.Active:=false;.DSZakaz.DataSet.Active:=false;.DSEqpaj.DataSet.Active:=false;.DSSamolet.DataSet.Active:=false;.DSSostSamoletov.DataSet.Active:=false;.DataSource.DataSet.Active:=true;.DSZakaz.DataSet.Active:=true;.DSEqpaj.DataSet.Active:=true;.DSSamolet.DataSet.Active:=true;.DSSostSamoletov.DataSet.Active:=true;;TForm2.Button8Click(Sender: TObject) ;. Show; .TabSheet1.Show; .Hide ;; TForm2.Button9Click (Sender: TObject) ;. Close ;; TForm2.Button10Click (Sender: TObject);.DataSet.Active:=false;.DataSet.Active:=false;.DataSet.Active:=true;.DataSet.Active:=true;;TForm2.Button11Click(Sender: TObject) ;. Eng...