开发工具:
文件大小: 10kb
下载次数: 0
上传时间: 2015-10-25
详细说明： .版本 2 .子程序 _删除_被选择 .局部变量 当前选中, 整数型 .局部变量 文本数组, 文本型, , "0" .局部变量 文本数组2, 文本型, , "0" .局部变量 删除容器, 字节集 .局部变量 x, 整数型 .如果真 (列表框1.现行选中项 ＝ -1) 信息框 (“请在列表中选中需要删除的会员！”, 0, ) 返回 () .如果真结束 当前选中 ＝ 列表框1.现行选中项 移到文件首 (文件号) 删除容器 ＝ 读入字节集 (文件号, 取文件长度 (文件号)) 文本数组 ＝ 分割文本 (到文本 (删除容器), #换行符, ) .计次循环首 (取数组成员数 (文本数组), x) .如果 (当前选中 ＋ 1 ＝ x) 文本数组2 ＝ 分割文本 (文本数组 [x], “,”, ) .如果真 (信息框 (“会员卡号：” ＋ 文本数组2 [1] ＋ #换行符 ＋ “会员名字：” ＋ 文本数组2 [2] ＋ #换行符 ＋ “卡类型：” ＋ 文本数组2 [4] ＋ #换行符 ＋ “您确定要删除?”, #警告图标 ＋ #是否钮, “删除会员信息：”) ＝ 5) 删除成员 (文本数组, x, ) 跳出循环 () .如果真结束 返回 () .否则 .如果结束 .计次循环尾 () 移到文件首 (文件号) 删除数据 (文件号, 取文件长度 (文件号)) .计次循环首 (取数组成员数 (文本数组), x) .如果 (取数组成员数 (文本数组) ＝ x) 写出字节集 (文件号, 到字节集 (文本数组 [x])) .否则 写出字节集 (文件号, 到字节集 (文本数组 [x] ＋ #换行符)) .如果结束 .计次循环尾 () 子程序载入数据 () .子程序 子程序删除会员 .参数 会员号, 文本型 .局部变量 删除容器, 字节集 .局部变量 文本数组, 文本型, , "0" .局部变量 文本数组2, 文本型, , "0" .局部变量 x, 整数型 .' 如果 (会员号 ≠ “”) ' 移到文件首 (文件号) ' 删除容器 ＝ 读入字节集 (文件号, 取文件长度 (文件号)) ' 文本数组 ＝ 分割文本 (到文本 (删除容器), #换行符, ) .' 计次循环首 (取数组成员数 (文本数组), x) ' 文本数组2 ＝ 分割文本 (文本数组 [x], “,”, ) .' 如果真 (文本数组2 [1] ＝ 会员号) .' 如果真 (信息框 (“会员卡号：” ＋ 文本数组2 [1] ＋ #换行符 ＋ “会员名字：” ＋ 文本数组2 [2] ＋ #换行符 ＋ “卡类型：” ＋ 文本数组2 [4] ＋ #换行符 ＋ “您确定要删除?”, #警告图标 ＋ #是否钮, “删除会员信息：”) ＝ 5) ' 删除成员 (文本数组, x, ) ' 跳出循环 () .如果真结束 ' 返回 () .如果真结束 .' 计次循环尾 () ' 移到文件首 (文件号) ' 删除数据 (文件号, 取文件长度 (文件号)) .' 计次循环首 (取数组成员数 (文本数组), x) .' 如果 (取数组成员数 (文本数组) ＝ x) ' 写出字节集 (文件号, 到字节集 (文本数组 [x])) .否则 ' 写出字节集 (文件号, 到字节集 (文本数组 [x] ＋ #换行符)) .如果结束 .' 计次循环尾 () ' 会员号 ＝ “” ' 子程序载入数据 () .否则 .如果结束 .子程序 _导入_被选择 .局部变量 导入容器, 字节集 .局部变量 文本数组, 文本型, , "0" .局部变量 文件号2, 整数型 .局部变量 临时变量, 文本型 信息框 (“本导入程序不会对您所导入的数据进行校验，请正确选择需要导入的数据备份！” ＋ #换行符 ＋ “否则将会导致不可逆的数据损坏！”, #警告图标, “警告！！”) .如果真 (通用对话框1.打开 () ＝ 假) 返回 () .如果真结束 关闭所有文件 () 文件号2 ＝ 打开加密文件 (通用对话框1.文件名, 3, , “19@85(32%71&BvC”, ) 移到文件首 (文件号2) 导入容器 ＝ 读入字节集 (文件号2, 取文件长度 (文件号2)) 临时变量 ＝ 子文本替换 (取当前目录 (), “\bakup”, “”, 1, , 真) 文件号 ＝ 打开加密文件 (临时变量 ＋ “\data.dat”, 4, , “19@85(32%71&BvC”, ) 移到文件首 (文件号) 写出字节集 (文件号, 导入容器) 关闭所有文件 () 信息框 (“为让系统正确运行，请关闭程序重新运行！”, #信息图标, ) ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
