Компьютерные комплектующие

procedure btCloseClick(Sender: TObject) – процедура закрытия окна.

Модуль uSellers относится к форме Sellers. Его текст содержится в файле uSellers.pas. В нем описаны следующие процедуры:

procedure btCloseClick(Sender: TObject) – процедура закрытия окна.

 

4.5 Входные данные

 

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

4.6 Выходные данные

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

 

 5 Порядок и методика испытаний

 

5.1 Объект испытаний и требования к программе

 

Объектом испытаний  является  программа  «Компьютерные комплектующие». Исходные коды расположены  в  каталоге «Компьютерные комплектующие». Исполняемый  файл – pPricelist.exe.

 

5.2 Цель  испытаний

 

Испытания  проводятся  с  целью  проверки  правильности  выполнения  программой  ее  функций.

 

5.3 Методы испытаний

 

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

 

5.4 Средства  и  порядок  испытаний

 

Для   проведения  испытаний  нужен  РС  типа   IBM   стандартной   комплектации  и  файл, содержащий   проверяемую   программу.

          Для  тестирования  программы   необходимо  запустить  файл pPricelist.exe.  На  экране  должна  появиться форма представленная  на рисунке Б.1. Далее необходимо на закладке “Процессоры” ввести в поле “Модель” - “A-XP”, в поле “Тактовая частота (Гц)” – 2700, в поле выбора “Фирма производитель” выбрать фирму “AMD”. Затем при нажатии кнопки Поиск через некоторое время курсор в списке комплектующих должен указать на найденную запись базы данных. Эта запись должна содержать следующие данные: необходимый процессор есть в магазине “Компьютерный центр”, стоимость его равна 4018 рублей. Цена найденного процессора  минимальна из имеющихся в базе данных (рис. Б.1). Для занесения в список комплектующих нажмем кнопку «Добавить». После добавления всех необходимых комплектующих нажмем кнопку «Компьютер». В открывшемся окне нажмем кнопку «Сохранить» для сохранения списка (рис. Б.2). Для вывода в Excel и печати выберем из списка продавца и нажмем кнопку «Печать» (рис. Б.3).

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

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

 Для просмотра истории продаж необходимо нажать кнопку «История продаж».

5.5 Результат тестирования

 

На основе данных, полученных в результате тестирования, установлена правильность работы программы

В приложении Б приведен результат работы программы.

 

 

 6 Описание  применения

 

6.1 Назначение программы

 

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

 

6.2 Условия применения

 

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

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

Для   применения  программы нужен  РС  типа   IBM   стандартной   комплектации с  операционной  системой  Windows не ниже 95 и   файл, содержащий   проверяемую   программу, а также файлы базы  данных.

Для начала работы необходимо  инициализировать файл pPricelist.exe.  На  экране  должна  появиться форма представленная  на рисунке В.1.

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

         В данной программе предусмотрены  некоторые необходимые элементы:

а) поиск комплектующих  производится по следующему критерию: если в базе данных есть несколько  записей об искомом комплектующем, то программа выбирает тот, у которого цена минимальна;

каждому комплектующему соответствует отдельная таблица  базы данных;

б) Вы можете редактировать  списки комплектующих, а также списки магазинов и фирм;

в) каждому комплектующему соответствует отдельная таблица  базы данных.

г) составления списка комплектующих и вывод в Excel.

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

 

Заключение

 

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

- разработан проект  «Компьютерные комплектующие»;

- приложение  было  протестировано  и  отлажено.

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

 

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

 

1. Гофман  В.Э., Хомоненко  А.Д. Delphi 6 .- СПб.:”БХВ-Петербург”, 2002. - 1152с.

2. Турбо Паскаль 7.0 – К.: Издательская группа BHV, 2000. – 432с.

 

 

 

 

 

 

 

 

 

 

 

 

ТЕКСТ ПРОГРАММЫ

Приложение А

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

 

unit uPricelist;

 

interface

 

uses

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

  Dialogs, ComCtrls, Grids, DBGrids, StdCtrls,uDM, ExtCtrls, DBCtrls,

  ToolWin, ActnMan, ActnCtrls, ActnMenus, ActnList;

 

type

  TMainForm = class(TForm)

    PageControl1: TPageControl;

    TabSheet1: TTabSheet;

    TabSheet2: TTabSheet;

    TabSheet3: TTabSheet;

    TabSheet4: TTabSheet;

    TabSheet5: TTabSheet;

    TabSheet6: TTabSheet;

    DBGrid1: TDBGrid;

    DBGrid2: TDBGrid;

    DBGrid3: TDBGrid;

    DBGrid4: TDBGrid;

    DBGrid5: TDBGrid;

    DBGrid6: TDBGrid;

    GroupBox1: TGroupBox;

    GroupBox2: TGroupBox;

    GroupBox3: TGroupBox;

    GroupBox4: TGroupBox;

    GroupBox5: TGroupBox;

    GroupBox6: TGroupBox;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    Label8: TLabel;

    Label9: TLabel;

    Label10: TLabel;

    Label11: TLabel;

    Label12: TLabel;

    Label13: TLabel;

    Label14: TLabel;

    Label15: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Edit4: TEdit;

    Edit5: TEdit;

    sProc: TButton;

    sMatboard: TButton;

    sHard: TButton;

    sVideo: TButton;

    sCDROM: TButton;

    sMonitor: TButton;

    Button7: TButton;

    DBNavigator1: TDBNavigator;

    DBNavigator2: TDBNavigator;

    DBNavigator3: TDBNavigator;

    DBNavigator4: TDBNavigator;

    DBNavigator5: TDBNavigator;

    DBNavigator6: TDBNavigator;

    DBLookupComboBox1: TDBLookupComboBox;

    DBLookupComboBox2: TDBLookupComboBox;

    DBLookupComboBox3: TDBLookupComboBox;

    DBLookupComboBox4: TDBLookupComboBox;

    DBLookupComboBox5: TDBLookupComboBox;

    DBLookupComboBox6: TDBLookupComboBox;

    ComboBox1: TComboBox;

    ComboBox2: TComboBox;

    ComboBox3: TComboBox;

    ComboBox4: TComboBox;

    ActionMainMenuBar1: TActionMainMenuBar;

    ActionManager1: TActionManager;

    acExit: TAction;

    acMagfirm: TAction;

    acAbout: TAction;

    btProcAdd: TButton;

    btComputer: TButton;

    btMatAdd: TButton;

    btVideoAdd: TButton;

    btCDAdd: TButton;

    btMonAdd: TButton;

    btHardAdd: TButton;

    acComputer: TAction;

    btSellers: TButton;

    btHistory: TButton;

    acSellers: TAction;

    acHistory: TAction;

    procedure sProcClick(Sender: TObject);

    procedure sMatboardClick(Sender: TObject);

    procedure sHardClick(Sender: TObject);

    procedure sVideoClick(Sender: TObject);

    procedure sCDROMClick(Sender: TObject);

    procedure sMonitorClick(Sender: TObject);

    procedure acMagfirmExecute(Sender: TObject);

    procedure acExitExecute(Sender: TObject);

    procedure acAboutExecute(Sender: TObject);

    procedure FormActivate(Sender: TObject);

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

    procedure btProcAddClick(Sender: TObject);

    procedure acComputerExecute(Sender: TObject);

    procedure acSellersExecute(Sender: TObject);

    procedure acHistoryExecute(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  MainForm: TMainForm;

 

implementation

 

uses uMagfirm, DB, uAbout, uComputer, uSellers, uSale;

 

{$R *.dfm}

 

//Процедура поиска  процессора с наименьшей ценой

procedure TMainForm.sProcClick(Sender: TObject);

var i,n,min:integer;

    flag:boolean;

begin

  flag:=false;

  min:=0;

  n:=0;

  DM.tProc.First;

  While (flag<>true) and (not DM.tProc.Eof) do begin

    If (DM.tProcModel.AsString=Edit1.Text) and

       (DM.tProcFreq.AsInteger=StrToInt(Edit2.Text)) and

       (DM.tProcFirm.AsString=DBLookupComboBox1.Text) then begin

         flag:=true;

         min:=DM.tProcPrice.AsInteger;

         n:=DM.tProc.RecNo;

    end;

    DM.tProc.Next;

  end;

  If not flag then MessageDlg('Запись не найдена!',mtInformation,[mbOK],0)

    else begin

      DM.tProc.First;

      For i:=1 to DM.tProc.RecordCount do begin

        If (DM.tProcModel.AsString=Edit1.Text) and

           (DM.tProcFreq.AsInteger=StrToInt(Edit2.Text)) and

           (DM.tProcFirm.AsString=DBLookupComboBox1.Text) then begin

             If DM.tProcPrice.AsInteger<min then begin

               min:=DM.tProcPrice.AsInteger;

               n:=DM.tProc.RecNo;

             end; //if

        DBGrid1.SetFocus

        end; //if

        DM.tProc.Next;

      end; //for i

      DM.tProc.RecNo:=n;

    end; //else

end;

 

//Процедура поиска материнской  платы с наименьшей ценой

procedure TMainForm.sMatboardClick(Sender: TObject);

var i,n,min:integer;

    flag:boolean;

begin

  flag:=false;

  min:=0;

  n:=0;

  DM.tMatboard.First;

  While (flag<>true) and (not DM.tMatboard.Eof) do begin

    If (DM.tMatboardModel.AsString=Edit3.Text) and

       (DM.tMatboardFirm.AsString=DBLookupComboBox2.Text) then begin

         flag:=true;

         min:=DM.tMatboardPrice.AsInteger;

         n:=DM.tMatboard.RecNo;

    end;

    DM.tMatboard.Next;

  end;

  If not flag then MessageDlg('Запись  не найдена!',mtInformation,[mbOK],0)

    else begin

      DM.tMatboard.First;

      For i:=1 to DM.tProc.RecordCount do begin

        If (DM.tMatboardModel.AsString=Edit3.Text) and

           (DM.tMatboardFirm.AsString=DBLookupComboBox2.Text) then begin

             If DM.tMatboardPrice.AsInteger<min then begin

               min:=DM.tMatboardPrice.AsInteger;

               n:=DM.tMatboard.RecNo;

             end; //if

        DBGrid2.SetFocus

        end; //if

        DM.tMatboard.Next;

      end; //for i

      DM.tMatboard.RecNo:=n;

    end; //else

 

end;

 

//Процедура поиска  жесткого диска с наименьшей  ценой

procedure TMainForm.sHardClick(Sender: TObject);

var i,n,min:integer;

    flag:boolean;

begin

  flag:=false;