文件名称：进出库管理系统源码
文件大小：10KB
文件格式：ZIP
更新时间：2018-11-14 07:13:31
管理系统
.版本 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”, ) 移到文件首 (文件号) 写出字节集 (文件号, 导入容器) 关闭所有文件 () 信息框 (“为让系统正确运行，请关闭程序重新运行！”, #信息图标, )
【文件预览】：
进出库管理系统，mysql.e
源码使用说明.txt