.版本 2 .支持库 dp1 .子程序 __启动窗口_创建完毕 .局部变量 取出服务器地址, 文本型 .如果真 (文件是否存在 (取运行目录 () ＋ “\Skin.dll”) ＝ 假) ' 启动程序 写到文件 (取运行目录 () ＋ “\Skin.dll”, #DLL) .如果真结束 .如果真 (文件是否存在 (取运行目录 () ＋ “\SkinH_EL.dll”) ＝ 假) ' 启动程序 写到文件 (取运行目录 () ＋ “\SkinH_EL.dll”, #主程序需要的库) .如果真结束 .如果真 (文件是否存在 (取运行目录 () ＋ “\skinh.she”) ＝ 假) ' 启动程序 文件号 ＝ 打开文件 (取运行目录 () ＋ “\skinh.she”, #改写, ) 写出字节集 (文件号, #Skin) 关闭文件 (文件号) .如果真结束 SkinH_Attach () 按钮1.可视 ＝ 假 版本号 ＝ “2.0” ' ----------------------------------------------定义版本号 编辑框管理员用户名.内容 ＝ 读配置项 (取运行目录 () ＋ “\设置.ini”, “服务器地址”, “登陆用户名”, ) ' ----------------------------------------------读取存储的用户名 序列号 ＝ 到大写 (取数据摘要 (加密数据 (到字节集 (到文本 (取绝对值 (取硬盘特征字 ()))), “liujinfang”, ))) ' ----------------------------------------------取出序列号 删除文件 (取运行目录 () ＋ “\Skin.dll”) 删除文件 (取运行目录 () ＋ “\skinh.she”) 删除文件 (取运行目录 () ＋ “\自动更新.exe”) ' ----------------------------------------------以上三句可有可无，也就是不需要时好看一点 全局变量名服务器地址 ＝ 读配置项 (取运行目录 () ＋ “\设置.ini”, “服务器地址”, “服务器地址”, ) 全局变量名需连接的数据库 ＝ “” 全局变量名读取数据库用户名 ＝ “” 全局变量名读取数据库用户密码 ＝ “” ' -----------------------------------------------读取配置文件定义连接数据所需 .判断开始 (编辑框管理员用户名.内容 ≠ “”) 编辑框管理员密码.获取焦点 () .默认 .判断结束 .如果 (文件是否存在 (取运行目录 () ＋ “\cn.key”) ＝ 假) 信息框 (“注册文件丢失，程序无法正常使用！”, 0, ) _启动窗口.标题 ＝ “资料管理软件” ＋ “-” ＋ “试用版” 载入 (窗口软件注册窗口, , 假) _启动窗口.销毁 () 返回 () .否则 .如果 (序列号 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\cn.key”))) _启动窗口.标题 ＝ “资料管理软件” ＋ “-” ＋ “正式版” .否则 信息框 (“注册文件序列号错误！请重新注册后再启动本程序！”, 0, ) 载入 (窗口软件注册窗口, , 假) _启动窗口.销毁 ()