L.Text:=laquo;select * From eqipaj where Perviy_pilot= + # 39 + DBEdit1.Text + # 39 + or Vtoroy_pilot= + # 39 + DBEdit1.Text + # 39 + or Shturman= + # 39 + DBEdit1.Text + # 39 + or Injener= + # 39 + DBEdit1.Text + # 39 + raquo;;.ExecSQL;.DataSet.Close;.DataSet:=DannieEqipaja;.DataSource:=DSDannieEqipaja;.DataSet.Active:=true;.DataSet.Active:=true;.DataSet.Active:=false;.Close;.SQL.Text:=laquo;insert into med_osmotr (Nomer_sotrudnika, Nomer_eqipaja, FIO, Doljnost, Data_proverki) value (raquo;+#39+DBEdit3.Text+#39+laquo;,raquo;+#39+DBEdit2.Text+#39+laquo;,raquo;+#39+DBEdit1.Text+#39+laquo;,raquo;+#39+DBEdit4.Text+#39+laquo;,raquo;+#39+a+#39+laquo;)raquo;;.ExecSQL;.DataSet.Active:=true;;.
Лістинг Unit9 (процедури)
procedure TForm9.Button3Click (Sender: TObject) ;: Word; .Close; .SQL.Text:= select * from zakaz where status= Чи не виконаний or Status=raquo;laquo;Задержанraquo;laquo;raquo;;.ExecSQL;.DataSource:=DSZakazy;.DataSource:=DSZakazy;.DataSource:=DSZakazy;.DataSource.DataSet.Active:=true;(DBEdit1.Text = Laquo; ) then:=MessageDLG ( Немає доступних замовлень !!! , mtInformation, [mbOk], 0) ;;; TForm9.Button1Click (Sender: TObject) ;. Close; .Show ;; TForm9.Button5Click (Sender: TObject) ;. Close; .Show ;; TForm9.Button4Click (Sender: TObject) ;. Show ;; TForm9.Button6Click (Sender: TObject) ;. Show ;; TForm9.Button7Click (Sender: TObject);.Show ;; TForm9.Button8Click (Sender: TObject) ;: Word; _Eqipaja.Close; _Eqipaja.SQL.Text:= select * from eqipaj where Status=raquo;laquo;Готовraquo;laquo;raquo;;_Eqipaja.ExecSQL;.DataSource:=DSPoisk_Eqipaja;.DataSource:=DSPoisk_Eqipaja;.DataSource:=DSPoisk_Eqipaja;.DataSource:=DSPoisk_Eqipaja;_Eqipaja.DataSet.Active:=true;(DBEdit2.Text = Laquo; ) then:=MessageDLG ( Ні достипних екіпажів !!! , mtInformation, [mbOk], 0) ;;; TForm9.Button2Click (Sender: TObject) ;: Word; (DBEdit1.Text= ) then:=MessageDLG ( Немає доступних замовлень !!! , mtInformation, [mbOk], 0); _ zakaza.Close; _zakaza.SQL.Text:= insert into reis (Nomer_zakaza, Punkt_otpravleniya , Punkt_naznacheniya) values (raquo;+#39+DBEdit1.Text+#39+laquo;,raquo;+#39+DBEdit4.Text+#39+laquo;,raquo;+#39+DBEdit6.Text+#39+laquo;)raquo;;_zakaza.ExecSQL;.DataSource.DataSet.Active:=false;.DataSource.DataSet.Active:=true;.Show;;;TForm9.Button9Click(Sender: TObject) ;: Word; (DBEdit2.Text= ) then:=MessageDLG ( Ні достипних екіпажів !!! , mtError, [mbOk], 0); _ eqypaja.Close; _eqypaja.SQL.Text := update reis set Nomer_eqipaja= + # 39 + DBEdit2.Text + # 39 + where Nomer_reisa=raquo;+#39+DBEdit7.Text+#39+laquo;raquo;;_eqypaja.ExecSQL;_zakaz.Close;_zakaz.SQL.Text:=laquo;select * From zakaz where Nomer_zakaza=raquo;+#39+DBEdit10.Text+#39+laquo;raquo;;_zakaz.ExecSQL;.DataSource:=DSTekuhiy_zakaz;.DataSource.DataSet.Active:=true;.DataSource.DataSet.Active:=false;.DataSource.DataSet.Active:=true;.Show;;;TForm9.Button10Click(Sender: TObject) ;: Word; _samoleta.Close; _samoleta.SQL.Text:= select * from samolet where Status=raquo;laquo;Готовraquo;laquo;raquo;;_samoleta.ExecSQL;.DataSource:=DSPoisk_samoleta;.DataSource:=DSPoisk_samoleta;.DataSource:=DSPoisk_samoleta;.DataSource:=DSPoisk_samoleta;_samoleta.DataSet.Active:=true;(DBEdit3.Text = Laquo; ) then
R:=MessageDLG ( Немає доступних засобів перевезення вантажу !!! , mtError, [mbOk], 0);
end ;; TForm9.Button12Click (Sender: TObject) ;. Show ;; TForm9.Button13Click (Sender: TObject) ;. Show; .Text:=TimeToStr (Now) ;; TForm9.Button14Click ( Sender: TObject) ;. Close; .Show ;; TForm9.Button15Click (Sender: TObject) ;. Show ;; TForm9.Button17Click (Sender: TObject) ;. Close; .Show ;; TForm9.Button11Click (Sender: TObject);:Word; (DBEdit3.Text= ) then
begin:=MessageDLG ( Немає доступних засобів перевезення вантажу !!! , mtError, [mbOk], 0);
end.Text:=TimeToStr (Now); _ samoleta.Close; _samoleta.SQL.Text:= update reis set Nomer_samoleta= + # 39 + DBEdit3.Text + # 39 + where Nomer_reisa=raquo;+#39+DBEdit8.Text+#39+laquo;raquo;;_samoleta.ExecSQL;.DataSource.DataSet.Active:=false;.DataSource.DataSet.Active:=true;.Show;;;TForm9.Button18Click(Sender: TObject);:TDateTime;:String;:=now;:=FormatDateTime(laquo;yyyy-mm-ddraquo;,Date);_vpp.Close;_vpp.SQL.Text:=laquo;select * From vpp where Vremya =raquo;+#39+s+#39+laquo;raquo;;_vpp.ExecSQL;.DataSource:=DSPoisk_samoleta;.DataSource:=DSPoisk_samoleta;.DataSource:=DSPoisk_samoleta;.DataSource:=DSPoisk_samoleta;_samoleta.DataSet.Active:=true;;TForm9.Timer1Timer(Sender: TObject);.Caption:=TimeToStr(Now);.Caption:=TimeToStr(Now);.Label1.Caption:=TimeToStr(Now);.Text:=DateToStr(Now);;TForm9.Button19Click(Sender: TObject) ;: Word; (Edit3.Text= ЧЧ.ММ.СС ) or (Edit3.Text= ) then:=MessageDLG ( Введіть час вильоту. Raquo;, mtInformation, [mbOk] , 0) ;; (Edit2.Text= ДД.ММ.РРРР ) or (Edit2.Text= ) then:=MessageDLG ( Введіть дату вильоту. , mtInformation, [mbOk], 0); _ v_gra...