 |
АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция
Листинг Unit4(процедуры)
|
Читайте также: |
procedure TForm4.Button1Click(Sender: TObject);
var
R:Word;
begin
if (ComboBox2.Text <> 'Первый пилот') then
begin
R:=MessageDLG('Данный сотрудник не может быть Первым пилотом!!!',mtError,[mbOk],0);
end;
if (ComboBox2.Text = 'Первый пилот') then
begin
DSEqpaj.DataSet.Active:=false;
Perviy_pilot.close;
PerviY_pilot.SQL.Text:='insert into eqipaj (Perviy_pilot)value ('+#39+DBEdit1.Text+#39+')';
Perviy_pilot.ExecSQL;
DSEqpaj.DataSet.Active:=true;
end;
end;
procedure TForm4.Button2Click(Sender: TObject);
var
R:Word;
I:string;
begin
I:=DBEdit2.Text;
if (ComboBox2.Text <> 'Второй пилот') then
begin
R:=MessageDLG('Данный сотрудник не может быть Вторым пилотом!!! Выбрать данного сотрудника ''Вторым пилотом''?',mtWarning,[mbYes,mbNo],0);
if R=mrYes then
begin
DSEqpaj.DataSet.Active:=false;
Vtoroy_pilot.close;
Vtoroy_pilot.SQL.Text:='update eqipaj set Vtoroy_pilot = '+#39+DBEdit1.Text+#39+' where Nomer_eqipaja = '+#39+I+#39+'';
Vtoroy_pilot.ExecSQL;
DSEqpaj.DataSet.Active:=true;
end;
end
else
begin
DSEqpaj.DataSet.Active:=false;
Vtoroy_pilot.close;
Vtoroy_pilot.SQL.Text:='update eqipaj set Vtoroy_pilot = '+#39+DBEdit1.Text+#39+' where Nomer_eqipaja = '+#39+I+#39+'';
Vtoroy_pilot.ExecSQL;
DSEqpaj.DataSet.Active:=true;
end;
end;
procedure TForm4.Button3Click(Sender: TObject);
var
R:Word;
I:string;
begin
I:=DBEdit2.Text;
if (ComboBox2.Text <> 'Штурман') then
begin
R:=MessageDLG('Данный сотрудник не может быть Штурманом!!! Выбрать данного сотрудника ''Штурманом''?',mtWarning,[mbYes,mbNo],0);
if R=mrYes then
begin
DSEqpaj.DataSet.Active:=false;
Shturman.close;
Shturman.SQL.Text:='update eqipaj set Shturman = '+#39+DBEdit1.Text+#39+' where Nomer_eqipaja = '+#39+I+#39+'';
Shturman.ExecSQL;
DSEqpaj.DataSet.Active:=true;
end;
end
else
begin
DSEqpaj.DataSet.Active:=false;
Shturman.close;
Shturman.SQL.Text:='update eqipaj set Shturman = '+#39+DBEdit1.Text+#39+' where Nomer_eqipaja = '+#39+I+#39+'';
Shturman.ExecSQL;
DSEqpaj.DataSet.Active:=true;
end;
end;
procedure TForm4.Button4Click(Sender: TObject);
var
R:Word;
I:string;
begin
I:=DBEdit2.Text;
if (ComboBox2.Text <> 'Борт Инженер') then
begin
R:=MessageDLG('Данный сотрудник не может быть Борт инженером!!! Выбрать данного сотрудника ''Борт Инженером''?',mtWarning,[mbYes,mbNo],0);
if R=mrYes then
begin
DSEqpaj.DataSet.Active:=false;
Injener.close;
Injener.SQL.Text:='update eqipaj set Injener = '+#39+DBEdit1.Text+#39+'where Nomer_eqipaja = '+#39+I+#39+'';
Injener.ExecSQL;
DSEqpaj.DataSet.Active:=true;
end;
end
else
begin
DSEqpaj.DataSet.Active:=false;
Injener.close;
Injener.SQL.Text:='update eqipaj set Injener = '+#39+DBEdit1.Text+#39+'where Nomer_eqipaja = '+#39+I+#39+'';
Injener.ExecSQL;
DSEqpaj.DataSet.Active:=true;
end;
end;
procedure TForm4.ComboBox1Change(Sender: TObject);
var
R:Word;
I:string;
begin
if (ComboBox1.Text = 'ФИО') then
begin
Edit1.Enabled:=true;
ComboBox2.Enabled:=false;
end
else
begin
Edit1.Enabled:=false;
ComboBox2.Enabled:=true;
end;
end;
procedure TForm4.Button5Click(Sender: TObject);
var
a:string;
begin
if (ComboBox1.Text = 'ФИО') then
a:='FIO';
Search.close;
Search.SQL.Text:='select * from Sotrudniki where '+a+'='+#39+Edit1.text+#39' ';
Search.ExecSQL;
DSSearch.dataset.close;
DSSearch.dataset:=Search;
DBGridEh2.DataSource:=DSSearch;
DBVertGridEh1.DataSource:=DSSearch;
DSSearch.DataSet.Active:=true;
end;
procedure TForm4.Button6Click(Sender: TObject);
begin
DbgridEh2.DataSource.DataSet.Active:=false;
DBgridEh2.DataSource:=DSSotrudniki;
DBVertGridEh1.DataSource:=DSSotrudniki;
DbgridEh2.DataSource.DataSet.Active:=true;
end;
procedure TForm4.ComboBox2Change(Sender: TObject);
var
a:string;
begin
if (ComboBox2.Text = 'Первый пилот') then
begin
a:='Лет.Состав(Первый пилот)';
Search.close;
Search.SQL.Text:='select * from Sotrudniki where Doljnost ='+#39+a+#39' and Razreshenie_na_polet =''Готов''';
Search.ExecSQL;
end;
if (ComboBox2.Text = 'Второй пилот') then
begin
a:='Лет.Состав(Второй пилот)';
Search.close;
Search.SQL.Text:='select * from Sotrudniki where Doljnost ='+#39+a+#39' and Razreshenie_na_polet =''Готов''';
Search.ExecSQL;
end;
if (ComboBox2.Text = 'Штурман') then
begin
a:='Лет.Состав(Штурман)';
Search.close;
Search.SQL.Text:='select * from Sotrudniki where Doljnost ='+#39+a+#39' and Razreshenie_na_polet =''Готов''';
Search.ExecSQL;
end;
if (ComboBox2.Text = 'Борт Инженер') then
begin
a:='Лет.Состав(Инженер)';
Search.close;
Search.SQL.Text:='select * from Sotrudniki where Doljnost ='+#39+a+#39' and Razreshenie_na_polet =''Готов''';
end;
DSSearch.dataset.close;
DSSearch.dataset:=Search;
DBGridEh2.DataSource:=DSSearch;
DBVertGridEh1.DataSource:=DSSearch;
DSSearch.DataSet.Active:=true;
end;
procedure TForm4.Button7Click(Sender: TObject);
begin
Form4.Close;
Form2.Show;
end;
procedure TForm4.Button8Click(Sender: TObject);
begin
DSEqpaj.DataSet.Active:=false;
Status_Eqipajey.Close;
Status_Eqipajey.SQL.Text:='update eqipaj set status = ''Готов'' where Perviy_pilot <> ''null'' and Vtoroy_pilot <> ''null'' and Shturman <> ''null'' and Injener <> ''null''';
Status_Eqipajey.ExecSQL;
DSEqpaj.DataSet.Active:=true;
end;
end.
Поиск по сайту: