From: Andrey C. <sku...@us...> - 2006-11-03 16:32:09
|
Update of /cvsroot/eas-dev/ocmng/EAS/admin In directory sc8-pr-cvs5.sourceforge.net:/tmp/cvs-serv6950/EAS/admin Added Files: dbconsole.prg dbconsole.xfl dbconsole.xml Log Message: Move all components to top level. Remove ocmng and xml2xmo sources. Add components: - dbconsole - form_menu, form_action and form_localization for menu generation - update form component for generation menu --- NEW FILE: dbconsole.prg --- /*-------------------------------------------------------------------------*/ /* E/AS Component (part of E/AS project) */ /* */ /* Copyright (C) 2006 by E/AS Software Foundation */ /* Author: Andrey Cherepanov <sk...@ea...> */ /* */ /* This program is free software; you can redistribute it and/or modify */ /* it under the terms of the GNU General Public License as */ /* published by the Free Software Foundation; either version 2 of the */ /* License, or (at your option) any later version. */ /*-------------------------------------------------------------------------*/ /*--------------------------------------------------------------------------/ / / / Name: Database console / / System name: dbconsole / / Description: Database console / / Version: 0.1 / / Author: Andrey Cherepanov <sk...@ea...> / / / / Available commands: / / EXECUTE Execute query / / <query> database query / / GETDATABASES Show available database names / / / / / /--------------------------------------------------------------------------*/ /** Component: dbconsole */ parameters cMethod, params local cContent:='' local oErr, i, err:='', m:='', res, a:={} local componentName:='dbconsole' oErr := ErrorBlock({|e| break(e) }) begin sequence /*=========================================================================*/ // EXECUTE() if lower(cMethod) == 'execute' eDebug(15, componentName + " args:", params) if assertParameters( params, { 'query:C' } ) return NIL endif m := lcomponent('sys.db', 'executeExt', 'db', iif('DB' $ params, params:db,''), 'query', params:query, 'format', .T.) eDebug( 17, componentName + ".execute:", m ) return m /*=========================================================================*/ // GETDATABASES() elseif lower(cMethod) == 'getdatabases' res := lcomponent('sys.db', 'execute', 'query', 'show databases;') for i in res aadd( a, i[1] ) next eDebug( 17, componentName + ".getDatabases:", a ) return a else eDebug(3, componentName + " has not method '"+cMethod+"'") endif recover using oErr i := 1 while ( !empty(ProcName(i)) ) err += "Called from "+allTrim(ProcName(i)) + ; componentName + ":" + alltrim(str(ProcLine(i))) + chr(10) i++ end eDebug(5, " internal error:", errorMessage(oErr)) return NIL end sequence return NIL --- NEW FILE: dbconsole.xfl --- <?xml version="1.0" encoding="koi8-r" standalone="no" ?> <!-- dbconsole.xfl - Database console window --> <form> <head> <call widget=".db" method="setList"> <param><call method="component"> <param value="dbconsole" /> <param value="getDatabases" /> </call></param> </call> </head> <interface> <widget class="childWindow" name=".window" label="Database console"> <widget class="editText" name=".output" /> <widget class="hbox"> <widget class="combobox" name=".db" /> <widget class="edit" name=".command+" /> </widget> <widget class="buttonBar"> <widget class="button" name=".run" label="&Execute" /> <widget class="button" name=".clear" label="Cl&ear" /> <widget class="button" name=".close" label="&Close" /> </widget> </widget> </interface> <style> <property widget=".output" name="readOnly" value="true" /> <property widget=".output" name="font.family" value="courier" /> </style> <actions> <rule> <event widget=".run" signal="clicked"/> <action> <call widget=".output" method="setValue"> <param><call method="component"> <param value="dbconsole" /> <param value="execute" /> <param value="query" /> <param><call widget=".command" method="getValue" /></param> <param value="db" /> <param><call widget=".db" method="getValue" /></param> </call></param> </call> </action> </rule> <rule> <event widget=".clear" signal="clicked"/> <action> <call widget=".command" method="setValue"><param value="" /></call> </action> </rule> <rule> <event widget=".close" signal="clicked"/> <action><call widget=".window" method="close"/></action> </rule> </actions> <locale lang="ru"> <string id="Database console" value="ëÏÎÓÏÌØ ÂÁÚÙ ÄÁÎÎÙÈ" /> <string id="&Execute" value="&÷ÙÐÏÌÎÉÔØ" /> <string id="Cl&ear" value="&ïÞÉÓÔÉÔØ" /> <string id="&Close" value="&úÁËÒÙÔØ" /> </locale> </form> --- NEW FILE: dbconsole.xml --- <?xml version="1.0" encoding="koi8-r" standalone="no" ?> <component> <name>dbconsole</name> <category>Core/Administration</category> <version>0.1</version> <description>Database console</description> <license>GNU/GPL</license> <created>2006-10-23</created> <modified>2006-10-23</modified> <requires> <dependence type="component">../forms/form_service.xml</dependence> </requires> <author>Skull</author> <data> <objects depository="ETC0101" class="mng_form"> <object> <attr name="name">dbconsole.po</attr> <attr name="type">application/x-clip-plugin</attr> <attr name="description">Database console plugin</attr> <attr name="content">dbconsole.po</attr> </object> <object> <attr name="name">dbconsole.xfl</attr> <attr name="type">application/x-xfl</attr> <attr name="description">Database console window</attr> <attr name="content">dbconsole.xfl</attr> </object> </objects> <objects depository="ETC0101" class="mng_command"> <object> <attr name="name">execute</attr> <attr name="component_name">dbconsole</attr> <attr name="form" refTo="ETC0101:mng_form">dbconsole.po</attr> <attr name="description"><![CDATA[Execute query. Arguments: query - String. CQL query. Returns: String with formatted result of query execution.]]> </attr> </object> <object> <attr name="name">getDatabases</attr> <attr name="component_name">dbconsole</attr> <attr name="form" refTo="ETC0101:mng_form">dbconsole.po</attr> <attr name="description"><![CDATA[Get list of available database names. Arguments: None. Returns: Array with available database names.]]> </attr> </object> </objects> <objects depository="ETC0101" class="form_menu"> <object> <attr name="menu_node">dbconsole</attr> <attr name="menu_type">A</attr> <attr name="menu_parent">service</attr> <attr name="menu_order">10</attr> </object> </objects> <objects depository="ETC0101" class="form_action"> <object> <attr name="name">dbconsole</attr> <attr name="menu_name">&Database console...</attr> <attr name="action"><![CDATA[ <call method="openForm"> <param value="dbconsole.xfl"/> </call>]]></attr> </object> </objects> <objects depository="ETC0101" class="form_localization"> <object> <attr name="lang">ru</attr> <attr name="context">menu_name</attr> <attr name="msgid">&Database console...</attr> <attr name="msgstr">ëÏÎÓÏÌØ &ÂÁÚÙ ÄÁÎÎÙÈ...</attr> </object> </objects> </data> <locale lang="ru"> <name>dbconsole</name> <description>ëÏÎÓÏÌØ ÂÁÚÙ ÄÁÎÎÙÈ</description> </locale> </component> |