Gedemin TLB.IgsQueryList.Abort - История изменений

SYSDBA в 07:51, 18 января 2016

2016-01-18T07:51:19Z

SYSDBA в 12:23, 17 января 2016

2016-01-17T12:23:16Z

SYSDBA в 10:49, 17 января 2016

2016-01-17T10:49:44Z

SYSDBA в 10:43, 17 января 2016

2016-01-17T10:43:06Z

SYSDBA: Новая страница: «{{MethodDef_Template|unit={{#explode:{{PAGENAME}}|.|0}}|visibility=public|class={{#explode:{{PAGENAME}}|.|1}}|src=procedure Abort(const AMessage: WideString; APre…»

2016-01-17T10:42:22Z

Новая страница: «{{MethodDef_Template|unit={{#explode:{{PAGENAME}}|.|0}}|visibility=public|class={{#explode:{{PAGENAME}}|.|1}}|src=procedure Abort(const AMessage: WideString; APre…»

Новая страница

{{MethodDef_Template|unit={{#explode:{{PAGENAME}}|.|0}}|visibility=public|class={{#explode:{{PAGENAME}}|.|1}}|src=procedure Abort(const AMessage: WideString; APreserveData: WordBool; ARollback: WordBool); safecall;}}

<onlyinclude>Прерывает построение отчета.</onlyinclude>

;AMessage: Сообщение, которое будет показано пользователю. Если задать пустую строку, то построение отчета прервется без вывода на экран каких либо дополнительных окон и сообщений.
;APreserveData: Не очищать BaseQueryList. Если задано True, то значение параметра ARollback ни на что не влияет.
;ARollback: Если APreserveData = False, то определяет как завершить транзакцию, на которой выполнялись запросы отчета. Откатить ее (True) или подтвердить (False).

Пример:

Option Explicit
Function rp_Main147093837_526525356(OwnerForm)

BaseQueryList.Clear

Set rp_Main147093837_526525356 = BaseQueryList

Dim q
Set q = BaseQueryList.Query(BaseQueryList.Add("q", 0))
q.SQL = "SELECT * FROM gd_contact"
q.Open

...

If ... Then ' что-то пошло не так...
BaseQueryList.Abort "Выполнение отчета прервано", False, True
Exit Function
End If

...

End Function

← Предыдущая		Версия 07:51, 18 января 2016
Строка 59:		Строка 59:
	End Function		End Function
	</syntaxhighlight>		</syntaxhighlight>
		+
		+	Первый способ предпочтительнее, так как ызов исключения достаточно тяжеловесен с точки зрения выполняемого программного кода и не дает всех возможностей по очистке BaseQueryList и управлению транзакцией.

@@ Строка 8: / Строка 8: @@
 Пример:
 <syntaxhighlight lang="VBNET">
    Option Explicit
@@ Строка 26: / Строка 27: @@
        BaseQueryList.Abort "Выполнение отчета прервано", False, True
        Exit Function
      End If

@@ Строка 4: / Строка 4: @@
 ;AMessage: Сообщение, которое будет показано пользователю. Если задать пустую строку, то построение отчета прервется без вывода на экран каких либо дополнительных окон и сообщений.
-;APreserveData: Не очищать BaseQueryList. Если задано True, то значение параметра ARollback ни на что не влияет.
+;APreserveData: APreserveData = True -- не очищать [[BaseQueryList]] (т.е. не выполнять метод Clear. В таком случае значение параметра ARollback ни на что не влияет).
 ;ARollback: Если APreserveData = False, то определяет как завершить транзакцию, на которой выполнялись запросы отчета. Откатить ее (True) или подтвердить (False).