我爱学习

SQL SERVER 行列转换——动态转换

Mon, 06 Apr 2020 16:34:50 +0800

前边介绍了静态转换和PIVOT、UNPIVOT转换的方式，这次介绍一下动态拼接转换的形式，有时候我们的数据不是固定的，可能会有多条，所以需要我们动态进行拼接实现，行转列测试数据：

--测试数据

if not object_id(N'Tempdb..#T') is null
drop table #T
Go
Create table #T([Name] nvarchar(22),[Subject] nvarchar(22),[Score] int)
Insert #T
select N'李四',N'语文',60 union all
select N'李四',N'数学',70 union all
select N'李四',N'英语',80 union all
select N'张三',N'语文',90 union all
select N'张三',N'数学',80 union all
select N'张三',N'英语',70
Go

--测试数据结束

动态写法（加上了总分和平均分）：

DECLARE @sql VARCHAR(MAX)
SET @sql = 'select Name'
SELECT  @sql = @sql + ',max(case Subject when ''' + Subject
        + ''' then Score else 0 end)[' + Subject + ']'
FROM    ( SELECT DISTINCT
                    Subject
          FROM      #T
        ) a
SET @sql = @sql
    + ',sum(Score) 总分,cast(avg(Score*1.0) as decimal(18,2)) 平均分 from #T group by Name'
EXEC(@sql)

动态的也可以使用pivot：

DECLARE @sql VARCHAR(MAX)
SELECT @sql=isnull(@sql+',','')+Subject FROM #T GROUP BY Subject
SET @sql='select m.* , n.总分, n.平均分 from
(select * from (select * from #T) a pivot (max(Score) for Subject in ('+@sql+')) b) m ,
(select Name,sum(Score)总分, cast(avg(Score*1.0) as decimal(18,2))平均分 from #T group by Name) n
where m.Name= n.Name'
exec(@sql)

结果如下：

列转行的测试数据：

--测试数据

if not object_id(N'T') is null  
    drop table T  
Go  
Create table T([姓名] nvarchar(22),[语文] int,[数学] int,[英语] int)  
Insert T  
select N'李四',60,70,80 union all  
select N'张三',90,80,70  
Go

--测试数据结束

动态写法：

DECLARE @sql VARCHAR(8000)
SELECT @sql=isnull(@sql+' union all ','')+' select 姓名, [课程]='
+quotename(Name,'''')+' , [分数] = '+quotename(Name)+' from T'
FROM syscolumns
WHERE Name!='姓名' AND ID=object_id('T')--表名tb，不包含列名为姓名的其他列
ORDER BY colid
EXEC(@sql+' order by 姓名')
         同样的动态写法也可以使用unpivot：
DECLARE @sql VARCHAR(8000)
SELECT @sql=isnull(@sql+',','')+quotename(Name)
FROM syscolumns
WHERE ID=object_id('T')AND Name NOT IN('姓名')
ORDER BY Colid
SET @sql='select 姓名,[课程],[分数] from T unpivot ([分数] for [课程] in('+@sql+'))b'
exec(@sql)

结果如下：

以上我们实现了在数据不确定的状态下，动态的拼接语句进行了行列互换。

————————————————

原文链接：https://blog.csdn.net/sinat_28984567/article/details/79865046

几种隐藏批处理运行窗口的方法

Mon, 06 Apr 2020 16:31:34 +0800

（1）通过批处理命令实现。缺点：会看到一个窗口一闪而逝。优点：简单，直接添加即可。

@echo off
if "%1"=="h" goto begin
start mshta vbscript:createobject("wscript.shell").run("""%~nx0"" h",0)(window.close)&&exit
:begin
::以下为正常批处理命令，不可含有pause set/p等交互命令
pause

（2）利用vbs脚本实现隐藏。缺点：调用麻烦点。优点：基本看不到痕迹（非绝对的，指一般用户）

HideRun.vbs

CreateObject("WScript.Shell").Run "cmd /c D:/test.bat",0
其中D:/test.bat是你的批处理路径

.....................................................................................................................................

另一思路为把bat转换成vbs，然后vbs生成一个临时bat文件，然后WScript.Shell.Run隐藏启动这个临时bat。

HideRun.bat

echo CreateObject("WScript.Shell").Run "cmd /c D:/test.bat",0>$tmp.vbs
cscript.exe /e:vbscript $tmp.vbs
del $tmp.vbs
这个批处理其实不能使其批处理本身隐藏，但是下面大部分隐藏调用批处理的原理和基础。

HideRun.js

new ActiveXObject('WScript.Shell').Run('cmd /c D:/Test.bat',0);
用Javascript有什么好处呢？js的字符串变量可以用单引号，从而方便命令行作为参数调用，而且js很好的支持多行语句用 ; 分隔写成一行。要注意的是：js要区分大小写，方法

必须用括号，结尾必须有分号。所以就成了下面的命令：

mshta "javascript:new ActiveXObject('WScript.Shell').Run('cmd /c D:/test.bat',0);window.close()"

通常系统管理员会向用户端推送一些脚本并运行，或者拷贝批处理文件到客户端由用户自己运行。但是大部分脚本在运行时会弹出黑色背景的DOS窗口，这会让不少用户不知所

措，甚至误操作关闭正在运行的窗口。好在批处理文件的DOS窗口是可以隐藏的，以下是几种隐藏批处理运行窗口的方法。

1.基础

HideRun.vbs

CreateObject("WScript.Shell").Run "cmd /c D:/test.bat",0
其中D:/test.bat是你的批处理路径

另一思路为把bat转换成vbs，然后vbs生成一个临时bat文件，然后WScript.Shell.Run隐藏启动这个临时bat。

HideRun.bat

HideRun.js

必须用括号，结尾必须有分号。所以就成了下面的命令：

mshta "javascript:new ActiveXObject('WScript.Shell').Run('cmd /c D:/test.bat',0);window.close()"

2.用快捷方式

如果要使一个批处理本身隐藏，可以参考附件里的一个快捷方式，修改附件中的相关路径即可隐藏启动你的批处理。可以用vbs来建立一个 .lnk，其实用批处理也行（先echo一个

vbs出来）

3.利用系统服务

可以建立一个系统服务然后启动这个服务来启动批处理。缺点是启动服务较慢，需要管理员权限

runassrv add /cmdline:"C:/Windows/System32/cmd.exe /c D:/test.bat" /name:"mysrv"
net start mysrv

4.利用at计划任务

用at可以建立一个计划任务，在不输入 /interactive 参数可以后台运行。但是建使用at必须有管理员权限

at 09:10 "cmd /c D:/Test.bat"

然后在 9:10 系统就会自动后台以SYSTEM权限运行这个bat

5.利用ftype文件关联

ftype batfile=C:/Windows/System32/mshta "javascript:new ActiveXObject('WScript.Shell').Run('cmd /c%1',0);window.close();"

6.其他用户

Windows 2k/XP支持多用户，如果能在后台登陆另一个账户的桌面然后运行一个批处理，就能完全达到隐藏的目的

7.编译成可执行文件

不少方法可以实现，可以直接利用的工具有 Quick Batch file compiler。

VB.NET水晶报表Crystal Reports学习(开发环境安装+程序示例+报表示例+客户端运行环境)

Fri, 14 Feb 2020 11:12:55 +0800

学习ERP的报表应用，了解了Crystal Reports的功能强大。以下将在学习过程中遇到的常见问题和解决办法与大家进行分享：

一、开发环境安装

开发工具：Visual Studio 2017

开发包：CRforVS13SP25

(包含CRRuntime_64bit_13_0_25.msi+CrystalReportsForVisualStudio.msi)

CRforVS13SP25下载链接：https://pan.baidu.com/s/1FBcvug4Ygic0UhCivi3bxg

提取码：xkjl

二、报表开发

1.CrystalReportViewer控件使用

报表界面基本设置：

3. 报表数据显示

以Pull模式显示报表，不建议使用VS来设计报表，最好使用Crystal Reports设计软件来设计。

Dim rt As New ReportDocument

rt .Load("你的文件目录\XXX.rpt")

rt .SetDatabaseLogon("sa", "sa")

Dim rtFieldDefinitions As ParameterFieldDefinitions

Dim rtUserName As ParameterFieldDefinition

Dim rtUserNameValues As New ParameterValues

Dim rtUserNameDiscreteValue As New ParameterDiscreteValue

rtUserNameDiscreteValue.Value = TextBox1.Text

‘一组参数

rtFieldDefinitions = rt.DataDefinition.ParameterFields

rtUserName = rtFieldDefinitions.Item("UserName") ‘rpt报表里对应参数

rtUserNameValues = rtUserName.CurrentValues

rtUserNameValues.Clear()

rtUserNameValues.Add(rtUserNameDiscreteValue)

rtUserName.ApplyCurrentValues(rtUserNameValues)

‘可以视情况增加多组参数

CrystalReportViewer1.ReportSource = rt

CrystalReportViewer1.ShowLogo = False

CrystalReportViewer1.Refresh()

3.Rpt报表设计

使用CrystalReport设计报表，示例使用的是CrystalReport9，要传送参数首先如下设参数字段：

参数绑定报表字段，实现程序参数传递到报表：

显示报表如下：

三、客户端运行环境

1.提示CLR20r3错误

以上错误为未安装Crystal Reports运行环境，可下载对应版本Runtime安装：

水晶报表Crystal Reports运行环境CRRuntime13_0_25 32位

水晶报表Crystal Reports运行环境CRRuntime13_0_25 64位

2、运行库缺失

出现以上运行环境安装错误是Windows常用运行库缺失，需要下载以下库安装：

水晶报表Crystal Reports运行环境 CRRuntime所需要Windows运行库

————————————————

原文链接：https://blog.csdn.net/qq_38679844/article/details/104029738

php查询数据库返回json类型结果

Fri, 14 Feb 2020 10:45:01 +0800

<?php
$servername = "***.***.***.***";
$username = "***";
$password = "***";
$dbname = "******";
 
$json = '';
$data = array();
 
class Dustbin 
{
	public $id;
	public $name;
	public $title;
	public $content;
	public $longitude;
	public $latitude;
	public $point;
	public $isOpen;
	public $icon;
	public $ip;
	
	public $full_0;
	public $full_1;
	public $full_2;
	public $full_3;
}
 
// 创建连接
$conn = new mysqli($servername, $username, $password, $dbname);
// Check connection
if ($conn->connect_error) {
    die("连接失败: " . $conn->connect_error);
} 
 
$sql = "SELECT id, baidu_lon,baidu_lat,full_0,full_1,full_2,full_3 FROM lese";
$result = $conn->query($sql);
 
if ($result->num_rows > 0) {
    // 输出数据
	$index=0;
    while($row = $result->fetch_assoc()) {
		$icon1=array("w"=>23,"h"=>25,"l"=>0,"t"=>21,"x"=>9,"lb"=>12);
		$icon2=array("w"=>23,"h"=>25,"l"=>46,"t"=>21,"x"=>9,"lb"=>12);
        $dustbin = new Dustbin();
		$dustbin->id=($index);
		$dustbin->name="dustbin".($index);
		$dustbin->title="dustbin".($index);
		$dustbin->content="notes".($index);
		$dustbin->ip = $row["id"];
		$dustbin->longitude=$row["baidu_lon"];
		$dustbin->latitude=$row["baidu_lat"];
		$dustbin->point="".($row["baidu_lon"])."|".($row["baidu_lat"]);
		$dustbin->isOpen=0;
		$dustbin->full_0 = $row["full_0"];
		$dustbin->full_1 = $row["full_1"];
		$dustbin->full_2 = $row["full_2"];
		$dustbin->full_3 = $row["full_3"];
		$flag = ($dustbin->full_0+$dustbin->full_1+$dustbin->full_2+$dustbin->full_3);
		if ($flag == 0){
			$dustbin->icon=$icon1;
		}
		else{
			$dustbin->icon=$icon2;
		}
		
		array_push($data,$dustbin);
		$index+=1;
    }
	$json = json_encode($data);//把数据转换为JSON数据.
	echo $json;
} else {
    echo $json;
}
$conn->close();
?>