以“&字段名”作为变量的SQL语句解析用到思路和方法

最新推荐文章于 2022-06-30 20:45:00 发布
最新推荐文章于 2022-06-30 20:45:00 发布
阅读量4.5k 收藏
点赞数
分类专栏： 研发
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/hrdzkj/article/details/7985043
版权
{******************************************************************************
名    称：StrToStrings
主要功能：字符串转换为字符列表
参数说明：字符串、分隔符、字符串列表
返 回 值：无
主要流程：
编写日期：
编写人员：
更新日志：
*******************************************************************************}


procedure pdStrToStrings(S: string; Sep: string; List: TStrings);
var
  I, L: Integer;
  Left: string;
begin
  List.Clear;
  L := Length(Sep);
  I := Pos(Sep, S);
  while (I > 0) do
  begin
    Left := Copy(S, 1, I - 1);
    List.Add(Left);
    Delete(S, 1, I + L - 1);
    I := Pos(Sep, S);
  end;
  if Trim(S) <> '' then
    List.Add(S);

end;


//更新脚本中的变量
function fnSetSqlVariable(sSqlText:string;lList:TStrings):string;
var
  i,iPos:Integer;
  sNameText:string;
begin
  Result :='';
  for  i:=0  to lList.Count-1 do
  begin
    sNameText := UpperCase(lList.Names[i]);
    iPos := Pos('&'+sNameText,UpperCase(sSqlText));
    if iPos>0 then
    begin
      sSqlText:=StringReplace(sSqlText,'&'+sNameText,lList.Values[sNameText],[rfReplaceAll]);
    end;
  end;
  Result :=  sSqlText;
end;


思路：

{
  字符串转换为字符列表；
  循环界面，取变量。
  设置变量
}


附加：
{******************************************************************************
单元名称：uBBPublic.pas
主要功能：报表公共单元
编写日期：
编写人员：
更新日志：
******************************************************************************}


unit uBBPublic;


interface


{copyright by NanNing Huarong Electronic Technology Co., Ltd.2010}


uses SysUtils, Forms,  Controls, Classes, Windows, ShellApi, StrUtils,
  Registry, TypInfo, Messages, ADODB, DBCtrls, StdCtrls, Winsock,
  uConst, Dialogs, uMsgBox, inifiles, Variants, uAdodsOp;
type
  PNodxRec = ^TNodxRec;
  TNodxRec = record
    vNodeID: string; //ID号
    vNodeName: string; //名称
    vNodeReport: string; //报表类型
    vNodeMeno: string;//描述
  end;
  TSelectRec = record
    vIdText:string;//编号
    vNameText:string;//名称
  end;
  function fnGetSelectSql(sSqlText:string):string;
  function fnGetCaption(sSqlText:string):string;
  function fnGetVariable(sVarText:string):string;
  function fnGetSelectText(sSqlText:string):string;
  function fnSetVariable(sVarText:string):string;
  function fnSetSqlVariable(sSqlText:string;lList:TStrings):string;
  function fnGetBmSql(sSqlText: string):string;
  procedure pdCreateTable;


implementation
uses
  uPublic,ufrmBbPrompt,uDataBase;


  //创建表
procedure pdCreateTable;
var
  sSql:string;
  pDBOpr: IDBOper;
  AdodsOp: IAdodsOp;
begin
  pDBOpr := TDBOper.Create;
  with pDBOpr do
  begin
    if not CheckTableExists('ZRB1') then
    begin
       sSql := 'CREATE TABLE ZRB1(';
       sSql := sSql+'BAZ001 VARCHAR2(16) PRIMARY KEY,';
       sSql := sSql+'BAZ002 VARCHAR2(20),';
       sSql := sSql+'BAZ003 VARCHAR2(100),';
       sSql := sSql+'BAZ004 LONG,';
       sSql := sSql+'BAZ005 DATE DEFAULT SYSDATE,';
       sSql := sSql+'BAZ006 VARCHAR2(2000))';
       try
          AdodsOp := TAdodsOp.Create();
          AdodsOp.ExcuteSQL(sSql);
       except
          on E:Exception do
            pdMsgOK('创建表错误！'+E.Message+';脚本:->'+sSql);
       end;
    end;
  end;
end;


//取主脚本语句
function fnGetSelectSql(sSqlText:string):string;
var
  iPos,i,x,iRow,iFlag:Integer;
  sSelectSql,sText:string;
  sVarText,sVarName,sVarValue:string;
  lSqlTextList,lValueList:TStrings;
begin
  lSqlTextList := TStringList.Create;
  lValueList:= TStringList.Create;
  lValueList.Clear;
  iFlag := 0;
  try
    try
      pdStrToStrings(sSqlText,';',lSqlTextList);
      //取变量    //set 方式的变量
      for i:=0 to lSqlTextList.Count-1 do
      begin
        sText := Trim(lSqlTextList.Strings[i]);
        sVarText := fnGetVariable(sText);
        if sVarText<>'' then lValueList.Add(sVarText);
      end;
      
      //设置变量  //get方式外部带入的变量
      for i:=0 to lSqlTextList.Count-1 do
      begin
        sText := Trim(lSqlTextList.Strings[i]);
        for x:=0 to lValueList.Count-1 do
        begin
          sVarName := lValueList.Names[x];
          sVarValue:= lValueList.Values[sVarName];
          iPos := Pos(UpperCase('&'+lValueList.Names[x]),UpperCase(sText));
          if iPos>0 then sText:= StringReplace(sText,'&'+sVarName,sVarValue,[rfReplaceAll]);
        end;
        sVarText := fnSetVariable(sText);
        if sVarText<>'' then
        begin
          iRow := lValueList.Add(sVarText);
          if lValueList.Values[lValueList.Names[iRow]]='' then
          begin
            //iFlag := 1;
            Exit;
          end;
        end;
        if iFlag = 1 then Result :='';
      end;
      //取脚本   （取Select 语句）
      for i:=0 to lSqlTextList.Count-1 do
      begin
        sText := Trim(lSqlTextList.Strings[i]);
        sSelectSql := fnGetSelectText(sText);
        if sVarText<>'' then Exit;
      end;
      sSelectSql := fnSetSqlVariable(sSelectSql,lValueList);//设置变量
      Result := sSelectSql;
    except
      on E: Exception do
      begin
        pdMsgOK('取脚本错误，uBBPublic.fnGetSelectSql函数！'+E.Message);
      end;
    end;  
  finally
    lSqlTextList.Free;
    lValueList.Free;
  end;
end;
//取字段别名
function fnGetCaption(sSqlText:string):string;
var
  iAliasPos,i:Integer;
  sCaption:string;
  lSqlTextList:TStrings;
begin
  lSqlTextList := TStringList.Create;
  pdStrToStrings(sSqlText,';',lSqlTextList);
  try
    for i:=0 to lSqlTextList.Count-1 do
    begin
      iAliasPos :=Pos('ALIAS ',UpperCase(lSqlTextList.Strings[i]));
      if iAliasPos>0 then
      begin
        sCaption:= Trim(lSqlTextList.Strings[i]);
        Delete(sCaption, 1, 5);
        Result:= sCaption;
      end;
    end;
  finally
    lSqlTextList.Free;
  end;
end;
//取变量
function fnGetVariable(sVarText:string):string;
var
  iSetPos,iPos:Integer;
  sVariable,sVariableText,sValue:string;
  AdodsOp: IAdodsOp;
begin
  Result := '';
  //判断SET宏
  iSetPos := Pos('SET ',UpperCase(sVarText));
  if iSetPos>0 then
  begin
    sVarText := Trim(sVarText);
    Delete(sVarText, 1, 3);
    sVarText := Trim(sVarText);
    iPos := Pos('=',sVarText);
    sVariable := Copy(sVarText,0,iPos-1);
    sVariableText:= Copy(sVarText,iPos+1,Length(sVarText)-iPos);
    if Pos('SELECT ',sVariableText)<1 then
    begin
      Result := sVariable+'='+QuotedStr(sVariableText);
    end
    else
    begin
      try
        AdodsOp := TAdodsOp.Create();
        With TAdoQuery.Create(nil) Do
        try
          Connection := AdodsOp.GetADOConn;
          SQL.Text := sVariableText;
          Open;
          if RecordCount<=1 then
            sValue := Trim(Fields[0].AsString);
          if sValue<>'' then sValue:=QuotedStr(sValue);
        finally
          Free;
        end;
        Result := sVariable+'='+sValue;
      except
        on E: Exception do
        begin
          pdMsgOK('取变量错误，uBBPublic.fnGetVariable函数！'+E.Message);
        end;
      end;
    end;
  end;
end;  


//设置变量
function fnSetVariable(sVarText:string):string;
var
  iGetPos,i:Integer;
  sText,sName,sPrompt,sType,sValue,sDefault:string;
  sVariable,sDateFormat:string;
  lVarList:TStrings;
  frmBbPrompt: TfrmBbPrompt;
begin
  Result := '';
  frmBbPrompt:=TfrmBbPrompt.Create(nil);
  lVarList :=TStringList.Create;
  try
   //判断GET宏
   iGetPos := Pos('GET ',UpperCase(sVarText));
   if iGetPos>0 then
   begin
    sVarText := Trim(sVarText);
    Delete(sVarText, 1, 3);
    sVarText := Trim(sVarText);
    try
      begin
         pdStrToStrings(sVarText,' ',lVarList);
         //取设置变量信息
         for  i:=0  to  lVarList.Count-1 do
         begin
            sText := lVarList.names[i];
            sVariable := lVarList.Values[sText];
            if UpperCase(sText)='NAME' then sName := sVariable;
            if UpperCase(sText)='PROMPT' then sPrompt := sVariable;
            if UpperCase(sText)='TYPE' then sType := sVariable;
            if UpperCase(sText)='VALUES' then sValue := sVariable;
            if UpperCase(sText)='DEFAULT' then sDefault := sVariable;
         end;
         //下啦选择框
         if UpperCase(sType)='DDDW' then
         begin
            sValue := fnGetBmSql(sValue);
            sValue:=frmBbPrompt.fnShowPrompt(sPrompt,sValue,sDefault);
            if sValue<>'' then sValue := QuotedStr(sValue);
         end
         else if UpperCase(sType)='DATE' then
         begin
            sValue:=frmBbPrompt.fnShowPrompt(sPrompt,sValue,sDefault);
            sValue:=StringReplace(sValue,'-','',[rfReplaceAll]);
            sValue:=StringReplace(sValue,'/','',[rfReplaceAll]);
            sValue:=StringReplace(sValue,':','',[rfReplaceAll]);
            if (Length(sValue)=8) then sDateFormat:= 'YYYYMMDD';
            if (Length(sValue)=12) then sDateFormat:='YYYYMMDDHH24MI';
            if (Length(sValue)=14) then sDateFormat:='YYYYMMDDHH24MISS';
            if (sDateFormat='') and (Length(sValue)<>0) then
            begin
              pdMsgOK('日期格式错误，uBBPublic.fnSetVariable函数！数据:->'+sValue);
              sValue :='';
            end;
            if sValue<>'' then
              sValue := 'TO_DATE('+QuotedStr(sValue)+','+QuotedStr(sDateFormat)+')';
         end
         else
         begin
            sValue:=frmBbPrompt.fnShowPrompt(sPrompt,sValue,sDefault);
            if sValue<>'' then sValue := QuotedStr(sValue);
         end;
         Result := sName+'='+sValue;
      end;
    except
       on e:Exception do
       begin
         pdMsgOK('替换变量错误，uBBPublic.fnSetVariable函数！脚本:->'+sVarText)
       end;
    end;
   end;
  finally
    lVarList.Free;
  end;   
end;


//取主脚本语句
function fnGetSelectText(sSqlText:string):string;
var
  iSelectPos:Integer;
begin
  Result :='';
  //判断SELECT宏
  iSelectPos := Pos('SELECT ',UpperCase(sSqlText));
  if iSelectPos>0 then
  begin
     Result :=sSqlText;
  end;
end;


//更新脚本中的变量
function fnSetSqlVariable(sSqlText:string;lList:TStrings):string;
var
  i,iPos:Integer;
  sNameText:string;
begin
  Result :='';
  for  i:=0  to lList.Count-1 do
  begin
    sNameText := UpperCase(lList.Names[i]);
    iPos := Pos('&'+sNameText,UpperCase(sSqlText));
    if iPos>0 then
    begin
      sSqlText:=StringReplace(sSqlText,'&'+sNameText,lList.Values[sNameText],[rfReplaceAll]);
    end;
  end;
  Result :=  sSqlText;
end;


//取编码语句
function fnGetBmSql(sSqlText: string):string;
var
  iBegPos,iEndPos:Integer;
  sSelectSql:string;
begin
  Result :='';
  iBegPos := Pos('[',sSqlText);
  iEndPos := Pos(']',sSqlText);
  if (iBegPos > 0) and (iEndPos > 0) then
  begin
    sSelectSql := UpperCase(Copy(sSqlText,2,iEndPos-iBegPos-1));
    sSelectSql:= StringReplace(sSelectSql,'|',' ',[rfReplaceAll]);
    if (Pos('SELECT ',sSelectSql)<1)or(Pos(' FROM ',sSelectSql)<1) then
      pdMsgOK('编码格式错误，uBBPublic.fnGetBmSql函数！脚本:->'+sSelectSql);
    Result := sSelectSql;
  end
  else pdMsgOK('编码格式错误，uBBPublic.fnGetBmSql函数！脚本:->'+sSqlText);
end;


end.



procedure TfrmMdlTjbb.tvTitleDblClick(Sender: TObject);
var
  sSqlText,sCaption:string;
  i:Integer;
  CaptionList:TStrings;
begin
  inherited;
  CaptionList := TStringList.Create;
  CaptionList.Clear;
  if GetNodeID='' then Exit;
  lblTitle.Caption := GetNodeName;
  try
    try
      with adqTitle do
      begin
        if Active then Close;
        SQL.Text := 'SELECT BAZ004 FROM ZRB1 WHERE BAZ001='+QuotedStr(GetNodeID);
        AdoOpr.Open(adqTitle);
        sSqlText := UpperCase(FieldByName('BAZ004').AsString);
        try
          sCaption := fnGetCaption(sSqlText);
          pdStrToStrings(sCaption,',',CaptionList);
          //处理脚本
          sSqlText := fnGetSelectSql(sSqlText);
          if sSqlText='' then Exit;
        except
          on E: Exception do
          begin
            WaitForm.pdHideProgress;
            MsgBox.DoSysError(E.Message,'脚本:->'+sSqlText,'处理脚本');
          end;
        end;
        begin
          try
            WaitForm.pdShowProgress(cTJData);
            try
              with adsMaster do
              begin
                if Active then Close;
                CommandText := sSqlText;
                AdoOpr.Open(adsMaster);
                famDBGrid1.dbgFrame.Columns.Clear;
                for  i:=0  to  adsMaster.FieldCount-1 do
                begin
                  famDBGrid1.dbgFrame.Columns.Add;
                  if (CaptionList.Count<=i) then CaptionList.Add(adsMaster.Fields[i].FieldName);
                  famDBGrid1.dbgFrame.Columns.Items[i].FieldName :=adsMaster.Fields[i].FieldName;
                  famDBGrid1.dbgFrame.Columns.Items[i].Title.Caption:=CaptionList.Strings[i];
                  case adsMaster.Fields[i].DataType of
                    ftFloat:
                    begin
                       famDBGrid1.dbgFrame.Columns.Items[i].DisplayFormat:='0.00';
                       famDBGrid1.dbgFrame.Columns.Items[i].Width:=80;
                    end;
                    ftBCD:
                    begin
                       famDBGrid1.dbgFrame.Columns.Items[i].Width:=80;
                    end;
                    ftInteger:
                    begin
                       famDBGrid1.dbgFrame.Columns.Items[i].DisplayFormat:='0';
                       famDBGrid1.dbgFrame.Columns.Items[i].Width:=80;
                    end
                    else
                    begin
                       if (famDBGrid1.dbgFrame.Columns.Items[i].Width>180) then
                          famDBGrid1.dbgFrame.Columns.Items[i].Width:=180;
                       if (famDBGrid1.dbgFrame.Columns.Items[i].Width<70) then
                          famDBGrid1.dbgFrame.Columns.Items[i].Width:=70;
                    end;                  
                  end;
                end;
              end;
            except
              on E: Exception do
              begin
                WaitForm.pdHideProgress;
                MsgBox.DoSysError(E.Message,'脚本:->'+sSqlText,'执行脚本');
              end;
            end;
          finally
            WaitForm.pdCloseProgress;
          end;
        end;
      end;
    except
      on E: Exception do
      begin
        MsgBox.DoSysError(E.Message,'脚本:->'+sSqlText,'运行脚本')
      end;
    end;
  finally
    CaptionList.Free;
  end;
end;

hrdzkj
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
mssql存储过程表名和字段名为变量的实现方法
01-19
没有使用动态语句直接报错 错误的 代码如下: alter proc testpapers as begin declare @tems nvarchar(max),@zidaun nvarchar(max) set @tems=select * from @tems order by @zidaun exec(@tems) end exec ...
SQL Server 表名、字段名为变量时的sql 查询
xjlstudy的专栏
01-12 4660
--(部门收入)横表create table DepartmentMonthIncome(    NID uniqueidentifier not null primary key DEFAULT (newid()),    DepartmentName varchar(50),    [1] decimal,    [2] decimal,    [3] decima
oracle数据库字段名前加“&”的含义
josh_york的博客
12-01 1936
如上图红框中所示，字段名前加了符号‘&’。 说明： & 用来创建一个临时变量，每当遇到这个临时变量时，都会提示你输入一个值； && 用来创建一个持久变量，当用&&命令引用这个变量时，不会每次遇到该变量就提示用户键入值，而是只在第一次遇到时提示一次。 ...
Mysql 查询结果赋值到变量
了解—学习—进步—满足
03-28 9088
1. 单个赋值 -使用into SELECT `name` INTO @name FROM table WHERE `id`=1 ; 2.多个赋值 - 直接赋值 SELECT @name:=`name`, @phone:=`phone` FROM table WHERE `id`=1 ;
sql语句列名为变量（Spring Boot+mybitis实验环境）
weixin_30578677的博客
06-20 467
之前用的#{参数}，在列名、表明部分一直不能成为变量。折腾了很久，结果仅仅是改为${变量}就可以了。 转载于:https://www.cnblogs.com/feizhoudiyibai/p/11059169.html...
SQL server字段值为变量
zZZxiaozhi的博客
09-29 1061
如果SQL server的字段值为变量的话，可以使用字符串拼接的方式来实现。 import pymssql connect = pymssql.connect(host = '127.0.0.1',port = '54566',user = 'sa',password = 'xiaozhi',database = 'data_collection') if connect: print("连接成功!") a = ['111','222','333','444','555','666','777',
SQL SERVER 中构建执行动态SQL语句的方法
12-16
2:字段名，表名，数据库名之类作为变量时，必须用动态SQL declare @fname varchar(20) set @fname = 'FiledName' --Select @fname from tableName -- 错误,不会提示错误，但结果为固定值FiledName,并非所要。 exec...
SQL_Sever数据库语句大全.zip
05-30
具体SQL语句实例如下 获取当前日期的星期 获取某个字段排序的行号 获取数据库所有表和视图的信息 获取月份的月初月末时间 禁用启用触发器 判断是否存在视图（创建视图） 启用服务器配置功能权限 求Avg平均值 求max...
SqlServer快速检索某个字段在哪些存储过程中(sql 语句)
01-21
代码如下所示： SELECT obj.Name 存储过程名, sc.TEXT 存储过程内容 FROM syscomments sc INNER JOIN sysobjects obj ON sc.Id = obj.ID ... 您可能感兴趣的文章:mssql存储过程表名和字段名为变量的实现方法
经典SQL语句大全
12-20
在SQLServer中分组时：不能以text,ntext,image类型的字段作为分组依据 在selecte统计函数中的字段，不能和普通的字段放在一起； 13、对数据库进行操作： 分离数据库： sp_detach_db; 附加数据库：sp_attach_db 后...
把SQL语句查询出来的字段赋给一个变量
黑色头发
08-12 4467
我的意思就是有这么一条SQL语句 sql = "select wfdd,wfdm,xh from dzjc where fbbj='1' and clbj='0' " ; 我现在想把这条语句查询出来的xh提取出来，我可以那这个xh的值来用，我想把xh的值拿出来在另外一条sql语句中当作查询的条件 解决办法： if(rs.next()) ...
如何在查询中使用SQL变量
寒冰屋的专栏
06-30 4037
学习如何在查询中使用SQL变量是朝着使您的查询更加灵活供您和其他人使用的正确方向迈出的一步。 当您可以参数化时，为什么要“硬编码”？
SQL语句中含有变量的表示方法
Constantdropping的博客
11-05 6433
如我想写一个insert语句，插入文件ID、文件名、文件大小、文件存储路径，其中的value值是int、String、int、String等类型变量，直接使用value（int，String，int，String）的话，是错误的。 具体可表示为： String sql = "INSERT INTO Mata_File VALUES("+Id+",'"+FileName+"',"+FileLe...
Mysql变量
芒种、的博客
07-18 2448
一、系统变量 说明：系统变量是由系统提供，不是用户定义，属于服务器层面 使用语法： 查看所有的系统变量 show global | 【session】 variables; 查看满足部分条件的系统变量 show global | 【session】 variables like "%char%"; 查看指定某个系统变量的值 select @@global | 【session】.系统变量名; 为某个系统变量赋值 //方式一 set global | 【session】 系统变量名 =
sql语句解析成表及字段 java
最新发布
05-13
以下是一个示例代码，可以将SQL语句解析成表及字段： ```java import java.sql.*; public class SQLParser { public static void main(String[] args) throws SQLException { String sql = "SELECT * FROM ...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值