{"id":2097,"date":"2024-09-10T14:31:14","date_gmt":"2024-09-10T06:31:14","guid":{"rendered":"http:\/\/www.jh1999.cn\/?p=2097"},"modified":"2024-11-26T22:22:10","modified_gmt":"2024-11-26T14:22:10","slug":"delphi%e6%95%b0%e6%8d%ae%e7%9a%84%e9%80%9a%e7%94%a8%e6%9f%a5%e8%af%a2%e6%96%b9%e6%b3%95","status":"publish","type":"post","link":"http:\/\/www.jh1999.cn\/?p=2097","title":{"rendered":"Delphi\u6570\u636e\u7684\u901a\u7528\u67e5\u8be2\u65b9\u6cd5"},"content":{"rendered":"
\n\n

Delphi + MSSQL\u63a7\u4ef6\u5f00\u53d1\u684c\u9762\u5e94\u7528\u8f6f\u4ef6\uff0c\u6570\u636e\u7684\u67e5\u627e\u662f\u4f7f\u7528\u6700\u591a\u7684\u529f\u80fd\uff0c\u5f00\u53d1\u4eba\u5458\u9488\u5bf9\u6bcf\u4e2a\u754c\u9762\u8bbe\u8ba1\u67e5\u8be2\u4ee3\u7801\uff0c\u4f1a\u8d39\u65f6\u8d39\u529b\u3002\u5efa\u7acb\u4e00\u4e2a\u6bcdFORM\uff0c\u6bcdFORM\u4e2d\u8bbe\u8ba1\u597d\u6570\u636e\u901a\u7528\u67e5\u8be2\u4ee3\u7801\uff0c\u518d\u7ee7\u627f\u7ed9\u5b9e\u4f8bFORM\uff0c\u5c06\u80fd\u4e8b\u534a\u529f\u500d\u3002<\/p>\n\n\n\n

\u5728\u684c\u9762\u5e94\u7528\u8f6f\u4ef6\u4e2d\uff0c\u7528 AdoQuery.Filter \u505a\u8fc7\u6ee4\uff0c\u6548\u679c\u597d\u8fc7\u52a8\u6001\u7f16\u8f91SQL\u8bed\u53e5\u91cd\u53d6\u6570\u636e\uff0c\u4e0b\u9762\u662f\u5b9e\u9645\u5e94\u7528\u4e2d\u7684\u4ee3\u7801\uff0c\u4e0d\u540c\u7248\u672c\u53ef\u80fd\u6709\u4e9b\u884c\u4e0d\u540c\uff1a<\/p>\n\n\n\n

\u65b9\u6848\u4e00\uff1a\u3010\u5373\u89c6\u751f\u7ba1\u3011\nprocedure TfmwManage.doFind(GridN:TDbGridEh);\t\nvar\n  sInput,sField,sSign,sFilter,sS:String;\n  tType:TFieldType;\n  iPos:integer;\nbegin\n  try\n    sInput:=InputBox('\u627eFind: ','','');\n    if sInput = '' then exit;\n    with GridN do\n    begin\n      if SelectedField.FieldKind <> fkData then exit;\n      sField:=SelectedField.FieldName;\n      tType:=SelectedField.DataType;\n      if copy(sInput,1,2)='>=' then\n      begin\n        sSign:='>=';\n        sInput:=copy(sInput,3,length(sInput)-2);\n      end else if copy(sInput,1,2)='<=' then\n      begin\n        sSign:='<=';\n        sInput:=copy(sInput,3,length(sInput)-2);\n      end else if copy(sInput,1,1)='>' then\n      begin\n        sSign:='>';\n        sInput:=copy(sInput,2,length(sInput)-1);\n      end else if copy(sInput,1,1)='<' then\n      begin\n        sSign:='<';\n        sInput:=copy(sInput,2,length(sInput)-1);\n      end else if pos('..',sInput)>0 then\n      begin\n        iPos:=pos('..',sInput);\n        sSign:='>=';\n        sS:=sInput;\n        sS:=copy(sInput,1,iPos-1)+''''+' and ['+sField+'] <= '+'''';\n        sInput:=sS+Copy(sInput,iPos+2,length(sInput)-iPos-1);\n      end else\n      begin\n        if (tType=ftString)or(tType=ftWideString) then\n        begin\n           sSign:='like';\n           sInput:='*'+sInput+'*';\n        end else if(tType=ftDateTime) then\n        begin\n           sSign:='>=';\n           sS:=DateToStr(StrToDate(sInput)+1);\n           sInput:=sInput+''''+' and ['+sField+'] < '+''''+sS;\n        end else\n        begin\n           sSign:='=';\n           sInput:=sInput;\n        end;\n      end;\n      sFilter:='['+sField+']'+' '+sSign+' '+''''+sInput+'''';\n      DataSource.DataSet.filtered:=false;\n      DataSource.DataSet.Filter:=sFilter;\n      DataSource.dataset.Filtered:=true;\n    end;\n except on E:Exception do\n   showmessage(E.message);\n end;\nend;<\/code><\/pre>\n\n\n\n
\u65b9\u6848\u4e8c\uff1a\u3010\u91d1\u6c47ERP\u3011\nprocedure TfmjhApp.SpBtn1Click(Sender: TObject);\t\nvar\n sInput,sField,sSign,sFilter,sS:String;\n tType:TFieldType;\n iPos:integer;\nbegin\n if(ActiveMdiChild=nil)or(DbNv0.DataSource=nil) then Exit;\n with ActiveMDIChild do\n begin\n  if ActiveControl is TDbGridEh then\n  begin\n   sField:=TDbGridEh(ActiveControl).SelectedField.FieldName;\n   tType:=TDbGridEh(ActiveControl).SelectedField.DataType;\n  end else if ActiveControl is TDbEdit then\n  begin\n   sField:=TDbEdit(ActiveControl).Field.FieldName;\n   tType:=TDbEdit(ActiveControl).Field.DataType;\n  end else if ActiveControl is TDbDateTimeEditEh then\n  begin\n   sField:=TDbDateTimeEditEh(ActiveControl).Field.FieldName;\n   tType:=TDbDateTimeEditEh(ActiveControl).Field.DataType;\n  end else if ActiveControl is TDbComboBoxEh then\n  begin\n   sField:=TDbComboBoxEh(ActiveControl).Field.FieldName;\n   tType:=TDbComboBoxEh(ActiveControl).Field.DataType;\n  end else if ActiveControl is TDbLookupComboBoxEh then\n  begin\n   sField:=TDbLookupComboBoxEh(ActiveControl).Field.FieldName;\n   tType:=TDbLookupComboBoxEh(ActiveControl).Field.DataType;\n  end else exit;\n end;\n  \/\/\u53d6\u5f97\u680f\u4f4d\u540e\u5982\u679c\u662f\u4e0b\u62c9\u680f\u4f4d\u5374\u6389lkup\n  if copy(sField,1,4)='lkup' then sField:=copy(sField,5,length(sField)-4);\n  \/\/\u53d6\u5f97\u8f93\u5165\u503c\u5e76\u6839\u636e\u8f93\u5165\u7ed3\u679c\u751f\u6210\u6709\u6548\u6761\u4ef6\u503c\n  sInput:=InputBox('\u8fc7\u6ee4\u5668','\u8fc7\u6ee4\u5185\u5bb9','');\n if sInput>'' then\n begin\n   if copy(sInput,1,2)='>=' then\n   begin\n    sSign:='>=';\n    sInput:=copy(sInput,3,length(sInput)-2);\n   end else if copy(sInput,1,2)='<=' then\n   begin\n    sSign:='<=';\n    sInput:=copy(sInput,3,length(sInput)-2);\n   end else if copy(sInput,1,1)='>' then\n   begin\n    sSign:='>';\n    sInput:=copy(sInput,2,length(sInput)-1);\n   end else if copy(sInput,1,1)='<' then\n   begin\n    sSign:='<';\n    sInput:=copy(sInput,2,length(sInput)-1);\n   end else if copy(sInput,1,1)='*' then\n   begin\n    sSign:='like';\n    sInput:=sInput+'*';\n   end else if pos('..',sInput)>0 then\n   begin\n    iPos:=pos('..',sInput);\n    sSign:='>=';\n    sS:=sInput;\n    sS:=copy(sInput,1,iPos-1)+''''+' and '+sField+' <= '+'''';\n    sInput:=sS+Copy(sInput,iPos+2,length(sInput)-iPos-1);\n   end else\n   begin\n    if (tType=ftString)or(tType=ftWideString) then\n    begin\n     sSign:='like';\n     sInput:='*'+sInput+'*';\n    end else\n    begin\n     sSign:='=';\n     sInput:=sInput;\n    end;\n   end;\n  try\n   if DbNv0.DataSource.DataSet.Filter>'0' then\n    sFilter:=DbNv0.DataSource.DataSet.Filter+' and ['+sField+']'+' '+sSign+' '+''''+sInput+''''\n   else\n    sFilter:='['+sField+']'+' '+sSign+' '+''''+sInput+'''';\n   DbNv0.DataSource.DataSet.Filter:=sFilter;\n   DbNv0.DataSource.DataSet.Filtered:=true;\n  except\n   showmessage('\u672c\u680f\u4f4d\u4e0d\u652f\u6301\u8fc7\u6ee4\u6216\u8fc7\u6ee4\u5185\u5bb9\u4e0d\u5408\u6cd5, \u8fc7\u6ee4\u5931\u8d25');\n   DbNv0.DataSource.DataSet.Filter:='';\n   DbNv0.DataSource.DataSet.Filtered:=false;\n  end;\n end; \nend;<\/code><\/pre>\n\n\n
\n
\"\"<\/figure>\n<\/div>\n
<\/svg><\/div><\/div><\/div>","protected":false},"excerpt":{"rendered":"
Delphi + MSSQL\u63a7\u4ef6\u5f00\u53d1\u684c\u9762\u5e94\u7528\u8f6f\u4ef6\uff0c\u6570\u636e\u7684\u67e5\u627e\u662f\u4f7f\u7528\u6700\u591a\u7684\u529f\u80fd\uff0c\u5f00\u53d1\u4eba\u5458\u9488\u5bf9\u6bcf\u4e2a\u754c\u9762\u8bbe\u8ba1\u67e5\u8be2\u4ee3\u7801 … \u9605\u8bfb\u66f4\u591a<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[5],"tags":[],"class_list":["post-2097","post","type-post","status-publish","format-standard","hentry","category-kfbj"],"_links":{"self":[{"href":"http:\/\/www.jh1999.cn\/index.php?rest_route=\/wp\/v2\/posts\/2097","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/www.jh1999.cn\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.jh1999.cn\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.jh1999.cn\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.jh1999.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=2097"}],"version-history":[{"count":6,"href":"http:\/\/www.jh1999.cn\/index.php?rest_route=\/wp\/v2\/posts\/2097\/revisions"}],"predecessor-version":[{"id":2365,"href":"http:\/\/www.jh1999.cn\/index.php?rest_route=\/wp\/v2\/posts\/2097\/revisions\/2365"}],"wp:attachment":[{"href":"http:\/\/www.jh1999.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=2097"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.jh1999.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=2097"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.jh1999.cn\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=2097"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}