{"id":2303,"date":"2015-04-11T16:55:15","date_gmt":"2015-04-11T08:55:15","guid":{"rendered":"http:\/\/blog.qdac.cc\/?p=2303"},"modified":"2015-04-11T16:55:15","modified_gmt":"2015-04-11T08:55:15","slug":"qmacros-%e5%88%a9%e7%94%a8%e6%a8%a1%e6%9d%bf%e7%94%9f%e6%88%90%e6%95%b0%e6%8d%ae%e5%ba%93%e6%8f%92%e5%85%a5%e8%af%ad%e5%8f%a5","status":"publish","type":"post","link":"https:\/\/blog.qdac.cc\/?p=2303","title":{"rendered":"[QMacros] \u5229\u7528\u6a21\u677f\u751f\u6210\u6570\u636e\u5e93\u63d2\u5165\u8bed\u53e5"},"content":{"rendered":"<p>QMacros \u505a\u4e3a\u4e00\u4e2a\u6a21\u677f\u66ff\u6362\u5e93\uff0c\u62e5\u6709\u826f\u597d\u7684\u5c5e\u6027\u3002\u7ed3\u5408\u5408\u9002\u7684\u7b56\u7565\uff0c\u53ef\u4ee5\u5f88\u597d\u7684\u5b8c\u6210\u590d\u6742\u7684\u529f\u80fd\u3002<\/p>\n<p>\u6211\u4eec\u4e0b\u9762\u7684\u8fd9\u4e2a\u4f8b\u5b50\uff0c\u8bd5\u56fe\u57fa\u4e8e QMacros \u6a21\u677f\u751f\u6210\u4e00\u4e2aSQL\u6279\u91cf\u63d2\u5165\u811a\u672c\uff0c\u9996\u5148\u6211\u4eec\u6765\u770b\u4e0b\u6a21\u677f\u5b9a\u4e49\uff1a<\/p>\n<pre class=\"lang:delphi decode:true\">insert into mytable(Id,Name,Age,Sex,Scale,Comment) values ([Id.Quoted],[Name.Quoted],[Age],[Sex],[Scale],[Comment.Quoted]);<\/pre>\n<p>\u8fd9\u4e2a\u662f\u6211\u4eec\u751f\u6210\u4e00\u4e2a\u7b80\u5355 SQL \u7684\u6a21\u677f\u5b9a\u4e49\uff0c\u6a21\u677f\u4e2d\u5b8f\u4ee5 &#8216;[&#8216; \u5f00\u59cb\uff0c\u4ee5 &#8216;]&#8217; \u7ed3\u675f\uff0c\u5982\u679c\u4e00\u4e2a\u5b57\u6bb5\u52a0\u5165 .Quoted \u4ee3\u8868\u8fd9\u4e2a\u5b57\u6bb5\u7684\u503c\u8981\u88ab\u66ff\u6362\u4e3a\u7528\u5355\u5f15\u53f7\u5f15\u8d77\u6765\u7684\u5b57\u7b26\u4e32\u3002<\/p>\n<p>\u597d\u4e86\uff0c\u6211\u4eec\u5148\u770b\u4e00\u4e0b\u8fd9\u4e2a\u6267\u884c\u5b8f\u66ff\u6362\u7684\u6548\u679c\uff1a<\/p>\n<p><img loading=\"lazy\" decoding=\"async\" class=\"aligncenter size-full wp-image-2304\" src=\"https:\/\/blog.qdac.cc\/wp-content\/uploads\/2015\/04\/QMacro_Single.jpg\" alt=\"QMacro_Single\" width=\"989\" height=\"113\" srcset=\"https:\/\/blog.qdac.cc\/wp-content\/uploads\/2015\/04\/QMacro_Single.jpg 989w, https:\/\/blog.qdac.cc\/wp-content\/uploads\/2015\/04\/QMacro_Single-300x34.jpg 300w\" sizes=\"auto, (max-width: 989px) 100vw, 989px\" \/><\/p>\n<p>\u55ef\uff0c\u770b\u8d77\u6765\u6548\u679c\u4e0d\u9519\uff0c\u53ef\u662f\u53ea\u6709\u4e00\u6b21\u8bb0\u5f55\uff0c\u5982\u679c\u6211\u4eec\u8981\u6279\u91cf\u751f\u6210\u6240\u6709\u8bb0\u5f55\u7684SQL\u8bed\u53e5\u6211\u4eec\u600e\u4e48\u529e\uff1f\u6211\u4eec\u5728 QMacro \u7684\u4e00\u4e2a\u6f14\u793a\u7a0b\u5e8f\u4e2d\uff0c\u5229\u7528\u4e86 OnMissedMacro \u4e8b\u4ef6\u6765\u505a\u4e86\u4e00\u4e2a\u52a8\u6001\u7684\u5b8f\u5904\u7406\u3002\u8fd9\u91cc\u6211\u4eec\u7684\u6d4b\u8bd5\u73af\u5883\u662f XE7\uff0c\u4f7f\u7528\u4e86\u5b83\u7684\u533f\u540d\u51fd\u6570\u7248\u672c\uff0c\u5148\u76f4\u63a5\u4e0a\u4ee3\u7801\uff1a<\/p>\n<pre class=\"lang:delphi decode:true \">procedure TForm1.Button1Click(Sender: TObject);\r\nvar\r\n  AMacros: TQMacroManager;\r\nbegin\r\nAMacros := TQMacroManager.Create;\r\nAMacros.BooleanAsInt := True;\r\nFDataSet.DisableControls;\r\nMemo1.Lines.BeginUpdate;\r\ntry\r\n  Memo1.Lines.Clear;\r\n  AMacros.Push(FDataSet, '');\r\n  AMacros.SetOnMacroMiss(\r\n    procedure(ASender: TQMacroManager; AName: QStringW; const AQuoter: QCharW;\r\n      var AHandled: Boolean)\r\n    begin\r\n    AHandled := StartWithW(PQCharW(AName), 'Repeat:', True);\r\n    if AHandled then\r\n      ASender.Push(AName,\r\n        procedure(AMacro: TQMacroItem; const AQuoter: QCharW)\r\n        var\r\n          AReplace: TQMacroComplied;\r\n          AHelper: TQStringCatHelperW;\r\n        begin\r\n        AReplace := AMacros.Complie(DequotedStrW(Copy(AMacro.Name, 8, MaxInt),\r\n          '\"'), '[', ']');\r\n        if Assigned(AReplace) then\r\n          begin\r\n          AHelper := TQStringCatHelperW.Create;\r\n          try\r\n            FDataSet.First;\r\n            while not FDataSet.Eof do\r\n              begin\r\n              AHelper.Cat(AReplace.Replace).Cat(SLineBreak);\r\n              FDataSet.Next;\r\n              end;\r\n            AMacro.Value.Value := AHelper.Value;\r\n          finally\r\n            FreeAndNil(AHelper);\r\n            FreeAndNil(AReplace);\r\n          end;\r\n          end;\r\n        end);\r\n    end);\r\n  Memo1.Lines.Text := AMacros.Replace(edtExp.Text, '[', ']');\r\nfinally\r\n  Memo1.Lines.EndUpdate;\r\n  FreeAndNil(AMacros);\r\n  FDataSet.EnableControls;\r\nend;\r\nend;<\/pre>\n<p>\u9996\u5148\uff0c\u6211\u4eec\u7ea6\u5b9a\u4e86\u4e00\u4e2a\u683c\u5f0f\uff0c\u5982\u679c\u5b8f\u4ee5 \u201cRepeat:\u201d \u6253\u5934\uff0c\u5219\u8ba4\u4e3a\u662f\u91cd\u590d\u6570\u636e\u96c6\u4e2d\u7684\u6240\u6709\u8bb0\u5f55\uff0c\u8fd9\u4e2a\u5b8f\u540e\u9762\u5b9e\u9645\u66ff\u6362\u7684\u6a21\u677f\u4ee5\u53cc\u5f15\u53f7\u5305\u8d77\u6765\uff0c\u4ee5\u907f\u514d\u76f4\u63a5\u6bcf\u4e00\u6b21\u89e3\u6790\u65f6\u5c31\u88ab\u89e3\u6790\u5230\uff0c\u4e0b\u9762\u662f\u4e0a\u9762\u7684\u6539\u826f\u7684\u6a21\u677f\uff1a<\/p>\n<pre class=\"lang:tex decode:true \">[Repeat:\"insert into mytable(Id,Name,Age,Sex,Scale,Comment) values ([Id.Quoted],[Name.Quoted],[Age],[Sex],[Scale],[Comment.Quoted]);\"]<\/pre>\n<p>\u597d\u4e86\uff0c\u6211\u4eec\u4e0b\u9762\u56de\u8fc7\u6765\u770b\u4e0a\u9762\u8d34\u7684\u4ee3\u7801\uff1a<\/p>\n<ul>\n<li>AMacros.SetOnMacroMiss \u5728\u5904\u7406\u51fd\u6570\u4e2d\u68c0\u67e5\u672a\u627e\u5230\u7684\u5b8f\u662f\u5426\u4ee5 \u201cRepeat:\u201d \u6253\u5934\n<ul>\n<li>\u00a0\u5982\u679c\u4e0d\u662f\uff0c\u5219\u76f4\u63a5\u8fd4\u56de\uff0c\u7a0b\u5e8f\u4f1a\u62a5\u544a\u65e0\u6cd5\u627e\u5230\u6307\u5b9a\u7684\u5b8f\u5b9a\u4e49\uff1b<\/li>\n<li>\u53cd\u8fc7\u6765\uff0c\u5982\u679c\u627e\u5230\u4e86\uff0c\u5219Push\u8fd9\u4e2a\u5b8f\u5bf9\u5e94\u7684\u89e3\u6790\u51fd\u6570\uff0c\u800c\u8fd9\u4e2a\u89e3\u6790\u51fd\u6570\u6211\u4eec\u4e3a\u4e86\u76f4\u89c2\u4e00\u4e9b\uff0c\u4e5f\u76f4\u63a5\u505a\u6210\u4e86\u533f\u540d\u51fd\u6570<\/li>\n<\/ul>\n<\/li>\n<li>\u4ee5 Repeat \u6253\u5934\u7684\u5b8f\u7684\u89e3\u6790\u51fd\u6570\u505a\u4ee5\u4e00\u7cfb\u5217\u5904\u7406\uff1a\n<ul>\n<li>\u5c06 Repeat \u5b8f\u540d\u79f0\u4e2d\uff0c\u5f15\u7528\u4e2d\u7684\u5185\u5bb9\u53bb\u9664\u5f15\u53f7\uff0c\u5f97\u5230\u7684\u539f\u59cb\u5185\u5bb9\u8fdb\u884c\u7f16\u8bd1\uff1b<\/li>\n<li>\u5faa\u73af\u6570\u636e\u96c6\uff0c\u5bf9\u6bcf\u4e00\u6761\u8bb0\u5f55\u6267\u884c\u4e00\u6b21\u66ff\u6362\u5e76\u5c06\u66ff\u6362\u7ed3\u679c\u62fc\u63a5\u5230\u4e00\u8d77\uff0c\u505a\u4e3a\u8fd9\u4e2a\u5b8f\u7684\u503c\u8fd4\u56de\uff1b<\/li>\n<\/ul>\n<\/li>\n<\/ul>\n<p>\u7ecf\u8fc7\u4e0a\u9762\u7684\u5904\u7406\uff0c\u8fd9\u4e2a\u5b8f\u5c31\u5b8c\u6210\u4e86\u5faa\u73af\u5904\u7406\uff0c\u751f\u6210\u4e86\u6574\u4e2aSQL\u811a\u672c\uff0c\u6211\u4eec\u770b\u5b9e\u9645\u6267\u884c\u7684\u6548\u679c\uff1a<\/p>\n<p><a href=\"https:\/\/blog.qdac.cc\/wp-content\/uploads\/2015\/04\/SQLGEN.jpg\"><img loading=\"lazy\" decoding=\"async\" class=\"aligncenter size-full wp-image-2305\" src=\"https:\/\/blog.qdac.cc\/wp-content\/uploads\/2015\/04\/SQLGEN.jpg\" alt=\"SQLGEN\" width=\"911\" height=\"721\" srcset=\"https:\/\/blog.qdac.cc\/wp-content\/uploads\/2015\/04\/SQLGEN.jpg 911w, https:\/\/blog.qdac.cc\/wp-content\/uploads\/2015\/04\/SQLGEN-300x237.jpg 300w\" sizes=\"auto, (max-width: 911px) 100vw, 911px\" \/><\/a><\/p>\n","protected":false},"excerpt":{"rendered":"<p>QMacros \u505a\u4e3a\u4e00\u4e2a\u6a21\u677f\u66ff\u6362\u5e93\uff0c\u62e5\u6709 [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"site-sidebar-layout":"default","site-content-layout":"","ast-site-content-layout":"default","site-content-style":"default","site-sidebar-style":"default","ast-global-header-display":"","ast-banner-title-visibility":"","ast-main-header-display":"","ast-hfb-above-header-display":"","ast-hfb-below-header-display":"","ast-hfb-mobile-header-display":"","site-post-title":"","ast-breadcrumbs-content":"","ast-featured-img":"","footer-sml-layout":"","ast-disable-related-posts":"","theme-transparent-header-meta":"","adv-header-id-meta":"","stick-header-meta":"","header-above-stick-meta":"","header-main-stick-meta":"","header-below-stick-meta":"","astra-migrate-meta-layouts":"default","ast-page-background-enabled":"default","ast-page-background-meta":{"desktop":{"background-color":"var(--ast-global-color-4)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"tablet":{"background-color":"","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"mobile":{"background-color":"","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""}},"ast-content-background-meta":{"desktop":{"background-color":"var(--ast-global-color-5)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"tablet":{"background-color":"var(--ast-global-color-5)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"mobile":{"background-color":"var(--ast-global-color-5)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""}},"footnotes":""},"categories":[69,8,9,214],"tags":[],"class_list":["post-2303","post","type-post","status-publish","format-standard","hentry","category-c-builder","category-delphi","category-qdac","category-qmacros"],"views":4488,"_links":{"self":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/2303","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=2303"}],"version-history":[{"count":1,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/2303\/revisions"}],"predecessor-version":[{"id":2306,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/2303\/revisions\/2306"}],"wp:attachment":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=2303"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=2303"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=2303"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}