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

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.

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