 |
АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция
Листинг Unit9(процедуры)
|
Читайте также: |
procedure TForm9.Button3Click(Sender: TObject);
var
R:Word;
begin
Zakazy.Close;
Zakazy.SQL.Text:='select * from zakaz where status=''Не выполнен'' or Status = ''Задержан''';
Zakazy.ExecSQL;
DBGridEh1.DataSource:=DSZakazy;
DBEdit1.DataSource:=DSZakazy;
DBNavigator1.DataSource:=DSZakazy;
DBGridEh1.DataSource.DataSet.Active:=true;
if (DBEdit1.Text = '') then
begin
R:=MessageDLG('Нет доступных заказов!!!',mtInformation,[mbOk],0);
end;
end;
procedure TForm9.Button1Click(Sender: TObject);
begin
Form9.Close;
Form2.Show;
end;
procedure TForm9.Button5Click(Sender: TObject);
begin
Form9.Close;
Form2.Show;
end;
procedure TForm9.Button4Click(Sender: TObject);
begin
TabSheet2.Show;
end;
procedure TForm9.Button6Click(Sender: TObject);
begin
TabSheet3.Show;
end;
procedure TForm9.Button7Click(Sender: TObject);
begin
TabSheet1.Show;
end;
procedure TForm9.Button8Click(Sender: TObject);
var
R:Word;
begin
Poisk_Eqipaja.Close;
Poisk_Eqipaja.SQL.Text:='select * from eqipaj where Status=''Готов''';
Poisk_Eqipaja.ExecSQL;
DBGridEh3.DataSource:=DSPoisk_Eqipaja;
DBVertGridEh1.DataSource:=DSPoisk_Eqipaja;
DBEdit2.DataSource:=DSPoisk_Eqipaja;
DBNavigator3.DataSource:=DSPoisk_Eqipaja;
DSPoisk_Eqipaja.DataSet.Active:=true;
if (DBEdit2.Text = '') then
begin
R:=MessageDLG('Нет достыпных экипажей!!!',mtInformation,[mbOk],0);
end;
end;
procedure TForm9.Button2Click(Sender: TObject);
var
R:Word;
begin
if (DBEdit1.Text = '') then
begin
R:=MessageDLG('Нет доступных заказов!!!',mtInformation,[mbOk],0);
end
else
begin
Vybor_zakaza.Close;
Vybor_zakaza.SQL.Text:='insert into reis (Nomer_zakaza,Punkt_otpravleniya,Punkt_naznacheniya) values ('+#39+DBEdit1.Text+#39+','+#39+DBEdit4.Text+#39+','+#39+DBEdit6.Text+#39+')';
Vybor_zakaza.ExecSQL;
DBGridEh2.DataSource.DataSet.Active:=false;
DBGridEh2.DataSource.DataSet.Active:=true;
TabSheet2.Show;
end;
end;
procedure TForm9.Button9Click(Sender: TObject);
var
R:Word;
begin
if (DBEdit2.Text = '') then
begin
R:=MessageDLG('Нет достыпных экипажей!!!',mtError,[mbOk],0);
end
else
begin
Vibor_eqypaja.Close;
Vibor_eqypaja.SQL.Text:='update reis set Nomer_eqipaja='+#39+DBEdit2.Text+#39+' where Nomer_reisa = '+#39+DBEdit7.Text+#39+'';
Vibor_eqypaja.ExecSQL;
Tekuhiy_zakaz.Close;
Tekuhiy_zakaz.SQL.Text:='select * from zakaz where Nomer_zakaza = '+#39+DBEdit10.Text+#39+'';
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.
Поиск по сайту: