Шаг 199.
Среда программирования Visual C++. Реализация компонента UploadStockData. Реализация команды Upload Data в приложении STUpload

    На этом шаге мы рассмотрим реализацию команды Upload Data.

    Сейчас мы напишем код команды Upload меню Data приложения STUpload. А также создадиv функцию-обработчик обновления пользовательского интерфейса, чтобы меню и команда панели инструментов становились доступными, только когда в приложение загружен документ.

• Реализация команды Upload Data.
  1. Закройте все документы, открытые в окне редактирования Visual Studio.
  2. В раскрывающемся списке в панели инструментов Build выберите проект STUpload.
  3. Откройте ClassWizard, нажав CTRL+W. В раскрывающемся списке Class name вкладки Message Maps щелкните класс CSTUploadDoc.
  4. Для идентификатора ID_DATA UPLOAD создайте обработчики COMMAND и UPDATE_COMMAND_UI с именами OnDataUpload() и OnUpdateDataUpload() соответственно. В списке Member functions выберите функцию OnUpdateDataUpload() и щелкните Edit Code, чтобы перейти к ее редактированию.

     
     Рис.1. Создание функций

  5. Напишите тело функции CSTUploadDoc::OnUpdateDataUpload() следующим образом:

     void CSTUploadDoc::OnUpdateDataUpload(CCmdUI* pCmdUI)
     {
       // Делаем доступной команду UploadData, только если в файле 
       // содержатся данные и для просмотра выбрана какая-то 
       // ценная бумага
       BOOL bEnable = GetCurrentFund().IsEmpty() ? FALSE : TRUE;
       pCmdUI->Enable(bEnable); 
     }
     

  6. В верхней части файла STUploadDoc.cpp добавьте такие директивы:

     #include <comdef.h>// Для поддержки СОМ в компиляторе 
     #include <lmcons.h>// Для получения доступа к константе UNLEN
     #include ".\STLoadData\STLoadData.h" 
     #include ".\STLoadData\STLoadData_i.c"
     

  7. Найдите функцию CSTUploadDoc::OnDataUpload() и добавьте в нее код, чтобы она выглядела следующим образом:

     void CSTUploadDoc::OnDataUpload() 
     {
       if( AfxMessageBox( "Upload current file to database?",
     		   MB_OKCANCEL ) == IDCANCEL )
         return;
     
     
       ::CoInitialize( NULL ); 
     
       _COM_SMARTPTR_TYPEDEF(IUploadStockData, __uuidof(IUploadStockData));
     	 
       IUploadStockDataPtr pServer;
     
       HRESULT hr = pServer.CreateInstance( CLSID_UploadStockData );
     
       if( SUCCEEDED( hr ) )
     	hr = pServer->ConnectToDatabase();
     
     
       if( SUCCEEDED( hr ) )
       {
         try
         {
           POSITION pos = m_DocList.GetHeadPosition();
     
           while( pos )
           {
             CStockData sd = m_DocList.GetNext( pos );
     
             BSTR fund = sd.GetFund().AllocSysString();
             DATE date = sd.GetDate().m_dt;
             double price = sd.GetPrice();
     
             DWORD dwLen = UNLEN + 1;
             TCHAR cUser[ UNLEN + 1 ];
             ::GetUserName( cUser, &dwLen );
             CString strUser( cUser );
     
             BSTR uplBy = (strUser.Left( 10 )).AllocSysString();
             COleDateTime dtToday = COleDateTime::GetCurrentTime();
             DATE uplDate = dtToday.m_dt;
     
             HRESULT hr = pServer->UploadRecord(fund,  
                date, price, uplBy, uplDate);
     
             ::SysFreeString( fund );
             ::SysFreeString( uplBy );
     
             if( FAILED( hr ))
             {
               CString strPrompt = "Upload of:\n";
               strPrompt += sd.GetAsString();
               strPrompt += "\nfailed";
     					
               if( AfxMessageBox( strPrompt, MB_OKCANCEL ) == IDCANCEL )
                      break;
              }
     						 
           }
     
           if( !pos ) // Мы добрались до конца цикла
               AfxMessageBox( "Upload completed successfully" );
         }
         catch( _com_error e )
         {
           ::MessageBox( NULL, e.ErrorMessage(), NULL, MB_OK );
         }
        pServer->Disconnect();
     
       }
     
       ::CoUninitialize();
     	
     }
     

      Разберитесь, как компонент UploadStockData создается и используется для загрузки в базу данных записей, содержащихся в переменной-члене m_DocList объекта документа. Обратите внимание, что Windows API-функция GetUserName() применяется для получения имени текущего зарегистрированного пользователя. Первые 10 символов этого имени размещаются в поле ph_uploadedby таблицы pricehistory базы данных Stocks. Теперь Вы можете приступить к сборке приложения STUpload.

• Проверка команды Upload Data.
  1. Запустите приложение STUpload. В меню Data щелкните Import и загрузите файл Ch10Test.dat.
  2. Выберите любую из ценных бумаг в окне Select Fund, чтобы сделать доступной команду Upload Data.
  3. В меню Data выберите команду Upload. Щелкните ОК, чтобы загрузить данные из файла в таблицу pricehistory базы данных Stocks. По завершении загрузки еще раз щелкните ОК.
  4. Снова запустите команду Upload меню Data. Обратите внимание, что теперь ни одна запись файла загружена не будет. Причина этому - ограничение на первичный ключ таблицы pricehistory не позволит добавить в нее дубликаты записей. Щелкните Cancel, чтобы прервать загрузку. Закройте приложение STUpload.
  5. В меню Пуск выберите Программы | Microsoft SQL Server. Запустите приложение Query Analyzer.
  6. В панели инструментов в раскрывающемся списке DB выберите Stocks.
  7. В главном окне Query Analyzer введите следующее:

       select * from pricehistory
     

  8. Чтобы выполнить этот SQL-запрос, нажмите CTRL+E. Результаты запроса появятся в нижней половине окна Query Analyzer (рисунок 2).

     
     Рис.2. Результаты выполнения запроса

     Убедитесь, что добавленные Вами строки находятся внизу таблицы, а в столбцах ph_uploadedby и ph_uploaddate указано имя Вашей учетной записи и текущая дата.

Текст измененного приложения можно взять здесь (719,0 Кб).

    Со следующего шага мы начнем рассматривать создание элементов ActiveX.

Предыдущий шаг Содержание Следующий шаг