Сделай Сам Свою Работу на 5

Функциональное тестирование





 

Испытания проводятся с целью выявления отклонений в работе программы и результатах её функционирования, а также оценки причин таких отклонений. Отклонения полученных результатов от стандартов используются для оценки качества программы. К объектам испытаний относятся листинги программ, файлы сценария и файлы тестов. Испытания программы проводились в несколько этапов:

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

- статистическое тестирование текстов разработанных программ и данных на выполнение всех заданных правил построения и описания без исполнения объектного кода;

- тестирование программы с исполнением в объектном коде;

- диагностика причин отклонения результатов тестирования от заданных эталонных значений и правил;

- разработка изменения программы с целью исключения причин отклонения результатов от эталонных;

- реализация корректировки программы, обеспечивающая соответствие программы заданному эталону;



- ручной ввод реальной информации и данных;

- запрос статистических данных;

- тестирование программы на отклонения от нормальной работы системы (сбой, выброс, ошибка).

Основным методом обнаружения ошибок при проведении испытаний программы являлось тестирование, которое можно разделить на три стадии:

- тестирование для обнаружения ошибок в программе, где выявлялись все отклонения результатов функционирования реальной программы от заданных эталонных значений;

- тестирование для диагностики обнаруженных искажений результатов, с целью обнаружения инструкций и данных, явившихся причиной отклонения результатов от эталонных при тестировании для обнаружения ошибок;

- тестирование для контроля выполненных корректировок программы и данных, где подтверждалась правильность выполненной корректировки.

Ошибки первого уровня (ошибки компиляции) связаны с неправильной записью операторов. При обнаружении ошибки компилятор останавливается в месте её обнаружения и в нижней части экрана появляется текстовое окно, содержащее сведения об ошибке: имя файла, номер строки, характер ошибки. Для быстрого перехода к интересующей ошибке надо дважды щелкнуть на строке с её описанием. Следует обращать внимание на то, что одна ошибка может повлечь за собой другие, которые исчезнут при её исправлении. Поэтому следует исправлять ошибки последовательно, сверху вниз, а затем повторно компилировать программу.



Ошибки второго уровня (ошибки выполнения) связаны с ошибками выбранного алгоритма решения или с неправильной программной реализацией алгоритма. Признаком данной ошибки являются логические, вследствие которых прекращается выполнение программы. Причиной смысловых ошибок может быть: неправильное содержимое окна, невыполнение или неверное выполнение команд пользователя, неправильное содержимое выходных файлов, может произойти выход из Windows в командную строку MS-DOS.

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

Основная цель тестирования - обнаружение ошибок, выявление всех отклонений результатов функционирования реальной программы от заданных эталонных значений. Задача состоит в обнаружении максимального числа ошибок, в качестве которых принимается любое отклонение от эталонов. Чем больше ошибок выявляется на этой стадии при каждой операции тестирования, тем выше эффективность тестов и обоснованность затрат на их выполнение. С этих позиций тесты, не способствующие обнаружению ошибок и только подтверждающие корректность функционирования программ, являются неэффективными, так как приводят к бесполезным затратам.



Для отладки применяются методы, предусматривающие упорядочивание и систематизацию тестов по различным стратегиям и параметрам, и методы неупорядоченного тестирования. При неупорядоченном тестировании исходные данные, имитирующие внешнюю среду случайным образом, генерируются во всем диапазоне возможного изменения параметров. Производится случайный перебор в произвольных сочетаниях различных величин. Многие значения исходных данных характеризуются малой вероятностью обнаружения ошибок и не оправдывают затраты на выполнение тестирования. Кроме того, возможна генерация логически противоречивых данных, В то же время данные, наиболее важные с позиции реального использования программ и возможности обнаружения ошибок, могут оказаться пропущенными в процессе тестирования.

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

- выявление ошибки;

- локализация ошибки в тексте программы;

- установление причины ошибки;

- исправление ошибки.

В конкретных ситуациях перечисленные этапы могут пересекаться, некоторых из них может и не быть.

Выявление ошибок иначе называют тестированием. Некоторые ошибки проявляются после первого же запуска программы на выполнение. Они заметны «невооруженным глазом», и для их обнаружения не надо прибегать ни к каким специальным средствам.

Некоторые ошибки проявляются в чисто случайные моменты работы программы. С такими ошибками справиться труднее всего. Если вы не можете зафиксировать условия возникновения ошибки, вы не сможете понять причину ошибки и устранить ее. Иногда, чтобы добиться устойчивого проявления ошибки, перед каждым стартом программы приходится заново перезагружать компьютер.

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

Отладка программы по теме «Автоматизация деятельности аптечного склада» осуществлялась встроенными средствами интегрированной среды разработки Visual Studio Net 2010. С помощью встроенного компилятора были обнаружены синтаксические ошибки, то есть отсутствующие и лишние знаки препинания, неправильные имена переменных, которые тут же исправлялись с помощью встроенного редактора текста программы. Логические ошибки отслеживались и локализовались с помощью встроенного отладчика, а затем устранялись с помощью редактора.

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

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

 


Применение

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

Организация данных:

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

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

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

Минимальная конфигурация персонального компьютера:

- процессор Pentium 300.

- MicroSoft Windows XP.

- Жесткий диск с объемом свободного пространства 200 Мбайт;

- Мышь, клавиатура;

- Монитор типа VGA;

- Оперативная память – 32 Mb.

 

Так же, как к аппаратной части компьютера, программа не имеет жестких требований к программному обеспечению. Единственным ограничением является необходимость эксплуатации программного продукта под управлением ОС Windows XP. Под остальными ОС данное программное обеспечение может не работать или работать некорректно.

Все необходимые базы данных и дополнительные файлы должны распространяться вместе с каталогом программы. К таковым файлам относятся: файлы необходимые для работы с базами данных, база данных для самой программы, а так же конфигурационные файлы для программы.

Данный файл можно вызвать из программы, выбрав пункт меню «Помощь>Справка». Файл справки необходимо использовать в основном или для общего ознакомления с программой.

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

При первоначальной загрузке программы появляется «Автоматизация деятельности аптечного склада».

Это главная часть программы. На ней расположены 2 кнопки .

 

Рисунок 6.1 - «Автоматизация деятельности аптечного склада».

 

На главной форме в меню доступны следующие пункты:

· Справка.

· Помощь.

 

Рисунок 6.2 - «Меню».

 

После нажатия любой из кнопок открывается новое окно, в котором находится база данных. В зависимости от выбранной кнопки появляется определенное окно с базой данных.

 

 

Рисунок 6.3 - «БД Сотрудники».

 

На всех формах есть такие функции как сортировка, поиск и фильтрация которые осуществляются при нажатии соответствующей кнопки.

Рисунок 6.4 - «БД Кнопки».

 

Рисунок 6.5 - «О программе».

Также пользователь может вызвать справку с помощью нажатия в главном меню «Помощь >Справка».

 

 

 

 

Рисунок 6.6 - «Справка».

Заключение

 

Результатом данной практики является разработка программы, которая позволяет следить за лекарственными препаратами и в частности:

1. для поиска по наименованию лекарственных препаратов;

2. для редактирования добавления и удаления данных о лекарственных препаратах ;

3. для просмотра имеющихся (или не имеющихся) в наличии препаратов.

Разработанная программа решает или облегчает следующие задачи:

1. добавление новых данных;

2. хранение данных;

3. редактирование данных уже ранее введённых;

4. удаление данных.

Разработанная система состоит из функционально законченной программы. Основная разработка программы производилось на Visual Studio Net 2010 . И по своему виду данная программа является обычным исполняемым файлом Windows, имеющий графический интерфейс и работающий с базами данных.

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

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

 


 

Приложение А

Листинг программы

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, Buttons, Mask, DBCtrls, ExtDlgs, DB, jpeg, ExtCtrls,

Menus;

type

TForm1 = class(TForm)

Image1: TImage;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

SpeedButton3: TSpeedButton;

SpeedButton4: TSpeedButton;

SpeedButton5: TSpeedButton;

SpeedButton6: TSpeedButton;

SpeedButton7: TSpeedButton;

SpeedButton8: TSpeedButton;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure SpeedButton4Click(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure SpeedButton5Click(Sender: TObject);

procedure SpeedButton6Click(Sender: TObject);

procedure SpeedButton3Click(Sender: TObject);

procedure SpeedButton8Click(Sender: TObject);

procedure SpeedButton7Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure Image1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit4, Unit6, Unit8, Unit10, Unit12, Unit14, Unit16;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

Form2.Show;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Form4.Show;

end;

 

procedure TForm1.Button3Click(Sender: TObject);

begin

Form6.Show;

end;

 

 

procedure TForm1.Button7Click(Sender: TObject);

begin

Form1.Close;

end;

 

procedure TForm1.SpeedButton4Click(Sender: TObject);

begin

Form8.Show;

end;

 

unit Unit2;

 

interface

 

uses

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

Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids, DBCtrls, Menus, jpeg,

ExtCtrls, Buttons;

type

TForm2 = class(TForm)

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

DataSource1: TDataSource;

DBImage1: TDBImage;

Image1: TImage;

SpeedButton1: TSpeedButton;

SpeedButton3: TSpeedButton;

SpeedButton4: TSpeedButton;

SpeedButton2: TSpeedButton;

DBGrid1: TDBGrid;

Edit1: TEdit;

SpeedButton5: TSpeedButton;

Edit2: TEdit;

SpeedButton6: TSpeedButton;

ComboBox1: TComboBox;

SpeedButton7: TSpeedButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

SpeedButton8: TSpeedButton;

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure SpeedButton4Click(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure SpeedButton3Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure SpeedButton5Click(Sender: TObject);

procedure SpeedButton6Click(Sender: TObject);

procedure SpeedButton7Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure SpeedButton8Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form2: TForm2;

fs:string;

bs:string;

implementation

uses Unit3, Unit1;

{$R *.dfm}

procedure TForm2.Button3Click(Sender: TObject);

begin

ADOQuery1.Delete

end;

procedure TForm2.Button4Click(Sender: TObject);

begin

Form1.Show;

end;

procedure TForm2.N2Click(Sender: TObject);

begin

Form2.DataSource1.DataSet:=ADOQuery1;

with ADOQuery1 do begin

SQL.Clear;

SQL.Add('SELECT * FROM Òàáëèöà1');

SQL.Add('ORDER BY Êîëè÷åñòâî');

Active:=True;

end;

 

end;

procedure TForm2.SpeedButton4Click(Sender: TObject);

begin

Form1.Show;

Form2.Close;

end;

procedure TForm2.SpeedButton2Click(Sender: TObject);

begin

ADOQuery1.Delete;

end;

 

procedure TForm2.Button1Click(Sender: TObject);

begin

fs:=Edit1.Text;

dbgrid1.DataSource.DataSet.Locate('Íàçâàíèå', fs, [loPartialKey]);

end;

procedure TForm2.SpeedButton5Click(Sender: TObject);

begin

fs:=Edit1.Text;

dbgrid1.DataSource.DataSet.Locate('Íàçâàíèå', fs, [loPartialKey]);

end;

 

procedure TForm2.SpeedButton6Click(Sender: TObject);

begin

bs:='"'+Edit2.Text+'"';

With ADOQuery1 do begin

Open;

SQL.Clear;

SQL.Text:='Select *from Òàáëèöà1 Where Êîëè÷åñòâî='+bs;

Open;

end;

end;

procedure TForm2.SpeedButton7Click(Sender: TObject);

Var f,s:string;

begin

if ComboBox1.Text='Íàçâàíèþ' then s:='Íàçâàíèå';

if ComboBox1.Text='Êîëè÷åñòâó' then s:='Êîëè÷åñòâî';

if ComboBox1.Text='Ñòîèìîñòè' then s:='Ñòîèìîñòü';

with ADOQuery1 do begin

Close;

SQL.Clear;

SQL.Text:='select *from Òàáëèöà1 order by['+s+']';

Open;

 

end;

end;

procedure TForm2.FormCreate(Sender: TObject);

Const

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

Dialogs, StdCtrls, Mask, DBCtrls, ExtDlgs, DB, jpeg, ExtCtrls, Buttons;

 

type

TForm3 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBImage1: TDBImage;

OpenPictureDialog1: TOpenPictureDialog;

Image1: TImage;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

SpeedButton3: TSpeedButton;

SpeedButton4: TSpeedButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure SpeedButton3Click(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure SpeedButton4Click(Sender: TObject);

 

private

{ Private declarations }

public

{ Public declarations }

end;

procedure TForm3.Button3Click(Sender: TObject);

begin

if not OpenPictureDialog1.Execute then exit;

Form2.ADOQuery1.Edit;

TBlobField(Form2.ADOQuery1.FieldByName('Êàðòèíêà')).LoadFromFile(OpenPictureDialog1.FileName);

Form2.ADOQuery1.Post;

end;

 

procedure TForm3.Button4Click(Sender: TObject);

begin

Form2.ADOQuery1.Edit;

Form2.ADOQuery1.FieldByName('Êàðòèíêà').Clear;

Form2.ADOQuery1.Post;

end;

procedure TForm3.SpeedButton3Click(Sender: TObject);

begin

Form3.Close;

end;

 

procedure TForm3.SpeedButton1Click(Sender: TObject);

begin

if not OpenPictureDialog1.Execute then exit;

Form2.ADOQuery1.Edit;

TBlobField(Form2.ADOQuery1.FieldByName('Êàðòèíêà')).LoadFromFile(OpenPictureDialog1.FileName);

unit Unit5;

 

interface

uses

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

Dialogs, StdCtrls, Mask, DBCtrls, ExtDlgs, DB, Buttons, jpeg, ExtCtrls;

 

type

TForm5 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBImage1: TDBImage;

OpenPictureDialog1: TOpenPictureDialog;

Image1: TImage;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

SpeedButton3: TSpeedButton;

SpeedButton4: TSpeedButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure SpeedButton3Click(Sender: TObject);

procedure SpeedButton4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form5: TForm5;

 

implementation

uses Unit4;

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);

begin

Form4.ADOQuery1.Edit;

Form5.Close;

end;

 

procedure TForm5.Button2Click(Sender: TObject);

begin

Form4.Show;

end;

procedure TForm5.Button3Click(Sender: TObject);

begin

if not OpenPictureDialog1.Execute then exit;

Form4.ADOQuery1.Edit;

TBlobField(Form4.ADOQuery1.FieldByName('Êàðòèíêà')).LoadFromFile(OpenPictureDialog1.FileName);

Form4.ADOQuery1.Post;

end;

procedure TForm5.Button4Click(Sender: TObject);

begin

Form4.ADOQuery1.Edit;

Form4.ADOQuery1.FieldByName('Êàðòèíêà').Clear;

Form4.ADOQuery1.Post;

end;

 

procedure TForm5.SpeedButton1Click(Sender: TObject);

begin

if not OpenPictureDialog1.Execute then exit;

Form4.ADOQuery1.Edit;

TBlobField(Form4.ADOQuery1.FieldByName('Êàðòèíêà')).LoadFromFile(OpenPictureDialog1.FileName);

Form4.ADOQuery1.Post;

end;

 

procedure TForm5.SpeedButton2Click(Sender: TObject);

begin

Form4.ADOQuery1.Edit;

Form4.ADOQuery1.FieldByName('Êàðòèíêà').Clear;

Form4.ADOQuery1.Post;

end;

procedure TForm5.SpeedButton3Click(Sender: TObject);

begin

Form4.ADOQuery1.Edit;

Form5.Close;

end;

unit Unit9;

interface

uses

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

Dialogs, StdCtrls, Mask, DBCtrls, ExtDlgs,DB, Buttons, jpeg, ExtCtrls;

type

TForm9 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBImage1: TDBImage;

OpenPictureDialog1: TOpenPictureDialog;

Image1: TImage;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

SpeedButton3: TSpeedButton;

SpeedButton4: TSpeedButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form9: TForm9;

implementation

uses Unit8;

{$R *.dfm}

procedure TForm9.Button1Click(Sender: TObject);

begin

Form8.ADOQuery1.Edit;

Form9.Close;

end;

 

procedure TForm9.Button2Click(Sender: TObject);

begin

Form8.Show;

end;

 

procedure TForm9.Button3Click(Sender: TObject);

begin

if not OpenPictureDialog1.Execute then exit;

Form8.ADOQuery1.Edit;

TBlobField(Form8.ADOQuery1.FieldByName('Êàðòèíêà')).LoadFromFile(OpenPictureDialog1.FileName);

Form8.ADOQuery1.Post;

end;

procedure TForm9.Button4Click(Sender: TObject);

begin

Form8.ADOQuery1.Edit;

Form8.ADOQuery1.FieldByName('Êàðòèíêà').Clear;

Form8.ADOQuery1.Post;

end;

 

procedure TForm9.SpeedButton1Click(Sender: TObject);

begin

if not OpenPictureDialog1.Execute then exit;

Form8.ADOQuery1.Edit;

TBlobField(Form8.ADOQuery1.FieldByName('Êàðòèíêà')).LoadFromFile(OpenPictureDialog1.FileName);

Form8.ADOQuery1.Post;

end;

procedure TForm9.SpeedButton3Click(Sender: TObject);

begin

Form8.ADOQuery1.Edit;

Form8.ADOQuery1.FieldByName('Êàðòèíêà').Clear;

Form8.ADOQuery1.Post;

end;

 

procedure TForm9.SpeedButton2Click(Sender: TObject);

begin

Form9.Close;

end;

procedure TForm9.SpeedButton4Click(Sender: TObject);

begin

Form8.ADOQuery1.Edit;

Form9.Close;

end;

unit Unit12;

 

interface

 

uses

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

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

 

type

TForm12 = class(TForm)

DataSource1: TDataSource;

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

DBImage1: TDBImage;

DBGrid1: TDBGrid;

Image1: TImage;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

SpeedButton3: TSpeedButton;

SpeedButton4: TSpeedButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Edit1: TEdit;

Edit2: TEdit;

ComboBox1: TComboBox;

SpeedButton5: TSpeedButton;

SpeedButton6: TSpeedButton;

SpeedButton7: TSpeedButton;

SpeedButton8: TSpeedButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure SpeedButton3Click(Sender: TObject);

procedure SpeedButton4Click(Sender: TObject);

procedure SpeedButton5Click(Sender: TObject);

procedure SpeedButton6Click(Sender: TObject);

procedure SpeedButton7Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure SpeedButton8Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form12: TForm12;

fs:string;

bs:string;

implementation

uses Unit13, Unit1;

{$R *.dfm}

procedure TForm12.Button1Click(Sender: TObject);

begin

Form13.Show;

Form12.ADOQuery1.Insert;

end;

 

procedure TForm12.Button2Click(Sender: TObject);

begin

Form13.Show;

end;

procedure TForm12.SpeedButton2Click(Sender: TObject);

begin

Form13.Show;

end;

procedure TForm12.SpeedButton6Click(Sender: TObject);

begin

bs:='"'+Edit2.Text+'"';

 

procedure TForm12.SpeedButton7Click(Sender: TObject);

Var f,s:string;

begin

if ComboBox1.Text='Íàçâàíèþ' then s:='Íàçâàíèå';

if ComboBox1.Text='Êîëè÷åñòâó' then s:='Êîëè÷åñòâî';

if ComboBox1.Text='Ñòîèìîñòè' then s:='Ñòîèìîñòü';

with ADOQuery1 do begin

Close;

SQL.Clear;

SQL.Text:='select *from Òàáëèöà1 order by['+s+']';

Open;

end;

unit Unit15;

 

interface

 

uses

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

Dialogs, Buttons, StdCtrls, Mask, DBCtrls, jpeg, ExtCtrls, DB, ExtDlgs;

 

type

TForm15 = class(TForm)

Image1: TImage;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

Label5: TLabel;

DBEdit5: TDBEdit;

DBImage1: TDBImage;

OpenPictureDialog1: TOpenPictureDialog;

SpeedButton3: TSpeedButton;

SpeedButton4: TSpeedButton;

procedure SpeedButton1Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure SpeedButton3Click(Sender: TObject);

procedure SpeedButton4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form15: TForm15;

procedure TForm15.SpeedButton3Click(Sender: TObject);

begin

if not OpenPictureDialog1.Execute then exit;

Form14.ADOQuery1.Edit;

TBlobField(Form14.ADOQuery1.FieldByName('Êàðòèíêà')).LoadFromFile(OpenPictureDialog1.FileName);

Form14.ADOQuery1.Post;

end;

 

procedure TForm15.SpeedButton4Click(Sender: TObject);

begin

Form14.ADOQuery1.Edit;

Form14.ADOQuery1.FieldByName('Êàðòèíêà').Clear;

Form14.ADOQuery1.Post;

end;

Приложение В

Руководство пользователя

1. Установка

Для установки программы необходимо с диска скопировать программу на компьютер. Далее происходит запуск программы. Можно также запускать программу с диска без установки.

 

2. Запуск

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

 

3. Инструкции

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

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

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

 

4. Сообщения

Чтобы получить дополнительную информацию по использованию программы нужно в главном окне программы нажать на кнопку ”Справка”. В этом разделе описана полностью работа с программой и ответы на интересующие вас вопросы.

 

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

 

 

1. Введение

1.1. Наименование программы

Наименование программы: "Автоматизация деятельности аптечного склада"

1.2. Назначение и область применения

Программа предназначена для предоставления информации из содержимого базы данных, содержащего следующие данные:

1.2.1. Лекарственные препараты

1.2.2. Данные о сотрудниках

2. Требования к программе

2.1. Требования к функциональным характеристикам

Программа должна обеспечивать возможность выполнения перечисленных ниже функций:

2.1.1. Возможность поиска (фильтрации) по базе данных информации по нескольким параметрам:

2.1.1.1. по названию;

2.1.1.2. по группе;

2.1.3. Возможность сортировки по базе данных информации по нескольким параметрам:

2.1.1.3. по названию;

2.1.1.3. по группе

2.2. Требования к надежности

2.2.1. Требования к обеспечению надежного функционирования программы

 

Надежное (устойчивое) функционирование программы должно быть обеспечено выполнением Заказчиком совокупности организационно-технических мероприятий, перечень которых приведен ниже:

а) организацией бесперебойного питания технических средств;

б) использованием лицензионного программного обеспечения;

в) регулярным выполнением рекомендаций Министерства труда и социального развития РФ, изложенных в Постановлении от 23 июля 1998 г. Об утверждении межотраслевых типовых норм времени на работы по сервисному обслуживанию ПЭВМ и оргтехники и сопровождению программных средств»;

г) регулярным выполнением требований ГОСТ 51188-98. Защита информации. Испытания программных средств на наличие компьютерных вирусов

 

2.2.2. Время восстановления после отказа

 

Время восстановления после отказа, вызванного сбоем электропитания технических средств (иными внешними факторами), не фатальным сбоем (не крахом) операционной системы, не должно превышать 30-ти минут при условии соблюдения условий эксплуатации технических и программных средств.

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

 

2.2.3. Отказы из-за некорректных действий пользователей системы

 

Отказы программы вследствие некорректных действий пользователя при взаимодействии с программой недопустимы.

 

3 Условия эксплуатации

 

3.1. Климатические условия эксплуатации

 

Климатические условия эксплуатации, при которых должны обеспечиваться заданные характеристики, должны удовлетворять требованиям, предъявляемым к техническим средствам в части условий их эксплуатации

 

3.2. Требования к квалификации и численности персонала

 

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

 

3.3. Требования к составу и параметрам технических средств

 

3.3.1. В состав технических средств должен входить IВМ-совместимый персональный компьютер (ПЭВМ), включающий в себя:

3.3.1.1. процессор Pentium-2.0Hz, не менее;

3.3.1.2. оперативную память объемом, 512 Мб, не менее;

3.3.1.3. HDD, 40 Гигабайт, не менее;

3.3.1.4. операционную систему Windows XP/Vista/Seven;

3.3.1.5. мышь;

3.3.1.6. клавиатура;

 

5. Требования к программной документации

6.

4.1. Предварительный состав программной документации

 

Состав программной документации должен включать в себя:

4.1.1. техническое задание;

4.1.2. программу и методики испытаний;

4.1.3. руководство оператора;

 

5. Технико-экономические показатели

 

5.1. Экономические преимущества разработки

 

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

 

6. Стадии и этапы разработки

 

6.1. Стадии разработки

 

Разработка должна быть проведена в три стадии:

1. разработка технического задания;

2. рабочее проектирование;

3. внедрение.

 

6.2. Этапы разработки

 

На стадии разработки технического задания должен быть выполнен этап разработки, согласования и утверждения настоящего технического задания.

На стадии рабочего проектирования должны быть выполнены перечисленные ниже этапы работ:

1. разработка программы;

2. разработка программной документации;

3. испытания программы.

На стадии внедрения должен быть выполнен этап разработки подготовка и передача программы.

 

6.3. Содержание работ по этапам

 

На этапе разработки технического задания должны быть выполнены перечисленные ниже работы:

1. постановка задачи;

2. определение и уточнение требований к техническим средствам;

3. определение требований к программе;

4. определение стадий, этапов и сроков разработки программы и документации на неё;

5. согласование и утверждение технического задания.

На этапе разработки программы должна быть выполнена работа по программированию (кодированию) и отладке программы.

На этапе разработки программной документации должна быть выполнена разработка программных документов в соответствии с требованиями к составу документации.

На этапе испытаний программы должны быть выполнены перечисленные ниже виды работ:

1. разработка, согласование и утверждение и методики испытаний;

2. проведение приемо-сдаточных испытаний;

3. корректировка программы и программной документации по результатам испытаний.

На этапе подготовки и передачи программы должна быть выполнена работа по подготовке и передаче программы и программной документации в эксплуатацию на объектах Заказчика.

 

7. Порядок контроля и приемки

 

7.1. Виды испытаний

 

Приемо-сдаточные испытания должны проводиться на объекте Заказчика в оговоренные сроки.

Приемо-сдаточные испытания программы должны проводиться согласно разработанной Исполнителем и согласованной Заказчиком Программы и методик испытаний.

Ход проведения приемо-сдаточных испытаний Заказчик и Исполнитель документируют в Протоколе проведения испытаний

 

7.2. Общие требования к приемке работы

 

На основании Протокола проведения испытаний Исполнитель совместно с Заказчиком подписывает Акт приемки-сдачи программы в эксплуатацию

 








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



©2015 - 2024 stydopedia.ru Все материалы защищены законодательством РФ.