| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| id | 整数型 | | |
| 数据 | 字节集 | | |
| file | 文本型 | | |
如果真 (文件是否存在 (取运行目录 () ＋
“\DXT.SQL”))
id ＝
打开加密文件 (取运行目录 () ＋
“\DXT_DOC.SQL”, 4, ,
“xttflxk”, 25
)如果真 (id ＝ 0
)信息框 (“无法打开加密文件！”, 0,
“错误”)返回 (0
)移到文件首 (id)写出文本 (id,
#文件头 )如果真 (文件是否存在 (取运行目录 () ＋
“\SQL.ini”))
写出数据 (id,
读入文件 (取运行目录 () ＋
“\SQL.ini”))
写出数据 (id,
读入文件 (取运行目录 () ＋
“\DXT.SQL”))
写出文本 (id,
“DOCTOR END”)关闭文件 (id
)信息框 (“加密文件成功！请测试！”, 0,
“恭喜”)返回 (0
)写到文件 (取运行目录 () ＋ “\SQL.ini”, 到字节集 ( #ini ))信息框 (“您需要先配置服务器连接方式！”, 0,
“抱歉”)返回 (0
)
id ＝
打开加密文件 (取运行目录 () ＋
“\DXT_DOC.SQL”, 1, ,
“xttflxk”, 25
)如果真 (id ＝ 0
)信息框 (“请确认修复程式的资源文件的完整性！” ＋
#换行符 ＋
“ Code: 0x001”, 0,
“错误”)返回 (0
)移到文件首 (id)如果真 (读入文本 (id, 25
) ≠
#文件头 ＋
到文本 ({ 0
}))
信息框 (“请确认修复程式的资源文件的完整性！” ＋
#换行符 ＋
“ Code: 0x002”, 0,
“错误”)返回 (0
)
如果真 (读入数据 (id, 数据
) ＝
假)信息框 (“读入SQL连接信息失败，请确认修复程式的资源文件的完整性！” ＋
#换行符 ＋
“ Code: 0x003”, 0,
“错误”)返回 (0
)file ＝ 取临时文件名 ()创建目录 (file
)写到文件 (file ＋
“\SQL.INI”, 数据
)如果真 (连接初始化 (file ＋
“\SQL.INI”))
如果真 (读入数据 (id, 数据
) ＝
假)信息框 (“读入SQL连接信息失败，请确认修复程式的资源文件的完整性！” ＋
#换行符 ＋
“ Code: 0x005”, 0,
“错误”)返回 (0
)写到文件 (file ＋ “\DXT_DOC.SQL”, 数据)如果真 (分析执行SQL命令 (file ＋
“\DXT_DOC.SQL”) ＝
假)信息框 (“命令分析执行失败,已撤消更改！” ＋
#换行符 ＋
“ Code: 9x001”, 0,
“错误”)返回 (0
)
如果真 (读入文本 (id, 10
) ≠
“DOCTOR END”)信息框 (“已经执行处理完成,但是没有找到结束标志,更改已保存！” ＋
#换行符 ＋
“ Code: 0x006”, 0,
“错误”)
如果真 (是否为调试版 () ＝
假)更改保存 (file ＋
“\SQL.INI”)信息框 (“处理成功！”, 0,
)返回 (0
) 返回 (0)
数据库医生.7z
(267.92 KB, 下载次数: 25)
