qq_28746577-CSDN博客

原创 delphi JSON 数字0.00没有引号解析问题

原因是superObject 的版本问题：网址：https://www.haolizi.net/example/key_superobject_1.html

2021-06-01 17:52:04 319

转载 Delphi 人民币大小写转换

Delphi 人民币大小写转换时间:2011-5-24来源:yang作者:peng点击:745次function TPrintfrm.NumToChar(n: Real): wideString; //可以到万亿,并可随便扩大constcNum: WideString = ‘零壹贰叁肆伍陆柒捌玖-万仟佰拾亿仟佰拾万仟佰拾元角分‘; cCha: array[0..1, ...

2019-05-29 11:53:21 548

转载 cxGrid 过滤 Filter

cxgrid过滤条件清除：cxgrdbtblvwGrid1DBTableView2.DataController.Filter.AutoDataSetFilter:=True;cxgrdbtblvwGrid1DBTableView2.DataController.Filter.Clear;cxgrid过滤条件添加：cxg...

2019-05-09 15:47:20 1563

原创 Sql_Server中如何判断表中某字段是否存在

IF COL_LENGTH('A', 'C') IS NOT NULLPRINT N'存在'ELSEPRINT N'不存在'

2019-05-09 15:39:57 2681

原创 Delphi 导出Excel 出现科学计数

ExcelWorkSheet1.cells.item[nowhangi, ii] := fields[i].Text +#9 ; //将数字变成字符串ExcelWorkSheet1.cells.item[nowhangi, ii].HorizontalAlignment := xlCenter; //文本居中

2018-07-17 15:41:35 1296

原创 Delphi

用#引导一个整数，整数表示该字符的ASCII码。例如，#13、#$20、#$30、#65分别表示回车符、空格符、数字符号'0'、字母'A'。

2018-06-22 18:22:22 111

转载 SQLserver 存储过程

exec sp_databases; --查看数据库exec sp_tables; --查看表exec sp_columns #表名; --查看列exec sp_helpIndex #表名; --查看索引exec sp_helpConstraint student; --约束ex...

2018-06-08 16:04:01 124

第一种：BEGIN TRAN --SQL 语句 ;update,delete,insert UPDATE ZD_KSFL_TEST SET CYZXKS='ABC' WHERE KSBH=1234; DELETE ZD_KSFL_TEST WHERE KSBH=1234; IF @@ERROR =0 COMMIT TRAN; ELSE ROLLBACK TRAN;第二种：（使用 try-ca...

2018-06-05 15:19:04 149

转载 SQLServer 公用变量

SELECT @@FETCH_STATUS --返回上一次fetch 语句的状态值，用在游标中；=0 代表没有错误SELECT @@ERROR --返回最后执行的Tran SQL语句的错误代码；<>0 代表有错误SELECT @@TRANCOUNT --返回当前连接的活动事务数SELECT @@IDENTITY --返回最后插入的标识值SELECT ...

2018-06-05 10:58:30 374

转载 SQLServer 查询

1.嵌套查询：将一个查询块嵌套在另一个查询块的where子句或having短语的条件中的查询成为嵌套查询；（子查询的select语句中不能使用order；order by子句只能对最终查询结果排序。）例子：1 --查询成绩高于学号为“109”、课程号为“3-105”的成绩的所有记录。2 select * from SCORE where DEGREE &...

2018-05-16 15:33:06 149

转载 SqlServer 事务

BEGIN TRAN-- 做某些操作，例如Insert into …if @@error <> 0BEGINROLLBACK TRANENDelseBEGINCOMMIT TRANEND

2018-05-16 15:13:19 435

转载 SQLServer 使用游标、

（在存储过程中用select语句取出每一条数据进行操作，需要用到游标）declare @SZM VARCHAR(20) ,@LXMC VARCHAR(20)--申明一个游标declare A_CURSOR CURSOR FOR --A_CURSOR 是游标的名字select SZM,LXMC from CL_LX --查询列szm，列lxmc 从表cl_lx中--打开游标open ...

2018-05-16 15:06:21 145

转载 SqlServer 变量类型转换

类型转换函数：cast(值 as 要变成的类型) ; convert(要变成的类型，值);select cast('123' as int); --123select convert(int,'123'); --123select cast('123.4' as int); --123 这种写法会报错select convert(int , '123.4'); --123 这种写法...

2018-05-16 11:35:29 2907

qq_28746577的博客