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

лка raquo ;, MB_OK + MB_ICONERROR) ;; }=Excel.OlePropertyGet ( Cells ); n (0);//VisibleColumnsCount

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

{n ++ ;. OlePropertyGet ( Item , 1, n) .OlePropertySet ( Value raquo ;, DBGrid1- gt; Columns- gt; Items [i] - gt; Title- gt; Caption.c_str ());

//Горизонтальне вирівнювання - gt; За центру.OlePropertyGet ( Item raquo ;, 1, n) .OlePropertySet ( HorizontalAlignment raquo ;, - 4 108);

//Шрифт - gt; Жирный.OlePropertyGet(laquo;Itemraquo;,1,n).OlePropertyGet(laquo;Fontraquo;).OlePropertySet(laquo;Boldraquo;, True);

}

} (...)

{Excel.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 :: N1Click (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 Помилка raquo ;, MB_OK + MB_ICONERROR) ;; }=Excel.OlePropertyGet ( Cells ); n (0);//VisibleColumnsCount

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

{n ++ ;. OlePropertyGet ( Item , 1, n) .OlePropertySet ( Value raquo ;, DBGrid1- gt; Columns- gt; Items [i] - gt; Title- gt; Caption.c_str ());

//Горизонтальне вирівнювання - gt; За центру.OlePropertyGet ( Item raquo ;, 1, n) .OlePropertySet ( HorizontalAlignment raquo ;, - 4 108);

//Шрифт - gt; Жирный.OlePropertyGet(laquo;Itemraquo;,1,n).OlePropertyGet(laquo;Fontraquo;).OlePropertySet(laquo;Boldraquo;, True);

}

} (...)

{Excel....