public nConn
nConn=0
=sqlsetprop(0,"DispLogin" , 3 )
lcSqlstringconnect=;
	[Driver={MySQL ODBC 3.51 Driver};Port=3306;]+;
	[Server=localhost;]+;
	[STMT=set NAMES cp1256;]+;
	[Database=tdata;]+;
	[Uid=root;]+;
	[Pwd=;]+;
	[.t.]
nConn=sqlstringconnect(lcSqlstringconnect)
if nConn < 1
	messagebox([غير قادر على التواصل مع السيرفر])
	return .f.
endif
=sqlsetprop(nConn,"Transactions", 2)