第一次机房收费系统之组合查询

最新推荐文章于 2019-12-30 16:04:15 发布
最新推荐文章于 2019-12-30 16:04:15 发布
阅读量188 收藏
点赞数
分类专栏： 第一次机房收费系统
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/sunzheng176/article/details/102813451
版权

查询思路：
在这里插入图片描述
1.先判断组合关系，如果不使用组合关系，则查询单条内容，如果使用第一个组合关系，则查询前两条内容，如果使用第二个组合关系，则查询后两条内容，如果两个组合关系都使用，则查询三条内容。
2.查询语句是一条SQL语句，所以字段名，操作符和组合关系下拉框中的内容要和数据表中的字段或SQL语言相对应，可以在模块中定义一个转换函数field。
3.组合查询，使用循环语句将查询记录显示在表格上。
重要代码：
模块中定义转换函数：

Public Function field(a As String) As String
'选中的内容统一名字
    Select Case a
        Case "卡号"
            field = "cardno"
        Case "学号"
            field = "studentno"
        Case "姓名"
            field = "studentname"
        Case "性别"
            field = "sex"
        Case "系别"
            field = "department"
        Case "年级"
            field = "grade"
        Case "班级"
            field = "class"
        Case "与"
            field = "and "
        Case "或"
            field = "or "
        Case "="
            field = "="
        Case "<"
            field = "<"
        Case ">"
            field = ">"
        Case "<>"
            field = "<>"
        Case "上机日期"
            field = "ondate"
        Case "上机时间"
            field = "ontime"
        Case "下机日期"
            field = "offdate"
        Case "下机时间"
            field = "offtime"
        Case "消费金额"
            field = "consume"
        Case "余额"
            field = "cash"
        Case "教师"
            field = "UserID"
        Case "注册日期"
            field = "LoginDate"
        Case "注册时间"
            field = "LoginTime"
        Case "注销日期"
            field = "LogoutDate"
        Case "注销时间"
            field = "LogoutTime"
        Case "机器名"
            field = "computer"
    End Select
End Function

根据字段名中选择不同的字段使用不同控件：

Private Sub Combo1_Click(Index As Integer)
	'提示框内容先清空
    Label1.Caption = ""
'循环数组
Dim i As Integer
i = Index     '利用索引判断使用的控件
Text1(i).Text = ""
    '如果字段名是时间日期，则使用时间日期控件
    For i = 0 To 2
        If Combo1(i).Text = "上机日期" Or Combo1(i).Text = "上机时间" Or Combo1(i).Text = "下机日期" Or Combo1(i).Text = "下机时间" Then
            Label1.Caption = "日期查询格式为“yyyy/mm/dd”,时间查询格式为”hh:mm:ss“"
        End If

   If Combo1(i).Text = "上机日期" Or Combo1(i).Text = "下机日期" Then
        DTPicker1(i).Format = dtpLongDate
        DTPicker1(i).Visible = True
        Text1(i).Visible = False
    Else
        If Combo1(i).Text = "上机时间" Or Combo1(i).Text = "下机时间" Then
            DTPicker1(i).Format = dtpTime     '定义日期格式
            DTPicker1(i).Visible = True
            Text1(i).Visible = False
        Else
            DTPicker1(i).Visible = False
            Text1(i).Visible = True
        End If
    End If
    '定义文本框字符串数量
    If Combo1(i).Text = "卡号" Or Combo1(i).Text = "姓名" Then
        Text1(i).MaxLength = 10
    End If
    If Combo1(i).Text = "消费金额" Or Combo1(i).Text = "余额" Then
        Text1(i).MaxLength = 8
    End If
    Next i

End Sub

查询代码：

Private Sub Command1_Click()
Dim mrc As ADODB.Recordset
Dim txtsql As String
Dim msgtext As String
    MSFlexGrid1.rows = 2
    MSFlexGrid1.Clear
    Label1.Caption = ""
    '把日历控件的值赋给文本框
    Dim i As Integer
    For i = 0 To 2
        If DTPicker1(i).Visible = True Then
            Text1(i).Text = DTPicker1(i).Value
        End If
    Next i
    '组合查询
    txtsql = "select * from line_info where "
    '判断是否为空
    '不使用组合关系
    If Combo3(0).Text = "" And Combo3(1).Text = "" Then         '判断是否组合查询
        If Combo1(0).Text = "" And Combo1(1).Text = "" And Combo1(2).Text = "" Then   '判断字段是否输入
            Label1.Caption = "请输入字段名"
            Exit Sub
        Else
            If Combo1(0).Text <> "" Then      '如果第一行输入
                Combo1(1).Text = ""           '其他两行清空
                Combo1(2).Text = ""
                '判断是否为空
                If Combo2(0).Text = "" Or Text1(0).Text = "" Then
                    Label1.Caption = "请将第一行内容填写完整！"
                    Exit Sub
                Else
                    '判断数据类型
                    If Combo1(0).Text = "消费金额" Or Combo1(0).Text = "余额" Then
                        If Not IsNumeric(Text1(0).Text) Then
                            Label1.Caption = "请输入数字！"
                            Text1(0).Text = ""
                            Text1(0).SetFocus
                            Exit Sub
                        End If
                    End If
                    '组合查询
                    txtsql = txtsql & field(Combo1(0).Text) & " " & field(Trim(Combo2(0).Text)) & "'" & Trim(Text1(0).Text) & "'"
                End If
             End If
             If Combo1(1).Text <> "" Then      '如果第二行输入
                Combo1(0).Text = ""            '其他两行清空
                Combo1(2).Text = ""
                '判断是否为空
                If Combo2(1).Text = "" And Text1(1).Text = "" Then
                    Label1.Caption = "请将第二行内容填写完整！"
                    Exit Sub
                Else
                '判断数据类型
                If Combo1(1).Text = "消费金额" Or Combo1(1).Text = "余额" Then
                        If Not IsNumeric(Text1(1).Text) Then
                            Label1.Caption = "请输入数字！"
                            Text1(1).Text = ""
                            Text1(1).SetFocus
                            Exit Sub
                        End If
                    End If
                    '组合查询
                    txtsql = txtsql & field(Combo1(1).Text) & " " & field(Trim(Combo2(1).Text)) & "'" & Trim(Text1(1).Text) & "'"
                End If
            End If
             If Combo1(2).Text <> "" Then      '如果第三行输入
                Combo1(1).Text = ""            '其他两行清空
                Combo1(0).Text = ""
                If Combo2(2).Text = "" And Text1(2).Text = "" Then
                    Label1.Caption = "请将第三行内容填写完整！"
                    Exit Sub
                Else
                    '判断数据类型
                    If Combo1(2).Text = "消费金额" Or Combo1(2).Text = "余额" Then
                        If Not IsNumeric(Text1(2).Text) Then
                            Label1.Caption = "请输入数字！"
                            Text1(2).Text = ""
                            Text1(2).SetFocus
                            Exit Sub
                        End If
                    End If
                    '组合查询
                    txtsql = txtsql & field(Combo1(2).Text) & " " & field(Trim(Combo2(2).Text)) & "'" & Trim(Text1(2).Text) & "'"
                End If
             End If
             '表格信息录入
             With MSFlexGrid1     '单元格居中对齐
    
        .rows = 1
        .CellAlignment = 4
        .TextMatrix(0, 0) = "卡号"
        .TextMatrix(0, 1) = "姓名"
        .TextMatrix(0, 2) = "上机日期"
        .TextMatrix(0, 3) = "上机时间"
        .TextMatrix(0, 4) = "下机日期"
        .TextMatrix(0, 5) = "下机时间"
        .TextMatrix(0, 6) = "消费金额"
        .TextMatrix(0, 7) = "余额"
        .TextMatrix(0, 8) = "备注"
        End With
        Set mrc = ExecuteSQL(txtsql, msgtext)
        If mrc.EOF = True Then
            Label1.Caption = "查询不到记录,请重新输入！"
            Exit Sub
        Else
            Do While mrc.EOF = False
                With MSFlexGrid1
                    .rows = .rows + 1
                    .CellAlignment = 4
                    .TextMatrix(.rows - 1, 0) = Trim(mrc.Fields(1))
                    .TextMatrix(.rows - 1, 1) = Trim(mrc.Fields(3))
                    .TextMatrix(.rows - 1, 2) = Trim(mrc.Fields(6))
                    .TextMatrix(.rows - 1, 3) = Trim(mrc.Fields(7))
                    .TextMatrix(.rows - 1, 4) = Trim(mrc.Fields(8)) & ""
                    .TextMatrix(.rows - 1, 5) = Trim(mrc.Fields(9)) & ""
                    .TextMatrix(.rows - 1, 6) = Trim(mrc.Fields(11)) & ""
                    .TextMatrix(.rows - 1, 7) = Trim(mrc.Fields(12)) & ""
                    .TextMatrix(.rows - 1, 8) = Trim(mrc.Fields(13))
                End With
                mrc.MoveNext
                
            Loop
        End If
        End If
        End If
    '前两个组合查询
    If Combo3(0).Text <> "" And Combo3(1).Text = "" Then
        '判断是否为空
        If Combo1(0).Text = "" Or Combo1(1).Text = "" Or Combo2(0).Text = "" Or Combo2(1).Text = "" Or Text1(0).Text = "" Or Text1(1).Text = "" Then
            Label1.Caption = "请将前两行内容填写完整"
            Exit Sub
        Else
                    '判断数据类型
                    If Combo1(0).Text = "消费金额" Or Combo1(0).Text = "余额" Then
                        If Not IsNumeric(Text1(0).Text) Then
                            Label1.Caption = "请输入数字！"
                            Text1(0).Text = ""
                            Text1(0).SetFocus
                            Exit Sub
                        End If
                    End If
                    If Combo1(1).Text = "消费金额" Or Combo1(1).Text = "余额" Then
                        If Not IsNumeric(Text1(1).Text) Then
                            Label1.Caption = "请输入数字！"
                            Text1(1).Text = ""
                            Text1(1).SetFocus
                            Exit Sub
                        End If
                    End If
            '组合查询
            txtsql = txtsql & field(Combo1(0).Text) & "" & field(Trim(Combo2(0).Text)) & "'" & Trim(Text1(0).Text) & "'"
            txtsql = txtsql & field(Combo3(0).Text) & field(Combo1(1).Text) & field(Trim(Combo2(1).Text)) & "'" & Trim(Text1(1).Text) & "'"
             Set mrc = ExecuteSQL(txtsql, msgtext)
            '表格信息录入
            With MSFlexGrid1
    
        .rows = 1
        .CellAlignment = 4
        .TextMatrix(0, 0) = "卡号"
        .TextMatrix(0, 1) = "姓名"
        .TextMatrix(0, 2) = "上机日期"
        .TextMatrix(0, 3) = "上机时间"
        .TextMatrix(0, 4) = "下机日期"
        .TextMatrix(0, 5) = "下机时间"
        .TextMatrix(0, 6) = "消费金额"
        .TextMatrix(0, 7) = "余额"
        .TextMatrix(0, 8) = "备注"
        End With
        If mrc.EOF = True Then
            Label1.Caption = "查询不到记录,请重新输入！"
            Exit Sub
        Else
            Do While mrc.EOF = False
                With MSFlexGrid1
                    .rows = .rows + 1
                    .CellAlignment = 4
                    .TextMatrix(.rows - 1, 0) = Trim(mrc.Fields(1))
                    .TextMatrix(.rows - 1, 1) = Trim(mrc.Fields(3))
                    .TextMatrix(.rows - 1, 2) = Trim(mrc.Fields(6))
                    .TextMatrix(.rows - 1, 3) = Trim(mrc.Fields(7))
                    .TextMatrix(.rows - 1, 4) = Trim(mrc.Fields(8)) & ""
                    .TextMatrix(.rows - 1, 5) = Trim(mrc.Fields(9)) & ""
                    .TextMatrix(.rows - 1, 6) = Trim(mrc.Fields(11)) & ""
                    .TextMatrix(.rows - 1, 7) = Trim(mrc.Fields(12)) & ""
                    .TextMatrix(.rows - 1, 8) = Trim(mrc.Fields(13))
                End With
                mrc.MoveNext
                
            Loop
        End If
      End If
    End If
    
    '后两个组合查询
    If Combo3(1).Text <> "" And Combo3(0).Text = "" Then
        '判断是否为空
        If Combo1(1).Text = "" Or Combo1(2).Text = "" Or Combo2(2).Text = "" Or Combo2(1).Text = "" Or Text1(2).Text = "" Or Text1(1).Text = "" Then
            Label1.Caption = "请将后两行内容填写完整"
            Exit Sub
        Else
            '判断数据类型
            If Combo1(1).Text = "消费金额" Or Combo1(1).Text = "余额" Then
                        If Not IsNumeric(Text1(1).Text) Then
                            Label1.Caption = "请输入数字！"
                            Text1(1).Text = ""
                            Text1(1).SetFocus
                            Exit Sub
                        End If
                    End If
                    If Combo1(2).Text = "消费金额" Or Combo1(2).Text = "余额" Then
                        If Not IsNumeric(Text1(2).Text) Then
                            Label1.Caption = "请输入数字！"
                            Text1(2).Text = ""
                            Text1(2).SetFocus
                            Exit Sub
                        End If
                    End If
            '组合查询
            txtsql = txtsql & field(Combo1(1).Text) & "" & field(Trim(Combo2(1).Text)) & "'" & Trim(Text1(1).Text) & "'"
            txtsql = txtsql & field(Combo3(1).Text) & field(Combo1(2).Text) & field(Trim(Combo2(2).Text)) & "'" & Trim(Text1(2).Text) & "'"
             Set mrc = ExecuteSQL(txtsql, msgtext)
            '表格信息录入
            With MSFlexGrid1
    
        .rows = 1
        .CellAlignment = 4
        .TextMatrix(0, 0) = "卡号"
        .TextMatrix(0, 1) = "姓名"
        .TextMatrix(0, 2) = "上机日期"
        .TextMatrix(0, 3) = "上机时间"
        .TextMatrix(0, 4) = "下机日期"
        .TextMatrix(0, 5) = "下机时间"
        .TextMatrix(0, 6) = "消费金额"
        .TextMatrix(0, 7) = "余额"
        .TextMatrix(0, 8) = "备注"
        End With
        If mrc.EOF = True Then
            Label1.Caption = "查询不到记录,请重新输入！"
            Exit Sub
        Else
            Do While mrc.EOF = False
                With MSFlexGrid1
                    .rows = .rows + 1
                    .CellAlignment = 4
                    .TextMatrix(.rows - 1, 0) = Trim(mrc.Fields(1))
                    .TextMatrix(.rows - 1, 1) = Trim(mrc.Fields(3))
                    .TextMatrix(.rows - 1, 2) = Trim(mrc.Fields(6))
                    .TextMatrix(.rows - 1, 3) = Trim(mrc.Fields(7))
                    .TextMatrix(.rows - 1, 4) = Trim(mrc.Fields(8)) & ""
                    .TextMatrix(.rows - 1, 5) = Trim(mrc.Fields(9)) & ""
                    .TextMatrix(.rows - 1, 6) = Trim(mrc.Fields(11))
                    .TextMatrix(.rows - 1, 7) = Trim(mrc.Fields(12))
                    .TextMatrix(.rows - 1, 8) = Trim(mrc.Fields(13))
                End With
                mrc.MoveNext
                
            Loop
        End If
      End If
      End If
      
      '三个组合查询
      If Combo3(1).Text <> "" And Combo3(0).Text <> "" Then
            '判空
            If Combo1(0).Text = "" Or Combo2(0).Text = "" Or Text1(0).Text = "" Or Combo1(1).Text = "" _
                Or Combo2(1).Text = "" Or Text1(1).Text = "" Or Combo1(2).Text = "" _
                Or Combo2(2).Text = "" Or Text1(2).Text = "" Then
                Label1.Caption = "请输入相关内容"
                Exit Sub
            Else
            '数据类型
            If Combo1(0).Text = "消费金额" Or Combo1(0).Text = "余额" Then
                        If Not IsNumeric(Text1(0).Text) Then
                            Label1.Caption = "请输入数字！"
                            Text1(0).Text = ""
                            Text1(0).SetFocus
                            Exit Sub
                        End If
                    End If
                    If Combo1(1).Text = "消费金额" Or Combo1(1).Text = "余额" Then
                        If Not IsNumeric(Text1(1).Text) Then
                            Label1.Caption = "请输入数字！"
                            Text1(1).Text = ""
                            Text1(1).SetFocus
                            Exit Sub
                        End If
                    End If
                    If Combo1(2).Text = "消费金额" Or Combo1(2).Text = "余额" Then
                        If Not IsNumeric(Text1(2).Text) Then
                            Label1.Caption = "请输入数字！"
                            Text1(2).Text = ""
                            Text1(2).SetFocus
                            Exit Sub
                        End If
                    End If
                    '组合查询
                txtsql = txtsql & field(Combo1(0).Text) & " " & field(Trim(Combo2(0).Text)) & "'" & Trim(Text1(0).Text) & "'"
            
                txtsql = txtsql & field(Combo3(0).Text) & field(Combo1(1).Text) & _
                field(Trim(Combo2(1).Text)) & "'" & Trim(Text1(1).Text) & "'"
            
                txtsql = txtsql & field(Combo3(1).Text) & field(Combo1(2).Text) & _
                field(Trim(Combo2(2).Text)) & "'" & Trim(Text1(2).Text) & "'"
            
                Set mrc = ExecuteSQL(txtsql, msgtext)
            '表格信息录入
                With MSFlexGrid1
    
                    .rows = 1
                    .CellAlignment = 4
                    .TextMatrix(0, 0) = "卡号"
                    .TextMatrix(0, 1) = "姓名"
                    .TextMatrix(0, 2) = "上机日期"
                    .TextMatrix(0, 3) = "上机时间"
                    .TextMatrix(0, 4) = "下机日期"
                    .TextMatrix(0, 5) = "下机时间"
                    .TextMatrix(0, 6) = "消费金额"
                    .TextMatrix(0, 7) = "余额"
                    .TextMatrix(0, 8) = "备注"
                End With
                If mrc.EOF = True Then
                    Label1.Caption = "无记录"
                    Exit Sub
                Else
                    Do While mrc.EOF = False
                        With MSFlexGrid1
                            .rows = .rows + 1
                            .CellAlignment = 4
                            .TextMatrix(.rows - 1, 0) = Trim(mrc.Fields(1))
                            .TextMatrix(.rows - 1, 1) = Trim(mrc.Fields(3))
                            .TextMatrix(.rows - 1, 2) = Trim(mrc.Fields(6))
                            .TextMatrix(.rows - 1, 3) = Trim(mrc.Fields(7))
                            .TextMatrix(.rows - 1, 4) = Trim(mrc.Fields(8)) & ""
                            .TextMatrix(.rows - 1, 5) = Trim(mrc.Fields(9)) & ""
                            .TextMatrix(.rows - 1, 6) = Trim(mrc.Fields(11)) & ""
                            .TextMatrix(.rows - 1, 7) = Trim(mrc.Fields(12))
                            .TextMatrix(.rows - 1, 8) = Trim(mrc.Fields(13))
                        End With
                        mrc.MoveNext
            
                    Loop
              End If
        End If
    End If
 
End Sub
孙正嗯大正
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 4
    评论
专栏目录
结合机房收费系统对UML的总结
01-31
前一段时间学习了软件工程，所以将UML建模和软工做了一个对比（这里没有画出构件图和部署图）：分析图形：下面就通过机房收费系统具体介绍几种主要的图形理解：用例图是从用户的角度来看我们所开发的系统。...
VB机房收费系统
07-19
通过"第一次机房收费"这个文件名，我们可以推测这可能是系统首次运行的配置文件或者示例数据，用于帮助用户理解系统的基本操作流程和设置方法。 总的来说，VB机房收费系统利用VB的强大功能，实现了机房的高效管理，...
第一次机房收费系统--组合查询
好吃的爆米花
09-07 561
欢迎您的阅读， 经过了一周的不屑努力，终于攻克了，当然还是要感谢张铎同学和晓尚同学的帮助！ 指导思想 通过拼接一条SQL语句，实现对数据的查询。 代码 1、根据选择的不同组合关系，判断控件的使用 注意：我利用的Timer控件。 Private Sub Timer0_1_Timer() '判断第一组控件 If Trim(comboCombineRelation0....
【第一次机房收费系统】—组合查询（操作员工记录、学生基本信息维护）
在这个充满危险的乱世之中，只有学会烤鸡才能顽强的活下去。
11-16 410
一、思维导图（以操作员工记录为例） 二、思路 （1）往窗体里面添加数据 这里最好定义数组 如：`在这里插Private Sub Form_Load() Dim i As Integer Dim j As Integer Dim n As Integer '打开窗体时的加载内容 For i = 0 To 2 comboField(i).AddItem "教师" comboField...
第一次机房收费系统之操作员组合查询
ZYB的博客
07-30 175
对于学生信息维护、查询上机记录、以及操作员工的记录三个窗体都用了组合查询的方法，操作相同，因此在这就不全部介绍了，仅仅介绍一下组合查询的方法，以及代码等，对这三个窗体的具体操作也不做过多的介绍。 这三个窗体的组合查询我是这样理解的，最开始只有条件一可以输入，另外两个条件不可输入，之后两个条件时，条件1、2可用，条件3不可输入，三个条件的时候都可输入，之后根据条件进行查询记录。 这里有一个优化的内容...
机房收费系统 —— 组合查询
winnieFighting
02-01 464
以学生上机统计信息查询 前言 学生上机统计信息查询要实现的功能是查询 line 表中的一些信息，要查询的关键词主要是line表中的各个属性，可根据多个属性结合的方式来查询相关内容，所以是组合查询。 正文 代码如下（相关解释在代码里） Private Sub cmdOK_Click() '建立与数据库的联系(查询line表) txtsql = &quot;selec
第一次机房收费系统学习——收取金额查询
有一颗大心才盛的下喜怒，输的出力量
12-30 251
机房收费系统之组合查询
乐于探索,乐于奉献,追求极致,向往生活
10-22 721
神器的逻辑       好像谈到整个机房收费系统，我们谈之色变的不是整个项目有很多窗体，而是窗体模块的执行顺序（流程）；我们把大部分时间都用来思考某个功能实现的过程；相比较来看，只要我们有了逻辑思路，敲代码仅仅是小菜一碟，哈哈；不过....前提你要绞尽脑汁的去思考，不然事后优化也会消耗大部分时间，尽量一次性考虑的全面一些；       组合查询，这个名词我们应该不陌生了，原来在学生中我们也遇到
【第一次机房收费系统】组合查询
Java is the best language~
01-17 649
所有的伟大只源于一个勇敢地开始。 组合查询之前以为很难，但是真正去开始敲了，你就会发现并不难。敲完了第一个，基本上就算是敲完了。 这是机房收费系统里面组合查询的标准样式，之所以叫组合查询，是因为我们要将若干个条件选择出来之后组合在一起来查询。首先，组合查询分为三组查询条件和两个组合关系，组合关系两两连接组合条件。所以当给你选择了第一个组合关系之后，必须要有前两行的查询条件，选择了第二个组合关系之
基于Java写的一款机房收费管理系统
08-15
本项目是一款基于Java技术实现的机房收费管理系统，旨在解决学校等机构对机房资源的高效管理与收费问题。利用Java的稳定性和跨平台特性，该系统能够运行在多种操作系统上，为用户提供便捷的操作体验。 1. **系统...
vb版机房收费系统
09-13
【VB版机房收费系统】是一款基于Visual Basic（VB）编程语言开发的计算机机房管理软件，主要用于管理和计费在机房中使用计算机资源的活动。这个系统旨在提高机房运营效率，确保公平、准确地计算用户的使用时间，并...
基于C++和C的ChargeManager机房收费管理系统设计源码
05-24
本项目是基于C++和C的ChargeManager机房收费管理系统设计源码，包含22个文件，其中包括6个CPP文件、5个H文件、5个UI文件、1个Gitignore文件、1个TXT文件、1个LICENSE文件、1个Markdown文件、1个ICO文件和1个RC文件。...
【创新未发表】Matlab实现秃鹰优化算法BES-Kmean-Transformer-LSTM组合状态识别算法研究.rar
07-29
1.版本：matlab2014/2019a/2024a 2.附赠案例数据可直接运行matlab程序。 3.代码特点：参数化编程、参数可方便更改、代码编程思路清晰、注释明细。 4.适用对象：计算机，电子信息工程、数学等专业的大学生课程设计、期末大作业和毕业设计。 5.作者介绍：某大厂资深算法工程师，从事Matlab算法仿真工作10年；擅长智能优化算法、神经网络预测、信号处理、元胞自动机等多种领域的算法仿真实验，更多仿真源码、数据集定制私信+。 替换数据可以直接使用，注释清楚，适合新手
巡检python.mp4
07-29
巡检python.mp4
三个版本企业数字化转型合集（2001-2022）（全新整理)
07-29
1、资源内容地址：https://blog.csdn.net/2301_79696294/article/details/140383422 2、代码特点：今年全新，手工精心整理，放心引用，数据来自权威，相对于其他人的控制变量数据准确很多,适合写论文做实证用 ，不会出现数据造假问题 3、适用对象：大学生，本科生，研究生小白可用，容易上手！！！ 3、课程引用: 经济学，地理学，城市规划与城市研究，公共政策与管理，社会学，商业与管理 ## 数据指标说明 整理了基本上最常见的数字化转型的度量方式，全部都是目前为止最为常用的顶刊数据用法，具体数据说明如下（全部为2021最新版本） 一、吴非版本（2007-2021） 二、袁淳版本（2007-2021）（数据丰富） 三、张永珅版本 2001-2022
【SCI一区】Matlab实现蝗虫优化算法GOA-CNN-LSTM-Attention的风电功率预测算法研究.rar
07-29
1.版本：matlab2014/2019a/2021a 2.附赠案例数据可直接运行matlab程序。 3.代码特点：参数化编程、参数可方便更改、代码编程思路清晰、注释明细。 4.适用对象：计算机，电子信息工程、数学等专业的大学生课程设计、期末大作业和毕业设计。 5.作者介绍：某大厂资深算法工程师，从事Matlab算法仿真工作10年；擅长智能优化算法、神经网络预测、信号处理、元胞自动机等多种领域的算法仿真实验，更多仿真源码、数据集定制私信+。 替换数据可以直接使用，注释清楚，适合新手
Matlab实现蝠鲼觅食优化算法MRFO-Kmean-Transformer-BiLSTM组合状态识别算法研究.rar
07-29
1.版本：matlab2014/2019a/2021a 2.附赠案例数据可直接运行matlab程序。 3.代码特点：参数化编程、参数可方便更改、代码编程思路清晰、注释明细。 4.适用对象：计算机，电子信息工程、数学等专业的大学生课程设计、期末大作业和毕业设计。 5.作者介绍：某大厂资深算法工程师，从事Matlab算法仿真工作10年；擅长智能优化算法、神经网络预测、信号处理、元胞自动机等多种领域的算法仿真实验，更多仿真源码、数据集定制私信+。 替换数据可以直接使用，注释清楚，适合新手
监控视频车辆计数统计功能研究
最新发布
07-29
针对实时获取监控视频车流量的迫切需求，利用 7<3+=$>O?@A%+ 实现监控视频车辆计数统计功能( 首先，通过背景减除法的前景提取算法来分割出图像中的车辆(然后，通过轮廓检测和形态学操作对车辆 进行处理和过滤，以消除噪声和不必要的检测结果确保准确计数(最后，将该方案与 67879, 模型和 27CD 算法相结合作对比(实验结果表明，两种方案都能够有效地实现车辆的计数，但传统图像处理没有 深度学习精度高，且难以适应不同路段的道路场景，为此提出将传统图像处理与深度学习相结合的建议， 为车辆计数提供更好的解决方案(
机房收费管理系统：用户管理与功能详述
- 收支账目管理 - 系统记录每一次的机房收费和退款操作，以便进行财务统计。 - 系统信息管理 - 维护系统的设置，如半小时费用、递增时间、最低上机时间等基础数据。 - 数据表 - 包含了基本数据设定、退卡信息和日结...
评论 4
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

孙正嗯大正

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值