Search.close; .SQL.Text:= select * from Sotrudniki where Doljnost= + # 39 + a + # 39 and Razreshenie_na_polet= Готовий raquo ;;. ExecSQL ;; (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 ;;
Search.close; .SQL.Text:= select * from Sotrudniki where Doljnost= + # 39 + a + # 39 and Razreshenie_na_polet =raquo;laquo;Готовraquo;laquo;raquo;;;.dataset.close;.dataset:=Search;.DataSource:=DSSearch;.DataSource:=DSSearch;.DataSet.Active:=true;;TForm4.Button7Click(Sender: TObject) ;. Close; .Show ;; TForm4.Button8Click (Sender: TObject) ;. DataSet.Active:=false;_Eqipajey.Close;_Eqipajey.SQL.Text:=laquo;update eqipaj set status= Готовий raquo ; where Perviy_pilot lt; gt; null and Vtoroy_pilot lt; gt; null and Shturman lt; gt; null and Injener lt; gt; null raquo ;; _ Eqipajey.ExecSQL; .DataSet.Active:=true ;;.
Лістинг Unit5 (процедури)
procedure TForm5.Button4Click (Sender: TObject); OpenPictureDialog1.Execute then.Picture.LoadFromFile(OpenPictureDialog1.FileName);.Edit;(Samolet.FieldByName(laquo;Fotoraquo;)).LoadFromFile(OpenPictureDialog1.FileName);.Post;;;TForm5.ComboBox1Change(Sender: TObject); (ComboBox1.Text= Модель літака ) or (ComboBox1.Text= Вантажопідйомність літака ) then.Enabled:=true; .Enabled:=false; .Enabled:=false; .Enabled:=true ;;; TForm5.Button1Click (Sender: TObject) ;: string; (ComboBox1.Text= Модель літака ) then:= Model_samoleta raquo ;; (ComboBox1.Text= Вантажопідйомність літака ) then:= Gruzopodemnost_tonn 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;;TForm5.Button2Click(Sender: TObject);.DataSource:=DSSamolet;.DataSource:=DSSamolet;.DataSource:=DSSamolet;(DBEdit2.Text=laquo;Отличноеraquo;) or (DBEdit3.Text= Відмінне ) or (DBEdit4.Text= Відмінне ) or (DBEdit5.Text= Заповнено ) or (DBEdit6.Text= Заповнено ) or (DBEdit7.Text= Виконано ) then.Close; .SQL.Text:= update Samolet set status= Готовий where Nomer_samoleta=raquo;+#39+DBEdit1.Text+#39+laquo;raquo;;.ExecSQL;;.DataSet.Active:=false;.DataSet.Active:=true;;TForm5.ComboBox2Change(Sender: TObject) ;: string; (ComboBox2.Text= Готовий ) then:= Готовий raquo ;;. Close; .SQL.Text:= select * from samolet where Status= + # 39 + a + # 39 raquo ;;. ExecSQL ;; (ComboBox2.Text= Не готовий ) then:= Не готовий raquo ;;. close; .SQL.Text:= select * from samolet where Status= + # 39 + a + # 39 raquo ;;. ExecSQL ;; (ComboBox2.Text= В ремонті ) then:= В ремонті raquo ;;. close; .SQL.Text:= select * from samolet where Status= + # 39 + a + # 39 raquo ;;. ExecSQL ;; (ComboBox2.Text= У польоті ) then:= У польоті raquo ;;. close; .SQL.Text:= select * from samolet where Status= + # 39 + a + # 39 raquo;;.ExecSQL;;.dataset.close;.dataset:=Search;.DataSource:=DSSearch;.DataSource:=DSSearch;.DataSource:=DSSearch;.DataSet.Active:=true;;TForm5.Button3Click(Sender: TObject) ;. Close; .SQL.Text:= select * from remont_samoletov where Nomer_samoleta=raquo;+#39+DBEdit1.Text+#39+laquo;raquo;;.ExecSQL;.Dataset.close;.dataset:=Svodka;.DataSource:=DSSvodka;.Dataset.Active :=True; .Close; .SQL.Text:= select * from sostoyanie_samoletov where Nomer_samoleta=raquo;+#39+DBEdit1.Text+#39+laquo;raquo;;.ExecSQL;.DataSet.Close;.DataSet:=Svedeniya;.DataSource:=DSSvodka2;.DataSet.Active :=True ;; TForm5.Button5Click (Sender: TObject);.DataSource:=DSRemontSamoletov;.DataSource:=DSSostSamoletov;.DataSet.Active:=true;.DataSet.Active:=true;;TForm5.Button6Click(Sender: TObject) ;. Close; .Show ;; TForm5.Button7Click (Sender: TObject); _ samoletov.Engine:=RvSystem1; RvSystem1 do:=False;:=RvRenderPDF1;:= Sostoyanie samoletov.pdf raquo ;;; _ samoletov.Execute ;;.
Лістинг Unit6 (процедури)
procedure TForm6.Button1Click (Sender: TObject) ;: Word; (Edit1.Text= Логін ) and (Edit2.Text= 1234 ) then.Show; .Hide;
R:=MessageDLG ( Не забудьте оновити зведення про техніку і про співробітників. , mtInformation, [mbOk], 0);:=MessageDLG ( Введені пароль або логін не вірні. , mtError, [mbOk], 0);
end ;; TForm6.Button2Click (Sender: TObject) ;;;.
Лістинг Unit 7 (процедури)
procedure TForm7.Button1Click (Sender: TObject) ;. Close; .Show ;; TForm7.Button2Click (Sender: TObject);:TDateTime;:String;:=now;:=FormatDateTime(laquo;yyyy-mm-ddraquo;,Time);.Close;.SQ...