122
Таблица А.8
Поддерживаемые ОС анализируемых систем
DB2
MS SQL Server
MySQL
Oracle
Postgre SQL
Windows
+
+
+
+
+
Mac OS
+
+
+
+
+
Linux
+
+
+
+
+
BSD
-
+
+
-
+
UNIX
+
+
+
+
+
AmigaOS
-
+
+
-
-
Symbian
-
+
+
-
-
Дадим оценку рассматриваемых СУБД согласно аспекту «Требования к
рабочей среде», выстроим матрицу сравнений альтернатив (таблица А.9).
Предположим, что производительность обладает максимальной
важностью в сравнении с остальными критериями, запросы к рабочей среде
также считаются важными, поскольку при выборе СУБД на начальных этапах
затрагивается вопрос о совместимости анализируемой системы с имеющимися и
программными аппаратными средствами.
123
Таблица А.9
Матрица сравнений альтернатив согласно аспекту «Требования к рабочей
среде»
DB2
Oracle
MySQL
MS SQL
Postgre SQL
DB2
1
1
1/4
1/4
1/3
Oracle
1
1
1/4
1/4
1/2
MySQL
4
4
1
1
3
MS SQL
4
4
1
1
3
Postgre SQL
3
2
1/3
1/3
1
Выстроим матрицу сравнений критериев (таблица А.10), пронумеруем их
от 1 до 5 для удобства.
Таблица А.10
Матрица сравнений критериев
1
2
3
4
5
1
1
1
1/2
1/6
1/4
2
1
1
1/2
1/6
1/3
3
2
2
1
1/5
1/2
4
6
6
5
1
2
5
4
3
2
1/2
1
Вектор приоритетов альтернатив: 0,07 0,07 0,12 0,49 0,25
Отношение согласованности (ОС): 0,01. Индекс согласованности (ИС):
0,01. Главное собственное значение: 5,03.
Следовательно, веса анализируемых СУБД распределились таким
образом: PostgreSQL (0.11), Oracle (0.13), MySQL (0.16), DB2 (0.28), MS SQL
Server (0.32). На основании данного сравнения выбираем для использования
СУБД MS SQL Server.
124
Приложение В. Часть программного кода разработанного продукта
unit Unit2;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses Unit1, Unit3, Unit4, Unit6;
{$R *.dfm}
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
IF DataMOdule3.AdoTable4.Locate('Шифр',
DataMOdule3.adotable2.Fieldbyname('Шифр').Value, []) then
begin
DataMOdule3.AdoTable4.Edit;
//AdoTable2.Edit;
DataMOdule3.AdoTable4.FieldByName('Кол_во').Value:=DataMOdule3.AdoTable4.
FieldByName('Кол_во').Value
+DataMOdule3.AdoTable2.FieldByName('Кол_во').Value;
end
else
begin
DataMOdule3.AdoTable4.Append;
125
DataMOdule3.Adotable4.FieldByName('Шифр').Value:=DataMOdule3.Adotable2.Fie
ldByName('Шифр').Value;
DataMOdule3.Adotable4.FieldByName('Кол_во').Value:=DataMOdule3.Adotable2.Fi
eldByName('Кол_во').Value;
IF DataMOdule3.AdoTable3.Locate('Шифр',
DataMOdule3.adotable4.fieldbyname('Шифр').Value, []) then
DataMOdule3.Adotable4.FieldByName('Ед_изм').Value:=DataMOdule3.Adotable3.F
ieldByName('Ед_изм').Value;
form4.show;
end;
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
DataModule3.ADOTable2.First;
while not (DataModule3.ADOTable2.eof) do begin
DataModule3.AdoTable2.edit;
DataModule3.AdoTable2.FieldByName('Стоим').Value:=0;
DataModule3.AdoTable2.FieldByName('Сумм_НДС').Value:=0;
DataModule3.AdoTable2.FieldByName('Сумма_ск').Value:=0;
IF (DataModule3.AdoTable3.Locate('Шифр',
DataModule3.adotable2.fieldbyname('Шифр').Value, [])) and
(DataModule3.AdoTable1.Locate('Наим_Пост',
DataModule3.adotable2.fieldbyname('Наим_Пост').Value, []))
then begin
DataModule3.AdoTable2.FieldByName('Стоим').Value:=DataModule3.AdoTable2.fi
eldbyname('Кол_во').Value* DataModule3.AdoTable3.FieldByname('Цена').Value;
DataModule3.AdoTable2.FieldByName('Сумм_НДС').Value:=DataModule3.AdoTab
le2.fieldbyname('Стоим').Value*
DataModule3.AdoTable1.FieldByname('Ст_НДС').Value/100;
DataModule3.AdoTable2.FieldByName('Сумма_ск').Value:=DataModule3.AdoTable
2.fieldbyname('Стоим').Value*
DataModule3.AdoTable1.FieldByname('Скидка').Value/100;
126
end;
DataModule3.ADOTable2.next;
end;
end;
procedure TForm2.Button3Click(Sender: TObject);
begin
Form1.Show;
Form2.Hide;
end;
procedure TForm2.Button4Click(Sender: TObject);
begin
Form1.Show;
Form2.Hide;
end;
procedure TForm2.Button9Click(Sender: TObject);
begin
IF DataMOdule3.AdoTable4.Locate('Шифр',
DataMOdule3.adotable5.Fieldbyname('Шифр').Value, []) then
IF DataMOdule3.AdoTable4.FieldByName('Кол_во').Value-
DataMOdule3.AdoTable5.FieldByName('Кол_во').Value<0
then DataMOdule3.AdoTable4.FieldByName('Кол_во').Value:=0
else begin
DataMOdule3.AdoTable4.Edit;
DataMOdule3.AdoTable4.FieldByName('Кол_во').Value:=DataMOdule3.AdoTable4.
FieldByName('Кол_во').Value -
DataMOdule3.AdoTable5.FieldByName('Кол_во').Value
end
else Showmessage ('Продажа не возможна! Склад пуст!');
127
end;
procedure TForm2.RadioGroup1Click(Sender: TObject);
begin
DataModule3.ADOTable1.IndexFieldNames:='Наим_Пост';
end;
procedure TForm2.RadioButton1Click(Sender: TObject);
begin
DataModule3.ADOTable1.IndexFieldNames:='Наим_Пост';
end;
procedure TForm2.RadioButton2Click(Sender: TObject);
begin
DataModule3.ADOTable2.IndexFieldNames:='Шифр';
end;
procedure TForm2.RadioButton3Click(Sender: TObject);
begin
DataModule3.ADOTable2.IndexFieldNames:='Наим_Пост';
end;
procedure TForm2.RadioButton4Click(Sender: TObject);
begin
DataModule3.ADOTable3.IndexFieldNames:='Шифр';
end;
procedure TForm2.RadioButton5Click(Sender: TObject);
begin
DataModule3.ADOTable3.IndexFieldNames:='Наим_тов';
128
end;
procedure TForm2.Button10Click(Sender: TObject);
begin
form6.QuickRep1.Preview;
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
form6.QuickRep2.Preview;
end;
procedure TForm2.Button11Click(Sender: TObject);
begin
form6.QuickRep3.Preview;
end;
procedure TForm2.Button12Click(Sender: TObject);
begin
form6.QuickRep4.Preview;
end;
procedure TForm2.Button13Click(Sender: TObject);
begin
form6.QuickRep5.Preview;
end;
procedure TForm2.Button8Click(Sender: TObject);
begin
DataModule3.ADOTable5.First;
129
while not (DataModule3.ADOTable5.eof) do begin
DataModule3.AdoTable5.edit;
IF DataModule3.AdoTable3.Locate('Шифр',
DataModule3.adotable5.fieldbyname('Шифр').Value, [])
then begin
DataModule3.AdoTable5.FieldByName('Стоим').Value:=DataModule3.AdoTable5.fi
eldbyname('Кол_во').Value* DataModule3.AdoTable3.FieldByname('Цена').Value;
end;
DataModule3.ADOTable5.next;
end;
end;
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form1.Show;
Form2.Hide;
end;
procedure TForm2.RadioButton6Click(Sender: TObject);
begin
DataModule3.ADOTable3.IndexFieldNames:='Цена';
end;
procedure TForm2.RadioButton7Click(Sender: TObject);
begin
DataModule3.ADOTable2.IndexFieldNames:='Дата_пост';
end;
procedure TForm2.RadioButton8Click(Sender: TObject);
begin
130
DataModule3.ADOTable5.IndexFieldNames:='Шифр';
end;
procedure TForm2.RadioButton9Click(Sender: TObject);
begin
DataModule3.ADOTable5.IndexFieldNames:='Дата_реал';
end;
procedure TForm2.RadioButton10Click(Sender: TObject);
begin
DataModule3.ADOTable5.IndexFieldNames:='№_Чека';
end;
procedure TForm2.RadioButton11Click(Sender: TObject);
begin
DataModule3.ADOTable1.IndexFieldNames:='Адрес_Пост';
end;
procedure TForm2.RadioButton12Click(Sender: TObject);
begin
DataModule3.ADOTable1.IndexFieldNames:='РНН';
end;
procedure TForm2.RadioButton13Click(Sender: TObject);
begin
DataModule3.ADOTable4.IndexFieldNames:='Шифр';
end;
procedure TForm2.RadioButton14Click(Sender: TObject);
begin
131
DataModule3.ADOTable4.IndexFieldNames:='Стеллаж';
end;
end.
unit Unit3;
procedure ADOTable2AfterInsert(DataSet: TDataSet);
procedure ADOTable5AfterInsert(DataSet: TDataSet);
private
{ Private declarations }
public
{ Public declarations }
end;
var
DataModule3: TDataModule3;
implementation
uses Unit1, Unit2, Unit4;
{$R *.dfm}
procedure TDataModule3.ADOTable2AfterInsert(DataSet: TDataSet);
begin
AdoTable2.FieldByName('Стоим').Value:=0;
AdoTable2.FieldByName('Сумм_НДС').Value:=0;
AdoTable2.FieldByName('Сумма_ск').Value:=0;
end;