Энциклопедия: Гражданская авиация России

>begin

label5.caption:='';

label5.caption:='Данные не добавлены причина не указан двигатель';

end

else

begin

ibquery1.SQL.Clear;

ibquery1.SQL.Add('insert into AIR (name_AIR, nom_Time_air, nom_tip_air, nom_Tip_d_air) values ('#39+edit2.Text+#39','#39+edit10.Text+#39','#39+edit30.Text+#39','#39+edit40.Text+#39')');

ibquery1.Active:=false;

ibdataset1.Active:=false;

ibquery1.Active:=true;

ibdataset1.Active:=true;

label5.caption:='';

label5.caption:='Данные добавлены';

end;

end;

procedure TForm4.DBGrid3CellClick(Column: TColumn);

begin

  edit1.Text:=form2.ibdataset2.Fields[0].Asstring;

  DBGrid3.Visible:=false;

    if edit1.Text='Довоенные                                         ' then

       edit10.Text:='1'

       else

    if edit1.Text='Послевоенные                                      ' then

       edit10.Text:='2'

       else

    if edit1.Text='Современные                                       ' then

       edit10.Text:='3'

       else

    if edit1.Text='Все                                               ' then

       showmessage('Нельзя выбирать "Все", выберите другое');

end;

procedure TForm4.DBGrid4CellClick(Column: TColumn);

begin

  edit3.Text:=form2.ibdataset3.Fields[0].Asstring;

   DBGrid4.Visible:=false;

    if edit3.Text='Лёгкая авиация                                    ' then

       edit30.Text:='1'

       else

    if edit3.Text='Пассажирский                                      ' then

       edit30.Text:='2'

       else

    if edit3.Text='Транспортный                                      ' then

       edit30.Text:='3'

       else

    if edit3.Text='Авиалайнер                                        ' then

       edit30.Text:='4'

       else

    if edit3.Text='Самлёт                                            ' then

       edit30.Text:='5'

       else

    if edit3.Text='Все                                               ' then

       showmessage('Нельзя выбирать "Все", выберите другое');

end;

procedure TForm4.DBGrid5CellClick(Column: TColumn);

begin

  edit4.Text:=form2.ibdataset4.Fields[0].Asstring;

   DBGrid5.Visible:=false;

    if edit4.Text='Поршневые                                         ' then

       edit40.Text:='1'

       else

    if edit4.Text='Ракетные                                          ' then

       edit40.Text:='2'

       else

    if edit4.Text='Турбовентиляторные                                ' then

       edit40.Text:='3'

       else

    if edit4.Text='Турбовинтовые                                     ' then

       edit40.Text:='4'

       else

    if edit4.Text='Турбореактивные                                   ' then

       edit40.Text:='5'

       else

    if edit3.Text='Все                                               ' then

       showmessage('Нельзя выбирать "Все", выберите другое');

end;

procedure TForm4.Edit1Click(Sender: TObject);

begin

DBGrid3.Visible:=true;

end;

procedure TForm4.Edit3Click(Sender: TObject);

begin

DBGrid4.Visible:=true;

end;

procedure TForm4.Edit4Change(Sender: TObject);

begin

DBGrid5.Visible:=true;

end;

procedure TForm4.Edit4Click(Sender: TObject);

begin

DBGrid5.Visible:=true;

end;

procedure TForm4.N2Click(Sender: TObject);

begin

form4.Close;

form1.Show;

end;

procedure TForm4.N3Click(Sender: TObject);

begin

form4.close;

form1.Close;

end;

procedure TForm4.N5Click(Sender: TObject);

begin

form5.Show;

end;

end.

ПРИЛОЖЕНИЕ 5

     Листинг unit5; приложения Delphi

unit Unit5;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, Menus, StdCtrls, ExtCtrls;

type

  TForm5 = class(TForm)

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    N2: TMenuItem;

    N3: TMenuItem;

    N6: TMenuItem;

    N7: TMenuItem;

    N8: TMenuItem;

    N4: TMenuItem;

    N5: TMenuItem;

    Image1: TImage;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    procedure N3Click(Sender: TObject);

    procedure N8Click(Sender: TObject);

    procedure N2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form5: TForm5;

implementation

uses Unit1, Unit2, Unit3, Unit4;

{$R *.dfm}

procedure TForm5.N2Click(Sender: TObject);

begin

form5.Close;

form1.Show;

end;

procedure TForm5.N3Click(Sender: TObject);

begin

form5.close;

form1.Close;

end;

procedure TForm5.N8Click(Sender: TObject);

begin

form5.Close;

form4.Show;

end;

end.

ПРИЛОЖЕНИЕ 6

Синтаксис создания таблиц IBexpert

CREATE TABLE AIR (NOM INTEGER, NAME_AIR CHAR(50) NOT NULL, NOM_TIP_AIR INTEGER, NOM_TIME_AIR INTEGER, NOM_TIP_D_AIR  INTEGER, FOTO BLOB SUB_TYPE 0 SEGMENT SIZE 16384, TXT BLOB SUB_TYPE 1 SEGMENT SIZE 80);

CREATE TABLE TIME_AIR (TIME_AIR CHAR(50), NOM_TIME_AIR INTEGER NOT NULL);

CREATE TABLE TIP (TIP_AIR CHAR(50), NOM_TIP_AIR  INTEGER NOT NULL);

CREATE TABLE TIP_D_AIR (TIP_D_AIR CHAR(50), NOM_D_AIR INTEGER NOT NULL);