建议增加SQL数据处理类

红妆V

一起来补全精易模块功能
最近SQL操作使用的较多,自写了个数据处理类
主要处理插入SQL和更新SQL表
分享出来
测试代码

  

子程序名	返回值类型	公开	备 注
TEST

变量名	类 型	静态	数组	备 注
SqlData	SqlData
i	整数型
bin	字节集

计次循环首 (2, i)
SqlData.PUT (“S” ＋ 到文本 (i), 到文本 (i))
计次循环尾 ()
计次循环首 (2, i)
SqlData.PUT (“I” ＋ 到文本 (i), 到文本 (i), 1)
计次循环尾 ()
计次循环首 (2, i)
SqlData.PUT (“SD” ＋ 到文本 (i), 到文本 (i), 0)
计次循环尾 ()
SqlData.PUT (“ZW1”, “test中文”)
SqlData.PUTU (“ZW2”, 编码_Ansi到Utf8 (“test中文”))
SqlData.PUTU (“ZW3”, 编码_Ansi到Utf8 (“test中文测试”))
SqlData.PUT (“ID”, “123178”, 1)
SqlData.PUT (“TEST”, “”, 1)
SqlData.PUT (“TEST1”, “”, 2)
SqlData.PUT (“TEST2”, “”, )
SqlData.PUT (“TEST3”, “34”, 1)
SqlData.PUT (“TEST4”, “12”, )
SqlData.PUT (“SD4”, “测试内容”)
bin ＝ SqlData.GetSqlData (“testTable”)
' ANSI,参数添加时有UTF8中文编码的,会乱码,注意编码格式
调试输出 (到文本 (bin))
' UTF8,参数添加时有ANSI中文编码的,会乱码,注意编码格式
调试输出 (编码_Utf8到Ansi (bin))
bin ＝ SqlData.GetSqlDataUpdate (“testTable”)
' ANSI,参数添加时有UTF8中文编码的,会乱码,注意编码格式
调试输出 (到文本 (bin))
' UTF8,参数添加时有ANSI中文编码的,会乱码,注意编码格式
调试输出 (编码_Utf8到Ansi (bin))
' 输出结果
' “INSERT INTO testTable(S1,S2,I1,I2,SD1,SD2,ZW1,ZW2,ZW3,ID,TEST,TEST2,TEST3,TEST4,SD4) VALUES('1','2',1,2,'1','2','test中文','test涓枃','test涓枃娴嬭瘯',123178,0,'',34,'12','测试内容')”
' “INSERT INTO testTable(S1,S2,I1,I2,SD1,SD2,ZW1,ZW2,ZW3,ID,TEST,TEST2,TEST3,TEST4,SD4) VALUES('1','2',1,2,'1','2','test????','test中文','test中文测试',123178,0,'',34,'12','????????')”
' “UPDATE testTable SET S1='1',S2='2',I1=1,I2=2,SD1='1',SD2='2',ZW1='test中文',ZW2='test涓枃',ZW3='test涓枃娴嬭瘯',ID=123178,TEST=0,TEST2='',TEST3=34,TEST4='12',SD4='测试内容'”
' “UPDATE testTable SET S1='1',S2='2',I1=1,I2=2,SD1='1',SD2='2',ZW1='test????',ZW2='test中文',ZW3='test中文测试',ID=123178,TEST=0,TEST2='',TEST3=34,TEST4='12',SD4='????????'”

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 TEST<br /> .局部变量 SqlData, SqlData<br /> .局部变量 i, 整数型<br /> .局部变量 bin, 字节集<br /> <br /> .计次循环首 (2, i)<br />     SqlData.PUT (“S” ＋ 到文本 (i), 到文本 (i))<br /> .计次循环尾 ()<br /> .计次循环首 (2, i)<br />     SqlData.PUT (“I” ＋ 到文本 (i), 到文本 (i), 1)<br /> .计次循环尾 ()<br /> .计次循环首 (2, i)<br />     SqlData.PUT (“SD” ＋ 到文本 (i), 到文本 (i), 0)<br /> .计次循环尾 ()<br /> SqlData.PUT (“ZW1”, “test中文”)<br /> SqlData.PUTU (“ZW2”, 编码_Ansi到Utf8 (“test中文”))<br /> SqlData.PUTU (“ZW3”, 编码_Ansi到Utf8 (“test中文测试”))<br /> SqlData.PUT (“ID”, “123178”, 1)<br /> SqlData.PUT (“TEST”, “”, 1)<br /> SqlData.PUT (“TEST1”, “”, 2)<br /> SqlData.PUT (“TEST2”, “”, )<br /> SqlData.PUT (“TEST3”, “34”, 1)<br /> SqlData.PUT (“TEST4”, “12”, )<br /> SqlData.PUT (“SD4”, “测试内容”)<br /> bin ＝ SqlData.GetSqlData (“testTable”)<br /> ' ANSI,参数添加时有UTF8中文编码的,会乱码,注意编码格式<br /> 调试输出 (到文本 (bin))<br /> ' UTF8,参数添加时有ANSI中文编码的,会乱码,注意编码格式<br /> 调试输出 (编码_Utf8到Ansi (bin))<br /> bin ＝ SqlData.GetSqlDataUpdate (“testTable”)<br /> ' ANSI,参数添加时有UTF8中文编码的,会乱码,注意编码格式<br /> 调试输出 (到文本 (bin))<br /> ' UTF8,参数添加时有ANSI中文编码的,会乱码,注意编码格式<br /> 调试输出 (编码_Utf8到Ansi (bin))<br /> .版本 2<br /> <br /> ' 输出结果<br /> ' “INSERT INTO testTable(S1,S2,I1,I2,SD1,SD2,ZW1,ZW2,ZW3,ID,TEST,TEST2,TEST3,TEST4,SD4) VALUES('1','2',1,2,'1','2','test中文','test涓枃','test涓枃娴嬭瘯',123178,0,'',34,'12','测试内容')”<br /> ' “INSERT INTO testTable(S1,S2,I1,I2,SD1,SD2,ZW1,ZW2,ZW3,ID,TEST,TEST2,TEST3,TEST4,SD4) VALUES('1','2',1,2,'1','2','test????','test中文','test中文测试',123178,0,'',34,'12','????????')”<br /> ' “UPDATE testTable SET S1='1',S2='2',I1=1,I2=2,SD1='1',SD2='2',ZW1='test中文',ZW2='test涓枃',ZW3='test涓枃娴嬭瘯',ID=123178,TEST=0,TEST2='',TEST3=34,TEST4='12',SD4='测试内容'”<br /> ' “UPDATE testTable SET S1='1',S2='2',I1=1,I2=2,SD1='1',SD2='2',ZW1='test????',ZW2='test中文',ZW3='test中文测试',ID=123178,TEST=0,TEST2='',TEST3=34,TEST4='12',SD4='????????'”

类 源码,用到精易模块的 编码_Ansi到Utf8

  

窗口程序集名	保 留	保 留	备 注
SqlData
变量名	类 型	数组	备 注
_ArrayValue	字节集	0
_ArrayName	字节集	0
_ArrayType	整数型	0	0文本 1数值 2 NULL 默认0

子程序名	返回值类型	公开	备 注
_初始化			当基于本类的对象被创建后，此方法会被自动调用

子程序名	返回值类型	公开	备 注
_销毁			当基于本类的对象被销毁前，此方法会被自动调用

子程序名	返回值类型	公开	备 注
Reset			重置 清空数据

重定义数组 (_ArrayValue, 假, 0)
重定义数组 (_ArrayName, 假, 0)
重定义数组 (_ArrayType, 假, 0)

子程序名	返回值类型	公开	备 注
PUT
参数名	类 型	参考	可空	数组	备 注
name	文本型
value	文本型
type	整数型				0文本 1数值 2 NULL 默认0  NULL会判断字段内容为空时,自动填入NULL 否则按文本处理
ToUtf8	逻辑型				默认假 ANSI, 真=把name和value 转为UTF8 针对非生僻字中文存入

如果真 (ToUtf8)
PUTU (name, 编码_Ansi到Utf8 (value), type)  ' 编码_Ansi到Utf8 来源 精易模块
返回 ()
加入成员 (_ArrayName, 到字节集 (name))
加入成员 (_ArrayValue, 到字节集 (value))
加入成员 (_ArrayType, type)

子程序名	返回值类型	公开	备 注
PUTU			UTF8  针对带有生僻字的数据存入
参数名	类 型	参考	可空	数组	备 注
name	文本型
value	字节集				自行编码为UTF8传入
type	整数型				0文本 1数值 2 NULL 默认0  NULL会判断字段内容为空时,自动填入NULL 否则按文本处理

加入成员 (_ArrayName, 编码_Ansi到Utf8 (name))  ' 编码_Ansi到Utf8 来源 精易模块 键名编码是为了,处理中文键名问题
加入成员 (_ArrayValue, value)
加入成员 (_ArrayType, type)

子程序名	返回值类型	公开	备 注
GetSqlData	字节集		(name) values(value)
参数名	类 型	参考	可空	数组	备 注
table	文本型				表名
尾部补零	逻辑型				默认为真 补零

变量名	类 型	静态	数组	备 注
i	整数型
names	字节集
values	字节集
逗号	字节集
单引	字节集

计次循环首 (取数组成员数 (_ArrayValue), i)
如果真 (i ＝ 2)  ' 1不用逗号
逗号 ＝ { 44 }

如果真 (判断字段类型 (i, 单引))
names ＝ names ＋ 逗号 ＋ _ArrayName [i]
values ＝ values ＋ 逗号 ＋ 单引 ＋ _ArrayValue [i] ＋ 单引

计次循环尾 ()
names ＝ { 40 } ＋ names ＋ { 41 }
values ＝ { 32, 86, 65, 76, 85, 69, 83, 40 } ＋ values ＋ { 41 }
如果 (是否为空 (尾部补零) 或 尾部补零)
values ＝ 到字节集 (“INSERT INTO ” ＋ table) ＋ names ＋ values ＋ { 0 }
values ＝ 到字节集 (“INSERT INTO ” ＋ table) ＋ names ＋ values
返回 (values)
' (names)
' VALUES(values)
' SQLiet为UTF8 尾部补个零,ANSI和UTF8兼容使用,如果后续还需要添加WHER条件等字符时,不要补零

子程序名	返回值类型	公开	备 注
GetSqlDataUpdate	字节集		name=value UPDATE的方式返回
参数名	类 型	参考	可空	数组	备 注
table	文本型				表名
尾部补零	逻辑型				默认为真 补零

变量名	类 型	静态	数组	备 注
i	整数型
values	字节集
逗号	字节集
单引	字节集
等号	字节集

等号 ＝ { 61 }
计次循环首 (取数组成员数 (_ArrayValue), i)
如果真 (i ＝ 2)  ' 1不用逗号
逗号 ＝ { 44 }

如果真 (判断字段类型 (i, 单引))
values ＝ values ＋ 逗号 ＋ _ArrayName [i] ＋ 等号 ＋ 单引 ＋ _ArrayValue [i] ＋ 单引

计次循环尾 ()
如果 (是否为空 (尾部补零) 或 尾部补零)
values ＝ 到字节集 (“UPDATE ” ＋ table ＋ “ SET ”) ＋ values ＋ { 0 }
values ＝ 到字节集 (“UPDATE ” ＋ table ＋ “ SET ”) ＋ values
返回 (values)
' SQLiet为UTF8 尾部补个零,ANSI和UTF8兼容使用,如果后续还需要添加WHER条件等字符时,不要补零

子程序名	返回值类型	公开	备 注
判断字段类型	逻辑型
参数名	类 型	参考	可空	数组	备 注
i	整数型
单引	字节集

单引 ＝ {  }
判断 (_ArrayType [i] ＝ 0)  ' 0文本
单引 ＝ { 39 }
判断 (_ArrayType [i] ＝ 1)  ' 1数值
如果真 (_ArrayValue [i] ＝ {  })
_ArrayValue [i] ＝ { 48 }  ' 使用数值时,空内容补0

判断 (_ArrayType [i] ＝ 2 且 _ArrayValue [i] ≠ {  })  ' 是否 NULL
单引 ＝ { 39 }
返回 (假)
返回 (真)

.版本 2<br /> <br /> .程序集 SqlData<br /> .程序集变量 _ArrayValue, 字节集, , "0"<br /> .程序集变量 _ArrayName, 字节集, , "0"<br /> .程序集变量 _ArrayType, 整数型, , "0", 0文本 1数值 2 NULL 默认0<br /> <br /> .子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用<br /> <br /> <br /> <br /> .子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用<br /> <br /> <br /> <br /> .子程序 Reset, , 公开, 重置 清空数据<br /> <br /> 重定义数组 (_ArrayValue, 假, 0)<br /> 重定义数组 (_ArrayName, 假, 0)<br /> 重定义数组 (_ArrayType, 假, 0)<br /> <br /> .子程序 PUT, , 公开<br /> .参数 name, 文本型<br /> .参数 value, 文本型<br /> .参数 type, 整数型, 可空, 0文本 1数值 2 NULL 默认0  NULL会判断字段内容为空时,自动填入NULL 否则按文本处理<br /> .参数 ToUtf8, 逻辑型, 可空, 默认假 ANSI, 真=把name和value 转为UTF8 针对非生僻字中文存入<br /> <br /> .如果真 (ToUtf8)<br />     PUTU (name, 编码_Ansi到Utf8 (value), type)  ' 编码_Ansi到Utf8 来源 精易模块<br />     返回 ()<br /> .如果真结束<br /> 加入成员 (_ArrayName, 到字节集 (name))<br /> 加入成员 (_ArrayValue, 到字节集 (value))<br /> 加入成员 (_ArrayType, type)<br /> <br /> .子程序 PUTU, , 公开, UTF8  针对带有生僻字的数据存入<br /> .参数 name, 文本型<br /> .参数 value, 字节集, , 自行编码为UTF8传入<br /> .参数 type, 整数型, 可空, 0文本 1数值 2 NULL 默认0  NULL会判断字段内容为空时,自动填入NULL 否则按文本处理<br /> <br /> 加入成员 (_ArrayName, 编码_Ansi到Utf8 (name))  ' 编码_Ansi到Utf8 来源 精易模块 键名编码是为了,处理中文键名问题<br /> 加入成员 (_ArrayValue, value)<br /> 加入成员 (_ArrayType, type)<br /> <br /> .子程序 GetSqlData, 字节集, 公开, (name) values(value)<br /> .参数 table, 文本型, , 表名<br /> .参数 尾部补零, 逻辑型, 可空, 默认为真 补零  <br /> .局部变量 i, 整数型<br /> .局部变量 names, 字节集<br /> .局部变量 values, 字节集<br /> .局部变量 逗号, 字节集<br /> .局部变量 单引, 字节集<br /> <br /> .计次循环首 (取数组成员数 (_ArrayValue), i)<br />     .如果真 (i ＝ 2)  ' 1不用逗号<br />         逗号 ＝ { 44 }<br />     .如果真结束<br /> <br />     .如果真 (判断字段类型 (i, 单引))<br />         names ＝ names ＋ 逗号 ＋ _ArrayName <i><br />         values ＝ values ＋ 逗号 ＋ 单引 ＋ _ArrayValue <i> ＋ 单引<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> names ＝ { 40 } ＋ names ＋ { 41 }<br /> values ＝ { 32, 86, 65, 76, 85, 69, 83, 40 } ＋ values ＋ { 41 }<br /> .如果 (是否为空 (尾部补零) 或 尾部补零)<br />     values ＝ 到字节集 (“INSERT INTO ” ＋ table) ＋ names ＋ values ＋ { 0 }<br /> .否则<br />     values ＝ 到字节集 (“INSERT INTO ” ＋ table) ＋ names ＋ values<br /> .如果结束<br /> 返回 (values)<br /> ' (names)<br /> ' VALUES(values)<br /> ' SQLiet为UTF8 尾部补个零,ANSI和UTF8兼容使用,如果后续还需要添加WHER条件等字符时,不要补零<br /> <br /> .子程序 GetSqlDataUpdate, 字节集, 公开, name=value UPDATE的方式返回<br /> .参数 table, 文本型, , 表名<br /> .参数 尾部补零, 逻辑型, 可空, 默认为真 补零  <br /> .局部变量 i, 整数型<br /> .局部变量 values, 字节集<br /> .局部变量 逗号, 字节集<br /> .局部变量 单引, 字节集<br /> .局部变量 等号, 字节集<br /> <br /> 等号 ＝ { 61 }<br /> .计次循环首 (取数组成员数 (_ArrayValue), i)<br />     .如果真 (i ＝ 2)  ' 1不用逗号<br />         逗号 ＝ { 44 }<br />     .如果真结束<br /> <br />     .如果真 (判断字段类型 (i, 单引))<br />         values ＝ values ＋ 逗号 ＋ _ArrayName <i> ＋ 等号 ＋ 单引 ＋ _ArrayValue <i> ＋ 单引<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> .如果 (是否为空 (尾部补零) 或 尾部补零)<br />     values ＝ 到字节集 (“UPDATE ” ＋ table ＋ “ SET ”) ＋ values ＋ { 0 }<br /> .否则<br />     values ＝ 到字节集 (“UPDATE ” ＋ table ＋ “ SET ”) ＋ values<br /> .如果结束<br /> 返回 (values)<br /> ' SQLiet为UTF8 尾部补个零,ANSI和UTF8兼容使用,如果后续还需要添加WHER条件等字符时,不要补零<br /> <br /> .子程序 判断字段类型, 逻辑型<br /> .参数 i, 整数型<br /> .参数 单引, 字节集<br /> <br /> 单引 ＝ {  }<br /> .判断开始 (_ArrayType <i> ＝ 0)  ' 0文本<br />     单引 ＝ { 39 }<br /> .判断 (_ArrayType <i> ＝ 1)  ' 1数值<br />     .如果真 (_ArrayValue <i> ＝ {  })<br />         _ArrayValue <i> ＝ { 48 }  ' 使用数值时,空内容补0<br />     .如果真结束<br /> <br /> .判断 (_ArrayType <i> ＝ 2 且 _ArrayValue <i> ≠ {  })  ' 是否 NULL<br />     单引 ＝ { 39 }<br /> .默认<br />     返回 (假)<br /> .判断结束<br /> 返回 (真)

Rs子航

来看看            

cgkj888

全是英文不符合国民需求翻译一下再来

红妆V

使用案例