[转载]Delphi Multi-Tier DB Application Code Generator
<p>信息来源: <a href="http://dev.csdn.net/develop/article/85/85044.shtm">[url]http://dev.csdn.net/develop/article/85/85044.shtm[/url]</a></p><p align="center"><font color="#ff6600" size="5"><strong>Code Generator Main Window</strong></font></p><p><br />We need input at least there parameters: Template Directory, Output Directory and UDL filename.<br />Here the Database.udl connect to MS SQL Server <strong>Northwind</strong> database.<br />Click "Help" button for more information.<br />Click "Generate Project Source Code" button to geneate source code.<br /><br /><a href="file:///H:/DelphiTest/DBGen/DBAPPCodeGenerator.PNG"><img alt="DBAPPCodeGenerator.PNG" src="http://p.blog.csdn.net/images/p_blog_csdn_net/dogbear2000/204787/o_DBAPPCodeGenerator.PNG" border="0" /></a></p><p>It will generate two directories in the output directory.<br />One is for application server and another is for the Client GUI program.<br /><br />You can open the app server project in Delphi and run it directly! (do this first to register the application server)<br />You can open the client GUI project in Delphi and run it directly!</p><p><font color="#ff0000"><strong><font size="5">Now you can copy what you need in the two projects into your real projects.<br /><br />It will save you a lot of time of : dragging and dropping components, renaming components, connecting components, setting captions ....</font></strong></font></p><p></p><p><font color="#3333ff" size="6"></font></p><hr color="#ff6600" /><p align="center"><font color="#3333ff" size="6"><strong>Generated projects</strong></font></p><p></p><p><font color="#3333ff" size="6"><strong>App Server:</strong></font></p><p><strong>Run Time:</strong></p><p><a href="file:///H:/DelphiTest/DBGen/AppServer_Run.PNG"><img alt="AppServer_Run.PNG" src="http://p.blog.csdn.net/images/p_blog_csdn_net/dogbear2000/204787/o_AppServer_Run.PNG" border="0" /></a><br />It will connect to database via Database.udl with exe file.<br /><br /><strong>Design Time:</strong></p><p><a href="file:///H:/DelphiTest/DBGen/AppServer_Design.PNG"><img alt="AppServer_Design.PNG" src="http://p.blog.csdn.net/images/p_blog_csdn_net/dogbear2000/204787/o_AppServer_Design.PNG" border="0" /></a></p><p></p><p><font color="#3333ff" size="6"><strong>GUI Client:</strong></font></p><p><strong>Run Time:</strong></p><p><a href="file:///H:/DelphiTest/DBGen/GUIClient_Run_Main.PNG"><img alt="GUIClient_Run_Main.PNG" src="http://p.blog.csdn.net/images/p_blog_csdn_net/dogbear2000/204787/o_GUIClient_Run_Main.PNG" border="0" /></a><br />It can use DCOMConnection, :SocketConnection or WebConnection. <br />Please config this in Config.ini</p><p><a href="file:///H:/DelphiTest/DBGen/GUIClient_TableGrids.PNG"><img alt="GUIClient_TableGrids.PNG" src="http://p.blog.csdn.net/images/p_blog_csdn_net/dogbear2000/204787/o_GUIClient_TableGrids.PNG" border="0" /></a></p><p><a href="file:///H:/DelphiTest/DBGen/GUIClient_Run_Employee.PNG"><img alt="GUIClient_Run_Employee.PNG" src="http://p.blog.csdn.net/images/p_blog_csdn_net/dogbear2000/204787/o_GUIClient_Run_Employee.PNG" border="0" /></a><br /><br /><a href="file:///H:/DelphiTest/DBGen/GUIClient_Run_Orders.PNG"><img alt="GUIClient_Run_Orders.PNG" src="http://p.blog.csdn.net/images/p_blog_csdn_net/dogbear2000/204787/o_GUIClient_Run_Orders.PNG" border="0" /></a><br /><br /></p><p><strong>Design Time:</strong></p><div align="center"><p></p><p align="left"><a href="file:///H:/DelphiTest/DBGen/GUIClient_Design1.PNG"><img alt="GUIClient_Design1.PNG" src="http://p.blog.csdn.net/images/p_blog_csdn_net/dogbear2000/204787/o_GUIClient_Design1.PNG" border="0" /></a><br /></p><p align="left"><a href="file:///H:/DelphiTest/DBGen/GUIClient_Design2.PNG"><img alt="GUIClient_Design2.PNG" src="http://p.blog.csdn.net/images/p_blog_csdn_net/dogbear2000/204787/o_GUIClient_Design2.PNG" border="0" /></a></p><p align="left"><a href="file:///H:/DelphiTest/DBGen/GUIClient_Design3.PNG"><img alt="GUIClient_Design3.PNG" src="http://p.blog.csdn.net/images/p_blog_csdn_net/dogbear2000/204787/o_GUIClient_Design3.PNG" border="0" /></a></p><p align="left"></p><p align="left">Enjoy it.</p><p align="left">2006.5</p></div>页:
[1]