local lcConnString, lnConnection, ;
	  laErrors[1]

lnConnection = sqlstringconnect('Driver=SQL Server;Server=192.168.0.5;UID=;PWD=;Database=Sales;')

if lnConnection<=0
   messagebox('не подцепился')
   return 
ELSE
   messagebox('Соединение с MS SQL сервером выполнено.')
endif

oMyCAD = createobject('CursorAdapter')

if vartype(oMyCAD)='O'
	with oMyCAD
		.Alias              = 'SalesData'
		.DataSourceType     = 'ODBC'
		.DataSource         = 'Driver=SQL Server;Server=192.168.0.5;UID=;PWD=;Database=Sales'
		.SelectCmd          = 'select data, nr_orders,  ean13, articul, quantity, saleprice, paid_mdl, quantity *saleprice AS summa  from sales'
		.Tables             = 'Sales'
		.BufferModeOverride = 5
		.cursorschema       = "DATA sales.DATA, EAN13 sales.EAN13, ARTICUL sales.ARTICUL, QUANTITY sales.QUANTITY, SALEPRICE sales.SALEPRICE "
		.keyFieldList		= "DATA, NR_ORDERS, EAN13, ARTICUL"
		.UpdatableFieldList = "EAN13, ARTICUL, QUANTITY"
		.updateNameList     = "DATA sales.data, NR_ORDERS sales.nr_orders, EAN13 sales.ean13, ARTICUL sales.articul, QUANTITY sales.quantity"
		.usetransactions    = .T.
		
		if .cursorfill(.T.)
			oForm =  createobject('myForm',oMyCAD)
			if vartype(oForm)='O'
				oForm.show()
				read events
			else
				messagebox('Ошибка. Не загрузилась форма.')
			endif
		else
			aerror(laErrors)
			messagebox(laErrors[2])
		endif
	endwith
else
	messagebox('Ошибка при инициализации КА')
endif