Реферат Представлення знань в інформаційних системах

OleProcedure ( Quit ); (DataSet- gt; ControlsDisabled ()) DataSet- gt; EnableControls ();=crDefault; gt; MessageBox (L Помилка при передачі даних стовпців ! , L Помилка raquo ;, MB_OK + MB_ICONERROR);=Unassigned; Cells=Unassigned ;;} m=DataSet- gt; GetBookmark (); gt; DisableControls (); gt; First ();

{(! DataSet- gt; Eof)

{n=0; (int i=0; i lt; DBGrid1- gt; Columns- gt; Count; i ++) (DBGrid1- gt; Columns- gt; Items [i] - gt; Visible)

{n ++ ;. OlePropertyGet ( Item , DataSet- gt; RecNo + 1, n). ( Value raquo ;, DBGrid1- gt; Columns- gt; Items [i] - gt ; Field- gt; AsString.c_str ()); (i!=2) .OlePropertyGet ( Item raquo ;, DataSet- gt; RecNo + 1, n) .OlePropertySet ( HorizontalAlignment raquo ;, - 4108);

//З лівого края.OlePropertyGet ( Item raquo ;, DataSet- gt; RecNo + 1, n) .OlePropertySet ( HorizontalAlignment raquo ;, - 4 131);

} gt; Next ();

}

//Cтиль лініі.OlePropertyGet ( Range , Cells.OlePropertyGet ( Item raquo ;, 1, 1) ,. OlePropertyGet ( Item raquo ;, DataSet- gt; RecordCount + 1, n)). ( Borders ). OlePropertySet ( LineStyle raquo ;, 1);

} (...)

{Excel.OleProcedure ( Quit ); gt; GotoBookmark (m); DataSet- gt; FreeBookmark (m); (DataSet- gt; ControlsDisabled ()) DataSet- gt; EnableControls ();=Unassigned; Cells=Unassigned;=crDefault; gt; MessageBox (L Помилка при передачі даних , L Помилка raquo ;, MB_OK + MB_ICONERROR) ;;}

//Ставимо АвтоФильтр.OlePropertyGet(laquo;Rangeraquo;,Cells.OlePropertyGet(laquo;Itemraquo;,1,1),.OlePropertyGet(laquo;Itemraquo;,1,n)).OleProcedure(laquo;AutoFilterraquo;);

//Автофен (int i=1; i lt;=n; i++).OlePropertyGet(laquo;Columnsraquo;).OlePropertyGet(laquo;Itemraquo;,i).OleProcedure(laquo;AutoFitraquo;);gt;GotoBookmark(m); DataSet- gt; FreeBookmark (m); (DataSet- gt; ControlsDisabled ()) DataSet- gt; EnableControls ();=crDefault; .OlePropertySet ( Visible , true);=Unassigned;=Unassigned;

}

//---------------------------------------------------------------------------__fastcall TForm3 :: N2Click (TObject * Sender)

{(TabControl1- gt; TabIndex)

{0: - gt; Edit (); - gt; FieldByName ( Код предмету ) - gt; AsString=Edit1- gt; Text; - gt; FieldByName ( Назва )- gt; AsString=Edit2- gt; Text; - gt; FieldByName ( Кількість годин ) - gt; AsString=Edit3- gt; Text; - gt; Post (); ( Запис відредагована! raquo ;, mtInformation , TMsgDlgButtons () lt; lt; mbYes, 0); - gt; Text= raquo ;; - gt; Text= raquo ;; - gt; Text= raquo ;;; 1: - gt; Edit (); - 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 ( Стаж ) - gt; AsString=Edit10- gt; Text; - gt; Post (); ( Запис відредагована! raquo ;, mtInformation, TMsgDlgButtons () lt; lt; mbYes, 0); - gt; Text= raquo ;; - gt; Text= raquo ;; - gt; Text= raquo ;; - gt; Text= raquo ;; - gt; Text= raquo ;; - gt; Text= raquo ;; - gt; Text= raquo ;;;2: - gt; Edit (); - 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 (); ( Запис відредагована! raquo ;, mtInformation, TMsgDlgButtons () lt; lt; mbYes, 0); - gt; Text= raquo ;; - gt; Text= raquo ;; - gt; Text= raquo ;;- gt; Text= raquo ;; - gt; Text= raquo ;; - gt; Text= raquo ;; - gt; Text= raquo ;;;

}

}