А.7 ОШИБКИ, ВЫЯВЛЕННЫЕ В ПРОЦЕССЕ ОПЫТНОЙ ЭКСПЛУАТАЦИИ

При опытной эксплуатации в программе было обнаружено ряд ошибок:

- неверное подключение БД, что привело к сбою при запуске программы

- ошибка в логике автоматического выбора компонентов (пропуск некоторых значений)

Данные ошибки были исправлены своевременно, путем изменения исходного кода программы и улучшения логики вычисления компонентов изделий.

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

ПРИЛОЖЕНИЕ Б

(обязательное)

ЛИСТИНГ ПРОГРАММЫ

Листинг 1- Модуль Unit1.pas

{=====================================================}

{ Модуль Unit1 }

{ гр. П7 }

{ Разработчик: Дацкая Л.В. }

{ Модифицирован: 2 января 2016 }

{-----------------------------------------------------)

{ Модуль, обеспечивающий чтение }

{*****************************************************}

Var Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit7, Unit10, Unit9;

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);

begin Form2.Show; end;

procedure TForm1.BitBtn2Click(Sender: TObject);

begin Close; end;

procedure TForm1.BitBtn3Click(Sender: TObject);

begin Form4.Show;end;

procedure TForm1.BitBtn4Click(Sender: TObject);

begin Form5.Show; end;

procedure TForm1.N3Click(Sender: TObject);

begin Form2.Show; end;

procedure TForm1.N9Click(Sender: TObject);

begin Form5.Show; end;

procedure TForm1.N7Click(Sender: TObject);

begin Form4.Show; end;

procedure TForm1.N6Click(Sender: TObject);

begin Form7.ShowModal;end;

procedure TForm1.BitBtn5Click(Sender: TObject);

begin Form3.Show; end;

procedure TForm1.N8Click(Sender: TObject);

begin Form2.Show; end;

procedure TForm1.N4Click(Sender: TObject);

begin Form10.Show; end;

procedure TForm1.Image1Click(Sender: TObject);

begin Form9.Show; end;

procedure TForm1.N11Click(Sender: TObject);

begin Form9.Show; end;

procedure TForm1.N12Click(Sender: TObject);

begin Close; end; end.

Листинг 2- Модуль Unit2.pas

{=====================================================}

{ Модуль Unit2 }

{ гр. П7 }

{ Разработчик: Дацкая Л.В. }

{ Модифицирован: 2 января 2016 }

{-----------------------------------------------------)

{ Модуль, обеспечивающий чтение }

{*****************************************************}

var

Form2: TForm2;

Implementation

uses Unit6, Unit1, Unit3, Unit4, Unit5, Unit7, Unit8, Unit9;

{$R *.dfm}

procedure TForm2.BitBtn3Click(Sender: TObject);

begin

Form2.ADOTable1.Insert;

Form6.ShowModal;

end;

procedure TForm2.Panel1Click(Sender: TObject);

begin Form2.ADOTable1.Insert; Form6.ShowModal;

end;

procedure TForm2.Button1Click(Sender: TObject);

begin DBGrid1.DataSource.DataSet.Locate(Combobox1.Text,Edit1.Text,[loPartialKey]);

end;

procedure TForm2.RadioButton1Click(Sender: TObject);

begin ADOtable1.IndexFieldNames:='Òèï';

end;

procedure TForm2.RadioButton2Click(Sender: TObject);

begin ADOtable1.IndexFieldNames:='Ôîðìà';

end;

procedure TForm2.BitBtn2Click(Sender: TObject);

begin

Form6.Show;end;

procedure TForm2.BitBtn1Click(Sender: TObject);

begin

if Application.MessageBox(' Âû äåéñòâèòåëüíî æåëàåòå óäàëèòü ýòó çàïèñü?','Óäàëåíèå!',MB_YESNO)=IDYES then

ADOTable1.Delete;

end;

procedure TForm2.FormCreate(Sender: TObject);

begin end; end.

Листинг 3- Модуль Unit3.pas

{=====================================================}

{ Модуль Unit3 }

{ гр. П7 }

{ Разработчик: Дацкая Л.В. }

{ Модифицирован: 2 января 2016 }

{-----------------------------------------------------)

{ Модуль, обеспечивающий чтение }

{*****************************************************}

var

Form3: TForm3;

implementation

uses Unit7, Unit4; {$R *.dfm}

procedure TForm3.BitBtn1Click(Sender: TObject);

begin Form3.ADOTable1.Insert;

Form7.ShowModal; end;

procedure TForm3.BitBtn3Click(Sender: TObject);

begin Form7.Show;end;

procedure TForm3.BitBtn2Click(Sender: TObject);

begin

if Application.MessageBox(' Âû äåéñòâèòåëüíî æåëàåòå óäàëèòü ýòó çàïèñü?','Óäàëåíèå!',MB_YESNO)=IDYES then

ADOTable1.Delete; end;

procedure TForm3.N6Click(Sender: TObject);

begin Form4.Show; end;

procedure TForm3.BitBtn5Click(Sender: TObject);

begin Form4.Show; end;

procedure TForm3.N4Click(Sender: TObject);

begin Close; end;

procedure TForm3.FormCreate(Sender: TObject);

begin

end; end.

Листинг 4- Модуль Unit4.pas

{=====================================================}

{ Модуль Unit4 }

{ гр. П7 }

{ Разработчик: Дацкая Л.В. }

{ Модифицирован: 2 января 2016 }

{-----------------------------------------------------)

{ Модуль, обеспечивающий чтение }

{*****************************************************}

var

Form4: TForm4;

Implementation

uses Unit8, Unit7;

{$R *.dfm}

procedure TForm4.BitBtn1Click(Sender: TObject);

begin Form4.ADOTable1.Insert;

Form8.ShowModal; end;

procedure TForm4.BitBtn2Click(Sender: TObject);

begin

if Application.MessageBox(' Âû äåéñòâèòåëüíî æåëàåòå óäàëèòü ýòó çàïèñü?','Óäàëåíèå!',MB_YESNO)=IDYES then

ADOTable1.Delete;

end; procedure TForm4.BitBtn3Click(Sender: TObject);

begin Form8.Show; end;

procedure TForm4.Button1Click(Sender: TObject);

begin

DBGrid1.DataSource.DataSet.Locate(Combobox1.Text,Edit1.Text,[loPartialKey]); end;

procedure TForm4.FormCreate(Sender: TObject);

begin end; end.

Листинг 5- Модуль Unit5.pas

{=====================================================}

{ Модуль Unit5 }

{ гр. П7 }

{ Разработчик: Дацкая Л.В. }

{ Модифицирован: 2 января 2016 }

{-----------------------------------------------------)

{ Модуль, обеспечивающий чтение }

{*****************************************************}

var

Form5: TForm5;

Implementation

uses Unit9, Unit7; {$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);

begin

DBGrid1.DataSource.DataSet.Locate(Combobox1.Text,Edit1.Text,[loPartialKey]); end;

procedure TForm5.FormCreate(Sender: TObject);

begin end;end.

Листинг 6- Модуль Unit6.pas

{=====================================================}

{ Модуль Unit6 }

{ гр. П7 }

{ Разработчик: Дацкая Л.В. }

{ Модифицирован: 2 января 2016 }

{-----------------------------------------------------)

{ Модуль, обеспечивающий чтение }

{*****************************************************}

var

Form6: TForm6;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm6.Button1Click(Sender: TObject);

begin

if form2.adotable1.modified then

form2.adotable1.Post;

close;

end;

procedure TForm6.Button2Click(Sender: TObject);

begin

Close;

end;

procedure TForm6.FormCreate(Sender: TObject);

begin

end;

end.

Листинг 7- Модуль Unit7.pas

{=====================================================}

{ Модуль Unit7 }

{ гр. П7 }

{ Разработчик: Дацкая Л.В. }

{ Модифицирован: 2 января 2016 }

{-----------------------------------------------------)

{ Модуль, обеспечивающий чтение }

{*****************************************************}

var

Form7:

TForm7;

implementation

uses Unit3,

Unit2, Unit5, Unit1, Unit4, Unit6;

{$R *.dfm}

procedure TForm7.Button1Click(Sender: TObject);

begin

if form3.adotable1.modified then

form3.adotable1.Post;

close;

end;

procedure TForm7.Button2Click(Sender: TObject);

begin

Close;

end;

procedure TForm7.FormCreate(Sender: TObject);

begin

end;

end.

Листинг 8- Модуль Unit8.pas

{=====================================================}

{ Модуль Unit8 }

{ гр. П7 }

{ Разработчик: Дацкая Л.В. }

{ Модифицирован: 2 января 2016 }

{-----------------------------------------------------)

{ Модуль, обеспечивающий чтение }

{*****************************************************}

var

Form8: TForm8;

implementation

uses Unit4;

{$R *.dfm}

procedure TForm8.Button1Click(Sender: TObject);

begin

if form4.adotable1.modified then

form4.adotable1.Post;

close;

end;

procedure TForm8.Button2Click(Sender: TObject);

begin

Close;

end;

procedure TForm8.FormCreate(Sender: TObject);

begin

end;

end.

Листинг 9- Модуль Unit9.pas

{=====================================================}

{ Модуль Unit9 }

{ гр. П7 }

{ Разработчик: Дацкая Л.В. }

{ Модифицирован: 2 января 2016 }

{-----------------------------------------------------)

{ Модуль, обеспечивающий чтение }

{*****************************************************}

var

Form9: TForm9;

implementation

uses Unit5;

{$R *.dfm}

procedure TForm9.Button2Click(Sender: TObject);

begin

Close;

end;

procedure TForm9.FormCreate(Sender: TObject);

begin

end;end.

Листинг 10- Модуль Unit10.pas

{=====================================================}

{ Модуль Unit10 }

{ гр. П7 }

{ Разработчик: Дацкая Л.В. }

{ Модифицирован: 2 января 2016 }

{-----------------------------------------------------)

{ Модуль, обеспечивающий чтение }

{*****************************************************}

var

Form10: TForm10;

implementation

{$R *.dfm}

procedure TForm10.BitBtn2Click(Sender: TObject);

begin

Close;

end;

procedure TForm10.BitBtn1Click(Sender: TObject);

begin

Close;

end;

procedure TForm10.FormCreate(Sender: TObject);

begin

end;

end.

Не нашли, что искали? Воспользуйтесь поиском: