要纯中文的记录集.新增这种

这是我从我自己写的另一个程序 Copy得代码不懂就问我 拿去抄

  

窗口程序集名	保 留	保 留	备 注
数据库
变量名	类 型	数组	备 注
connid	整数型

子程序名	返回值类型	公开	备 注
Mysql_连接数据库	逻辑型

变量名	类 型	静态	数组	备 注
host	文本型
u	文本型
p	文本型
dbName	文本型
port	整数型

host ＝ “127.0.0.1”
u ＝ “root”
p ＝ “hqs666”
dbName ＝ “meet”
port ＝ 3306
' ------------------------
' host ＝ “changjiale.iego.vip”
' u ＝ “root”
' p ＝ “hqs666”
' dbName ＝ “meet”
' port ＝ 22502
connid ＝ 连接MySql (host, u, p, dbName, port)
调试输出 (“服务连接成功”, connid)
执行SQL语句 (connid, “SET NAMES 'gbk'”)
返回 (connid ≠ 0)

子程序名	返回值类型	公开	备 注
Mysql_新增部门信息	逻辑型
参数名	类 型	参考	可空	数组	备 注
deptName	文本型
deptDesc	文本型

变量名	类 型	静态	数组	备 注
bool	逻辑型
sql	文本型
uuid	文本型

bool ＝ 假
uuid ＝ 取数据摘要 (到字节集 (时间_取现行时间戳 (假)))
sql ＝ “INSERT INTO `m_dept` ( `DEPT_ID`, `DEPT_NAME`, `REMARK`, `CREATER_USER`, `CREATER_USER_NAME`, `CREATER_TIME`, `ALIVE_FLAG`, `VERSION`) VALUES ('” ＋ uuid ＋ “', '” ＋ deptName ＋ “', '” ＋ deptDesc ＋ “', '” ＋ 操作人.USER_ID ＋ “', '” ＋ 操作人.NAME ＋ “', '” ＋ 时间_转换 (取现行时间 ()) ＋ “', '1', '1');”
bool ＝ 执行SQL语句 (connid, sql)
返回 (bool)

i支持库列表	支持库注释
mysql	MySql支持库
spec	特殊功能支持库
dp1	数据操作支持库一

.版本 2<br /> .支持库 mysql<br /> .支持库 spec<br /> <br /> .程序集 数据库<br /> .程序集变量 connid, 整数型<br /> <br /> .子程序 Mysql_连接数据库, 逻辑型<br /> .局部变量 host, 文本型<br /> .局部变量 u, 文本型<br /> .局部变量 p, 文本型<br /> .局部变量 dbName, 文本型<br /> .局部变量 port, 整数型<br /> <br /> host ＝ “127.0.0.1”<br /> u ＝ “root”<br /> p ＝ “hqs666”<br /> dbName ＝ “meet”<br /> port ＝ 3306<br /> ' ------------------------<br /> ' host ＝ “changjiale.iego.vip”<br /> ' u ＝ “root”<br /> ' p ＝ “hqs666”<br /> ' dbName ＝ “meet”<br /> ' port ＝ 22502<br /> <br /> connid ＝ 连接MySql (host, u, p, dbName, port)<br /> 调试输出 (“服务连接成功”, connid)<br /> 执行SQL语句 (connid, “SET NAMES 'gbk'”)<br /> 返回 (connid ≠ 0)<br /> .版本 2<br /> .支持库 dp1<br /> .支持库 mysql<br /> <br /> .子程序 Mysql_新增部门信息, 逻辑型<br /> .参数 deptName, 文本型<br /> .参数 deptDesc, 文本型<br /> .局部变量 bool, 逻辑型<br /> .局部变量 sql, 文本型<br /> .局部变量 uuid, 文本型<br /> <br /> bool ＝ 假<br /> uuid ＝ 取数据摘要 (到字节集 (时间_取现行时间戳 (假)))<br /> sql ＝ “INSERT INTO `m_dept` ( `DEPT_ID`, `DEPT_NAME`, `REMARK`, `CREATER_USER`, `CREATER_USER_NAME`, `CREATER_TIME`, `ALIVE_FLAG`, `VERSION`) VALUES ('” ＋ uuid ＋ “', '” ＋ deptName ＋ “', '” ＋ deptDesc ＋ “', '” ＋ 操作人.USER_ID ＋ “', '” ＋ 操作人.NAME ＋ “', '” ＋ 时间_转换 (取现行时间 ()) ＋ “', '1', '1');”<br /> bool ＝ 执行SQL语句 (connid, sql)<br /> 返回 (bool)