bb.donnay-software.com

Code: Select all

// Обучение

#include "ads.ch"
#include "adsdbe.ch"
#include "dcdialog.ch"
#include "dccursor.ch"
#include "Gra.ch     "
#include "xbp.ch     "
#pragma library( "XBTBASE1.LIB" )
#pragma library( "XBTBASE2.LIB" )
#pragma library( "dclipx.lib  " )

   // Загрузить ADSDBE как стандартный механизм базы данных
   PROCEDURE DbeSys
      IF !DbeLoad( "ADSDBE" )
         Alert( "ADSDBE could not be loaded!" ) // ADSDBE не был загружен
      ENDIF
      DbeSetDefault( "ADSDBE" )
  RETURN

  PROCEDURE Main

     // ############################################################

// Соединиться с сервером базы данных

LOCAL cConnect := "DBE=ADSDBE;SERVER=C:\1\"

LOCAL oSession := DacSession():new( cConnect )
LOCAL nErrorCode := oSession:getLastError() 
LOCAL cErrorMsg  := oSession:getLastMessage()

MsgBOX( nErrorCode )
MsgBOX( cErrorMsg )

IF !oSession:isConnected()
   MsgBOX( "Соединение с ADS (сервером) не может быть установлено !!!" )
   QUIT
ELSE
   MsgBOX( "Соединение с ADS (сервером) установлено успешно !!!" )
ENDIF

   DIRCHANGE("C:\1\")   // Перейти в папку с базами данных на сервере

      * Открыть транзакцию  ###############################################
oSession:beginTransaction()

   ****** Если БД Classes.dbf нет, то создать ее

   cFileName  := "Classes"

   ********** Rsp_it#.dbf уровень сходства объекта с классом: k-корреляция, i-сумма информации
   aStructure := { { "Kod"  , "N", 15, 0},;   // 1
                   { "Name" , "C",130, 0},;   // 2
                   { "Dost" , "N", 21, 7} }   // 7  (Max_Value-Min_Value)/2

FOR j=1 TO 20000  // <<<<===============
    FieldName = "C"+ALLTRIM(STR(j,21))
    AADD(aStructure, { FieldName  , "N", 21, 7 })
NEXT
   DbCreate( cFileName, aStructure )


   CLOSE ALL
   USE Classes SHARED NEW
   APPEND BLANK
   REPLACE Kod WITH 1
   REPLACE Name WITH "Привет"







      * Закрыть транзакцию  ###############################################
oSession:commitTransaction()

     // ############################################################
     // Закрыть базы данных и отсоединиться от сервера.
      DbCloseAll()
      oSession:disconnect()

   RETURN