QUESTION
 Before I package my application to send it to my customer, I need
 to change the database name in all my database query parts.  Is
 there an easy way to do this, ie. without opening each part?

ANSWER
 Execute the following in your VisualAge transcript window or
 in a workspace.  Make sure to change MyApp, OLDDB, and NEWDB.
 Ignore the message written to your transcript.

 ****Version 1.0****
 | bldr |
 MyApp allLocalClasses do: [: class |
  (bldr := class partBuilder) isNil ifFalse: [
   bldr subpartBuilders do: [: subbldr |
     (subbldr attributeSettingNamed: #databaseName) = 'OLDDB'
     ifTrue: [subbldr attributeSettingNamed: #databaseName put: 'NEWDB']].
   class partBuilder: bldr]].

 ****Version 2.0****
 | record bldr |
 MyApp allLocalClasses do: [: class |
  ((class inheritsFrom: AbtAppBldrPart)
   and: [(bldr := (record := class partBuilderRecord) builder) notNil])
    ifTrue: [bldr subpartBuilders do: [: subbldr |
     (subbldr attributeSettingNamed: #databaseName) = 'OLDDB'
     ifTrue: [subbldr attributeSettingNamed: #databaseName put: 'NEWDB']].
  class partBuilderRecord: record]].