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

            Вторая вкладка Операции над БД представлена на рис.7

Рис.7 Главная форма. Вторая вкладка.

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

Добавление нового типа антиквариата:

SELECT count(тип_антиквариата);

 FROM myrgr!type_anticvariata;

 WHERE type_anticvariata.тип_антиквариата = thisform.pageframe1.page2.text1.value into array ispresent

IF ispresent <> 0

              MessageBox("Данный тип уже существует в базе")

ELSE

              SELECT MAX( type_anticvariata.id_тип_антиквариата);

              FROM myrgr!type_anticvariata INTO ARRAY newind

              newind = newind + 1

              INSERT INTO type_anticvariata.dbf VALUE (newind, thisform.pageframe1.page2.text1.value)

ENDIF

thisform.refresh

Добавление самого антиквариата:

SELECT id_тип_антиквариата FROM myrgr!type_anticvariata;

WHERE type_anticvariata.тип_антиквариата = thisform.pageframe1.page2.ComboTypeAntic.value;

INTO ARRAY id_antictype

thisform.pageframe1.page2.ComboProdav.boundcolumn = 1

nameprodav = thisform.pageframe1.page2.ComboProdav.value

thisform.pageframe1.page2.ComboProdav.boundcolumn = 2

adressprodav = thisform.pageframe1.page2.ComboProdav.value

thisform.pageframe1.page2.ComboProdav.boundcolumn = 3

klientprodav = thisform.pageframe1.page2.ComboProdav.value

SELECT id_продавца FROM myrgr!seller;

WHERE seller.фамилия_продавца = nameprodav;

AND seller.адрес_продавца = adressprodav;

AND seller.клиент = klientprodav;

INTO ARRAY id_seller

thisform.pageframe1.page2.ComboPokup.boundcolumn = 1

namepokup = thisform.pageframe1.page2.ComboPokup.value

thisform.pageframe1.page2.ComboPokup.boundcolumn = 2

adresspokup = thisform.pageframe1.page2.ComboPokup.value

thisform.pageframe1.page2.ComboPokup.boundcolumn = 3

klientpokup = thisform.pageframe1.page2.ComboPokup.value

SELECT id_покупателя FROM myrgr!buyer;

WHERE buyer.фамилия_покупателя = namepokup;

AND buyer.адрес_покупателя = adresspokup;

AND buyer.клиент = klientpokup;

INTO ARRAY id_buyer

SELECT count(наименование);

 FROM myrgr!anticvariat;

 WHERE anticvariat.наименование = thisform.pageframe1.page2.text8.value;

              AND anticvariat.id_тип_антиквариата = id_antictype;

              AND anticvariat.id_продавца = id_seller;

              AND anticvariat.год_выпуска = thisform.pageframe1.page2.text9.value;

              AND anticvariat.место_издания = thisform.pageframe1.page2.text10.value;

              AND anticvariat.цена_руб = thisform.pageframe1.page2.text11.value;

              AND anticvariat.автор = thisform.pageframe1.page2.text12.value;

              AND anticvariat.id_покупателя = id_buyer;

              AND anticvariat.дата_поступл_на_фирму = thisform.pageframe1.page2.text13.value;

              AND anticvariat.дата_продажи_фирмой = thisform.pageframe1.page2.text14.value;

 INTO ARRAY ispresent

IF ispresent <> 0

                            MessageBox("Такой антиквариат уже существует в базе!!!")

ELSE

                            SELECT MAX(anticvariat.id_антиквариат);

                            FROM myrgr!anticvariat INTO ARRAY newind

                            newind = newind + 1

                            INSERT INTO anticvariat.dbf VALUE (newind, id_antictype, thisform.pageframe1.page2.text8.value,;

                            thisform.pageframe1.page2.text9.value, thisform.pageframe1.page2.text10.value, thisform.pageframe1.page2.text12.value,;

                            thisform.pageframe1.page2.text11.value,              thisform.pageframe1.page2.text13.value, id_seller, thisform.pageframe1.page2.text14.value, id_buyer)

ENDIF

thisform.refresh

**mainform.refresh

Добавление нового продавца:

SELECT count(фамилия_продавца);