нтролю і нагляду у сфері правової охорони та використання об'єктів інтелектуальної власності, патентів і товарних знаків і результатів інтелектуальної діяльності, що втягуються в економічний і цивільно-правовий обіг, дотримання інтересів Російської Федерації, російських фізичних і юридичних осіб при розподілі прав на результати інтелектуальної діяльності, у тому числі створювані в рамках міжнародного науково-технічного співробітництва. Роспатент знаходиться у веденні Міністерства освіти і науки Російської Федерації. <В
Малюнок 3.1 - Вкладка В«ОператориВ»
В
Рисунок 3.2 - Вкладка В«КлієнтиВ»
В
Малюнок 3.3 - Вкладка В«ПослугиВ»
В
Малюнок 3.4 - Вкладка В«МістаВ»
4. Програма для ЕОМ
void __ fastcall TForm1 :: Edit3Change (TObject * Sender)
{if (RadioButton1-> Checked)
{TLocateOptions LO; -> IBTable1-> Locate ("FIO_KLIENTA", Edit3-> Text, LO <
// loPartialKey не чутливі пошуку до регіструif (RadioButton2-> Checked)
{TLocateOptions LO; -> IBTable1-> Locate ("NAZVANIE_GORODA", Edit3-> Text, LO <
{if (Application-> MessageBox (
"Дійсно хочете видалити запис?", "Підтвердіть видалення запису", _YESNO + MB_ICONQUESTION) == } P TForm1 :: Edit7Change (TObject * Sender)
{if (RadioButton3-> Checked)
{TLocateOptions LO; -> IBTable2-> Locate ("ID_GORODA", Edit7-> Text, LO < Checked)
{TLocateOptions LO; -> IBTable2-> Locate ("NAZVANIE_CORODA", Edit7-> Text, LO <
{ NAZVANIE_CORODA <= '"+ Edit9-> Text +"' "; -> IBTable2-> Active = true; -> IBTable2-> Filtered = true;}
{Form3-> QuickRep1-> Preview ();}
{ } P TForm1 :: Button4Click (TObject * Sender)
{if (Application-> MessageBox (
"Дійсно хочете змінити дані?",
"Підтвердіть занесення в базу даних", _YESNO + MB_ICONQUESTION) == IDYES)
{ = } DataModule2-> IBStoredProc2-> Cancel ();}
{Form9-> Show ();}
Висновок
У рамках даної курсової роботи була створена інформаційна си...
