Foxtable(狐表) → 用户栏目 → 专家坐堂 → 删除数据‘求助


  共有1426人关注过本帖树形打印复制链接

主题：删除数据‘求助
帅哥哟，离线，有人找我吗？
shunchang
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：22 积分：263 威望：0 精华：0 注册：2023/10/29 14:24:00 		  发帖心情 Post By：2023/11/6 23:22:00 [只看该作者]

case 'del':
layer.confirm('您确定删除当前记录吗？',{icon:3,title:'确认删除'},function(index){
obj.del();
var delspecifyID = {'订货ID':obj.data.订货ID};
// var delspecifyID = '订货ID='+obj.data['订货ID'];
// var delspecifyID = {订货ID:obj.data['订货ID']};
// layer.alert(delspecifyID);
$.ajax({
data: delspecifyID,
// data: {订货ID:obj.data['订货ID']},
url:'http://192.168.110.147/gzdel.htm',
// type:'DELETE',
type:'POST',
dataType: 'json',
success:function (res){
console.log(res)
if (res.code==200){
obj.del();
layer.close(index);//关闭弹框
}
}
});
});
break;
 回到顶部
帅哥哟，离线，有人找我吗？
shunchang
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：22 积分：263 威望：0 精华：0 注册：2023/10/29 14:24:00 		  发帖心情 Post By：2023/11/6 23:23:00 [只看该作者]

通过ajax方式请求的

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107135 积分：544918 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/11/7 8:32:00 [只看该作者]

麻烦把httprequest事件全部代码发上来

 回到顶部
帅哥哟，离线，有人找我吗？
shunchang
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：22 积分：263 威望：0 精华：0 注册：2023/10/29 14:24:00 		  发帖心情 Post By：2023/11/7 9:29:00 [只看该作者]

<!DOCTYPE html>
<html>
<head>
<meta charset="utf-8">
<title></title>
</head>

<body>
<div id="test"></div>
<div class="layui-form" id="rowForm" style="width:500px;padding: 20px 20px 0 0;display: none">
<div class="layui-form-item">
<label class="layui-form-label">订货ID</label>
<div class="layui-input-inline">
<input class="layui-input" disabled="disabled" style="width: 380px;">
</div>
</div>
...
<div class="layui-form-item">
...
</div>
</div>

<script src="layui/layui.js"></script>
<script type="text/html" id="barDemo">
<div class="layui-btn-group">
<a class="layui-btn layui-btn-xs" lay-event="detail">查看</a>
<a class="layui-btn layui-btn-xs" lay-event="edit">编辑</a>
<a class="layui-btn layui-btn-xs layui-btn-danger" lay-event="del">删除</a>
</div>
</script>
<script>
// layui操作
layui.use(function(){
var layer = layui.layer
,form = layui.form
,laypage = layui.laypage
,element = layui.element
,laydate = layui.laydate
,util = layui.util
,upload = layui.upload
,$=layui.jquery;
var tb = layui.table;
tb.render({
elem: '#test',
toolbar:'#topDemo',
url: 'http://192.168.110.147/griddata',
cols: [[
{type:'checkbox'},
{type:'numbers', title: '序号',},
{field: '订货ID', title: '订货ID',sort:true, width:100},
{field: '产品大类', title: '产品大类', width:160},
{field: '外观材质', title: '外观材质', width:100},
{field: '材质备注', title: '材质备注', width:80},
{field: '产品模块', title: '产品模块', width:190},
{field: '中文名称', title: '中文名称', width:190},
{title: '操作',toolbar:'#barDemo',align:'center',width:139},
]],
page: true,    //设置分页
});
tb.on('tool', function(obj){
switch(obj.event){
case 'del':
layer.confirm('您确定删除当前记录吗？',{icon:3,title:'确认删除'},function(index){
obj.del();
var delspecifyID = {'订货ID':obj.data.订货ID};
// var delspecifyID = '订货ID='+obj.data['订货ID'];
// var delspecifyID = {订货ID:obj.data['订货ID']};
// layer.alert(delspecifyID);
$.ajax({
data: delspecifyID,
// data: {订货ID:obj.data['订货ID']},
url:'http://192.168.110.147/gzdel.htm',
// type:'DELETE',
type:'POST',
dataType: 'json',
success:function (res){
console.log(res)
if (res.code==200){
obj.del();
layer.close(index);//关闭弹框
}
}
});
});
break;
}
});
</script>
</body>
</html>
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107135 积分：544918 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/11/7 9:38:00 [只看该作者]

httprequest事件在哪都不知道吗？！

图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
shunchang
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：22 积分：263 威望：0 精华：0 注册：2023/10/29 14:24:00 		  发帖心情 Post By：2023/11/7 10:04:00 [只看该作者]

图片点击可在新窗口打开查看
Dim e As RequestEventArgs = args(0)
Dim sb As New StringBuilder
Select Case e.Path
    Case "gzdel.htm" '删除订单
        e.Response.AddHeader("Access-Control-Allow-Origin", "*")
        e.Response.AddHeader("Access-Control-Allow-Methods", "OPTIONS,GET,POST,PUT,PATCH,DELETE")
        Dim ID As String = e.Values("订货ID")
        If e.GetValues.ContainsKey("ID") Then
            Dim cnt As Integer
            '            cnt = DataTables("产品库_固装家具").SQLDeleteFor("[_Identify] = " & e.GetValues("订货ID"))
            
            DataTables("产品库_固装家具").SQLDeleteFor("订货ID =   '" & ID & "'")
            
            '            cnt = DataTables("品库_固装家具").SQLDeleteFor(("订货ID = '10003'"))
            If cnt > 0 Then
                '                sb.AppendLine("删除成功!</br></br>")
                MessageBox.Show("删除成功!")
            Else
                '                sb.AppendLine("删除失败!</br></br>")
                MessageBox.Show("删除失败!")
            End If
            '            sb.Append("<a href='list.htm?page=" & e.GetValues("page") & "'>返回列表</a>")
            '            e.WriteString(sb.ToString)
        Else
            MessageBox.Show("糟糕,可能出错了!")
            ''            e.WriteString("糟糕,可能出错了")
        End If
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
shunchang
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：22 积分：263 威望：0 精华：0 注册：2023/10/29 14:24:00 		  发帖心情 Post By：2023/11/7 10:08:00 [只看该作者]

后端换了一种写法：（删除成功）
需要老师指导一下，能怎么优化，返回值怎么传递？

Dim e As RequestEventArgs = args(0)
Select Case e.Path
    Case "gzdel" '删除订单
        e.Response.AddHeader("Access-Control-Allow-Origin", "*")
        e.Response.AddHeader("Access-Control-Allow-Methods", "OPTIONS,GET,POST,PUT,PATCH,DELETE")
        Dim nms() As String = {"订货ID"}
        For Each nm As String In nms
            If e.PostValues.ContainsKey(nm) = False Then
                MessageBox.Show("糟糕,可能出错了!")
                Return(0) '必须返回
            Else
                Dim ID As String = e.PostValues(nm)
                DataTables("产品库_固装家具").SQLDeleteFor("订货ID =   '" & ID & "'")
            End If
            MessageBox.Show("删除成功!")
        Next
        e.WriteString("OK") '返回增加成功消息
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107135 积分：544918 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/11/7 10:14:00 [只看该作者]

Dim e As RequestEventArgs = args(0)
Select Case e.Path
    Case "gzdel" '删除订单
        e.Response.AddHeader("Access-Control-Allow-Origin", "*")
        e.Response.AddHeader("Access-Control-Allow-Methods", "OPTIONS,GET,POST,PUT,PATCH,DELETE")
        Dim nms() As String = {"订货ID"}
        For Each nm As String In nms
            If e.PostValues.ContainsKey(nm) = False Then
                e.WriteString("糟糕,可能出错了!")
                Return(0) '必须返回
            Else
                Dim ID As String = e.PostValues(nm)
                DataTables("产品库_固装家具").SQLDeleteFor("订货ID =   '" & ID & "'")
            End If
        Next
        e.WriteString("OK") '返回增加成功消息
End Select
 回到顶部
总数 18 上一页 1 2
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.10547 秒, 4 次数据查询