ctFilePath(paramstr(0))+laquo;1laquo;+s1+raquo;2.txtraquo;);(f);(f,n);.RowCount:=n+1;j :=1 to n do (f, k) ;. Cells [0, j]:=k;
end; (f);
Відображення зовнішнього вигляду агрегату:
Image1.Visible:=True;.Visible:=True;.Visible:=True;.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+laquo;1laquo;+s1+raquo;1.jpgraquo;
);.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+laquo;1laquo;+s1+raquo;2.jpgraquo;
);.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+laquo;1laquo;+s1+raquo;3.jpgraquo;
);
Висновок характеристик і параметрів агрегату на екран:
Label8.Caption:=U; .Caption:=I; A lt; gt; then Label5.Caption:=Label5.Caption + A + mm raquo ;; B lt; gt; then Label6.Caption:=Label6.Caption + B + mm raquo ;; C lt; gt; then Label7.Caption:=Label7.Caption + C + mm raquo ;;
Почала коду програми при виникненні помилки:
except
Видалення даних по агрегату при виникненні помилки:
Label8.Caption:= raquo ;;. Caption:= raquo ;;. Caption:= A: raquo ;;. Caption:= B: raquo ;;. Caption:= C: raquo ;;
Image1.Picture:=nil; .Picture:=nil; .Picture:=nil; .Picture:=nil ;;;
Відкриття нової форми при натисканні користувачем на кнопку «Про програму»:
procedure TForm1.N1Click (Sender: TObject);
Form4.Show;
end;
Відкриття нової форми при натисканні користувачем на кнопку «Додати»:
procedure TForm1.N2Click (Sender: TObject);
begin.Show ;;
Пояснення в рядок стану при наведенні на таблицю з компонентами агрегату:
procedure TForm1.StringGrid1MouseMove (Sender: TObject; Shift:; X ,: Integer) ;. Panels [0] .Text:= Компоненти агрегату raquo ;;
end;
Процедура пошуку аналогів виділеного агрегату:
procedure TForm1.StringGrid1SelectCell (Sender: TObject; ACol, ARow:; CanSelect: Boolean); f: textfile; n, j: integer; str1,str2,k,s1:string;:=Edit1.text;.Visible:=True;:=stringGrid1.Cells[ACol,ARow];.Cells[0,0]:=str1;(f,ExtractFilePath(paramstr(0))+laquo;11laquo;+str1+raquo;.txtraquo;);(f);(f,n);.RowCount:=n+1;j :=1 to n do (f, k) ;. Cells [0, j]:=k;
end;
closefile (f) ;;
Відображення на екрані виділеного аналога агрегату:
procedure TForm1.StringGrid2MouseMove (Sender: TObject; Shift:; X ,: Integer) ;. Panels [0] .Text:= Аналоги обраного компонента raquo ;;
end;
Процедура пошуку аналогів компонентів агрегату:
procedure TForm1.StringGrid2SelectCell (Sender: TObject; ACol, ARow:; CanSelect: Boolean);str2:string;:=stringGrid2.Cells[ACol,ARow];.Visible:=True;.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+laquo;12'+str2+raquo;.jp
g ') ;. Picture:=nil; .Visible:=False;
ShowMessage ( Зображення відсутня! ) ;;
Процедура відображення інформації про творця програми:
procedure TForm1.Timer1Timer (Sender: TObject) ;. Enabled:=False; .Show ;;
Друк:
procedure TForm1.N5Click (Sender: TObject); PrinterSetupDialog1.Execute then Form1.Print;
end;
end.
5. Розробка засобів тестування
Тестування програмного забезпечення в рамках дипломного проекту обмежимо проведенням функціонального тестування, розділивши його на критичне та поглибленого.
Критичне тестування - це процес пошуку помилок у програмі при стандартній її роботі (при правильній послідовності дій, при вірному заповненні полів і т.д.).
Поглиблене (розширене) тестування - це процес пошуку помилок у програмі в нестандартний, непередбачених ситуаціях (наприклад, некоректно вводяться даних).
Деякі результати тестування зведені у таблиці 1.
Таблиця 1
Тестові випадки
№Названіе модуля/екранаОпісаніе тестового случаяОжіданіе результатаТестовий випадок пройдений? Так/Нет123451Unit 5 (Форма запиту пароля для вхо...