DEFINE CLASS frmwlistbox1 AS frmwlistbox

	DoCreate = .T.
	Caption = "Íîìåðè êâ."
	Name = "Frmwlistbox1"

	ADD OBJECT hyperlinklabel1 AS hyperlinklabel WITH ;
		Caption = "Âèáðàòè", ;
		Left =  24 , ;
		Top =  202 , ;
		Name = "Hyperlinklabel1"

ENDDEFINE

DEFINE CLASS frmwlistbox1 AS frmwlistbox

	DoCreate = .T.
	Caption = "Íîìåðè êâ."
	Name = "Frmwlistbox1"

	ADD OBJECT hyperlinklabel1 AS hyperlinklabel WITH ;
		Caption = "Âèáðàòè", ;
		Left =  24 , ;
		Top =  202 , ;
		Name = "Hyperlinklabel1"

	ADD OBJECT hyperlinklabel2 AS hyperlinklabel WITH ;
		Caption = "Âèáðàòè", ;
		Left =  124 , ;
		Top =  500 , ;
		Name = "Hyperlinklabel2"

ENDDEFINE

DEFINE CLASS pgsqlconnector AS custom

	odbcdriver = ""
	serverip = ""
	*-- Specifies the path to the database that contains the table or view associated with the Cursor object.
	database = ""
	dbuser = ""
	userpassword = ""
	spresult =  0 
	csqlstring = ""
	Name = "pgsqlconnector"


	PROCEDURE connector
		nConnHandle =  0 

		lcDSNLess="DRIVER=" + This.odbcdriver + ";" ; 
		+ "SERVER=" + this.serverip + ";" ;
		+ "UID=" + this.dbuser + ";" ;
		+ "PWD=" + this.userpassword + ";" ;
		+ "DATABASE=" + this.database
		** + "'"

		***WAIT WINDOW lcDSNLess
		nConnHandle = sqlstringconnect(m.lcDSNLess)

		IF nConnHandle <= 0
			this.con2postgresqlerror()
		ENDIF
		 
	ENDPROC


	PROCEDURE con2postgresqlerror
		=AERROR(lAerror)

		DO CASE
			CASE 'is not present in table' $ ALLTRIM(lAerror(3))
				DO FORM MEssager2.scx WITH 'У В А Г А   П О М И Л К А ! ! !', ;
						'Записати дані неможливо !', 'Ви заповнили не всі поля'
			CASE lAerror(4) = '23505'
				DO FORM MEssager2.scx WITH 'У В А Г А   П О М И Л К А ! ! !', ;
						'Унікальність порушено', 'Такий запис вже існує'
			CASE 'invalid input syntax for type date' $ ALLTRIM(lAerror(3))
				DO FORM MEssager2.scx WITH 'У В А Г А   П О М И Л К А ! ! !', ;
						'Записати дані неможливо !', 'Поля з датами повинні бути заповнені'


		*	CASE lAerror(5) = 7 && Unique constraint violation
		*		DO FORM MEssager2.scx WITH 'У В А Г А   П О М И Л К А ! ! !', ;
		*				'Такий запис вже', 'існує'
		*	CASE lAerror(5) = 113
		*		DO FORM MEssager.scx WITH 'Помилково введено користувача або пароль'

		OTHERWISE

		= MESSAGEBOX('Не можу отримати дані з бази' + CHR(13) + ;
		'Опис: [' + ALLTRIM(lAerror(2)) + ']'  + CHR(13) + ;
		'ODBC ErrorMessage: ' + ALLTRIM(lAerror(3))  + CHR(13) + ;
		'ODBC SQL state: '  + ALLTRIM(lAerror(4))  + CHR(13) + ;
		'The error № from the ODBC data source: ' + TRANSFORM(lAerror(5))  + CHR(13) + ;
		'The ODBC connection handle: ' + TRANSFORM(lAerror(6)), 16, ;
		'ПОМИЛКА SQL Connect № ' + TRANSFORM(lAerror( 1 )))
		 

		ENDCASE
		 
	ENDPROC


	PROCEDURE spexecute
		PARAMETERS cSqlstr, cCursorName

		this.spresult = SQLExec(nConnHandle, cSqlstr, cCursorName)
	ENDPROC


ENDDEFINE