Анализ предметной области. Требования к составу и параметрам технических средств. Инфологическая (концептуальная) модель предметной области

Поиск в программе работает корректно согласно предъявляемым требованиям.

В данном приложении организован диалог с пользователем в виде сообщений системы:

Рисунок 14

Рисунок 15

Рисунок 16

Программа содержит справочную информацию (рис. 17).

Рисунок 17

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

Заключение

В ходе выполнения курсового проекта:

·  были закреплены знания по курсу «Представление знаний в информационных системах»;

·  приобретен опыт при проектировании и программировании баз данных;

·  приобретен опыт при разработке объектно-ориентированных программ;

·  освоены методы передачи данных между приложениями;

·  изучены возможности создания справочной системой высокой степени сложности и различных форматов.

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

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

–  при проектировании использовалась точка зрения самого разработчика;

–  среда разработки –Microsoft Access и Borland C++ Builder.

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

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

Список использованных источников

1.  Карпова Т.С. Базы данных. Модели, разработка, реализация/СПб.: Питер, 2002. – 304 с.

2.  Хомоненко А.Д., Цыганков В.М., Мальцев М.Г. Базы данных. Учебник для ВУЗов /под ред. проф.А.Д. Хомоненко СПб.:КОРОНА принт, 2000.- 416

3.  Корнеев В.В. и др. Базы данных. Интеллектуальная обработка информации // М.:Нолидж, 2000.- 352 с.

4.  Ханcен Г., Ханcен Д. Базы данных. Разработка и управление/М.: Бином, 1999-704С.

5.  Глушаков С.В., Ломотько Д.В. Базы данных. Учебный курс // Харьков: Фолио; Ростов н/Д: Феникс; Киев: Абрис, 2000. – 504 с.

6.  Игорева, Е.Л., Основы алгоритмизации и программирования (3-е издание)./ И.И. Попов, О.Л. Игорева – М. : Инфа-М, 2006 – 432 с.

Приложение

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

#include "Unit2.h"

#include "Unit3.h"

#include "Unit4.h"

#include "Unit5.h"

//--------------------------------------------------------------------------#pragma package(smart_init)

#pragma resource "*.dfm"

TMainForm *MainForm;

UnicodeString g_sBasePassword = "";

bool g_bEdit = false;

//--------------------------------------------------------------------------__fastcall TMainForm::TMainForm(TComponent* Owner)

: TForm(Owner)

{

}

//--------------------------------------------------------------------------void __fastcall TMainForm::TabControlChange(TObject *Sender)

{

switch(TabControl->TabIndex)

{

case 0 :

DataSource->DataSet = ADOTable1;

break;

case 1 :

DataSource->DataSet = ADOTable2;

break;

case 2 :

DataSource->DataSet = ADOTable3;

break;

}

if(TabControl->TabIndex == 1)

menuView->Enabled = false;

else

menuView->Enabled = true;

DBGrid->Columns->Clear();

boxSearch->Clear();

short iColWidth[3][6] = {70, 220, -1, 75, 75, 0, 90, 95, 100, 84, 70, 0, 80, -1, 90, 110, 99, 60};

for(int i = 0; i < DataSource->DataSet->FieldCount; i++)

{

boxSearch->Items->Add(DataSource->DataSet->Fields->Fields[i]->FieldName);

TColumn *Column;

Column = DBGrid->Columns->Add();

Column->Field = DataSource->DataSet->Fields->Fields[i];

if(iColWidth[TabControl->TabIndex][i] == -1)

Column->Visible = false;

Column->Width = iColWidth[TabControl->TabIndex][i];

}

boxSearch->ItemIndex = 0;

}

//--------------------------------------------------------------------------void __fastcall TMainForm::menuDeleteClick(TObject *Sender)

{

if(MessageBoxA(Application->Handle, "Вы действительно хотите удалить запись?", "Подтверждение удаления", MB_ICONQUESTION + MB_YESNO) == IDYES)

DataSource->DataSet->Delete();

}

//--------------------------------------------------------------------------void __fastcall TMainForm::menuExitClick(TObject *Sender)

{

if (MessageBoxA(Application->Handle, "Вы действительно хотите выйти?", "Выход из программы", MB_YESNO + MB_ICONQUESTION) == IDYES)

MainForm->Close();

}

//--------------------------------------------------------------------------void __fastcall TMainForm::menuHelpClick(TObject *Sender)

{

String a = ExtractFilePath(Application->ExeName)+"Справка.chm";

ShellExecuteW(Handle,L"open",a.c_str(),NULL,NULL,SW_NORMAL);

}

//--------------------------------------------------------------------------void __fastcall TMainForm::menuAddGoodsClick(TObject *Sender)

{

Application->CreateForm(__classid(TGoodsForm), &GoodsForm);

GoodsForm->ShowModal();

}

//--------------------------------------------------------------------------void __fastcall TMainForm::menuAddBuyerClick(TObject *Sender)

{

Application->CreateForm(__classid(TBuyerForm), &BuyerForm);

BuyerForm->ShowModal();

}

//--------------------------------------------------------------------------void __fastcall TMainForm::btnSearchClick(TObject *Sender)

{

if(editSearch->Text.IsEmpty())

return;

TLocateOptions Options;

Options.Clear();

Options << loCaseInsensitive << loPartialKey;

if(!DataSource->DataSet->Locate(boxSearch->Text,editSearch->Text, Options))

MessageBoxA(Application->Handle, "По вашему запросу ничего не найдено!", "Поиск", MB_ICONINFORMATION);

}

//--------------------------------------------------------------------------void __fastcall TMainForm::btnNewOrderClick(TObject *Sender)

{

Application->CreateForm(__classid(TOrderForm), &OrderForm);

OrderForm->ShowModal();

}

//--------------------------------------------------------------------------void __fastcall TMainForm::DBGridDblClick(TObject *Sender)

{

if(DataSource->DataSet == ADOTable1)

{

Application->CreateForm(__classid(TItemForm), &ItemForm);

ItemForm->ShowModal();

}

if(DataSource->DataSet == ADOTable3)

{

AnsiString s = ADOTable3->FieldByName("Номер заказа")->AsString + ".rtf";

ShellExecuteA(Handle,"open" , s.c_str(),NULL,NULL,SW_NORMAL);

}

}

//--------------------------------------------------------------------------void __fastcall TMainForm::menuAboutClick(TObject *Sender