 |
АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция
Листинг Unit5(процедуры)
|
Читайте также: |
procedure TForm5.Button4Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
begin
DBImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
Samolet.Edit;
TBLOBField(Samolet.FieldByName('Foto')).LoadFromFile(OpenPictureDialog1.FileName);
Samolet.Post;
end;
end;
procedure TForm5.ComboBox1Change(Sender: TObject);
begin
if (ComboBox1.Text = 'Модель самолета') or (ComboBox1.Text = 'Грузоподъемность самолета') then
begin
Edit1.Enabled:=true;
ComboBox2.Enabled:=false;
end
else
begin
Edit1.Enabled:=false;
ComboBox2.Enabled:=true;
end;
end;
procedure TForm5.Button1Click(Sender: TObject);
var
a:string;
begin
if (ComboBox1.Text = 'Модель самолета') then
a:='Model_samoleta';
if (ComboBox1.Text = 'Грузоподъемность самолета') then
a:='Gruzopodemnost_tonn';
Search.close;
Search.SQL.Text:='select * from Sotrudniki where '+a+'='+#39+Edit1.text+#39' ';
Search.ExecSQL;
DSSearch.dataset.close;
DSSearch.dataset:=Search;
DBGridEh1.DataSource:=DSSearch;
DBVertGridEh1.DataSource:=DSSearch;
DSSearch.DataSet.Active:=true;
end;
procedure TForm5.Button2Click(Sender: TObject);
begin
DBgridEh1.DataSource:=DSSamolet;
DBVertGridEh1.DataSource:=DSSamolet;
DBEdit1.DataSource:=DSSamolet;
if (DBEdit2.Text='Отличное') or (DBEdit3.Text='Отличное') or (DBEdit4.Text='Отличное') or (DBEdit5.Text='Заполнено') or (DBEdit6.Text='Заполнено') or (DBEdit7.Text='Выполнено') then
begin
Sostoyanie.Close;
Sostoyanie.SQL.Text:='update Samolet set status =''Готов''where Nomer_samoleta = '+#39+DBEdit1.Text+#39+'';
Sostoyanie.ExecSQL;
end;
DSSamolet.DataSet.Active:=false;
DSSamolet.DataSet.Active:=true;
end;
procedure TForm5.ComboBox2Change(Sender: TObject);
var
a:string;
begin
if (ComboBox2.Text = 'Готов') then
begin
a:='Готов';
Search.close;
Search.SQL.Text:='select * from samolet where Status ='+#39+a+#39' ';
Search.ExecSQL;
end;
if (ComboBox2.Text = 'Не готов') then
begin
a:='Не готов';
Search.close;
Search.SQL.Text:='select * from samolet where Status ='+#39+a+#39' ';
Search.ExecSQL;
end;
if (ComboBox2.Text = 'В ремонте') then
begin
a:='В ремонте';
Search.close;
Search.SQL.Text:='select * from samolet where Status ='+#39+a+#39' ';
Search.ExecSQL;
end;
if (ComboBox2.Text = 'В полете') then
begin
a:='В полете';
Search.close;
Search.SQL.Text:='select * from samolet where Status ='+#39+a+#39' ';
Search.ExecSQL;
end;
DSSearch.dataset.close;
DSSearch.dataset:=Search;
DBGridEh1.DataSource:=DSSearch;
DBVertGridEh1.DataSource:=DSSearch;
DBEdit1.DataSource:=DSSearch;
DSSearch.DataSet.Active:=true;
end;
procedure TForm5.Button3Click(Sender: TObject);
begin
Svodka.Close;
Svodka.SQL.Text:= 'select * from remont_samoletov where Nomer_samoleta = '+#39+DBEdit1.Text+#39+'';
Svodka.ExecSQL;
DSSvodka.Dataset.close;
DSSvodka.dataset:=Svodka;
DBGridEh2.DataSource:=DSSvodka;
DSSvodka.Dataset.Active:= true;
Svedeniya.Close;
Svedeniya.SQL.Text:= 'select * from sostoyanie_samoletov where Nomer_samoleta = '+#39+DBEdit1.Text+#39+'';
Svedeniya.ExecSQL;
DSSvodka2.DataSet.Close;
DSSvodka2.DataSet:=Svedeniya;
DBVertGridEh2.DataSource:=DSSvodka2;
DSSvodka2.DataSet.Active:= true;
end;
procedure TForm5.Button5Click(Sender: TObject);
begin
DBGridEh2.DataSource:=DSRemontSamoletov;
DBVertGridEh2.DataSource:=DSSostSamoletov;
DSRemontSamoletov.DataSet.Active:=true;
DSSostSamoletov.DataSet.Active:=true;
end;
procedure TForm5.Button6Click(Sender: TObject);
begin
Form5.Close;
Form2.Show;
end;
procedure TForm5.Button7Click(Sender: TObject);
begin
RVSostoyanie_samoletov.Engine:=RvSystem1;
with RvSystem1 do
begin
DoNativeOutput:= False;
RenderObject:=RvRenderPDF1;
OutputFileName:= 'Sostoyanie samoletov.pdf';
end;
RVSostoyanie_samoletov.Execute;
end;
end.
Поиск по сайту: