blocks|key|3736348|text|非常感谢您的所有评论。在我的项目中，我只喜欢一个文件，那就是程序的EXE。因为我不想要任何其他单独的文件，所以我更喜欢将SQL查询存储在EXE资源中。由于SQL查询更改得太频繁，将SQL查询存储在数据库中需要额外的插入工作，所以我不喜欢将它们存储在数据库中。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|3736349|我试图开发最基本和最有帮助的方法来满足我的需要。在此方法中，所有SQL查询都以单一XML文件格式存储在EXE资源中。如果这个方法可以帮助其他人，我将在下面分享。|3736350|3736351|SQLQueries.rc：|unordered-list-item|offset|length|style|BOLD|3736352|3736353|RCDATA+SQLQueries.xml+SQLQueries|3736354|3736355|SQLQueries.xml+(单位:+UTF-8):|3736356|3736357|3736358|Project1.dpr：|3736359|3736360|程序Project1；{$APPTYPE控制台}+{$R+Project1.res}+//程序的默认res文件，存储图标、版本信息等。{$R+'SQLQueries.res‘SQLQueries.rc'}+//添加这一行。如果编译后未自动创建SQLQueries.res，请尝试将SQLQueries.rc文件拖放到项目中。使用Windows、类、XMLDoc、XMLIntf、Generics.Collections、ActiveX；var+SQLDictionary:+TDictionary；procedure；var+ResourceStream:+TResourceStream；XMLDocument:+IXMLDocument；XMLNode:+IXMLNode；i:+Integer；begin+ResourceStream+:=+(+:=，'SQLQUERIES'，ResourceStream)；尝试(0)；尝试()；对于I+XMLDocument.ChildNodes'SQLQueries'.ChildNodes.Count+0到XMLDocument.ChildNodes'SQLQueries'.ChildNodesi；-1确实开始XMLNode+:=+SQLDictionary.AddOrSetValue(XMLNode.Attributes'SQLQueryName'，XMLNode.Text)；结束；最终XMLDocument+:=+0；结束；最后ResourceStream.Free；结束；结束；开始CoInitialize(零)；尝试SQLDictionary+:=+TDictionary.Create；尝试LoadGetSQLQueries；Readln；SQLDictionary.Free；end；CoUninitialize；end；end.|3736361|3736362|用我的资源SQLQueries及其内容：|CODE|3736363|编译了EXE|3736364|📷|atomic|3736365|XMLDocument.LoadFromStream(ResourceStream)+|3736366|程序的Writeln(SQLDictionary['SQL1'])输出验证该查询是否已被Writeln(SQLDictionary['SQL1'])成功读取|3736367|3736368|3736369|entityMap|0|IMAGE|mutability|IMMUTABLE|imageUrl|https://developer.qcloudimg.com/http-save/yehe-900000/9c74b3a5d019644f5b778b4743cad092.png|imageAlt|1|https://developer.qcloudimg.com/http-save/yehe-900000/0a366ae96c5589e237afb19777617890.png^0|0|0|0|0|D|0|0|0|0|0|E|0|0|0|0|C|0|0|0|0|5|A|0|0|0|1|0|0|0|16|0|3|U|18|U|0|0|0|1|1|0^^$0|@$1|2|3|4|5|6|7|1O|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|1P|8|@]|9|@]|A|$]]|$1|D|3|-4|5|6|7|1Q|8|@]|9|@]|A|$]]|$1|E|3|F|5|G|7|1R|8|@$H|1S|I|1T|J|K]]|9|@]|A|$]]|$1|L|3|-4|5|6|7|1U|8|@]|9|@]|A|$]]|$1|M|3|N|5|6|7|1V|8|@]|9|@]|A|$]]|$1|O|3|-4|5|6|7|1W|8|@]|9|@]|A|$]]|$1|P|3|Q|5|G|7|1X|8|@$H|1Y|I|1Z|J|K]]|9|@]|A|$]]|$1|R|3|-4|5|6|7|20|8|@]|9|@]|A|$]]|$1|S|3|-4|5|6|7|21|8|@]|9|@]|A|$]]|$1|T|3|U|5|G|7|22|8|@$H|23|I|24|J|K]]|9|@]|A|$]]|$1|V|3|-4|5|6|7|25|8|@]|9|@]|A|$]]|$1|W|3|X|5|6|7|26|8|@]|9|@]|A|$]]|$1|Y|3|-4|5|6|7|27|8|@]|9|@]|A|$]]|$1|Z|3|10|5|G|7|28|8|@$H|29|I|2A|J|11]]|9|@]|A|$]]|$1|12|3|13|5|6|7|2B|8|@]|9|@]|A|$]]|$1|14|3|15|5|16|7|2C|8|@]|9|@$H|2D|I|2E|1|2F]]|A|$]]|$1|17|3|18|5|6|7|2G|8|@$H|2H|I|2I|J|11]]|9|@]|A|$]]|$1|19|3|1A|5|G|7|2J|8|@$H|2K|I|2L|J|11]|$H|2M|I|2N|J|11]]|9|@]|A|$]]|$1|1B|3|-4|5|6|7|2O|8|@]|9|@]|A|$]]|$1|1C|3|15|5|16|7|2P|8|@]|9|@$H|2Q|I|2R|1|2S]]|A|$]]|$1|1D|3|-4|5|6|7|2T|8|@]|9|@]|A|$]]]|1E|$1F|$5|1G|1H|1I|A|$1J|1K|1L|-4]]|1M|$5|1G|1H|1I|A|$1J|1N|1L|-4]]]]

Thank you very much for all of your comments. On my project I prefer only one file and that is the program's EXE. Since I don't want any other separate files, I prefer the SQL queries to be stored in an EXE resource. Since SQL queries are changing so often and storing the SQL queries in the database needs additional insert efforts, I don't prefer to store them in the database.
I tried to develop the most basic and helpful method for my needs. In this method, all SQL queries are being stored in an EXE resource as a single XML file format. I am sharing below if this method can help any other people.
<ul>
<li>SQLQueries.rc:
<pre class="lang-text prettyprint-override"><code>SQLQueries RCDATA SQLQueries.xml
</code></pre>
</li>
<li>SQLQueries.xml (in UTF-8):
<pre class="lang-xml prettyprint-override"><code>&lt;?xml version=&quot;1.0&quot; encoding=&quot;utf-8&quot;?&gt;
&lt;SQLQueries&gt;
 &lt;SQLQuery SQLQueryName=&quot;SQL1&quot;&gt;
 SELECT
 *
 FROM
 TABLE1
 WHERE
 1 = 1
 &lt;/SQLQuery&gt;
 &lt;SQLQuery SQLQueryName=&quot;SQL2&quot;&gt;
 SELECT
 *
 FROM
 TABLE2
 WHERE
 2 = 2
 &lt;/SQLQuery&gt;
&lt;/SQLQueries&gt;
</code></pre>
</li>
<li>Project1.dpr:
<pre class="lang-pas prettyprint-override"><code>program Project1;

{$APPTYPE CONSOLE}

{$R Project1.res} // program's default res file storing the icon, version info, etc..

{$R 'SQLQueries.res' 'SQLQueries.rc'} // add this line. if not SQLQueries.res automatically created after compile, try dragging and dropping SQLQueries.rc file to the project.

uses
 Windows, Classes, XMLDoc, XMLIntf, Generics.Collections, ActiveX;

var
 SQLDictionary: TDictionary&lt;string,string&gt;;

procedure LoadGetSQLQueries;
var
 ResourceStream: TResourceStream;
 XMLDocument: IXMLDocument;
 XMLNode: IXMLNode;
 i: Integer;
begin
 ResourceStream := TResourceStream.Create(HInstance, 'SQLQUERIES', RT_RCDATA);
 try
 XMLDocument := TXMLDocument.Create(nil);
 try
 XMLDocument.LoadFromStream(ResourceStream);
 for i := 0 to XMLDocument.ChildNodes['SQLQueries'].ChildNodes.Count - 1 do
 begin
 XMLNode := XMLDocument.ChildNodes['SQLQueries'].ChildNodes[i];
 SQLDictionary.AddOrSetValue(XMLNode.Attributes['SQLQueryName'], XMLNode.Text);
 end;
 finally
 XMLDocument := nil;
 end;
 finally
 ResourceStream.Free;
 end;
end;

begin
 CoInitialize(nil);
 try
 SQLDictionary := TDictionary&lt;string,string&gt;.Create;
 try
 LoadGetSQLQueries;
 Writeln(SQLDictionary['SQL1']);
 Readln;
 finally
 SQLDictionary.Free;
 end;
 finally
 CoUninitialize;
 end;
end.
</code></pre>
</li>
<li>Compiled EXE with my resource named <code>SQLQueries</code> and its content:
<img src="https://i.stack.imgur.com/jPV23.png" alt="EXE resources" />
</li>
<li>The program's output of <code>Writeln(SQLDictionary['SQL1'])</code> verifies that the SQL query has been read successfully by <code>XMLDocument.LoadFromStream(ResourceStream)</code>:
<img src="https://i.stack.imgur.com/OYk9I.png" alt="program's console output" />
</li>
</ul>

blocks|key|4170628|text|提示，您可以使用数据库服务器上的视图，在delphi中使用SELECT+*+FROM+VW_CUSTOMER的代码中，您总是可以在那里修改查询，好处是逻辑上的所有更改都自动反映在我们EXE的所有实例中，缺点是如果您删除o添加一个列，如果您添加了您的exe以显示新列，如果您删除或更改一个列的名称，您将在使用修改后的视图上有一个异常。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|4170629|entityMap^0|T|P|0^^$0|@$1|2|3|4|5|6|7|H|8|@$9|I|A|J|B|C]]|D|@]|E|$]]|$1|F|3|-4|5|6|7|K|8|@]|D|@]|E|$]]]|G|$]]

A tip, you can use views on the database server, on your code in delphi you use <code>SELECT * FROM VW_CUSTOMER</code>, you always can modify the queries there, the plus side is that all changes in the logic are automatically reflected in all your instances of our EXE, the cons side is if your remove o add a column, if you add there must be an uprade of your exe to show the new column, if your remove or change the name of a column, you will have an exception where the query on that modified view is used.

blocks|key|3736447|text|我会为每个查询寻找一个(文本)资源文件。这使得跟踪源代码管理系统中的更改变得更加容易。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|3736448|在项目目录中为SQL文件添加一个子文件夹，并将它们添加到rc文件中，如下所示：|3736449|SQL1+++++++++++++++TEXT++.\SQL\SQL1.sql
SQL2+++++++++++++++TEXT++.\SQL\SQL1.sql|code-block|syntax|javascript|3736450|将rc-文件添加到项目中，您就可以将SQL文本直接加载到TQuery的SQL成员中，就像|3736451|program+Project2;

{$APPTYPE+CONSOLE}

{$R+*.res}
{$R+'SQLQueries.res'+'SQLQueries.rc'}

uses
++Windows,
++Data.SqlExpr,
++Classes;

var
++ResourceStream:+TResourceStream;
++Query:+TSQLQuery;
begin
++ResourceStream+:=+TResourceStream.Create(HInstance,+'SQL1',+'TEXT');
++Query:=+TSQLQuery.Create(nil);
++try
++++Query.SQL.LoadFromStream(ResourceStream);
++++Writeln(Query.SQL.Text);
++++ReadLn;
++finally
++++Query.Free;
++++ResourceStream.free;
++end;
end.|3736452|entityMap^0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|O|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|P|8|@]|9|@]|A|$]]|$1|D|3|E|5|F|7|Q|8|@]|9|@]|A|$G|H]]|$1|I|3|J|5|6|7|R|8|@]|9|@]|A|$]]|$1|K|3|L|5|F|7|S|8|@]|9|@]|A|$G|H]]|$1|M|3|-4|5|6|7|T|8|@]|9|@]|A|$]]]|N|$]]

I'd go for a single (text) resource file for each query. That makes it much easier to trace changes in your source code management system.
Add a subfolder in your project's directory for your SQL files and add them to a rc- file like:
<pre><code>SQL1 TEXT .\SQL\SQL1.sql
SQL2 TEXT .\SQL\SQL1.sql
</code></pre>
Add that rc-file to the project and you can load the SQL text directly into the SQL member of a TQuery, just like
<pre><code>program Project2;

{$APPTYPE CONSOLE}

{$R *.res}
{$R 'SQLQueries.res' 'SQLQueries.rc'}

uses
 Windows,
 Data.SqlExpr,
 Classes;

var
 ResourceStream: TResourceStream;
 Query: TSQLQuery;
begin
 ResourceStream := TResourceStream.Create(HInstance, 'SQL1', 'TEXT');
 Query:= TSQLQuery.Create(nil);
 try
 Query.SQL.LoadFromStream(ResourceStream);
 Writeln(Query.SQL.Text);
 ReadLn;
 finally
 Query.Free;
 ResourceStream.free;
 end;
end.
</code></pre>

I am developing applications with Delphi XE. I have many long SQL queries and I don't want to store them in code like below, because this method reduces code readability:
<pre><code>CONST_SQL1 = 'SELECT ... FROM ..'#13#10 + 'WHERE ...';
</code></pre>
Maybe creating a DataModule and storing the SQL queries in the Memo components can be an alternative option. This way the SQL queries will have more readability rather than the method above but in this way, I have to add many Memo components in the DataModule like Memo_SQL1, Memo_SQL2, Memo_SQL3, ...
Also I don't want to store these SQL queries in separate files or in a database.
Is there a single component that I can store all these SQL queries inside or what is your best practice for this case?

Best practice for storing many long SQL queries in Delphi

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

学习中心

腾讯云实验室

直播

竞赛

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋 

腾讯云代码助手

CODING DevOps

Cloud Studio

SDK中心

API中心

命令行工具

我正在用Delphi XE开发应用程序。我有许多长SQL查询，我不想像下面这样将它们存储在代码中，因为这种方法降低了代码的可读性：CONST_SQL1 = 'SELECT ... FROM ..'#13#10 + 'WHERE ...';也许创建DataModule并将SQL查询存储在备注组件中是另一种选择。这样，SQ...

问在Delphi中存储许多长SQL查询的最佳实践
EN

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问在Delphi中存储许多长SQL查询的最佳实践EN