можливості збільшення точності завдяки відкритому можливостям удосконалення (в лист MS Excel можуть бути без праці додані додаткові критерії оцінки товару споживачами);
? завдяки розробці в середовищі Delphi програма може поширяться простим копіюванням (Portable version) не вимагаючи установки;
? може використовуватися людьми незнайомими з маркетинговою діяльністю завдяки дуже простому порядку введення даних.
ДОДАТОК
Лістинг програми
unit Unit1;
interface, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Grids, DBGrids, DB, ADODB, ExtCtrls, DBCtrls, Menus; = class (TForm): TButton;: TDBGrid;: TDBGrid;: TDBGrid;: TDBGrid;: TDBGrid;: TButton;: TButton;: TButton;: TButton;: TButton;: TButton;: TButton;: TButton;: TButton;: TButton;: TButton;: TButton; : TLabel;: TRadioGroup;: TRadioButton;: TRadioButton;: TButton;: TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem ;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem; Button1Click (Sender: TObject); btn1Click (Sender: TObject); btn2Click (Sender: TObject ); btn4Click (Sender: TObject); btn5Click (Sender: TObject); btn6Click (Sender: TObject); btn7Click (Sender: TObject); btn8Click (Sender: TObject); btn9Click (Sender: TObject); btn10Click (Sender: TObject) ; btn11Click (Sender: TObject); btn12Click (Sender: TObject); btn14Click (Sender: TObject); btn15Click (Sender: TObject); btn3Click (Sender: TObject); btn13Click (Sender: TObject); statistic1Click (Sender: TObject); Goods1Click (Sender: TObject); Marketadequacy1Click (Sender: TObject); Multicriteriaestimation1Click (Sender: TObject); Forecasts1Click (Sender: TObject); Goods2Click (Sender: TObject); Marketadequacy2Click (Sender: TObject); Multicriteriaestimation2Click (Sender: TObject); Forecasts2Click (Sender: TObject); Marketadequacy3Click (Sender: TObject); Multicriteriaestimation3Click (Sender: TObject); Forecasts3Click (Sender: TObject); hereportonthegoods3Click (Sender: TObject); Clear1Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm1;, b, c, d, e, f: Real; Unit2, DataModule, QueryModule;
{$ R *. dfm} TForm1.Button1Click (Sender: TObject);. show;; TForm1.btn1Click (Sender: TObject);. tbl1.Edit;; TForm1.btn2Click (Sender: TObject);. tbl1. Post;; TForm1.btn4Click (Sender: TObject);. tbl2.Edit;; TForm1.btn5Click (Sender: TObject);. tbl2.Post;; TForm1.btn6Click (Sender: TObject);. Tbl3.Edit;; TForm1.btn8Click (Sender: TObject);. Tbl3.Post;; TForm1.btn9Click (Sender: then then ShowMessage ('Development of this goods is illigal! FBI is already ...
