АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция

Листинг Unit2(процедуры)

Читайте также:
  1. Листинг 10.3. XslDemo02.xsl (html, txt)
  2. Листинг 10.4. XslDemo.xml (html, txt)
  3. Листинг 10.5. XslDemo03.xsl (html, txt)
  4. Листинг 10.9. XslDemo06.xml (html, txt)
  5. Листинг SQL-запросов с результатами их выполнения
  6. Листинг Unit4(процедуры)
  7. Листинг Unit5(процедуры)
  8. Листинг Unit9(процедуры)
  9. ЛИСТИНГИ (СПИСКИ)

 

procedure TForm2.Button1Click(Sender: TObject);

begin

Form1.Show;

Form2.Hide;

end;

 

procedure TForm2.Button2Click(Sender: TObject);

begin

Form3.Show;

Form2.Hide;

end;

 

procedure TForm2.Button3Click(Sender: TObject);

begin

Form4.Show;

Form2.Hide;

end;

 

procedure TForm2.Button4Click(Sender: TObject);

begin

Form5.Show;

Form2.Hide;

end;

 

procedure TForm2.Button5Click(Sender: TObject);

begin

Sostoyanie_reisa.Close;

Sostoyanie_reisa.SQL.Text:= 'update reis set sostoyanie = ''В полете'' where Nomer_reisa = '+#39+DBEdit1.Text+#39+'';

Sostoyanie_reisa.ExecSQL;

 

Sostoyanie_eqipaja.Close;

Sostoyanie_eqipaja.SQL.Text:='update eqipaj set status = ''В полете'' where Nomer_eqipaja = '+#39+DBEdit2.Text+#39+'';

Sostoyanie_eqipaja.ExecSQL;

 

Sostoianie_zakaza.Close;

Sostoianie_zakaza.SQL.Text:='update zakaz set status = ''В полете''where Nomer_zakaza = '+#39+DBEdit3.Text+#39+'';

Sostoianie_zakaza.ExecSQL;

 

Sostoyanie_samoleta.Close;

Sostoyanie_samoleta.SQL.Text:='update samolet set status = ''В полете'' where Nomer_samoleta = '+#39+DBEdit4.Text+#39+'';

Sostoyanie_samoleta.ExecSQL;

 

DBGridEh1.DataSource.DataSet.Active:=false;

Form3.DSZakaz.DataSet.Active:=false;

Form4.DSEqpaj.DataSet.Active:=false;

Form5.DSSamolet.DataSet.Active:=false;

DBGridEh1.DataSource.DataSet.Active:=true;

Form3.DSZakaz.DataSet.Active:=true;

Form4.DSEqpaj.DataSet.Active:=true;

Form5.DSSamolet.DataSet.Active:=true;

end;

 

procedure TForm2.Button6Click(Sender: TObject);

begin

Form7.Show;

Form2.Hide;

end;

 

procedure TForm2.Button7Click(Sender: TObject);

begin

Sostoyanie_reisa.Close;

Sostoyanie_reisa.SQL.Text:= 'update reis set sostoyanie = ''Выполнен'' where Nomer_reisa = '+#39+DBEdit1.Text+#39+'';

Sostoyanie_reisa.ExecSQL;

 

Sostoyanie_eqipaja.Close;

Sostoyanie_eqipaja.SQL.Text:='update eqipaj set status = ''Готов'' where Nomer_eqipaja = '+#39+DBEdit2.Text+#39+'';

Sostoyanie_eqipaja.ExecSQL;

 

Sostoianie_zakaza.Close;

Sostoianie_zakaza.SQL.Text:='update zakaz set status = ''Выполнен''where Nomer_zakaza = '+#39+DBEdit3.Text+#39+'';

Sostoianie_zakaza.ExecSQL;

 

Sostoyanie_samoleta.Close;

Sostoyanie_samoleta.SQL.Text:='update samolet set status = ''Не готов'' where Nomer_samoleta = '+#39+DBEdit4.Text+#39+'';

Sostoyanie_samoleta.ExecSQL;

 

Na_proverku.Close;

Na_proverku.SQL.Text:='update Sostoyanie_samoletov set sostoyanie_fuzelyaja = ''Не проверен'', Dvigateli = ''Не проверен'',Bort_sistem = ''Не проверены'',Proviziya_voda = ''Пуст'', Zapravka_toplivom = ''Пуст'', Pokritie_POJ = ''Не выполнено'' where Nomer_samoleta = '+#39+DBEdit4.Text+#39+'';

Na_proverku.ExecSQL;

 

DBGridEh1.DataSource.DataSet.Active:=false;

Form3.DSZakaz.DataSet.Active:=false;

Form4.DSEqpaj.DataSet.Active:=false;

Form5.DSSamolet.DataSet.Active:=false;

Form5.DSSostSamoletov.DataSet.Active:=false;

DBGridEh1.DataSource.DataSet.Active:=true;

Form3.DSZakaz.DataSet.Active:=true;

Form4.DSEqpaj.DataSet.Active:=true;

Form5.DSSamolet.DataSet.Active:=true;

Form5.DSSostSamoletov.DataSet.Active:=true;

end;

 

procedure TForm2.Button8Click(Sender: TObject);

begin

Form9.Show;

Form9.TabSheet1.Show;

Form2.Hide;

end;

 

procedure TForm2.Button9Click(Sender: TObject);

begin

Form6.Close;

end;

 

procedure TForm2.Button10Click(Sender: TObject);

begin

DSReis.DataSet.Active:=false;

DSVPP.DataSet.Active:=false;

DSReis.DataSet.Active:=true;

DSVPP.DataSet.Active:=true;

end;

 

procedure TForm2.Button11Click(Sender: TObject);

begin

RvVPP.Engine:=RvSystem1;

with RvSystem1 do

begin

DoNativeOutput:= False;

RenderObject:=RvRenderPDF1;

OutputFileName:= 'Sotrudniki.pdf';

end;

RvVPP.Execute;

end;

 

end.

 


1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 |

Поиск по сайту:



Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.006 сек.)