集成OpenOffice替换为LibreOffice

2026-04-19 18:58:37 +00:00 · 2021-06-23 10:26:22 +08:00
parent 8a1eebb9b0
commit 79341b2c8e
14724 changed files with 2184695 additions and 551131 deletions
--- a/office-plugin/windows-office/share/basic/FormWizard/FormWizard.xba
+++ b/office-plugin/windows-office/share/basic/FormWizard/FormWizard.xba
@@ -1,31 +1,27 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
-<!--***********************************************************
- * 
- * Licensed to the Apache Software Foundation (ASF) under one
- * or more contributor license agreements.  See the NOTICE file
- * distributed with this work for additional information
- * regarding copyright ownership.  The ASF licenses this file
- * to you under the Apache License, Version 2.0 (the
- * "License"); you may not use this file except in compliance
- * with the License.  You may obtain a copy of the License at
- * 
- *   http://www.apache.org/licenses/LICENSE-2.0
- * 
- * Unless required by applicable law or agreed to in writing,
- * software distributed under the License is distributed on an
- * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
- * KIND, either express or implied.  See the License for the
- * specific language governing permissions and limitations
- * under the License.
- * 
- ***********************************************************-->
+<!--
+ * This file is part of the LibreOffice project.
+ *
+ * This Source Code Form is subject to the terms of the Mozilla Public
+ * License, v. 2.0. If a copy of the MPL was not distributed with this
+ * file, You can obtain one at http://mozilla.org/MPL/2.0/.
+ *
+ * This file incorporates work covered by the following license notice:
+ *
+ *   Licensed to the Apache Software Foundation (ASF) under one or more
+ *   contributor license agreements. See the NOTICE file distributed
+ *   with this work for additional information regarding copyright
+ *   ownership. The ASF licenses this file to you under the Apache
+ *   License, Version 2.0 (the "License"); you may not use this file
+ *   except in compliance with the License. You may obtain a copy of
+ *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
+-->
 <script:module xmlns:script="http://openoffice.org/2000/script" script:name="FormWizard" script:language="StarBasic">Option Explicit

 Public DocumentName as String
 Public FormPath as String
 Public WizardPath as String
-Public WebWizardPath as String
 Public WorkPath as String
 Public TempPath as String
 Public TexturePath as String
@@ -93,7 +89,6 @@ Dim SelList(0) as Integer
 Dim LocList() as String
 	SelList(0) = 0
 	BasicLibraries.LoadLibrary(&quot;Tools&quot;)
-	BasicLibraries.LoadLibrary(&quot;WebWizard&quot;)
 	bDebug = False
 	If Not bDebug Then
 		On Local Error GoTo WIZARDERROR
@@ -104,7 +99,7 @@ Dim LocList() as String
 	bEnableBinaryOptionGroup = False
 	bDisposeDoc = True
 	MaxIndex = -1
-	If Not InitResources(&quot;Formwizard&quot;,&quot;dbw&quot;) Then
+	If Not InitResources(&quot;Formwizard&quot;) Then
 		Exit Sub
 	End If
 	oDBContext = CreateUnoService(&quot;com.sun.star.sdb.DatabaseContext&quot;)
@@ -156,11 +151,11 @@ Dim LocList() as String
 						DlgFormDB.GetControl(&quot;lstTables&quot;).SelectItem(sContent, True)
 					Else
 						If CommandType = com.sun.star.sdb.CommandType.QUERY Then
-							SelIndex = IndexInArray(sContent, QueryNames()
+							SelIndex = IndexInArray(sContent, QueryNames())
 							DlgFormDB.GetControl(&quot;lstTables&quot;).SelectItemPos(SelIndex, True)
 						ElseIf CommandType = com.sun.star.sdb.CommandType.TABLE Then
-							SelIndex = IndexInArray(sContent, TableNames()
-							DlgFormDB.GetControl(&quot;lstTables&quot;).SelectItemPos(Ubound(QueryNames()+1 + SelIndex, True)
+							SelIndex = IndexInArray(sContent, TableNames())
+							DlgFormDB.GetControl(&quot;lstTables&quot;).SelectItemPos(Ubound(QueryNames()+1 + SelIndex, True))
 						End If
 					End If
 					CurCommandType = CommandType
@@ -189,7 +184,7 @@ Dim LocList() as String
 	ControlCaptionsToStandardLayout()
 	oDocument.GetCurrentController().Frame.ComponentWindow.Enable = True
 	oProgressBar.Value = 90
-	DialogModel.imgTheme.ImageURL = FormPath &amp; &quot;FormWizard_1.bmp&quot;
+	DialogModel.imgTheme.ImageURL = FormPath &amp; &quot;FormWizard_1.png&quot;
 	DialogModel.imgTheme.BackGroundColor = RGB(0,60,126)
 	ToggleDatabasePage(True)
 	oProgressBar.Value = 100
@@ -202,11 +197,11 @@ Dim LocList() as String
 		oFormDocuments = oDataSource.getFormDocuments()
 		DlgFormDB.Dispose()
 		oDocument.dispose()
-		Dim	bLinkExists as Boolean
+		Dim bLinkExists as Boolean
 		i = 1
-		Dim FormBaseName  as String
+		Dim FormBaseName as String
 		FormBaseName = FormName
-		Do								 
+		Do
 			bLinkExists = oFormDocuments.HasbyHierarchicalName(FormName)
 			If bLinkExists Then
 				i = i + 1
@@ -227,7 +222,7 @@ Dim LocList() as String
 	End If
 	If ((Not IsNull(oDBConnection)) And (Not bConnectionIsovergiven)) Then
 		oDBConnection.Dispose()
-	End If	
+	End If
 WIZARDERROR:
 	If Err &lt;&gt; 0 Then
 		Msgbox(sMsgErrMsg, 16, GetProductName())
@@ -262,7 +257,7 @@ Dim QueryIndex as Integer
 			CurCommandType = iCommandTypes(SelIndex)
 		End If
 		If CurCommandType = com.sun.star.sdb.CommandType.QUERY Then
-			QueryIndex = SelIndex  - Ubound(Tablenames()) - 1
+			QueryIndex = SelIndex - Ubound(Tablenames()) - 1
 			Tablename = QueryNames(QueryIndex)
 			oColumns = oDBConnection.Queries.GetByName(TableName).Columns
 		Else
@@ -292,7 +287,7 @@ Sub PreviousStep()
 		.cmdGoOn.Enabled = True
 		.lstSelFields.Tag = Not bControlsareCreated
 		.cmdGoOn.Label = sGoOn
-		.imgTheme.ImageUrl = FormPath &amp; &quot;FormWizard_1.bmp&quot;
+		.imgTheme.ImageUrl = FormPath &amp; &quot;FormWizard_1.png&quot;
 	End With
 	FormSetMoveRights()
 WIZARDERROR:
@@ -327,7 +322,7 @@ Sub NextStep()
 			DlgFormDB.EndExecute()
 			exit Sub
 	End Select
-	DialogModel.imgTheme.ImageUrl = FormPath &amp; &quot;FormWizard_&quot; &amp; DialogModel.Step &amp; &quot;.bmp&quot;
+	DialogModel.imgTheme.ImageUrl = FormPath &amp; &quot;FormWizard_&quot; &amp; DialogModel.Step &amp; &quot;.png&quot;
 	DlgFormDB.Title = WizardTitle(DialogModel.Step)
 WIZARDERROR:
 	If Err &lt;&gt; 0 Then
@@ -391,7 +386,7 @@ End Sub


 Sub StoreFormInDatabase()
-	Dim NoArgs() as new com.sun.star.beans.PropertyValue	
+	Dim NoArgs() as new com.sun.star.beans.PropertyValue
 	FormName = &quot;Form_&quot; &amp; sDBName &amp; &quot;_&quot; &amp; TableName &amp; &quot;.sxw&quot;
 	sFormUrl = TempPath &amp; &quot;/&quot; &amp; FormName
 	oDocument.StoreAsUrl(sFormUrl, NoArgs())
@@ -400,7 +395,6 @@ Sub StoreFormInDatabase()
 End Sub


-
 Sub StoreForm()
 Dim sTargetPath as String
 Dim TypeNames(0,2) as String
@@ -416,7 +410,6 @@ Dim oTypes() as Object
 End Sub


-
 Sub EmptyFieldsListboxes()
 Dim NullList() as String
 	ToggleListboxControls(DialogModel, False)
@@ -438,9 +431,9 @@ dim iSelPos as Integer
 	sFirstItem = oListBox.getItem(0)
 	If sFirstItem = DelEntryName Then
 		iSelPos = oListBox.getSelectedItemPos()
-	    oListBox.removeItems(0, 1)
+		oListBox.removeItems(0, 1)
 		If iSelPos &gt; 0 Then
-		    oListBox.selectItemPos(iSelPos-1, True)
+			oListBox.selectItemPos(iSelPos-1, True)
 		End If
 	End If
 End Sub