个人博客 用于记载日常收集的一些技术文章 ...

SQL : SQL 字符串 截取/合并 SQL : SQL 字符串 截取/合并 DECLARE @Txt varchar(100)
SET @Txt = 'UserId int|UserName VARCHAR(50)'

SELECT CHARINDEX(SPACE(1), @Txt) --【取得 字符串 起始位置】 7

SELECT SUBSTRING(@Txt, 1, CHARINDEX(SPACE(1), @Txt)) --【截取字符串 1开始 7个字符】UserId


DECLARE @Sql varchar(1000) SET @Sql = 'ALTER TABLE t_CloudPassport ADD '

SELECT @Sql = @Sql + FValue + ',' FROM dbo.fn_SplitStringToTable(@Txt, '|') --【数据表字段 合并成一串】 ALTER TABLE t_CloudPassport ADD UserId int,UserName VARCHAR(50),
SELECT @Sql

SELECT @Sql = SUBSTRING(@Sql, 1, LEN(@Sql) - 1) --【去除 最后一个字符】ALTER TABLE t_CloudPassport ADD UserId int,UserName VARCHAR(50)
SELECT @Sql

郭少锋 编辑 2023-03-12 22:42:36 创建 2023-03-12 22:32:24 SQL K3 BOS : SQL 字符串 拆分成数据表 K3 BOS : SQL 字符串 拆分成数据表 Select * From dbo.fn_SplitStringToTable('UserId VARCHAR(50)|UserName VARCHAR(50)', '|') --【拆分成 数据表】
/*
FSequence FValue FPosition FLength
1 UserId VARCHAR(50) 1 18
2 UserName VARCHAR(50) 20 20
*/


sp_helptext fn_SplitStringToTable

/******************************************************************************
* Function Name: fn_SplitStringToTable *
* Created by: Michael .H *
* Creation date: 2005-05-31 *
* Description: Split a string to a table, simulate vb split function *
* Parameters: @InputString - Input string *
* @Delimeter - Delimeter *
******************************************************************************/
CREATE FUNCTION fn_SplitStringToTable
(
@InputString VARCHAR(8000),
@Delimeter CHAR(1)
)
RETURNS @Table TABLE
(
FSequence INT IDENTITY(1, 1),
FValue VARCHAR(511),
FPosition INT,
FLength INT
)
BEGIN
DECLARE @Position INT

SELECT @Position = 1

IF RIGHT(@InputString, LEN(@Delimeter)) <> @Delimeter
SET @InputString = @InputString + @Delimeter

WHILE SUBSTRING(@InputString, @Position, 1) = CHAR(10) OR
SUBSTRING(@InputString, @Position, 1) = CHAR(13)
BEGIN
SELECT @Position = @Position + 1
END

WHILE @Position <= CHARINDEX(@Delimeter, @InputString, @Position)
BEGIN
INSERT INTO @Table(FValue, FPosition, FLength)
VALUES (RTRIM(LTRIM(SUBSTRING(@InputString,
@Position,
CHARINDEX(@Delimeter,
@InputString,
@Position) - @Position))), @Position, CHARINDEX(@Delimeter, @InputString, @Position) - @Position)
SELECT @Position = CHARINDEX(@Delimeter, @InputString, @Position) + 1

WHILE SUBSTRING(@InputString, @Position, 1) = CHAR(10) OR
SUBSTRING(@InputString, @Position, 1) = CHAR(13)
BEGIN
SELECT @Position = @Position + 1
END
END
RETURN
END 郭少锋 创建 2023-03-12 22:22:40 K3 BOS K3 BOS : SQL 中止 存储过程 K3 BOS : SQL 中止 存储过程 CREATE PROCEDURE p_AlterTableAddColumns
@TableName VARCHAR(255),
@Fields VARCHAR(8000),
@Delimeter CHAR(1) = ','
AS
SET NOCOUNT ON

IF NOT EXISTS ( SELECT 1 FROM sysobjects WHERE id = OBJECT_ID('t_CloudPassport') AND OBJECTPROPERTY(id, 'IsUserTable') = 1 )
RETURN --【中止 存储过程】

GO 郭少锋 编辑 2023-03-12 22:14:11 创建 2023-03-12 22:13:57 K3 BOS K3 BOS : K3 15.1 账套管理 K3 BOS : K3 15.1 账套管理 Select * From t_ad_company --【组织机构】【FID = 1】
Select * From t_ad_kdAccount_gl --【账套列表】【FNodeID = 1 组织机构】
Select * From t_ad_dbtype --【数据库类型】

Select * From t_ad_SystemProfile --【预设连接】【管理员密码】
Select * From t_ad_WorkstaionType 郭少锋 编辑 2023-03-12 21:43:38 创建 2023-03-12 21:42:56 K3 BOS SQL : SQL 通配符 SQL : SQL 通配符 select * from t_LogFunction WHERE FFunctionID like 'BOS210000002\_%' ESCAPE '\'

select * from t_LogFunction WHERE FFunctionID like 'BOS210000002_%'
select * from t_LogFunction WHERE FFunctionID like 'BOS210000002[_]%' 郭少锋 编辑 2023-03-11 12:27:43 创建 2023-03-11 12:27:02 SQL windows : Excel VBA windows : Excel VBA Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 1 Then
aRow = Target.Row
aValue = Target.Value

If aValue = Null Then
aValue = 1
End If

If aValue > 3 Then
Range("B" & aRow).Interior.ColorIndex = aValue '【更改】填充颜色

Else
Range("B" & aRow).Interior.ColorIndex = xlColorIndexNone '无颜色
Range("C" & aRow).Value = aRow '【更改】单元格数值
End If
End If

End Sub 郭少锋 创建 2023-03-08 14:03:56 windows windows : Excel VBA 打印预览 windows : Excel VBA 打印预览 Sub 打印预览()
Worksheets(1).PrintPreview
End Sub

Private Sub Workbook_BeforePrint(Cancel As Boolean) '【打印前】【打印预览前】
MsgBox "提示内容", vbInformation, "标题"
End Sub
郭少锋 创建 2023-03-08 14:01:37 windows windows : Excel VBA windows : Excel VBA Private Sub Worksheet_Change(ByVal Target As Range) '【单元格 数值变化时】
On Error Resume Next

If Target.Column = 33 Then

aMax = 1000
aRow = Target.Row '当前单元格.行号
aCol = Target.Column '当前单元格.列号

aPageRow = Cells(1, aCol).Value '当前列 第1行 的值

aValue = Target.Value '当前单元格.值

If aValue = "合计" Then
Exit Sub
Else

aMod = aValue - Int(aValue / aPageRow) * aPageRow '取余数

If aMod = 0 Then

Rows(aRow).EntireRow.Offset(1).Resize(2).Insert '当前行 下移1行 插入2行

aBottom = 1
For i = aRow To aMax

aValue = Cells(i, aCol).Value '取得 单元格数值

If aValue = "合计" Then
aBottom = i
Exit For '退出循环
End If

Next i

Set aRanges = Union(Rows(aBottom), Rows(aBottom + 1)) '设置 区域

aRanges.EntireRow.Select '选中区域
Selection.Copy '复制

Cells(aRow + 1, 1).Select '选中单元格
ActiveSheet.Paste '粘贴

Application.CutCopyMode = False '取消复制

Cells(aRow + 2, aCol).Select '选中单元格
End If

End If


End If

End Sub 郭少锋 创建 2023-03-08 13:58:35 windows 财务 : 大写金额 财务 : 大写金额 正确填写票据和结算凭证的基本规定

中文大写金额数字应用正楷或行书填写，如壹、贰、叁、肆、伍、陆、柒、捌、玖、拾、 佰、仟、万、亿、元（圆）、角、分、零、整(正)等字样。

1·阿拉伯数字中间有"0"时，中文大写要写"零"字，

￥1409.50，人民币 壹仟肆佰零玖元 伍角。

2·阿拉伯数字中间连续有几个"0"时，中文大写金额中间可以只写一个"零"字

￥6007.14，人民币 陆仟 零 柒元 壹角肆分。


3·阿拉伯金额数字万位和元位是"0"，
或者数字中间连续有几个"0"，万位、元位也是"0"，但千位、角位不是"0"时，
中文大写金额中可以只写一个零 字，也可以不写"零"字。

￥107000.53，
人民币 壹拾万 柒仟元 零 伍角叁分，
人民币 壹拾万 零 柒仟元 伍角叁分。

1680.32，
人民币 壹仟陆佰捌拾元 叁角贰分
人民币 壹仟陆佰捌拾元 零 叁角贰分

4. 阿拉伯金额数字角位是“0”而分位不是“0”时，中文大写金额“元”后面应写“零”字，

￥16409.02 人民币 壹万陆仟肆佰零玖元 零贰分
￥325.04 人民币 叁佰贰拾伍元 零肆分。 郭少锋 创建 2023-03-08 00:11:16 财务 windows : CMD 备份压缩文件 windows : CMD 备份压缩文件 @echo off

COPY /Y "C:\Program Files\WinRAR\RAR.exe" "C:\Windows\System32\RAR.exe"

NET STOP MSSQLSERVER

RAR a -agYYMMDD_HHMMSS -r -xZero -x*.rar "账套_K3151_"

NET START MSSQLSERVER

--------------------------------------------------------------

停止 SQL Server
NET STOP MSSQLSERVER

启动 SQL Server
NET START MSSQLSERVER

暂停 SQL Server
NET PAUSE MSSQLSERVER

重新启动 暂停的SQL Server
NET CONTINUE MSSQLSERVER
郭少锋 编辑 2023-03-06 17:11:21 创建 2023-03-06 17:10:53 windows