3.2. Описание основных программных модулей

Запуск программы осуществляется с помощью файла АИС БД проходящих ТО в ГИБДД.exe.

На форме TO в ГИБДД группа расположены следующие компоненты:

DBGrid - в ней выводится таблица из БД

DB Navigator - выполняет функции перемещения по таблице

Connection - обеспечивает соединение с базой данных

DataSourese - используется для отображения данных в DBGrid

Query - используется для связи между данными

MainMenu - используется для создания на главной форме, кнопок для выполнения заданных ей функциях.

4. Тестирование

Тестирование осуществлялось по принципу «белый ящик».

Был выбран метод тестирования «Тестирование переходов между состояниями».

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

1.На главной форме:

• Выбираем интересующую нас базу

• С помощью кнопок под таблицей можно удобно листать таблицу и при необходимости отредактировать или удалить запись

На главной форме:

2.Нажимаем на кнопку DB Navigator

• Нажимаем на кнопку DB Navigator и добавляем нового участника ТО

• Заполняем все поля

• Если данные внесены в базу, то появится окно с отчётом

• Может быть, так, что поля будут логического формата, так что возможность неисправности

Если одно из полей не было заполнено, то появится окно с ошибкой («необходимо заполнить все поля»)

Заключение

Данная автоматизированная информационная система является основой для прохождения ТО в ГИБДД и охватывает весь спектр вопросов связанных со стабильной работой.

Она предназначена для просмотра информации связанной с прохождением ТО и позволяет сотрудникам добавлять новых владельцев машин, искать и редактировать информацию о машинах и людях, определять в каком состоянии находиться авто. Это доступно благодаря широкой информационной базе ПП, необходимым фильтрам и удобному интерфейсу, которые делают информацию удобной для восприятия.

Список литературы

1. ГОСТ 7.1-84 Библиографическое описание документа. Общие требования и правила составления.

2. ГОСТ 19.201 – 78. Единая система программной документации. Техническое задание. Требования к содержанию и оформлению.

3. ГОСТ 19.401 – 78. Текст программы. Требования к содержанию и оформлению.

4. ГОСТ 19.402 – 78. Описание программы.

5. ГОСТ 19.503 – 79. Руководство системного программиста. Требования к содержанию и оформлению.

6. ГОСТ 19.505 – 79. Руководство оператора. Требования к содержанию и оформлению.

7. ГОСТ 24.207 – 80. Требования к содержанию документов по программному обеспечению.

8. Фленов М.Е. Библия программиста в среде Delphi, 2009.

9. Стандарты Единой системы программной документации (ЕСПД).

10. Шишкин В.В. Методические указания к курсовому проекту. – Смоленск, 2002.

Приложение №1. Листинг программы

unit Unit1;

interface

uses

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

Dialogs, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, Menus, StdCtrls;

type

TForm1 = class(TForm)

ADOConnection1: TADOConnection;

ADODataSet1: TADODataSet;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

MainMenu1: TMainMenu;

ADOQuery1: TADOQuery;

N1: TMenuItem;

N4: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

InformaciaoAM1: TMenuItem;

N13: TMenuItem;

procedure N6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure N13Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.N10Click(Sender: TObject);

begin

Close

end;

procedure TForm1.N11Click(Sender: TObject);

begin

Print

end;

procedure TForm1.N13Click(Sender: TObject);

begin

ADOQuery1.Active:=false;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('select * from Informacia_o_AM');

ADOQuery1.ExecSQL;

ADOQuery1.Active:=true;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

ADOQuery1.Active:=false;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('select * from CB_Avtomobila');

ADOQuery1.ExecSQL;

ADOQuery1.Active:=true;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

ADOQuery1.Active:=false;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('select * from Dokumenti_o_AB');

ADOQuery1.ExecSQL;

ADOQuery1.Active:=true;

end;

end.