Tekuhiy_zakaz.ExecSQL;

DBVertGridEh3.DataSource:=DSTekuhiy_zakaz;

DBVertGridEh3.DataSource.DataSet.Active:=true;

DBGridEh4.DataSource.DataSet.Active:=false;

DBGridEh4.DataSource.DataSet.Active:=true;

TabSheet3.Show;

end;

end;

procedure TForm9.Button10Click(Sender: TObject);

var

R:Word;

begin

Poisk_samoleta.Close;

Poisk_samoleta.SQL.Text:='select * from samolet where Status=''Готов''';

Poisk_samoleta.ExecSQL;

DBEdit3.DataSource:=DSPoisk_samoleta;

DBGridEh5.DataSource:=DSPoisk_samoleta;

DBVertGridEh2.DataSource:=DSPoisk_samoleta;

DBNavigator5.DataSource:=DSPoisk_samoleta;

DSPoisk_samoleta.DataSet.Active:=true;

if (DBEdit3.Text = '') then

begin

R:=MessageDLG('Нет доступных средств перевозки груза!!!',mtError,[mbOk],0);

end;

end;

procedure TForm9.Button12Click(Sender: TObject);

begin

TabSheet4.Show;

end;

procedure TForm9.Button13Click(Sender: TObject);

begin

TabSheet4.Show;

Edit3.Text:=TimeToStr(Now);

end;

procedure TForm9.Button14Click(Sender: TObject);

begin

Form9.Close;

Form2.Show;

end;

procedure TForm9.Button15Click(Sender: TObject);

begin

TabSheet3.Show;

end;

procedure TForm9.Button17Click(Sender: TObject);

begin

Form9.Close;

Form2.Show;

end;

procedure TForm9.Button11Click(Sender: TObject);

var

R:Word;

begin

if (DBEdit3.Text = '') then

begin

R:=MessageDLG('Нет доступных средств перевозки груза!!!',mtError,[mbOk],0);

end

else

begin

Edit3.Text:=TimeToStr(Now);

Vibor_samoleta.Close;

Vibor_samoleta.SQL.Text:='update reis set Nomer_samoleta='+#39+DBEdit3.Text+#39+'where Nomer_reisa = '+#39+DBEdit8.Text+#39+'';

Vibor_samoleta.ExecSQL;

DBGridEh6.DataSource.DataSet.Active:=false;

DBGridEh6.DataSource.DataSet.Active:=true;

TabSheet4.Show;

end;

end;

procedure TForm9.Button18Click(Sender: TObject);

var

Date:TDateTime;

s:String;

begin

Date:=now;

s:=FormatDateTime('yyyy-mm-dd',Date);

Poisk_vpp.Close;

Poisk_vpp.SQL.Text:='select * from vpp where Vremya ='+#39+s+#39+'';

Poisk_vpp.ExecSQL;

DBEdit3.DataSource:=DSPoisk_samoleta;

DBGridEh5.DataSource:=DSPoisk_samoleta;

DBVertGridEh2.DataSource:=DSPoisk_samoleta;

DBNavigator5.DataSource:=DSPoisk_samoleta;

DSPoisk_samoleta.DataSet.Active:=true;

end;

procedure TForm9.Timer1Timer(Sender: TObject);

begin

Label1.Caption:=TimeToStr(Now);

Label11.Caption:=TimeToStr(Now);

Form2.Label1.Caption:=TimeToStr(Now);

Edit2.Text:=DateToStr(Now);

end;

procedure TForm9.Button19Click(Sender: TObject);

var

R:Word;

begin

if (Edit3.Text = 'ЧЧ.ММ.СС') or (Edit3.Text ='') then

begin

R:=MessageDLG('Введите время вылета.',mtInformation,[mbOk],0);

end;

if (Edit2.Text = 'ДД.ММ.ГГГГ') or (Edit2.Text ='') then

begin

R:=MessageDLG('Введите дату вылета.',mtInformation,[mbOk],0);

end

else

begin

Vnesti_v_grafik.Close;

Vnesti_v_grafik.SQL.Text:='insert into vpp (Nomer_reisa,Vremya,Vremya_vzleta,Nomer_VPP) values ('+#39+DBEdit5.Text+#39+','+#39+Edit2.Text+#39','+#39+Edit3.Text+#39+','+#39+Edit1.Text+#39+')';

Vnesti_v_grafik.ExecSQL;

Date_vremya.Close;

Date_vremya.SQL.Text:='update reis set Nomer_VPP ='+#39+Edit1.Text+#39+',Data_vileta = '+#39+Edit2.Text+#39+',Vremya_vzleta = '+#39+Edit3.Text+#39+' where Nomer_reisa = '+#39+DBEdit9.Text+#39+'';

Date_vremya.ExecSQL;

DBGridEh7.DataSource.DataSet.Active:=false;

DBGridEh7.DataSource.DataSet.Active:=true;

DBGridEh8.DataSource.DataSet.Active:=false;

DBGridEh8.DataSource.DataSet.Active:=true;

Form2.DBGridEh1.DataSource.DataSet.Active:=false;

Form2.DBGridEh2.DataSource.DataSet.Active:=false;

Form2.DBGridEh1.DataSource.DataSet.Active:=true;

Form2.DBGridEh2.DataSource.DataSet.Active:=true;

R:=MessageDLG('Рейс удачно внесен в график взлетов.',mtInformation,[mbOk],0);

Form2.Show;

Form9.Close;

end;

end;

end.

Размещено на Allbest.ru