SQL求助一下各位

死心塌地跟爷走

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_登录界面
变量名	类 型	数组	备 注
M	逻辑型
sql语句	文本型

子程序名	返回值类型	公开	备 注
_登录界面_创建完毕

init ()  ' ''阴影
M ＝ 数据库连接1.连接SQLServer (“************”, “************”, “************”, “************”)
禁止EX ()
如果 (M ＝ 数据库连接1.连接SQLServer (“************”, “************”, “************”, “************”))
工具条EX2.添加按钮 (, #连接服务器成功, “连接数据库成功”, -2, 假, , , , -5, 1)


工具条EX2.添加按钮 (, #连接服务器失败, “连接数据库失败”, -2, 假, , , , -5, 1)

配置路径 ＝ 取当前目录 () ＋ “\Config.ini”
工具条EX2.添加按钮 (, #公司, “虎林市康贝大药房连锁有限公司”, -1, 假, , , , 5, )
工具条EX2.添加按钮 (, #用户名图标, “操作员：” ＋ 读配置项 (配置路径, “配置文件”, “upname”, ), -1, 假, , , , 6, )
工具条EX2.添加按钮 (, #日期图标, “当前日期：” ＋ 格式化日期输入 (取现行时间 ()), -1, 假, , , , 7, )

子程序名	返回值类型	公开	备 注
_关闭按钮_左键单击			'退出登录

易游_退出 (0, “http://w.eydata.net/456190f7b4cac942”, “code_状态码”, “upname_上次登录用户名 ”)
结束 ()

子程序名	返回值类型	公开	备 注
易游_退出	文本型		成功返回1失败返回错误代码
参数名	类 型	参考	可空	数组	备 注
访问方式	整数型				0为使用WinInet的方式访问网页,1为使用WinHttp对象的方式访问网页
调用地址	文本型
code_状态码	文本型
upname_上次登录用户名	文本型

变量名	类 型	静态	数组	备 注
提交地址	文本型
提交数据	文本型

code_状态码 ＝ 读配置项 (配置路径, “配置文件”, “code”, “”)
upname_上次登录用户名 ＝ 读配置项 (配置路径, “配置文件”, “upname”, “”)
提交地址 ＝ 调用地址
提交数据 ＝ “StatusCode=” ＋ code_状态码 ＋ “&UserName=” ＋ upname_上次登录用户名
判断 (访问方式 ＝ 0)
返回 (调用接口 (提交地址, 到字节集 (提交数据)))

返回 (到文本 (网页_访问_对象 (提交地址, 1, 提交数据, , , , , , , , , , , , , , )))

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

变量名	类 型	静态	数组	备 注
启动窗口句柄	整数型

启动窗口句柄 ＝ 登录界面.取窗口句柄 ()
彗星置窗口阴影 (启动窗口句柄)

子程序名	返回值类型	公开	备 注
禁止EX

标签EX9.标题 ＝ “请先输入商品编码 然后回车即可 商品条码为空的情况下 可以修改”
标签EX10.可视EX ＝ 假
按钮EX1.可视EX ＝ 假
编辑框EX2.可视EX ＝ 假

子程序名	返回值类型	公开	备 注
格式化日期输入	文本型		返回2007-01-01格式
参数名	类 型	参考	可空	数组	备 注
日期	日期时间型

变量名	类 型	静态	数组	备 注
年	文本型
月	文本型
日	文本型
年月日	文本型

年 ＝ 到文本 (取年份 (到时间 (日期)))
月 ＝ 到文本 (取月份 (到时间 (日期)))
日 ＝ 到文本 (取日 (到时间 (日期)))
返回 (年 ＋ “-” ＋ 选择 (取文本长度 (月) ＝ 1, “0” ＋ 月, 月) ＋ “-” ＋ 选择 (取文本长度 (日) ＝ 1, “0” ＋ 日, 日))

子程序名	返回值类型	公开	备 注
_编辑框EX1_按键信息	逻辑型
参数名	类 型	参考	可空	数组	备 注
键代码	整数型
按键类型	整数型

变量名	类 型	静态	数组	备 注
商品名称	文本型
商品条码	文本型
商品规格	文本型
商品产地	文本型

如果 (键代码 ＝ #回车键 )
判断 (编辑框EX1.内容 ≠ “” 且 记录集1.置连接 (数据库连接1))
sql语句 ＝ “select * from spkfk a,sphwph b where spbh='” ＋ 编辑框EX1.内容 ＋ “'” ＋ “ and a.spid=b.spid and b.shl>0 and a.sptm=''”
记录集1.打开 (sql语句, #SQL语句, )
记录集1.读文本 (“spmch”, 商品名称)
商品名称 ＝ 删尾空 (商品名称)
记录集1.读文本 (“sptm”, 商品条码)
记录集1.读文本 (“shpgg”, 商品规格)
商品规格 ＝ 删尾空 (商品规格)
记录集1.读文本 (“shpchd”, 商品产地)
商品产地 ＝ 删尾空 (商品产地)
标签EX2.标题 ＝ 商品名称
标签EX8.标题 ＝ 商品条码
标签EX6.标题 ＝ 商品规格
标签EX5.标题 ＝ 商品产地
判断 (商品条码 ＝ “” 且 商品名称 ≠ “”)
标签EX10.可视EX ＝ 真
按钮EX1.可视EX ＝ 真
编辑框EX2.可视EX ＝ 真
标签EX8.标题 ＝ “商品条码没有完善”
标签EX9.标题 ＝ “第二步操作成功,请在条码地方输入条码 或者扫码”
编辑框EX2.禁止 ＝ 真

标签EX8.标题 ＝ “商品条码已经存在或商品条码不正确 请重新输入”


信息框X (“                                       error mes************ge”, “错误提示”, “请先输入商品编号或者数据连接不成功”, 2, 1, 假)

子程序名	返回值类型	公开	备 注
_编辑框EX1_鼠标左键按下
参数名	类 型	参考	可空	数组	备 注
xy坐标	整数型
wp	整数型

标签EX9.标题 ＝ “第一步操作成功,请输入商品编号 回车”

子程序名	返回值类型	公开	备 注
_按钮EX1_左键单击

判断 (编辑框EX1.内容 ≠ “”)
sql语句 ＝ “update spkfk set sptm='” ＋ 编辑框EX2.内容 ＋ “'” ＋ “ where spbh='” ＋ 编辑框EX1.内容 ＋ “'”
调试输出 (sql语句)
调试输出 (数据库连接1)

信息框X (“返回”, “操作错误”, “操作错误”, 2, 1, 假)

i支持库列表	支持库注释
eDB	数据库操作支持库
exui	(未知支持库)
spec	特殊功能支持库

.版本 2<br /> .支持库 eDB<br /> .支持库 exui<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_登录界面<br /> .程序集变量 M, 逻辑型<br /> .程序集变量 sql语句, 文本型<br /> <br /> .子程序 _登录界面_创建完毕<br /> <br /> init ()  ' ''阴影<br /> M ＝ 数据库连接1.连接SQLServer (“************”, “************”, “************”, “************”)<br /> 禁止EX ()<br /> <br /> .如果 (M ＝ 数据库连接1.连接SQLServer (“************”, “************”, “************”, “************”))<br />     工具条EX2.添加按钮 (, #连接服务器成功, “连接数据库成功”, -2, 假, , , , -5, 1)<br /> .否则<br /> <br />     工具条EX2.添加按钮 (, #连接服务器失败, “连接数据库失败”, -2, 假, , , , -5, 1)<br /> .如果结束<br /> <br /> 配置路径 ＝ 取当前目录 () ＋ “\Config.ini”<br /> 工具条EX2.添加按钮 (, #公司, “虎林市康贝大药房连锁有限公司”, -1, 假, , , , 5, )<br /> 工具条EX2.添加按钮 (, #用户名图标, “操作员：” ＋ 读配置项 (配置路径, “配置文件”, “upname”, ), -1, 假, , , , 6, )<br /> 工具条EX2.添加按钮 (, #日期图标, “当前日期：” ＋ 格式化日期输入 (取现行时间 ()), -1, 假, , , , 7, )<br /> <br /> <br /> .子程序 _关闭按钮_左键单击, , , '退出登录<br /> <br /> 易游_退出 (0, “http://w.eydata.net/456190f7b4cac942”, “code_状态码”, “upname_上次登录用户名 ”)<br /> 结束 ()<br /> <br /> .子程序 易游_退出, 文本型, , 成功返回1失败返回错误代码<br /> .参数 访问方式, 整数型, , 0为使用WinInet的方式访问网页,1为使用WinHttp对象的方式访问网页<br /> .参数 调用地址, 文本型<br /> .参数 code_状态码, 文本型<br /> .参数 upname_上次登录用户名, 文本型<br /> .局部变量 提交地址, 文本型<br /> .局部变量 提交数据, 文本型<br /> <br /> code_状态码 ＝ 读配置项 (配置路径, “配置文件”, “code”, “”)<br /> upname_上次登录用户名 ＝ 读配置项 (配置路径, “配置文件”, “upname”, “”)<br /> 提交地址 ＝ 调用地址<br /> 提交数据 ＝ “StatusCode=” ＋ code_状态码 ＋ “&UserName=” ＋ upname_上次登录用户名<br /> .判断开始 (访问方式 ＝ 0)<br />     返回 (调用接口 (提交地址, 到字节集 (提交数据)))<br /> <br /> .默认<br />     返回 (到文本 (网页_访问_对象 (提交地址, 1, 提交数据, , , , , , , , , , , , , , )))<br /> <br /> .判断结束<br /> <br /> <br /> .子程序 init<br /> .局部变量 启动窗口句柄, 整数型<br /> <br /> 启动窗口句柄 ＝ 登录界面.取窗口句柄 ()<br /> 彗星置窗口阴影 (启动窗口句柄)<br /> <br /> .子程序 禁止EX<br /> <br /> 标签EX9.标题 ＝ “请先输入商品编码 然后回车即可 商品条码为空的情况下 可以修改”<br /> 标签EX10.可视EX ＝ 假<br /> 按钮EX1.可视EX ＝ 假<br /> 编辑框EX2.可视EX ＝ 假<br /> <br /> .子程序 格式化日期输入, 文本型, 公开, 返回2007-01-01格式<br /> .参数 日期, 日期时间型<br /> .局部变量 年, 文本型<br /> .局部变量 月, 文本型<br /> .局部变量 日, 文本型<br /> .局部变量 年月日, 文本型<br /> <br /> 年 ＝ 到文本 (取年份 (到时间 (日期)))<br /> 月 ＝ 到文本 (取月份 (到时间 (日期)))<br /> 日 ＝ 到文本 (取日 (到时间 (日期)))<br /> 返回 (年 ＋ “-” ＋ 选择 (取文本长度 (月) ＝ 1, “0” ＋ 月, 月) ＋ “-” ＋ 选择 (取文本长度 (日) ＝ 1, “0” ＋ 日, 日))<br /> <br /> .子程序 _编辑框EX1_按键信息, 逻辑型<br /> .参数 键代码, 整数型<br /> .参数 按键类型, 整数型<br /> .局部变量 商品名称, 文本型<br /> .局部变量 商品条码, 文本型<br /> .局部变量 商品规格, 文本型<br /> .局部变量 商品产地, 文本型<br /> <br /> .如果 (键代码 ＝ #回车键)<br /> <br />     .判断开始 (编辑框EX1.内容 ≠ “” 且 记录集1.置连接 (数据库连接1))<br />         sql语句 ＝ “select * from spkfk a,sphwph b where spbh='” ＋ 编辑框EX1.内容 ＋ “'” ＋ “ and a.spid=b.spid and b.shl>0 and a.sptm=''”<br />         记录集1.打开 (sql语句, #SQL语句, )<br />         记录集1.读文本 (“spmch”, 商品名称)<br />         商品名称 ＝ 删尾空 (商品名称)<br />         记录集1.读文本 (“sptm”, 商品条码)<br />         记录集1.读文本 (“shpgg”, 商品规格)<br />         商品规格 ＝ 删尾空 (商品规格)<br />         记录集1.读文本 (“shpchd”, 商品产地)<br />         商品产地 ＝ 删尾空 (商品产地)<br />         标签EX2.标题 ＝ 商品名称<br />         标签EX8.标题 ＝ 商品条码<br />         标签EX6.标题 ＝ 商品规格<br />         标签EX5.标题 ＝ 商品产地<br />         .判断开始 (商品条码 ＝ “” 且 商品名称 ≠ “”)<br />             标签EX10.可视EX ＝ 真<br />             按钮EX1.可视EX ＝ 真<br />             编辑框EX2.可视EX ＝ 真<br />             标签EX8.标题 ＝ “商品条码没有完善”<br />             标签EX9.标题 ＝ “第二步操作成功,请在条码地方输入条码 或者扫码”<br />             编辑框EX2.禁止 ＝ 真<br /> <br />         .默认<br />             标签EX8.标题 ＝ “商品条码已经存在或商品条码不正确 请重新输入”<br />         .判断结束<br /> <br /> <br /> <br /> <br /> <br />     .默认<br />         信息框X (“                                       error mes************ge”, “错误提示”, “请先输入商品编号或者数据连接不成功”, 2, 1, 假)<br /> <br />     .判断结束<br /> <br /> .否则<br /> <br /> .如果结束<br /> <br /> <br /> .子程序 _编辑框EX1_鼠标左键按下<br /> .参数 xy坐标, 整数型<br /> .参数 wp, 整数型<br /> <br /> 标签EX9.标题 ＝ “第一步操作成功,请输入商品编号 回车”<br /> <br /> <br /> .子程序 _按钮EX1_左键单击<br /> <br /> .判断开始 (编辑框EX1.内容 ≠ “”)<br /> <br />     sql语句 ＝ “update spkfk set sptm='” ＋ 编辑框EX2.内容 ＋ “'” ＋ “ where spbh='” ＋ 编辑框EX1.内容 ＋ “'”<br />     调试输出 (sql语句)<br />     调试输出 (数据库连接1)<br /> <br /> <br /> .默认<br />     信息框X (“返回”, “操作错误”, “操作错误”, 2, 1, 假)<br /> <br /> .判断结束

问题是 _按钮EX1_左键单击 执行语句 为什么语句调试执行 在数据库里面没执行 有点没绕过来

寒潮

更新操作。

a1558388339

我没看到你发送语句给数据库。。。。

寒潮

Access的。和sqlserver是i相同的执行过程。你没有执行sql语句。

死心塌地跟爷走

寒潮 发表于 2019-4-15 09:31
更新操作。

我还是没明白我到底哪里错了。。我的天