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

Автор работы: Пользователь скрыл имя, 19 Ноября 2011 в 10:40, курсовая работа

Краткое описание

Целью данной работы является рассмотрение информации об авиации, и разработать базу данных для работы с ней.
Актуальность выбранной темы записать информацию об авиации, которые были построены в довоенное время и, добавлять современные виды авиации, что бы пользователь мог узнать о ранее построенной авиации и ныне существующих.

Содержание работы

ВВЕДЕНИЕ 5
1.ОБЩАЯ ЧАСТЬ 6
1.1 СИСТЕМНЫЙ АНАЛИЗ ПРЕДМЕТНОЙ ОБЛАСТИ 6
1.2. ЛОГИЧЕСКОЕ ПРОЕКТИРОВАНИЕ БД (ER-АНАЛИЗ) 7
1.3. ФОРМИРОВАНИЕ НАБОРА ПРЕДВАРИТЕЛЬНЫХ ОТНОШЕНИЙ 9
1.4. ВХОДНЫЕ И ВЫХОДНЫЕ ДОКУМЕНТЫ И ФОРМЫ 13
1.5. ОПИСАНИЕ ИНФОРМАЦИОННЫХ ПРОЦЕДУР 14
1.6. ВЫБОР СТАНДАРТА БД 14
1.7. ВЫБОР СРЕДЫ РАЗРАБОТКИ 14
1.8. ТЕХНИЧЕСКОЕ ЗАДАНИЕ НА КУРСОВОЙ ПРОЕКТ 17
1.8.1. Введение 17
1.8.2. Основание для разработки 17
1.8.3. Назначение 17
1.8.4. Требования к программе или программному изделию 18
1.8.5. Требования к надежности 18
1.8.5. Требования к программной документации 19
1.8.5.Этапы разработки 19
2. СПЕЦИАЛЬНАЯ ЧАСТЬ 21
2.1. ОПИСАНИЕ БД В ТЕРМИНАХ СУБД 21
2.2. ПРОЕКТИРОВАНИЕ БД В СУБД 21
2.3. ПРОЕКТИРОВАНИЕ СПЕЦИАЛЬНОЙ ЧАСТИ СУБД 24
3. ТЕСТИРОВАНИЕ ПРОГРАММНОГО ПРОДУКТА 28
3.1 . ТРЕБОВАНИЯ К АППАРАТНО-ПРОГРАММНОМУ ОБЕСПЕЧЕНИЮ 28
3.2 ИНСТРУКЦИЯ ПО УСТАНОВКЕ 28
3.3. ИНСТРУКЦИЯ ПО ЭКСПЛУАТАЦИИ 28
3.4. ТЕСТИРОВАНИЕ ПРОГРАММНОГО ПРОДУКТА 32
5. ЗАКЛЮЧЕНИЕ 33
6. СПИСОК ИСТОЧНИКОВ 34
7.ПРИЛОЖЕНИЕ 36

Содержимое работы - 1 файл

Курсовая(энциклопедия).doc

— 1.43 Мб (Скачать файл)
>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);

Информация о работе Энциклопедия: Гражданская авиация России