USE имя_файла_формы.scx
BROWSE

PROCEDURE Destroy
IF This.DataSource > 0
    SQLDISCONNECT(This.DataSource)
    This.DataSource = 0
ENDIF
ENDPROC

PROCEDURE Error
LPARAMETERS nError, cMethod, nLine
IF !EMPTY(cMethod) AND ATC('.', cMethod) = 0
    cMethod = this.Name + '.' + cMethod 
ENDIF
this.Parent.Error(nError, cMethod, nLine)
ENDPROC

PROCEDURE BeforeOpenTables
SET SAFETY OFF
SET tablevalidate TO 0
SET REPROCESS TO 6
SET DATE TO GERMAN
SET CENTURY ON
SET MULTILOCKS ON
SET DELETED ON
SET EXCLUSIVE OFF
SET NEAR OFF
SET EXACT ON
SET ANSI ON
SET INTENSITY OFF
SET CONFIRM ON
SET COMPATIBLE OFF
SET MEMOWIDTH TO 120
SET TALK OFF
*Создаем соеденение с сервером
*!*   THIS.ca_object.TAG=oapp.sql_stringconnect
*!*   THIS.ca_object.DATASOURCE=SQLSTRINGCONNECT(oapp.sql_stringconnect)
*!*   this.ca_Contr.Tag=oapp.sql_stringconnect
*!*   this.ca_Contr.DataSource=SQLSTRINGCONNECT(oapp.sql_stringconnect)
*!*   this.ca_Curator.Tag=oapp.sql_stringconnect
*!*   this.Ca_Curator.DataSource=SQLSTRINGCONNECT(oapp.sql_stringconnect)

*!*   IF THIS.ca_object.DATASOURCE <= 0
*!*       THIS.ERROR(1098, THIS.NAME+'.BeforeOpenTables', LINENO(1))
*!*       RETURN .F.
*!*   ENDIF
*!*   IF THIS.ca_Contr.DATASOURCE <= 0
*!*       THIS.ERROR(1098, THIS.NAME+'.BeforeOpenTables', LINENO(1))
*!*       RETURN .F.
*!*   ENDIF
*!*   IF THIS.Ca_Curator.DATASOURCE <= 0
*!*       THIS.ERROR(1098, THIS.NAME+'.BeforeOpenTables', LINENO(1))
*!*       RETURN .F.
*!*   ENDIF

this.DataSource=sqlstringconnect(oapp.sql_stringconnect)
IF THIS.DATASOURCE <= 0
    THIS.ERROR(1098, THIS.NAME+'.BeforeOpenTables', LINENO(1))
    RETURN .F.
ENDIF
ENDPROC

Top = 230
Left = 378
Width = 407
Height = 555
InitialSelectedAlias = "caContr"
DataSource = .NULL.
DataSourceType = "ODBC"
Name = "Dataenvironment"