开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 765|回复: 7
收起左侧

[易语言] 在mysql sql语句增加日期框选择,小白求教

[复制链接]
结帖率:61% (17/28)
发表于 2022-6-27 23:44:40 | 显示全部楼层 |阅读模式   湖北省武汉市
10精币
在mysql sql语句增加日期框选择, 选择日期后.点击按钮直接读取mysql服务器的数据到超级列表框. 意思是这个意思  我标注了位置的了的

补充内容 (2022-6-28 00:57):
.版本 2
.支持库 mysql
.支持库 spec
.支持库 iext
.支持库 EThread

.程序集 窗口程序集_启动窗口_总单量
.程序集变量 数据库句柄, 整数型

.子程序 __启动窗口_创建完毕

登录 ()

数据库连接 (“127.0.0.1”, “root”, “2010520Zx”, 3306)


.子程序 数据库连接, 逻辑型
.参数 地址, 文本型, 可空
.参数 用户名, 文本型
.参数 密码, 文本型
.参数 端口, 整数型

数据库句柄 = 连接MySql (地址, 用户名, 密码, , 端口)

.如果真 (数据库句柄 = 0)
    调试输出 (“连接失败”)
    返回 (假)
.如果真结束
调试输出 (“连接成功”)
执行SQL语句 (数据库句柄, “set names gbk”)
返回 (真)


.子程序 功能_网页访问, 文本型, , 本命令由【精易网页调试助手】生成,请配合精易模块使用。
.局部变量 局_网址, 文本型
.局部变量 局_方式, 整数型
.局部变量 ADD_数据包, 类_POST数据类
.局部变量 局_提交数据, 文本型
.局部变量 ADD_协议头, 类_POST数据类
.局部变量 局_提交协议头, 文本型
.局部变量 局_结果, 字节集
.局部变量 局_返回, 文本型

' https://218.87.20.136:8443/sys/auth/login/local
局_网址 = “https://218.87.20.136:8443/sys/auth/login/local”
局_方式 = 1
ADD_数据包.添加 (“userNo”, “85000”)
ADD_数据包.添加 (“password”, “3c4113ca35517517436f8f5a87f84078”)
ADD_数据包.添加 (“code”, “”)
ADD_数据包.添加 (“organCode”, “”)
ADD_数据包.添加 (“uuid”, “f73ea4ba-6851-4d9b-b536-ef4e235b2f77”)

ADD_数据包.添加 (“flag”, “0”)
ADD_数据包.添加 (“x-ss-token”, “”)
ADD_数据包.添加 (“i18n”, “”)
ADD_数据包.添加 (“x-ss-uuid”, “5a90589d-7a08-494d-8fcd-983a23257953”)
ADD_数据包.添加 (“login-flag-session-time”, “1646296056465”)

局_提交数据 = ADD_数据包.获取Post数据 ()
ADD_协议头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/86.0.4240.198 Safari/537.36”)
ADD_协议头.添加 (“X-Requested-With”, “XMLHttpRequest”)

局_提交协议头 = ADD_协议头.获取协议头数据 ()

局_结果 = 网页_访问_对象 (局_网址, 局_方式, 局_提交数据, , , 局_提交协议头, , , , , , , , , , , )
局_返回 = 到文本 (编码_编码转换对象 (局_结果))
返回 (局_返回)



.子程序 登录
.局部变量 de, 文本型
.局部变量 json, 类_json

输出调试文本 (功能_网页访问 ())
编辑框1.内容 = 功能_网页访问 ()
json.解析 (编辑框1.内容)
de = json.取通用属性 (“details”)
编辑框1.内容 = de





.子程序 功能_数据访问, 文本型, , 本命令由【精易网页调试助手】生成,请配合精易模块使用。
.局部变量 局_网址, 文本型
.局部变量 局_方式, 整数型
.局部变量 ADD_数据包, 类_POST数据类
.局部变量 局_提交数据, 文本型
.局部变量 ADD_协议头, 类_POST数据类
.局部变量 局_提交协议头, 文本型
.局部变量 局_结果, 字节集
.局部变量 局_返回, 文本型

' https://218.87.20.136:8443/query/loanPartnerConfirm/loanPartnerConfirm/list
局_网址 = “https://218.87.20.136:8443/query/loanPartnerConfirm/loanPartnerConfirm/list”
局_方式 = 1
ADD_数据包.添加 (“page”, 编辑框3.内容)
ADD_数据包.添加 (“rows”, 编辑框2.内容)
ADD_数据包.添加 (“borrowerName”, “”)
ADD_数据包.添加 (“borrowerType”, “”)
ADD_数据包.添加 (“custName”, “”)
ADD_数据包.添加 (“isAgree”, “”)
ADD_数据包.添加 (“loanstatus”, “”)
ADD_数据包.添加 (“status”, “”)
ADD_数据包.添加 (“idno”, “”)
ADD_数据包.添加 (“x-ss-token”, 编辑框1.内容)
ADD_数据包.添加 (“i18n”, “”)
ADD_数据包.添加 (“x-ss-uuid”, “9a917cfe-a883-4028-9a7a-fd70af46f74f”)

局_提交数据 = ADD_数据包.获取Post数据 ()
ADD_协议头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/86.0.4240.198 Safari/537.36”)
ADD_协议头.添加 (“X-Requested-With”, “XMLHttpRequest”)

局_提交协议头 = ADD_协议头.获取协议头数据 ()

局_结果 = 网页_访问_对象 (局_网址, 局_方式, 局_提交数据, , , 局_提交协议头, , , , , , , , , , , )
局_返回 = 到文本 (编码_编码转换对象 (局_结果))
返回 (局_返回)

.子程序 数据访问
.局部变量 de, 文本型
.局部变量 json, 类_json
.局部变量 成员数, 整数型
.局部变量 计次, 整数型
.局部变量 日期, 文本型
.局部变量 经销商, 文本型
.局部变量 客户名称, 文本型
.局部变量 证件号码, 文本型
.局部变量 融资申请ID, 文本型
.局部变量 担保结果, 文本型
.局部变量 索引, 整数型
.局部变量 _按钮1_被单击, 整数型
.局部变量 融资审批状态, 文本型
.局部变量 担保确认审批状态, 文本型


json.解析 (功能_数据访问 ())

成员数 = json.成员数 (“data”)
.计次循环首 (超级列表框1.取列数 (), )
    超级列表框1.删除表项 (0)
.计次循环尾 ()


.计次循环首 (成员数, 计次)
    日期 = json.取通用属性 (“data[” + 到文本 (计次 - 1) + “].creationDate”)
    经销商 = json.取通用属性 (“data[” + 到文本 (计次 - 1) + “].custName”)
    客户名称 = json.取通用属性 (“data[” + 到文本 (计次 - 1) + “].borrowerName”)
    证件号码 = json.取通用属性 (“data[” + 到文本 (计次 - 1) + “].idno”)
    融资申请ID = json.取通用属性 (“data[” + 到文本 (计次 - 1) + “].loanappid”)
    融资审批状态 = json.取通用属性 (“data[” + 到文本 (计次 - 1) + “].loanstatus”)
    担保确认审批状态 = json.取通用属性 (“data[” + 到文本 (计次 - 1) + “].status”)

    担保结果 = json.取通用属性 (“data[” + 到文本 (计次 - 1) + “].opinion”)
    .如果真 (融资审批状态 = “0”)
        融资审批状态 = “新建”

    .如果真结束
    .如果真 (融资审批状态 = “1”)
        融资审批状态 = “审批通过”
    .如果真结束
    .如果真 (融资审批状态 = “2”)
        融资审批状态 = “审批中”
    .如果真结束
    .如果真 (融资审批状态 = “3”)
        融资审批状态 = “已拒绝”
    .如果真结束
    .如果真 (融资审批状态 = “4”)
        融资审批状态 = “已退回”
    .如果真结束
    .如果真 (融资审批状态 = “5”)
        融资审批状态 = “已撤消”
    .如果真结束
    .如果真 (融资审批状态 = “6”)
        融资审批状态 = “APP提交待处理”
    .如果真结束
    .如果真 (融资审批状态 = “7”)
        融资审批状态 = “秒批订单APP待处理”
    .如果真结束
    .如果真 (担保确认审批状态 = “0”)
        担保确认审批状态 = “新建”

    .如果真结束
    .如果真 (担保确认审批状态 = “1”)
        担保确认审批状态 = “审批通过”
    .如果真结束
    .如果真 (担保确认审批状态 = “2”)
        担保确认审批状态 = “审批中”
    .如果真结束
    .如果真 (担保确认审批状态 = “3”)
        担保确认审批状态 = “已拒绝”
    .如果真结束
    .如果真 (担保确认审批状态 = “4”)
        担保确认审批状态 = “已退回”
    .如果真结束
    .如果真 (担保确认审批状态 = “5”)
        担保确认审批状态 = “已撤消”
    .如果真结束
    .如果真 (担保确认审批状态 = “6”)
        担保确认审批状态 = “APP提交待处理”
    .如果真结束
    .如果真 (担保确认审批状态 = “7”)
        担保确认审批状态 = “秒批订单APP待处理”
    .如果真结束


    索引 = 超级列表框1.插入表项 (, , , , , )
    超级列表框1.置标题 (索引, 0, 日期)
    超级列表框1.置标题 (索引, 1, 经销商)
    超级列表框1.置标题 (索引, 2, 客户名称)
    超级列表框1.置标题 (索引, 3, 证件号码)
    超级列表框1.置标题 (索引, 4, 融资申请ID)
    超级列表框1.置标题 (索引, 5, 融资审批状态)
    超级列表框1.置标题 (索引, 6, 担保确认审批状态)
    超级列表框1.置标题 (索引, 7, 担保结果)


    融资审批状态 = json.取通用属性 (“data[” + 到文本 (计次 - 1) + “].loanstatus”)
    .如果真 (融资审批状态 = “0”)
        融资审批状态 = “新建”

    .如果真结束
    .如果真 (融资审批状态 = “1”)
        融资审批状态 = “审批通过”
    .如果真结束
    .如果真 (融资审批状态 = “2”)
        融资审批状态 = “审批中”
    .如果真结束
    .如果真 (融资审批状态 = “3”)
        融资审批状态 = “已拒绝”
    .如果真结束
    .如果真 (融资审批状态 = “4”)
        融资审批状态 = “已退回”
    .如果真结束
    .如果真 (融资审批状态 = “5”)
        融资审批状态 = “已撤消”
    .如果真结束
    .如果真 (融资审批状态 = “6”)
        融资审批状态 = “APP提交待处理”
    .如果真结束
    .如果真 (融资审批状态 = “7”)
        融资审批状态 = “秒批订单APP待处理”
    .如果真结束
    担保确认审批状态 = json.取通用属性 (“data[” + 到文本 (计次 - 1) + “].status”)
    .如果真 (担保确认审批状态 = “0”)
        担保确认审批状态 = “新建”

    .如果真结束
    .如果真 (担保确认审批状态 = “1”)
        担保确认审批状态 = “审批通过”
    .如果真结束
    .如果真 (担保确认审批状态 = “2”)
        担保确认审批状态 = “审批中”
    .如果真结束
    .如果真 (担保确认审批状态 = “3”)
        担保确认审批状态 = “已拒绝”
    .如果真结束
    .如果真 (担保确认审批状态 = “4”)
        担保确认审批状态 = “已退回”
    .如果真结束
    .如果真 (担保确认审批状态 = “5”)
        担保确认审批状态 = “已撤消”
    .如果真结束
    .如果真 (担保确认审批状态 = “6”)
        担保确认审批状态 = “APP提交待处理”
    .如果真结束
    .如果真 (担保确认审批状态 = “7”)
        担保确认审批状态 = “秒批订单APP待处理”
    .如果真结束

    de = json.取通用属性 (“data[” + 到文本 (计次 - 1) + “].creationDate”) + “,” + json.取通用属性 (“data[” + 到文本 (计次 - 1) + “].custName”) + “,” + json.取通用属性 (“data[” + 到文本 (计次 - 1) + “].borrowerName”) + “,” + json.取通用属性 (“data[” + 到文本 (计次 - 1) + “].idno”) + “,” + json.取通用属性 (“data[” + 到文本 (计次 - 1) + “].loanappid”) + “,” + 融资审批状态 + “,” + 担保确认审批状态 + “,” + json.取通用属性 (“data[” + 到文本 (计次 - 1) + “].opinion”) + #换行符 + de

.计次循环尾 ()

.子程序 记录信息框
.参数 a, 文本型

调试输出 (a)

.子程序 列表框写入表, 逻辑型
.参数 列表框, 超级列表框
.参数 表名, 文本型
.参数 库名, 文本型
.局部变量 数据库打开, 逻辑型
.局部变量 a, 整数型
.局部变量 b, 整数型
.局部变量 列数, 整数型
.局部变量 c, 整数型
.局部变量 内容, 文本型
.局部变量 字段数, 整数型
.局部变量 字段名, 文本型
.局部变量 字段, 字段信息类型, , "0"
.局部变量 字段语句, 文本型
.局部变量 数据语句, 文本型
.局部变量 SQL语句, 文本型
.局部变量 error, 文本型


.如果真 (查找库 (数据库句柄, 库名) = 假)
    创建库 (数据库句柄, 库名)

.如果真结束
选择库 (数据库句柄, 库名)


字段数 = 列表框.取列数 ()
重定义数组 (字段, 假, 字段数)
.计次循环首 (列表框.取列数 (), a)
    字段名 = 列表框.取列标题 (a - 1)

    字段 [a].字段名 = 字段名
    字段 [a].类型 = #字段基本类型
    字段 [a].字段类型 = #MYSQL变长文本型
    字段 [a].附加类型信息 = #最大长度
    字段 [a].附加内容 = “255”
    字段 [a].列内容为空 = 假
    .如果 (a = 列表框.取列数 ())
        字段语句 = 字段语句 + 字段名
    .否则
        字段语句 = 字段语句 + 字段名 + “,”
    .如果结束


.计次循环尾 ()
.如果真 (查找表 (数据库句柄, 表名))
    删除表 (数据库句柄, 表名)
.如果真结束

.如果 (创建表 (数据库句柄, 表名, 字段))
    调试输出 (“创建成功”)

    列数 = 取数组成员数 (字段)

    .计次循环首 (列表框.取表项数 (), b)
        数据语句 = “”
        .计次循环首 (列数, c)
            内容 = 列表框.取标题 (b - 1, c - 1)
            .如果 (c = 列数)
                数据语句 = 数据语句 + “'” + 内容 + “'”
            .否则
                数据语句 = 数据语句 + “'” + 内容 + “',”
            .如果结束


        .计次循环尾 ()
        SQL语句 = “INSERT INTO ” + 表名 + “ (” + 字段语句 + “) VALUES (” + 数据语句 + “)”

        .如果 (执行SQL语句 (数据库句柄, SQL语句))
            ' 调试输出 (1)
        .否则
            取错误文本 (数据库句柄, error)
            调试输出 (error)
            ' 调试输出 (2)
        .如果结束

    .计次循环尾 ()

    返回 (真)

.否则
    调试输出 (“创建失败”)
    返回 (假)
.如果结束







.子程序 列表框读取表, 逻辑型
.参数 列表框, 超级列表框
.参数 表名, 文本型
.参数 库名, 文本型
.局部变量 记录集句柄, 整数型
.局部变量 字段数, 整数型
.局部变量 a, 整数型
.局部变量 字段名, 文本型
.局部变量 列索引, 整数型
.局部变量 SQL语句, 文本型
.局部变量 b, 整数型
.局部变量 c, 整数型
.局部变量 索引, 整数型
.局部变量 数据, 文本型
.局部变量 x, 逻辑型

列表框.全部删除 ()
.判断循环首 (列表框.取列数 () ≠ 0)
    列表框.删除列 (列表框.取列数 () - 1)
.判断循环尾 ()
x = 选择库 (数据库句柄, 库名)
调试输出 (“选择”, x)
.如果真 (x = 真)
    SQL语句 = “select * from ” + 表名
    ' select * from `总单` where `日期` between '2019-11-11 00:00:00' and '2019-12-20 23:59:59';    '这是navicat的语句,把这2个日期改成日期框可以选择的.然后点击取期间的内容

    执行SQL语句 (数据库句柄, SQL语句)
    记录集句柄 = 取记录集 (数据库句柄)
    字段数 = 取字段总数 (记录集句柄)
    .计次循环首 (字段数, a)
        .如果真 (序号到字段名 (记录集句柄, a - 1, 字段名))
            列索引 = 列表框.插入列 (, , , , , )
            .如果真 (a > 1)
                列表框.置列宽 (列索引, 80)
            .如果真结束
            列表框.置列标题 (列索引, 字段名)


        .如果真结束

    .计次循环尾 ()
    .计次循环首 (取记录集行数 (记录集句柄), b)
        到指定行 (记录集句柄, b - 1)
        索引 = 列表框.插入表项 (, , , , , )
        .计次循环首 (字段数, c)
            读字段值 (记录集句柄, c - 1, 数据)
            列表框.置标题 (索引, c - 1, 到文本 (数据))
        .计次循环尾 ()








    .计次循环尾 ()

    释放记录集 (记录集句柄)

.如果真结束
返回 (真)

.子程序 __启动窗口_将被销毁

断开MySql (数据库句柄)

.子程序 _按钮1_被单击

启动线程 (&登录, , )


.子程序 _按钮2_被单击

启动线程 (&数据访问, , )





.子程序 _写入数据库_被单击

列表框写入表 (超级列表框1, “总单”, “总单量”)


.子程序 _按钮3_被单击

列表框读取表 (超级列表框_读入数据库, “总单”, “总单量”)


日期框筛选MYSQL到超级列表框.e

1.03 MB, 下载次数: 3


回答提醒:如果本帖被关闭无法回复,您有更好的答案帮助楼主解决,请发表至 源码区 可获得加分喔。
友情提醒:本版被采纳的主题可在 申请荣誉值 页面申请荣誉值,获得 1点 荣誉值,荣誉值可兑换荣誉会员、终身vip用户组。
快捷通道:申请荣誉值无答案申请取消悬赏投诉有答案未采纳为最佳
结帖率:61% (17/28)

签到天数: 17 天

 楼主| 发表于 2022-6-28 00:18:00 高大上手机用户 | 显示全部楼层   湖北省武汉市
自己坐沙发,大神过来看看。如果不动可以
回复

使用道具 举报

结帖率:61% (17/28)

签到天数: 17 天

 楼主| 发表于 2022-6-28 00:51:14 | 显示全部楼层   湖北省武汉市
.版本 2 .支持库 mysql .支持库 spec .支持库 iext .支持库 EThread  .程序集 窗口程序集_启动窗口_总单量 .程序集变量 数据库句柄, 整数型  .子程序 __启动窗口_创建完毕  登录 ()  数据库连接 (“127.0.0.1”, “root”, “2010520Zx”, 3306)   .子程序 数据库连接, 逻辑型 .参数 地址, 文本型, 可空 .参数 用户名, 文本型 .参数 密码, 文本型 .参数 端口, 整数型  数据库句柄 = 连接MySql (地址, 用户名, 密码, , 端口)  .如果真 (数据库句柄 = 0)     调试输出 (“连接失败”)     返回 (假) .如果真结束 调试输出 (“连接成功”) 执行SQL语句 (数据库句柄, “set names gbk”) 返回 (真)   .子程序 功能_网页访问, 文本型, , 本命令由【精易网页调试助手】生成,请配合精易模块使用。 .局部变量 局_网址, 文本型 .局部变量 局_方式, 整数型 .局部变量 ADD_数据包, 类_POST数据类 .局部变量 局_提交数据, 文本型 .局部变量 ADD_协议头, 类_POST数据类 .局部变量 局_提交协议头, 文本型 .局部变量 局_结果, 字节集 .局部变量 局_返回, 文本型  ' https://218.87.20.136:8443/sys/auth/login/local 局_网址 = “https://218.87.20.136:8443/sys/auth/login/local” 局_方式 = 1 ADD_数据包.添加 (“userNo”, “85000”) ADD_数据包.添加 (“password”, “3c4113ca35517517436f8f5a87f84078”) ADD_数据包.添加 (“code”, “”) ADD_数据包.添加 (“organCode”, “”) ADD_数据包.添加 (“uuid”, “f73ea4ba-6851-4d9b-b536-ef4e235b2f77”)  ADD_数据包.添加 (“flag”, “0”) ADD_数据包.添加 (“x-ss-token”, “”) ADD_数据包.添加 (“i18n”, “”) ADD_数据包.添加 (“x-ss-uuid”, “5a90589d-7a08-494d-8fcd-983a23257953”) ADD_数据包.添加 (“login-flag-session-time”, “1646296056465”)  局_提交数据 = ADD_数据包.获取Post数据 () ADD_协议头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/86.0.4240.198 Safari/537.36”) ADD_协议头.添加 (“X-Requested-With”, “XMLHttpRequest”)  局_提交协议头 = ADD_协议头.获取协议头数据 ()  局_结果 = 网页_访问_对象 (局_网址, 局_方式, 局_提交数据, , , 局_提交协议头, , , , , , , , , , , ) 局_返回 = 到文本 (编码_编码转换对象 (局_结果)) 返回 (局_返回)    .子程序 登录 .局部变量 de, 文本型 .局部变量 json, 类_json  输出调试文本 (功能_网页访问 ()) 编辑框1.内容 = 功能_网页访问 () json.解析 (编辑框1.内容) de = json.取通用属性 (“details”) 编辑框1.内容 = de      .子程序 功能_数据访问, 文本型, , 本命令由【精易网页调试助手】生成,请配合精易模块使用。 .局部变量 局_网址, 文本型 .局部变量 局_方式, 整数型 .局部变量 ADD_数据包, 类_POST数据类 .局部变量 局_提交数据, 文本型 .局部变量 ADD_协议头, 类_POST数据类 .局部变量 局_提交协议头, 文本型 .局部变量 局_结果, 字节集 .局部变量 局_返回, 文本型  ' https://218.87.20.136:8443/query/loanPartnerConfirm/loanPartnerConfirm/list 局_网址 = “https://218.87.20.136:8443/query/loanPartnerConfirm/loanPartnerConfirm/list” 局_方式 = 1 ADD_数据包.添加 (“page”, 编辑框3.内容) ADD_数据包.添加 (“rows”, 编辑框2.内容) ADD_数据包.添加 (“borrowerName”, “”) ADD_数据包.添加 (“borrowerType”, “”) ADD_数据包.添加 (“custName”, “”) ADD_数据包.添加 (“isAgree”, “”) ADD_数据包.添加 (“loanstatus”, “”) ADD_数据包.添加 (“status”, “”) ADD_数据包.添加 (“idno”, “”) ADD_数据包.添加 (“x-ss-token”, 编辑框1.内容) ADD_数据包.添加 (“i18n”, “”) ADD_数据包.添加 (“x-ss-uuid”, “9a917cfe-a883-4028-9a7a-fd70af46f74f”)  局_提交数据 = ADD_数据包.获取Post数据 () ADD_协议头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/86.0.4240.198 Safari/537.36”) ADD_协议头.添加 (“X-Requested-With”, “XMLHttpRequest”)  局_提交协议头 = ADD_协议头.获取协议头数据 ()  局_结果 = 网页_访问_对象 (局_网址, 局_方式, 局_提交数据, , , 局_提交协议头, , , , , , , , , , , ) 局_返回 = 到文本 (编码_编码转换对象 (局_结果)) 返回 (局_返回)  .子程序 数据访问 .局部变量 de, 文本型 .局部变量 json, 类_json .局部变量 成员数, 整数型 .局部变量 计次, 整数型 .局部变量 日期, 文本型 .局部变量 经销商, 文本型 .局部变量 客户名称, 文本型 .局部变量 证件号码, 文本型 .局部变量 融资申请ID, 文本型 .局部变量 担保结果, 文本型 .局部变量 索引, 整数型 .局部变量 _按钮1_被单击, 整数型 .局部变量 融资审批状态, 文本型 .局部变量 担保确认审批状态, 文本型   json.解析 (功能_数据访问 ())  成员数 = json.成员数 (“data”) .计次循环首 (超级列表框1.取列数 (), )     超级列表框1.删除表项 (0) .计次循环尾 ()   .计次循环首 (成员数, 计次)     日期 = json.取通用属性 (“data[” + 到文本 (计次 - 1) + “].creationDate”)     经销商 = json.取通用属性 (“data[” + 到文本 (计次 - 1) + “].custName”)     客户名称 = json.取通用属性 (“data[” + 到文本 (计次 - 1) + “].borrowerName”)     证件号码 = json.取通用属性 (“data[” + 到文本 (计次 - 1) + “].idno”)     融资申请ID = json.取通用属性 (“data[” + 到文本 (计次 - 1) + “].loanappid”)     融资审批状态 = json.取通用属性 (“data[” + 到文本 (计次 - 1) + “].loanstatus”)     担保确认审批状态 = json.取通用属性 (“data[” + 到文本 (计次 - 1) + “].status”)      担保结果 = json.取通用属性 (“data[” + 到文本 (计次 - 1) + “].opinion”)     .如果真 (融资审批状态 = “0”)         融资审批状态 = “新建”      .如果真结束     .如果真 (融资审批状态 = “1”)         融资审批状态 = “审批通过”     .如果真结束     .如果真 (融资审批状态 = “2”)         融资审批状态 = “审批中”     .如果真结束     .如果真 (融资审批状态 = “3”)         融资审批状态 = “已拒绝”     .如果真结束     .如果真 (融资审批状态 = “4”)         融资审批状态 = “已退回”     .如果真结束     .如果真 (融资审批状态 = “5”)         融资审批状态 = “已撤消”     .如果真结束     .如果真 (融资审批状态 = “6”)         融资审批状态 = “APP提交待处理”     .如果真结束     .如果真 (融资审批状态 = “7”)         融资审批状态 = “秒批订单APP待处理”     .如果真结束     .如果真 (担保确认审批状态 = “0”)         担保确认审批状态 = “新建”      .如果真结束     .如果真 (担保确认审批状态 = “1”)         担保确认审批状态 = “审批通过”     .如果真结束     .如果真 (担保确认审批状态 = “2”)         担保确认审批状态 = “审批中”     .如果真结束     .如果真 (担保确认审批状态 = “3”)         担保确认审批状态 = “已拒绝”     .如果真结束     .如果真 (担保确认审批状态 = “4”)         担保确认审批状态 = “已退回”     .如果真结束     .如果真 (担保确认审批状态 = “5”)         担保确认审批状态 = “已撤消”     .如果真结束     .如果真 (担保确认审批状态 = “6”)         担保确认审批状态 = “APP提交待处理”     .如果真结束     .如果真 (担保确认审批状态 = “7”)         担保确认审批状态 = “秒批订单APP待处理”     .如果真结束       索引 = 超级列表框1.插入表项 (, , , , , )     超级列表框1.置标题 (索引, 0, 日期)     超级列表框1.置标题 (索引, 1, 经销商)     超级列表框1.置标题 (索引, 2, 客户名称)     超级列表框1.置标题 (索引, 3, 证件号码)     超级列表框1.置标题 (索引, 4, 融资申请ID)     超级列表框1.置标题 (索引, 5, 融资审批状态)     超级列表框1.置标题 (索引, 6, 担保确认审批状态)     超级列表框1.置标题 (索引, 7, 担保结果)       融资审批状态 = json.取通用属性 (“data[” + 到文本 (计次 - 1) + “].loanstatus”)     .如果真 (融资审批状态 = “0”)         融资审批状态 = “新建”      .如果真结束     .如果真 (融资审批状态 = “1”)         融资审批状态 = “审批通过”     .如果真结束     .如果真 (融资审批状态 = “2”)         融资审批状态 = “审批中”     .如果真结束     .如果真 (融资审批状态 = “3”)         融资审批状态 = “已拒绝”     .如果真结束     .如果真 (融资审批状态 = “4”)         融资审批状态 = “已退回”     .如果真结束     .如果真 (融资审批状态 = “5”)         融资审批状态 = “已撤消”     .如果真结束     .如果真 (融资审批状态 = “6”)         融资审批状态 = “APP提交待处理”     .如果真结束     .如果真 (融资审批状态 = “7”)         融资审批状态 = “秒批订单APP待处理”     .如果真结束     担保确认审批状态 = json.取通用属性 (“data[” + 到文本 (计次 - 1) + “].status”)     .如果真 (担保确认审批状态 = “0”)         担保确认审批状态 = “新建”      .如果真结束     .如果真 (担保确认审批状态 = “1”)         担保确认审批状态 = “审批通过”     .如果真结束     .如果真 (担保确认审批状态 = “2”)         担保确认审批状态 = “审批中”     .如果真结束     .如果真 (担保确认审批状态 = “3”)         担保确认审批状态 = “已拒绝”     .如果真结束     .如果真 (担保确认审批状态 = “4”)         担保确认审批状态 = “已退回”     .如果真结束     .如果真 (担保确认审批状态 = “5”)         担保确认审批状态 = “已撤消”     .如果真结束     .如果真 (担保确认审批状态 = “6”)         担保确认审批状态 = “APP提交待处理”     .如果真结束     .如果真 (担保确认审批状态 = “7”)         担保确认审批状态 = “秒批订单APP待处理”     .如果真结束      de = json.取通用属性 (“data[” + 到文本 (计次 - 1) + “].creationDate”) + “,” + json.取通用属性 (“data[” + 到文本 (计次 - 1) + “].custName”) + “,” + json.取通用属性 (“data[” + 到文本 (计次 - 1) + “].borrowerName”) + “,” + json.取通用属性 (“data[” + 到文本 (计次 - 1) + “].idno”) + “,” + json.取通用属性 (“data[” + 到文本 (计次 - 1) + “].loanappid”) + “,” + 融资审批状态 + “,” + 担保确认审批状态 + “,” + json.取通用属性 (“data[” + 到文本 (计次 - 1) + “].opinion”) + #换行符 + de  .计次循环尾 ()  .子程序 记录信息框 .参数 a, 文本型  调试输出 (a)  .子程序 列表框写入表, 逻辑型 .参数 列表框, 超级列表框 .参数 表名, 文本型 .参数 库名, 文本型 .局部变量 数据库打开, 逻辑型 .局部变量 a, 整数型 .局部变量 b, 整数型 .局部变量 列数, 整数型 .局部变量 c, 整数型 .局部变量 内容, 文本型 .局部变量 字段数, 整数型 .局部变量 字段名, 文本型 .局部变量 字段, 字段信息类型, , "0" .局部变量 字段语句, 文本型 .局部变量 数据语句, 文本型 .局部变量 SQL语句, 文本型 .局部变量 error, 文本型   .如果真 (查找库 (数据库句柄, 库名) = 假)     创建库 (数据库句柄, 库名)  .如果真结束 选择库 (数据库句柄, 库名)   字段数 = 列表框.取列数 () 重定义数组 (字段, 假, 字段数) .计次循环首 (列表框.取列数 (), a)     字段名 = 列表框.取列标题 (a - 1)      字段 [a].字段名 = 字段名     字段 [a].类型 = #字段基本类型     字段 [a].字段类型 = #MYSQL变长文本型     字段 [a].附加类型信息 = #最大长度     字段 [a].附加内容 = “255”     字段 [a].列内容为空 = 假     .如果 (a = 列表框.取列数 ())         字段语句 = 字段语句 + 字段名     .否则         字段语句 = 字段语句 + 字段名 + “,”     .如果结束   .计次循环尾 () .如果真 (查找表 (数据库句柄, 表名))     删除表 (数据库句柄, 表名) .如果真结束  .如果 (创建表 (数据库句柄, 表名, 字段))     调试输出 (“创建成功”)      列数 = 取数组成员数 (字段)      .计次循环首 (列表框.取表项数 (), b)         数据语句 = “”         .计次循环首 (列数, c)             内容 = 列表框.取标题 (b - 1, c - 1)             .如果 (c = 列数)                 数据语句 = 数据语句 + “'” + 内容 + “'”             .否则                 数据语句 = 数据语句 + “'” + 内容 + “',”             .如果结束           .计次循环尾 ()         SQL语句 = “INSERT INTO ” + 表名 + “ (” + 字段语句 + “) VALUES (” + 数据语句 + “)”          .如果 (执行SQL语句 (数据库句柄, SQL语句))             ' 调试输出 (1)         .否则             取错误文本 (数据库句柄, error)             调试输出 (error)             ' 调试输出 (2)         .如果结束      .计次循环尾 ()      返回 (真)  .否则     调试输出 (“创建失败”)     返回 (假) .如果结束        .子程序 列表框读取表, 逻辑型 .参数 列表框, 超级列表框 .参数 表名, 文本型 .参数 库名, 文本型 .局部变量 记录集句柄, 整数型 .局部变量 字段数, 整数型 .局部变量 a, 整数型 .局部变量 字段名, 文本型 .局部变量 列索引, 整数型 .局部变量 SQL语句, 文本型 .局部变量 b, 整数型 .局部变量 c, 整数型 .局部变量 索引, 整数型 .局部变量 数据, 文本型 .局部变量 x, 逻辑型  列表框.全部删除 () .判断循环首 (列表框.取列数 () ≠ 0)     列表框.删除列 (列表框.取列数 () - 1) .判断循环尾 () x = 选择库 (数据库句柄, 库名) 调试输出 (“选择”, x) .如果真 (x = 真)     SQL语句 = “select * from ” + 表名     ' select * from `总单` where `日期` between '2019-11-11 00:00:00' and '2019-12-20 23:59:59';    '这是navicat的语句,把这2个日期改成日期框可以选择的.然后点击取期间的内容      执行SQL语句 (数据库句柄, SQL语句)     记录集句柄 = 取记录集 (数据库句柄)     字段数 = 取字段总数 (记录集句柄)     .计次循环首 (字段数, a)         .如果真 (序号到字段名 (记录集句柄, a - 1, 字段名))             列索引 = 列表框.插入列 (, , , , , )             .如果真 (a > 1)                 列表框.置列宽 (列索引, 80)             .如果真结束             列表框.置列标题 (列索引, 字段名)           .如果真结束      .计次循环尾 ()     .计次循环首 (取记录集行数 (记录集句柄), b)         到指定行 (记录集句柄, b - 1)         索引 = 列表框.插入表项 (, , , , , )         .计次循环首 (字段数, c)             读字段值 (记录集句柄, c - 1, 数据)             列表框.置标题 (索引, c - 1, 到文本 (数据))         .计次循环尾 ()             .计次循环尾 ()      释放记录集 (记录集句柄)  .如果真结束 返回 (真)  .子程序 __启动窗口_将被销毁  断开MySql (数据库句柄)  .子程序 _按钮1_被单击  启动线程 (&登录, , )   .子程序 _按钮2_被单击  启动线程 (&数据访问, , )      .子程序 _写入数据库_被单击  列表框写入表 (超级列表框1, “总单”, “总单量”)   .子程序 _按钮3_被单击  列表框读取表 (超级列表框_读入数据库, “总单”, “总单量”)
回复

使用道具 举报

结帖率:61% (17/28)

签到天数: 17 天

 楼主| 发表于 2022-6-28 01:07:57 高大上手机用户 | 显示全部楼层   湖北省武汉市
网站有盾,所以网页是没有返回数据的,但是我要的就是sql语句里有日期框选择,
回复

使用道具 举报

结帖率:57% (4/7)

签到天数: 21 天

发表于 2022-6-28 06:06:55 | 显示全部楼层   广东省东莞市
select * from `总单` where `日期` between '"+格式化日期 (日期框2.今天, “%y-%m-%d”)+" 00:00:00' and '"+格式化日期 (日期框3.今天, “%y-%m-%d”)+" 23:59:59';
回复

使用道具 举报

结帖率:61% (17/28)

签到天数: 17 天

 楼主| 发表于 2022-6-28 14:32:34 | 显示全部楼层   湖北省武汉市
a370266652 发表于 2022-6-28 06:06
select * from `总单` where `日期` between '"+格式化日期 (日期框2.今天, “%y-%m-%d”)+" 00:00:00' and ...

可以写个列子吗,.复制添加进去.需要/子程序/dll.格式化日期
回复

使用道具 举报

结帖率:57% (4/7)

签到天数: 21 天

发表于 2022-6-29 22:47:57 | 显示全部楼层   广东省东莞市
工具-支持库配置-农历日期支持库 勾选然后确定就可以了,易语言自带这个支持库的
回复

使用道具 举报

结帖率:57% (4/7)

签到天数: 21 天

发表于 2022-6-29 22:48:28 | 显示全部楼层   广东省东莞市
zhangx1aoxi 发表于 2022-6-28 14:32
可以写个列子吗,.复制添加进去.需要/子程序/dll.格式化日期

工具-支持库配置-农历日期支持库 勾选然后确定就可以了,易语言自带这个支持库的
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 诚聘英才| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 800073686,邮箱:800073686@b.qq.com
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表