----------------------------------------------------__fastcall TForm3 :: Btn2Click2 (TObject * Sender)
{- gt; Insert (); - gt; FieldByName ( Код викладача ) - gt; AsString=Edit4- gt; Text; - gt; FieldByName ( Прізвище ) - gt ; AsString=Edit5- gt; Text; - gt; FieldByName ( Ім'я ) - gt; AsString=Edit6- gt; Text; - gt; FieldByName ( батькові ) - gt; AsString=Edit7- gt; Text ; - gt; FieldByName ( Вчений ступінь ) - gt; AsString=Edit8- gt; Text; - gt; FieldByName ( Посада ) - gt; AsString=Edit9- gt; Text; - gt; FieldByName ( laquo ; Стаж ) - gt; AsString=Edit10- gt; Text; - gt; Post (); - gt; Text= raquo ;; - gt; Text= raquo ;; - gt; Text= raquo ;; - gt; Text= raquo ;; - gt; Text= raquo ;; - gt; Text= raquo ;; - gt; Text= raquo ;;
}
//---------------------------------------------------------------------------__fastcall TForm3 :: Button3Click (TObject * Sender)
{- gt; Insert (); - gt; FieldByName ( Дата ) - gt; AsString=Edit12- gt; Text; - gt; FieldByName ( Код викладача ) - gt ; AsString=Edit13- gt; Text; - gt; FieldByName ( Код предмету ) - gt; AsString=Edit14- gt; Text; - gt; FieldByName ( Тип заняття ) - gt; AsString=Edit15- gt ; Text; - gt; FieldByName ( Кількість годин ) - gt; AsString=Edit16- gt; Text; - gt; FieldByName ( Номер групи ) - gt; AsString=Edit17- gt; Text; - gt; Post (); - gt; Text= raquo ;; - gt; Text= raquo ;; - gt; Text= raquo ;; - gt; Text= raquo ;; - gt; Text= laquo ; raquo ;; - gt; Text= raquo ;; - gt; Text= raquo ;;
}
//---------------------------------------------------------------------------__fastcall TForm3 :: Button4Click (TObject * Sender)
{- gt; Insert (); - gt; FieldByName ( Код предмету ) - gt; AsString=Edit1- gt; Text; - gt; FieldByName ( Назва ) - gt ; AsString=Edit2- gt; Text; - gt; FieldByName ( Кількість годин ) - gt; AsString=Edit3- gt; Text; - gt; Post (); - gt; Text= raquo ;; - gt ; Text= raquo ;; - gt; Text= raquo ;;
}
//---------------------------------------------------------------------------__fastcall TForm3 :: Button5Click (TObject * Sender)
{(Edit11- gt; Text.IsEmpty ()); Options; .Clear (); lt; lt; loCaseInsensitive lt; lt; loPartialKey; (! DataSource1- gt; DataSet- gt; Locate (ComboBox2- gt; Text, Edit11- gt; Text, Options)) (Application- gt; Handle, За вашим запитом нічого не знайдено! raquo ;, Пошук raquo ;, MB_ICONINFORMATION);
}
//---------------------------------------------------------------------------__fastcall TForm3 :: N4Click (TObject * Sender)
{(Handle, L open , L helpm , NULL, NULL, SW_RESTORE);
}
//---------------------------------------------------------------------------__fastcall TForm3 :: N5Click (TObject * Sender)
{(MessageBoxA (Application- gt; Handle, Ви дійсно хочете вийти? raquo ;, Вихід з програми raquo ;, MB_YESNO + MB_ICONQUESTION) == IDYES) - gt; Close ();
}
//---------------------------------------------------------------------------__fastcall TForm3 :: FormClose (TObject * Sender, TCloseAction amp; Action)
{(ADOTable1- gt; Modified)
{- gt; Post ();
} (ADOTable2- gt; Modified)
{- gt; Post ();
} (ADOTable3- gt; Modified)
{- gt; Post ();
} - gt; Close ();
}
//---------------------------------------------------------------------------__fastcall TForm3 :: Button6Click (TObject * Sender)
{* DataSet=DBGrid1- gt; DataSource- gt; DataSet; (! DataSet- gt; Active)
{DataSet- gt; Open ();} (...)
{ gt; MessageBox (L Помилка при відкритті набору даних (DataSet)! , L Помилка raquo ;, MB_ICONERROR) ;;
}=crHourGlass; Excel, Cells;
{Excel=CreateOleObject ( Excel.Application );} (...)
{Excel=Unassigned;=crDefault; gt; MessageBox (L Помилка при відкритті сервера Excel! , L Помилка raquo ;, MB_OK + MB_ICONERROR) ;;}. OlePropertySet ( DisplayAlerts , false) ;. OlePropertySet ( Visible , false) ;. OlePropertySet ( WindowState raquo ;, - 4137);
{Excel.OlePropertyGet(laquo;Workbooksraquo;).OleProcedure(laquo;Addraquo;);}(...)
{Excel.OleProcedure ( Quit );=Unassigned;=crDefault; gt; MessageBox (L Помилка при створенні книги! , L Поми...