After remove toolbars in writer odt file, how to undo or any other way to setup database?
You must provide essential information. Without that, people can only guess as to what you are referring to. In this case I only know because of your recent comment on my answer here.
Now in that code there is an IF statement which does what you want if this was a form within Base. Since you are using a Writer document you need to run another macro to get your toolbars visible:
Sub ShowToolbars
Dim xCurrentController as Object
Dim xLayoutManager as Object
xCurrentController = thisComponent.CurrentController
xLayoutManager = thisComponent.CurrentController.Frame.LayoutManager
xLayoutManager.visible = true
End Sub
As with all questions, if you have been helped, please help others to know the question has been answered by clicking on the 
in upper left area of answer which satisfied the question.