把数据库表自动生成子程序方便操作!

德州考勤机

经常玩数据库的都知道.更新删除反复查数据库.所以写了这个工具.

  

子程序名	返回值类型	公开	备 注
自动生成_数据库_表名参数
参数名	类 型	参考	可空	数组	备 注
记录集	记录集
参_数据表名称	文本型				如果等于* 就是所有表

变量名	类 型	静态	数组	备 注
参数_数量	整数型
n	整数型
cs	文本型
字段名	文本型
局_字段类型	整数型
a	文本型
参考	文本型
bb	文本型
cc	文本型
局_字段属生	整数型
sql	文本型
dd	文本型
表格数量	整数型
sjblist	记录数组
n1	整数型
i	整数型

如果 (参_数据表名称 ＝ “*”)
sql ＝ “SELECT TABLE_NAME FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_TYPE = 'BASE TABLE'”
sjblist ＝ 读多条记录_mssql新版 (记录集, sql)
表格数量 ＝ 取数组成员数 (sjblist.成员)



表格数量 ＝ 1
加入成员 (sjblist.成员, 参_数据表名称)

i ＝ 打开文件 (取运行目录 () ＋ “/sjk.txt”, 5, )
计次循环首 (表格数量, n1)
记录集.打开 (sjblist.成员 [n1], 2, )
a ＝ a ＋ “.子程序 数据库_读写” ＋ sjblist.成员 [n1] ＋ “, , 公开, 备注” ＋ #换行符
a ＝ a ＋ “.参数 记录集, 记录集, , kaiwen” ＋ #换行符
计次循环首 (记录集.字段数量, n)
字段名 ＝ 记录集.取字段名 (n － 1)
局_字段类型 ＝ 记录集.取字段类型 (n － 1)
局_字段属生 ＝ 记录集.取字段属性 (n － 1)
如果真 (局_字段属生 ＝ 120 或 局_字段属生 ＝ 104)
参考 ＝ “可空”

cs ＝ cs ＋ “.参数  参_” ＋ 字段名 ＋ “, 文本型, ” ＋ 参考 ＋ “, 自动生成” ＋ #换行符
如果真 (n ≠ 1)
bb ＝ bb ＋ “[” ＋ 字段名 ＋ “],”
如果 (局_字段类型 ＝ #双精度字段 或 局_字段类型 ＝ #单精度字段 或 局_字段类型 ＝ #货币型字段 )
cc ＝ cc ＋ “+参_” ＋ 字段名 ＋ “+,”
dd ＝ dd ＋ “[” ＋ 字段名 ＋ “]=” ＋ #引号 ＋ “+ 参_” ＋ 字段名 ＋ “+” ＋ #引号 ＋ “,”



cc ＝ cc ＋ “'” ＋ #引号 ＋ “+ 参_” ＋ 字段名 ＋ “+” ＋ #引号 ＋ “',”
dd ＝ dd ＋ “[” ＋ 字段名 ＋ “]='” ＋ #引号 ＋ “+ 参_” ＋ 字段名 ＋ “+” ＋ #引号 ＋ “',”


计次循环尾 ()
a ＝ a ＋ cs
a ＝ a ＋ “.局部变量 sql, 文本型” ＋ #换行符
a ＝ a ＋ “ sql= ” ＋ #引号 ＋ “select * from ” ＋ sjblist.成员 [n1] ＋ “ where ” ＋ 记录集.取字段名 (0) ＋ “=” ＋ #引号 ＋ “+参_” ＋ 记录集.取字段名 (0) ＋ #换行符
a ＝ a ＋ “记录集.打开 (sql, 1, )” ＋ #换行符
a ＝ a ＋ “.如果 (记录集.记录数量 ＜ 1)” ＋ #换行符
a ＝ a ＋ 字符 ( #Tab键 ) ＋ “ sql= ” ＋ #引号 ＋ “INSERT INTO [” ＋ sjblist.成员 [n1] ＋ “] (” ＋ 取文本左边 (bb, 取文本长度 (bb) － 1) ＋ “)VALUES(” ＋ 取文本左边 (cc, 取文本长度 (cc) － 1) ＋ “)” ＋ #引号 ＋ #换行符
a ＝ a ＋ “.否则 ” ＋ #换行符
a ＝ a ＋ 字符 ( #Tab键 ) ＋ “ sql= ” ＋ #引号 ＋ “UPDATE [” ＋ sjblist.成员 [n1] ＋ “] SET ” ＋ 取文本左边 (dd, 取文本长度 (dd) － 1) ＋ “WHERE  [” ＋ 记录集.取字段名 (0) ＋ “] = ” ＋ #引号 ＋ “+参_” ＋ 记录集.取字段名 (0) ＋ #换行符
a ＝ a ＋ “.如果结束” ＋ #换行符
a ＝ a ＋ “记录集.打开 (sql, 1, )” ＋ #换行符 ＋ #换行符 ＋ #换行符
写出文本 (i, a)
a ＝ “”
连续赋值 (“”, a, cs, bb, cc, dd)
计次循环尾 ()
关闭文件 (i)

i支持库列表	支持库注释
eDB	数据库操作支持库

.版本 2<br /> <br /> .支持库 eDB<br /> <br /> <br /> <br /> .子程序 自动生成_数据库_表名参数<br /> <br /> .参数 记录集, 记录集<br /> <br /> .参数 参_数据表名称, 文本型, , 如果等于* 就是所有表<br /> <br /> .局部变量 参数_数量, 整数型<br /> <br /> .局部变量 n, 整数型<br /> <br /> .局部变量 cs, 文本型<br /> <br /> .局部变量 字段名, 文本型<br /> <br /> .局部变量 局_字段类型, 整数型<br /> <br /> .局部变量 a, 文本型<br /> <br /> .局部变量 参考, 文本型<br /> <br /> .局部变量 bb, 文本型<br /> <br /> .局部变量 cc, 文本型<br /> <br /> .局部变量 局_字段属生, 整数型<br /> <br /> .局部变量 sql, 文本型<br /> <br /> .局部变量 dd, 文本型<br /> <br /> .局部变量 表格数量, 整数型<br /> <br /> .局部变量 sjblist, 记录数组<br /> <br /> .局部变量 n1, 整数型<br /> <br /> .局部变量 i, 整数型<br /> <br /> <br /> <br /> .如果 (参_数据表名称 ＝ “*”)<br /> <br />     sql ＝ “SELECT TABLE_NAME FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_TYPE = 'BASE TABLE'”<br /> <br />     sjblist ＝ 读多条记录_mssql新版 (记录集, sql)<br /> <br />     表格数量 ＝ 取数组成员数 (sjblist.成员)<br /> <br /> <br /> <br /> .否则<br /> <br />     表格数量 ＝ 1<br /> <br />     加入成员 (sjblist.成员, 参_数据表名称)<br /> <br /> <br /> <br /> .如果结束<br /> <br /> i ＝ 打开文件 (取运行目录 () ＋ “/sjk.txt”, 5, )<br /> <br /> .计次循环首 (表格数量, n1)<br /> <br />     记录集.打开 (sjblist.成员 [n1], 2, )<br /> <br />     a ＝ a ＋ “.子程序 数据库_读写” ＋ sjblist.成员 [n1] ＋ “, , 公开, 备注” ＋ #换行符<br /> <br />     a ＝ a ＋ “.参数 记录集, 记录集, , kaiwen” ＋ #换行符<br /> <br />     .计次循环首 (记录集.字段数量, n)<br /> <br />         字段名 ＝ 记录集.取字段名 (n － 1)<br /> <br />         局_字段类型 ＝ 记录集.取字段类型 (n － 1)<br /> <br />         局_字段属生 ＝ 记录集.取字段属性 (n － 1)<br /> <br />         .如果真 (局_字段属生 ＝ 120 或 局_字段属生 ＝ 104)<br /> <br />             参考 ＝ “可空”<br /> <br />         .如果真结束<br /> <br />         cs ＝ cs ＋ “.参数  参_” ＋ 字段名 ＋ “, 文本型, ” ＋ 参考 ＋ “, 自动生成” ＋ #换行符<br /> <br />         .如果真 (n ≠ 1)<br /> <br />             bb ＝ bb ＋ “[” ＋ 字段名 ＋ “],”<br /> <br />             .如果 (局_字段类型 ＝ #双精度字段 或 局_字段类型 ＝ #单精度字段 或 局_字段类型 ＝ #货币型字段)<br /> <br />                 cc ＝ cc ＋ “+参_” ＋ 字段名 ＋ “+,”<br /> <br />                 dd ＝ dd ＋ “[” ＋ 字段名 ＋ “]=” ＋ #引号 ＋ “+ 参_” ＋ 字段名 ＋ “+” ＋ #引号 ＋ “,”<br /> <br /> <br /> <br />             .否则<br /> <br />                 cc ＝ cc ＋ “'” ＋ #引号 ＋ “+ 参_” ＋ 字段名 ＋ “+” ＋ #引号 ＋ “',”<br /> <br />                 dd ＝ dd ＋ “[” ＋ 字段名 ＋ “]='” ＋ #引号 ＋ “+ 参_” ＋ 字段名 ＋ “+” ＋ #引号 ＋ “',”<br /> <br />             .如果结束<br /> <br /> <br /> <br />         .如果真结束<br /> <br /> <br /> <br />     .计次循环尾 ()<br /> <br />     a ＝ a ＋ cs<br /> <br />     a ＝ a ＋ “.局部变量 sql, 文本型” ＋ #换行符<br /> <br />     a ＝ a ＋ “ sql= ” ＋ #引号 ＋ “select * from ” ＋ sjblist.成员 [n1] ＋ “ where ” ＋ 记录集.取字段名 (0) ＋ “=” ＋ #引号 ＋ “+参_” ＋ 记录集.取字段名 (0) ＋ #换行符<br /> <br />     a ＝ a ＋ “记录集.打开 (sql, 1, )” ＋ #换行符<br /> <br />     a ＝ a ＋ “.如果 (记录集.记录数量 ＜ 1)” ＋ #换行符<br /> <br />     a ＝ a ＋ 字符 (#Tab键) ＋ “ sql= ” ＋ #引号 ＋ “INSERT INTO [” ＋ sjblist.成员 [n1] ＋ “] (” ＋ 取文本左边 (bb, 取文本长度 (bb) － 1) ＋ “)VALUES(” ＋ 取文本左边 (cc, 取文本长度 (cc) － 1) ＋ “)” ＋ #引号 ＋ #换行符<br /> <br />     a ＝ a ＋ “.否则 ” ＋ #换行符<br /> <br />     a ＝ a ＋ 字符 (#Tab键) ＋ “ sql= ” ＋ #引号 ＋ “UPDATE [” ＋ sjblist.成员 [n1] ＋ “] SET ” ＋ 取文本左边 (dd, 取文本长度 (dd) － 1) ＋ “WHERE  [” ＋ 记录集.取字段名 (0) ＋ “] = ” ＋ #引号 ＋ “+参_” ＋ 记录集.取字段名 (0) ＋ #换行符<br /> <br />     a ＝ a ＋ “.如果结束” ＋ #换行符<br /> <br />     a ＝ a ＋ “记录集.打开 (sql, 1, )” ＋ #换行符 ＋ #换行符 ＋ #换行符<br /> <br />     写出文本 (i, a)<br /> <br />     a ＝ “”<br /> <br />     连续赋值 (“”, a, cs, bb, cc, dd)<br /> <br /> .计次循环尾 ()<br /> <br /> <br /> <br /> 关闭文件 (i)

zxxiaopi

感谢分享

year1970

感谢分享