大神帮忙修改下看看哪里出问题了

cpo0029

  

线程池.启动 ()
路劲 ()
' 开始监视 (“D:\照片”)
开始监视 (编辑框13.内容)
窗口2.标题 ＝ “Alex 条码统计开启成功”
' 窗口2.标题 ＝ “Alex 条码统计开启成功” ＋ 编辑框1.内容 ＋ “入库成功”
时钟1.时钟周期 ＝ 1000
编辑框1.禁止 ＝ 真
编辑框2.禁止 ＝ 真
编辑框3.禁止 ＝ 真
编辑框4.禁止 ＝ 真
编辑框14.禁止 ＝ 真
按钮1.禁止 ＝ 真

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
sql	文本型
是否	文本型
最后	整数型
保存	文本型

如果真 (按钮1.标题 ＝ “添  加”)
如果真 (记录集1.打开 (“SELECT * FROM alex_zj_tm WHERE (tm ='” ＋ 删首尾空 (编辑框1.内容) ＋ “')”, #SQL语句, ) ＝ 假)
' 窗口1.编辑框2.加入文本 (“数据查询失败，返回”)
返回 ()
输出调试文本 (记录集1.记录数量)
如果真 (记录集1.记录数量 ≥ 1)
记录集1.关闭 ()
窗口2.标题 ＝ “Alex 条码统计开启成功” ＋ 编辑框1.内容 ＋ “该条码已经存在，添加失败”
' 写到文件 (取特定目录 (3) ＋ “重复条码.TXT”, 到字节集 (编辑框1.内容))
返回 ()

如果真 (删首尾空 (编辑框1.内容) ＝ “” 或 删首尾空 (编辑框2.内容) ＝ “” 或 删首尾空 (编辑框3.内容) ＝ “” 或 删首尾空 (编辑框4.内容) ＝ “”)
信息框 (“数据不完整，无法添加”, 16, “提示”, )
返回 ()

如果真 (记录集1.打开 (“INSERT INTO [AIS20101230162355].[dbo].[alex_zj_tm]([tm],[bb],[xb],[bc])VALUES('” ＋ 删首尾空 (编辑框1.内容) ＋ “','” ＋ 删首尾空 (编辑框3.内容) ＋ “','” ＋ 删首尾空 (编辑框4.内容) ＋ “','” ＋ 删首尾空 (编辑框14.内容) ＋ “')”, #SQL语句, ) ＝ 真)
' 信息框 (“添加成功”, 64, “提示”, )
窗口2.标题 ＝ “Alex 条码统计” ＋ “ ” ＋ 编辑框1.内容 ＋ “ ” ＋ “入库成功”
记录集1.关闭 ()
返回 ()
记录集1.关闭 ()
窗口2.标题 ＝ “Alex 条码统计” ＋ “ ” ＋ 编辑框1.内容 ＋ “ ” ＋ “入库失败”
' 信息框 (“添加失败”, 16, “警告”, )
返回 ()

子程序名	返回值类型	公开	备 注
监视线程
参数名	类 型	参考	可空	数组	备 注
错误代码	整数型
传输字节数	整数型
重叠数据	整数型

变量名	类 型	静态	数组	备 注
数据缓冲	字节集
下一条目偏移	整数型			NextEntryOffset
动作	整数型			Action
文件名长度	整数型			FileNameLength
文件名	文本型			FileName
偏移地址
输出文本	文本型
新内容	文本型
读入名称	文本型
内容	文本型

判断 (错误代码 ＝ 0)
数据缓冲 ＝ 指针到字节集 (重叠数据 ＋ 20, 传输字节数)
如果 (传输字节数 ＞ 0)
偏移地址 ＝ 0
循环判断首 ()
下一条目偏移 ＝ 取字节集数据 (数据缓冲, #整数型, 偏移地址 ＋ 1)
动作 ＝ 取字节集数据 (数据缓冲, #整数型, 偏移地址 ＋ 5)
文件名长度 ＝ 取字节集数据 (数据缓冲, #整数型, 偏移地址 ＋ 9)
文件名 ＝ Unicode转Ansi (取字节集中间 (数据缓冲, 偏移地址 ＋ 13, 文件名长度))
如果真 (下一条目偏移 ＞ 0)
偏移地址 ＝ 偏移地址 ＋ 下一条目偏移
判断 (动作 ＝ #FILE_ACTION_ADDED )
输出文本 ＝ “新建文件” ＋ 文件名


线程池.锁定 ()
新内容 ＝ 子文本替换 (输出文本, “.jpg”, “”, , , 真)
内容 ＝ 子文本替换 (新内容, “新建文件”, “”, , , 真)
如果 (内容 ≠ “”)
编辑框1.内容 ＝ 内容
列表框1.加入项目 (内容, )
透明标签16.标题 ＝ “当前数量:” ＋ 到文本 (列表框1.取项目数 ()) ＋ “条数据”
' 状态条1.置文本 (1, “当前数量:” ＋ 到文本 (列表框1.取项目数 ()) ＋ “条数据”)
线程池.解锁 ()
循环判断尾 (下一条目偏移 ＞ 0)
提交监视任务 (重叠数据)
如果真 (重叠数据 ≠ 0)
释放内存 (重叠数据)
编辑框1.内容 ＝ “”

子程序名	返回值类型	公开	备 注
开始监视	逻辑型
参数名	类 型	参考	可空	数组	备 注
文件夹名称	文本型

变量名	类 型	静态	数组	备 注
线程数量	整数型
重叠数据	整数型

集_文件夹句柄 ＝ CreateFile (文件夹名称, #FILE_LIST_DIRECTORY, 位或 ( #FILE_SHARE_READ, #FILE_SHARE_WRITE, #FILE_SHARE_DELETE ), 0, #OPEN_EXISTING, 位或 ( #FILE_FLAG_OVERLAPPED, #FILE_FLAG_BACKUP_SEMANTICS ), 0)
如果真 (集_文件夹句柄 ＝ -1)
返回 (假)
如果真 (线程池.绑定对象 (集_文件夹句柄, &监视线程) ＝ 假)
返回 (假)
计次循环首 (线程池.取当前线程数量 (), )
重叠数据 ＝ 申请内存 (20 ＋ 1024, 真)
提交监视任务 (重叠数据)
计次循环尾 ()
返回 (真)

子程序名	返回值类型	公开	备 注
提交监视任务
参数名	类 型	参考	可空	数组	备 注
重叠数据	整数型

变量名	类 型	静态	数组	备 注
监视器	整数型

监视器 ＝ #FILE_NOTIFY_CHANGE_FILE_NAME ＋ #FILE_NOTIFY_CHANGE_DIR_NAME ＋ #FILE_NOTIFY_CHANGE_ATTRIBUTES ＋ #FILE_NOTIFY_CHANGE_SIZE ＋ #FILE_NOTIFY_CHANGE_LAST_WRITE ＋ #FILE_NOTIFY_CHANGE_LAST_ACCESS ＋ #FILE_NOTIFY_CHANGE_CREATION ＋ #FILE_NOTIFY_CHANGE_SECURITY
ReadDirectoryChanges (集_文件夹句柄, 重叠数据 ＋ 20, 1024, 假, 监视器, 0, 重叠数据, 0)

子程序名	返回值类型	公开	备 注
Unicode转Ansi	文本型
参数名	类 型	参考	可空	数组	备 注
参数_数据	字节集

变量名	类 型	静态	数组	备 注
局部_计数	整数型
局部_结果数据	字节集
局部_结果文本	文本型
Null	字节集

局部_计数 ＝ 取字节集长度 (参数_数据) ÷ 2  ' 字符数目两个
局部_计数 ＝ WideCharToMultiByte (936, 512, 参数_数据, 局部_计数, Null, 0, 0, 假)  ' 取转换后的数目
局部_结果数据 ＝ 取空白字节集 (局部_计数)
WideCharToMultiByte (936, 512, 参数_数据, -1, 局部_结果数据, 局部_计数, 0, 假)
局部_结果文本 ＝ 取字节集数据 (局部_结果数据, #文本型, )
返回 (局部_结果文本)

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

编辑框2.内容 ＝ 到文本 (取年份 (取现行时间 ())) ＋ “-” ＋ 到文本 (取月份 (取现行时间 ())) ＋ “-” ＋ 到文本 (取日 (取现行时间 ())) ＋ “ ” ＋ 到文本 (取小时 (取现行时间 ())) ＋ “:” ＋ 到文本 (取分钟 (取现行时间 ())) ＋ “:” ＋ 到文本 (取秒 (取现行时间 ()))

子程序名	返回值类型	公开	备 注
_组合框1_列表项被选择

编辑框3.内容 ＝ 组合框1.取项目文本 (组合框1.现行选中项)
组合框1.置项目文本 (组合框1.现行选中项, 编辑框3.内容)

子程序名	返回值类型	公开	备 注
_组合框2_列表项被选择

编辑框4.内容 ＝ 组合框2.取项目文本 (组合框2.现行选中项)
组合框2.置项目文本 (组合框2.现行选中项, 编辑框4.内容)

子程序名	返回值类型	公开	备 注
_组合框3_列表项被选择

编辑框14.内容 ＝ 组合框3.取项目文本 (组合框3.现行选中项)
组合框3.置项目文本 (组合框3.现行选中项, 编辑框14.内容)

子程序名	返回值类型	公开	备 注
_编辑框1_内容被改变

_按钮1_被单击 ()

子程序名	返回值类型	公开	备 注
路劲

变量名	类 型	静态	数组	备 注
ShellF	对象
FolderF	对象
FolderItemF	对象

ShellF.创建 (“Shell.Application”, )
FolderF ＝ ShellF.读对象型属性 (“BrowseForFolder”, 0, “请选择目录:”, 0, “C:\Scripts”)
FolderItemF ＝ FolderF.读对象型属性 (“Self”, )
如果 (取文本长度 (FolderItemF.读文本属性 (“Path”, )) ＝ 0)

编辑框13.内容 ＝ FolderItemF.读文本属性 (“Path”, )
如果真 (取文本右边 (编辑框13.内容, 1) ≠ “\”)
编辑框13.内容 ＝ 编辑框13.内容 ＋ “\”  ' ＋ “\”

返回 ()

i支持库列表	支持库注释
eDB	数据库操作支持库
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 eDB<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> 线程池.启动 ()<br /> 路劲 ()<br /> ' 开始监视 (“D:\照片”)<br /> 开始监视 (编辑框13.内容)<br /> 窗口2.标题 ＝ “Alex 条码统计开启成功”<br /> ' 窗口2.标题 ＝ “Alex 条码统计开启成功” ＋ 编辑框1.内容 ＋ “入库成功”<br /> 时钟1.时钟周期 ＝ 1000<br /> 编辑框1.禁止 ＝ 真<br /> 编辑框2.禁止 ＝ 真<br /> 编辑框3.禁止 ＝ 真<br /> 编辑框4.禁止 ＝ 真<br /> 编辑框14.禁止 ＝ 真<br /> 按钮1.禁止 ＝ 真<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 sql, 文本型<br /> .局部变量 是否, 文本型<br /> .局部变量 最后, 整数型<br /> .局部变量 保存, 文本型<br /> <br /> .如果真 (按钮1.标题 ＝ “添  加”)<br /> <br />     .如果真 (记录集1.打开 (“SELECT * FROM alex_zj_tm WHERE (tm ='” ＋ 删首尾空 (编辑框1.内容) ＋ “')”, #SQL语句, ) ＝ 假)<br /> <br />         ' 窗口1.编辑框2.加入文本 (“数据查询失败，返回”)<br />         返回 ()<br />     .如果真结束<br />     输出调试文本 (记录集1.记录数量)<br />     .如果真 (记录集1.记录数量 ≥ 1)<br />         记录集1.关闭 ()<br />         窗口2.标题 ＝ “Alex 条码统计开启成功” ＋ 编辑框1.内容 ＋ “该条码已经存在，添加失败”<br />         ' 写到文件 (取特定目录 (3) ＋ “重复条码.TXT”, 到字节集 (编辑框1.内容))<br />         返回 ()<br />     .如果真结束<br /> <br /> <br /> <br />     .如果真 (删首尾空 (编辑框1.内容) ＝ “” 或 删首尾空 (编辑框2.内容) ＝ “” 或 删首尾空 (编辑框3.内容) ＝ “” 或 删首尾空 (编辑框4.内容) ＝ “”)<br />         信息框 (“数据不完整，无法添加”, 16, “提示”, )<br />         返回 ()<br />     .如果真结束<br /> <br />     .如果真 (记录集1.打开 (“INSERT INTO [AIS20101230162355].[dbo].[alex_zj_tm]([tm],[bb],[xb],[bc])VALUES('” ＋ 删首尾空 (编辑框1.内容) ＋ “','” ＋ 删首尾空 (编辑框3.内容) ＋ “','” ＋ 删首尾空 (编辑框4.内容) ＋ “','” ＋ 删首尾空 (编辑框14.内容) ＋ “')”, #SQL语句, ) ＝ 真)<br /> <br />         ' 信息框 (“添加成功”, 64, “提示”, )<br />         窗口2.标题 ＝ “Alex 条码统计” ＋ “ ” ＋ 编辑框1.内容 ＋ “ ” ＋ “入库成功”<br />         记录集1.关闭 ()<br /> <br />         返回 ()<br />     .如果真结束<br />     记录集1.关闭 ()<br />     窗口2.标题 ＝ “Alex 条码统计” ＋ “ ” ＋ 编辑框1.内容 ＋ “ ” ＋ “入库失败”<br />     ' 信息框 (“添加失败”, 16, “警告”, )<br />     返回 ()<br /> <br /> <br /> <br /> .如果真结束<br /> <br /> <br /> <br /> <br /> <br /> .子程序 监视线程<br /> .参数 错误代码, 整数型<br /> .参数 传输字节数, 整数型<br /> .参数 重叠数据, 整数型<br /> .局部变量 数据缓冲, 字节集<br /> .局部变量 下一条目偏移, 整数型, , , NextEntryOffset<br /> .局部变量 动作, 整数型, , , Action<br /> .局部变量 文件名长度, 整数型, , , FileNameLength<br /> .局部变量 文件名, 文本型, , , FileName<br /> .局部变量 偏移地址<br /> .局部变量 输出文本, 文本型<br /> .局部变量 新内容, 文本型<br /> .局部变量 读入名称, 文本型<br /> .局部变量 内容, 文本型<br /> <br /> .判断开始 (错误代码 ＝ 0)<br />     数据缓冲 ＝ 指针到字节集 (重叠数据 ＋ 20, 传输字节数)<br />     .如果 (传输字节数 ＞ 0)<br />         偏移地址 ＝ 0<br />         .循环判断首 ()<br />             下一条目偏移 ＝ 取字节集数据 (数据缓冲, #整数型, 偏移地址 ＋ 1)<br />             动作 ＝ 取字节集数据 (数据缓冲, #整数型, 偏移地址 ＋ 5)<br />             文件名长度 ＝ 取字节集数据 (数据缓冲, #整数型, 偏移地址 ＋ 9)<br />             文件名 ＝ Unicode转Ansi (取字节集中间 (数据缓冲, 偏移地址 ＋ 13, 文件名长度))<br />             .如果真 (下一条目偏移 ＞ 0)<br />                 偏移地址 ＝ 偏移地址 ＋ 下一条目偏移<br />             .如果真结束<br />             .判断开始 (动作 ＝ #FILE_ACTION_ADDED)<br />                 输出文本 ＝ “新建文件” ＋ 文件名<br />             .默认<br /> <br />             .判断结束<br />             线程池.锁定 ()<br />             新内容 ＝ 子文本替换 (输出文本, “.jpg”, “”, , , 真)<br />             内容 ＝ 子文本替换 (新内容, “新建文件”, “”, , , 真)<br />             .如果 (内容 ≠ “”)<br />                 编辑框1.内容 ＝ 内容<br />                 列表框1.加入项目 (内容, )<br />             .否则<br />                 透明标签16.标题 ＝ “当前数量:” ＋ 到文本 (列表框1.取项目数 ()) ＋ “条数据”<br />                 ' 状态条1.置文本 (1, “当前数量:” ＋ 到文本 (列表框1.取项目数 ()) ＋ “条数据”)<br />             .如果结束<br />             线程池.解锁 ()<br />         .循环判断尾 (下一条目偏移 ＞ 0)<br />         提交监视任务 (重叠数据)<br />     .否则<br />         .如果真 (重叠数据 ≠ 0)<br />             释放内存 (重叠数据)<br />             编辑框1.内容 ＝ “”<br /> <br />         .如果真结束<br /> <br />     .如果结束<br /> <br /> .默认<br /> <br /> .判断结束<br /> <br /> <br /> .子程序 开始监视, 逻辑型<br /> .参数 文件夹名称, 文本型<br /> .局部变量 线程数量, 整数型<br /> .局部变量 重叠数据, 整数型<br /> <br /> 集_文件夹句柄 ＝ CreateFile (文件夹名称, #FILE_LIST_DIRECTORY, 位或 (#FILE_SHARE_READ, #FILE_SHARE_WRITE, #FILE_SHARE_DELETE), 0, #OPEN_EXISTING, 位或 (#FILE_FLAG_OVERLAPPED, #FILE_FLAG_BACKUP_SEMANTICS), 0)<br /> .如果真 (集_文件夹句柄 ＝ -1)<br />     返回 (假)<br /> .如果真结束<br /> .如果真 (线程池.绑定对象 (集_文件夹句柄, &监视线程) ＝ 假)<br />     返回 (假)<br /> .如果真结束<br /> .计次循环首 (线程池.取当前线程数量 (), )<br />     重叠数据 ＝ 申请内存 (20 ＋ 1024, 真)<br />     提交监视任务 (重叠数据)<br /> .计次循环尾 ()<br /> 返回 (真)<br /> <br /> <br /> .子程序 提交监视任务<br /> .参数 重叠数据, 整数型<br /> .局部变量 监视器, 整数型<br /> <br /> 监视器 ＝ #FILE_NOTIFY_CHANGE_FILE_NAME ＋ #FILE_NOTIFY_CHANGE_DIR_NAME ＋ #FILE_NOTIFY_CHANGE_ATTRIBUTES ＋ #FILE_NOTIFY_CHANGE_SIZE ＋ #FILE_NOTIFY_CHANGE_LAST_WRITE ＋ #FILE_NOTIFY_CHANGE_LAST_ACCESS ＋ #FILE_NOTIFY_CHANGE_CREATION ＋ #FILE_NOTIFY_CHANGE_SECURITY<br /> ReadDirectoryChanges (集_文件夹句柄, 重叠数据 ＋ 20, 1024, 假, 监视器, 0, 重叠数据, 0)<br /> <br /> .子程序 Unicode转Ansi, 文本型<br /> .参数 参数_数据, 字节集<br /> .局部变量 局部_计数, 整数型<br /> .局部变量 局部_结果数据, 字节集<br /> .局部变量 局部_结果文本, 文本型<br /> .局部变量 Null, 字节集<br /> <br /> 局部_计数 ＝ 取字节集长度 (参数_数据) ÷ 2  ' 字符数目两个<br /> 局部_计数 ＝ WideCharToMultiByte (936, 512, 参数_数据, 局部_计数, Null, 0, 0, 假)  ' 取转换后的数目<br /> 局部_结果数据 ＝ 取空白字节集 (局部_计数)<br /> WideCharToMultiByte (936, 512, 参数_数据, -1, 局部_结果数据, 局部_计数, 0, 假)<br /> 局部_结果文本 ＝ 取字节集数据 (局部_结果数据, #文本型, )<br /> 返回 (局部_结果文本)<br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> 编辑框2.内容 ＝ 到文本 (取年份 (取现行时间 ())) ＋ “-” ＋ 到文本 (取月份 (取现行时间 ())) ＋ “-” ＋ 到文本 (取日 (取现行时间 ())) ＋ “ ” ＋ 到文本 (取小时 (取现行时间 ())) ＋ “:” ＋ 到文本 (取分钟 (取现行时间 ())) ＋ “:” ＋ 到文本 (取秒 (取现行时间 ()))<br /> <br /> <br /> .子程序 _组合框1_列表项被选择<br /> <br /> 编辑框3.内容 ＝ 组合框1.取项目文本 (组合框1.现行选中项)<br /> 组合框1.置项目文本 (组合框1.现行选中项, 编辑框3.内容)<br /> <br /> <br /> .子程序 _组合框2_列表项被选择<br /> <br /> 编辑框4.内容 ＝ 组合框2.取项目文本 (组合框2.现行选中项)<br /> 组合框2.置项目文本 (组合框2.现行选中项, 编辑框4.内容)<br /> <br /> .子程序 _组合框3_列表项被选择<br /> <br /> 编辑框14.内容 ＝ 组合框3.取项目文本 (组合框3.现行选中项)<br /> 组合框3.置项目文本 (组合框3.现行选中项, 编辑框14.内容)<br /> <br /> .子程序 _编辑框1_内容被改变<br /> <br /> _按钮1_被单击 ()<br /> <br /> .子程序 路劲<br /> .局部变量 ShellF, 对象<br /> .局部变量 FolderF, 对象<br /> .局部变量 FolderItemF, 对象<br /> <br /> ShellF.创建 (“Shell.Application”, )<br /> FolderF ＝ ShellF.读对象型属性 (“BrowseForFolder”, 0, “请选择目录:”, 0, “C:\Scripts”)<br /> FolderItemF ＝ FolderF.读对象型属性 (“Self”, )<br /> .如果 (取文本长度 (FolderItemF.读文本属性 (“Path”, )) ＝ 0)<br /> <br /> .否则<br />     编辑框13.内容 ＝ FolderItemF.读文本属性 (“Path”, )<br />     .如果真 (取文本右边 (编辑框13.内容, 1) ≠ “\”)<br />         编辑框13.内容 ＝ 编辑框13.内容 ＋ “\”  ' ＋ “\”<br />     .如果真结束<br /> <br /> .如果结束<br /> 返回 ()

怎么才能监控到目录下面的子目录啊，帮忙修改下。

cpo0029

求解决啊

潇洒＆男孩

定时遍历文件目录下的文件夹然后对比

cpo0029

具体怎么弄啊