机房收费初级篇之组合查询

最新推荐文章于 2022-07-11 14:01:00 发布
最新推荐文章于 2022-07-11 14:01:00 发布
阅读量650 收藏
点赞数
分类专栏： 机房收费系统
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/wangdongyanglys/article/details/47948199
版权

       机房收费系统中组合查询是机房收费相对来说比较复杂的一块，一开始做到组合查询的时候就有点晕，不知道代码该怎么写，记得是花了好几天的时间去整理思路，在这期间，各种想法都有，想着想着自己就把自己给绕进去了，总是把事情想复杂。机房收费中的组合查询主要有三个窗体：学生基本信息维护 、学生上机统计信息 和操作员工作记录，其实只要整理好思路，想明白了就好了，把其中的一个窗体做出来，其他的都会了。下面就以操作员工作记录为例来说说我的整个思路。 首先：你需要判断各个需要填写的信息是否为空，如果是就提示填写完整。 其次：如果选择了组合关系一定要填写第二行或者第三行信息。 之后就是查询了，这里需要注意的一点是，字段名和组合关系需要转换成数据库能够读懂的信息，需要用一个函数（例如： filedname）来转换。在这其中，用到了一个dtpicker控件，方便输入，提高效率。

        

        但是写好了不能运行，还老出错，经过一些探索，终于知道了原来是出一个很小的错误，就是少了个空格。可见小小的一个空格的力量不容小觑啊 下面的是我的代码展示（仅供参考）：

        

Private Function FieldName(strFieldName As String) As String
'是汉字转化成数据库中的字段和关系
   Select Case strFieldName
        Case "教师"
            FieldName = "UserID"
        Case "注册日期"
            FieldName = "logindate"
        Case "注册时间"
            FieldName = "logintime"
        Case "注销日期"
            FieldName = "logoutdate"
        Case "注销时间"
            FieldName = "logouttime"
        Case "机器名"
            FieldName = "computer"
        Case "与"
            FieldName = "and"
        Case "或"
            FieldName = "or"
   End Select
End Function

Private Sub Combo1_Click(Index As Integer)
  Combo2(0).Clear
  Combo2(1).Clear     '清空，否则每选一次都会出现相同的信息
  Combo2(2).Clear
  Select Case Combo1(0).Text
  
    Case "教师"
        Text1(0).Visible = True
        Combo2(0).AddItem "="
        Combo2(0).AddItem "<>"
        Text1(0).Visible = True
'        dtpicker1.Enabled = False
        dtpicker1.Visible = False
    Case "注册日期"               '我在这里用了一个dtpicker控件，然后选择日期的时候自动出现，便于提高效率，选择其他字段的时候显示的是文本框
        Text1(0).Visible = True
        Combo2(0).AddItem ">"
        Combo2(0).AddItem "<"
        Combo2(0).AddItem "="
        Combo2(0).AddItem "<>"
        dtpicker1.Visible = True
'        dtpicker1.Enabled = True
'        Text1(0).Enabled = False
        Text1(0).Visible = False
        Text1(0).Text = dtpicker1.Value
    Case "注册时间"
        Text1(0).Visible = True

        Combo2(0).AddItem ">"
        Combo2(0).AddItem "<"
        Combo2(0).AddItem "="
        Combo2(0).AddItem "<>"
        Text1(0).Visible = True
'        dtpicker1.Enabled = False
        dtpicker1.Visible = False
    Case "注销日期"
        Text1(0).Visible = True
        Combo2(0).AddItem ">"
        Combo2(0).AddItem "<"
        Combo2(0).AddItem "="
        Combo2(0).AddItem "<>"
        dtpicker1.Enabled = True
        Text1(0).Visible = False
        
        Text1(0).Text = dtpicker1.Value
    Case "注销时间"
        Text1(0).Visible = True

        Combo2(0).AddItem ">"
        Combo2(0).AddItem "<"
        Combo2(0).AddItem "="
        Combo2(0).AddItem "<>"
        Text1(0).Visible = True
'        dtpicker1.Enabled = False
        dtpicker1.Visible = False
    Case "机器名"
        Text1(0).Visible = True
'        dtpicker1.Enabled = False
        dtpicker1.Visible = False
        Combo2(0).AddItem "="
        Combo2(0).AddItem "<>"
    
  End Select
    Select Case Combo1(1).Text
  
    Case "教师"
        Text1(1).Visible = True
        Combo2(1).AddItem "="
        Combo2(1).AddItem "<>"
        Text1(1).Visible = True
'        DTPicker2.Enabled = False
        DTPicker2.Visible = False
'        blnShuZi = False
    Case "注册日期"
        Text1(1).Visible = True
        Combo2(1).AddItem ">"
        Combo2(1).AddItem "<"
        Combo2(1).AddItem "="
        Combo2(1).AddItem "<>"
        DTPicker2.Visible = True
        Text1(1).Text = DTPicker2.Value
        Text1(1).Visible = False
    Case "注册时间"
        Text1(1).Visible = True
   
        Combo2(1).AddItem ">"
        Combo2(1).AddItem "<"
        Combo2(1).AddItem "="
        Combo2(1).AddItem "<>"
        Text1(1).Visible = True
'        DTPicker2.Enabled = False
        DTPicker2.Visible = False
    Case "注销日期"
        Text1(1).Visible = True
        Combo2(1).AddItem ">"
        Combo2(1).AddItem "<"
        Combo2(1).AddItem "="
        Combo2(1).AddItem "<>"
        DTPicker2.Visible = True
        Text1(1).Visible = False
        Text1(1).Text = DTPicker2.Value
    Case "注销时间"
        Text1(1).Visible = True

        Combo2(1).AddItem ">"
        Combo2(1).AddItem "<"
        Combo2(1).AddItem "="
        Combo2(1).AddItem "<>"
        Text1(1).Visible = True
'        DTPicker2.Enabled = False
        DTPicker2.Visible = False
    Case "机器名"
        Text1(1).Visible = True

        Combo2(1).AddItem "="
        Combo2(1).AddItem "<>"
        Text1(1).Visible = True
'        DTPicker2.Enabled = False
        DTPicker2.Visible = False
  End Select
    Select Case Combo1(2).Text
  
    Case "教师"
        Text1(2).Visible = True
        Combo2(2).AddItem "="
        Combo2(2).AddItem "<>"
        Text1(2).Visible = True
'        DTPicker3.Visible = False
        DTPicker3.Visible = False
'        blnShuZi = False
    Case "注册日期"
'        Text1(2).Visible = True
        Combo2(2).AddItem ">"
        Combo2(2).AddItem "<"
        Combo2(2).AddItem "="
        Combo2(2).AddItem "<>"
        DTPicker3.Visible = True
        Text1(2).Visible = False
        Text1(2).Text = DTPicker3.Value
    Case "注册时间"
'        Text1(2).Visible = True
   
        Combo2(2).AddItem ">"
        Combo2(2).AddItem "<"
        Combo2(2).AddItem "="
        Combo2(2).AddItem "<>"
        Text1(2).Visible = True
        DTPicker3.Visible = False
    Case "注销日期"
'        Text1(2).Visible = True
        Combo2(2).AddItem ">"
        Combo2(2).AddItem "<"
        Combo2(2).AddItem "="
        Combo2(2).AddItem "<>"
        DTPicker3.Visible = True
        Text1(2).Visible = False
        Text1(2).Text = DTPicker3.Value
    Case "注销时间"
      
        Combo2(2).AddItem ">"
        Combo2(2).AddItem "<"
        Combo2(2).AddItem "="
        Combo2(2).AddItem "<>"
        Text1(2).Visible = True
        DTPicker3.Visible = False
    Case "机器名"
'        Text1(2).Visible = True

        Combo2(2).AddItem "="
        Combo2(2).AddItem "<>"
        Text1(2).Visible = True
        DTPicker3.Visible = False
  End Select
End Sub


Private Sub command1_Click()  '清空所有信息
  Combo1(0).Text = ""
  Combo1(1).Text = ""
  Combo1(2).Text = ""
  Combo2(0).Text = ""
  Combo2(1).Text = ""
  Combo2(2).Text = ""
  Combo3(0).Text = ""
  Combo3(1).Text = ""
  Text1(0).Text = ""
  Text1(1).Text = ""
  Text1(2).Text = ""
  MSFlexGrid1.Clear
End Sub

Private Sub command2_Click()   '这个是查询

  Dim txtsql As String
  Dim mrc As ADODB.Recordset
  Dim msgtext As String
  Dim a
    txtsql = "select * from worklog_info where "
    Set mrc = ExecuteSQL(txtsql, msgtext)
  '编辑第一行
    If Combo1(0).Text = "" Then
      MsgBox "请输入第一行字段名", vbOKOnly, "提示"
      Combo1(0).SetFocus
      Exit Sub
    ElseIf Combo2(0).Text = "" Then
      MsgBox "请输入第一行操作符", vbOKOnly, "提示"
      Combo2(0).SetFocus
      Exit Sub
    ElseIf Text1(0).Text = "" And dtpicker1.Value = "" Then
      MsgBox "请输入第一行要查找的内容", vbOKOnly, "提示"
      Exit Sub
    Else
      '从数据库中选择符合条件的内容
      txtsql = txtsql & FieldName(Combo1(0).Text) & " " & Combo2(0).Text & "'" & Trim(Text1(0).Text) & "'"
           Set mrc = ExecuteSQL(txtsql, msgtext)
             If mrc.EOF Then  '判断是否为空
                MsgBox "没有记录，请重新选择！", vbOKOnly, "提示"
                Combo1(0).SetFocus
                Exit Sub
             Else
               If Combo3(0).Text = "" Then
                 GoTo case1
               End If
             End If
             
'End If
    End If

    

    If Combo1(1).Text = "" Then
      MsgBox "请输入第二行字段名", vbOKOnly, "提示"
      Combo1(1).SetFocus
      Exit Sub
    End If
    If Combo2(1).Text = "" Then
      MsgBox "请选择第二行操作符~", vbOKOnly, "提示"
      Combo2(1).SetFocus
      Exit Sub
    End If
    If Text1(1).Text = "" Then
      MsgBox "请输入第二行要查找的内容^^", vbOKOnly, "提示"
      Text1(1).SetFocus
      Exit Sub
    End If
    If Combo1(1).Text <> "" And Combo2(1).Text <> "" And Text1(1).Text <> "" And Combo2(0).Text = "" Then
       MsgBox "请选择组合关系", vbOKOnly, "提示"
    Else
       
'    txtSQL = "select * from worklog_info where status='False'" & "And" & " " & FieldName(Combo1(0).Text) & Combo2(0).Text & Trim(Text1(0).Text) & "(" & a & " " & Trim(Combo1(1).Text) & Combo2(1).Text & "'" & Text1(1).Text & "'" & ")"
    txtsql = txtsql & FieldName(Combo3(0).Text) & " " & FieldName(Combo1(1).Text) & Combo2(1).Text & "'" & Text1(1).Text & "'"
    Set mrc = ExecuteSQL(txtsql, msgtext)
    If mrc.EOF Then
      MsgBox "没有记录哦~", vbOKOnly, "提示"
      Combo1(1).SetFocus
      Exit Sub
    Else
      If Combo3(1).Text = "" Then
        GoTo case1
      End If
    End If
    End If
    '第三行
    If Combo1(2).Text = "" Then
      MsgBox "请选择第三行字段名~", vbOKOnly, "提示"
      Combo1(2).SetFocus
      Exit Sub
    End If
    If Combo2(2).Text = "" Then
      MsgBox "请选择第三行"
      Combo2(2).SetFocus
      Exit Sub
    End If
    If Text1(2).Text = "" Then
      MsgBox "请输入第三行要查询的内容", vbOKOnly, "提示"
      Text1(2).SetFocus
      Exit Sub
    End If
'    txtsql = "select * from worklog_info where status='" & "False" & "'" _
'            & "and" & " " & " " & FieldName(Combo1(0).Text) & " " & Combo2(0).Text & "'" & Text1(0).Text & "'" _
'            & a & " " & FieldName(Combo1(1).Text) & " " & Combo2(1).Text & "'" & Text1(1).Text & "'" _
'            & a & " " & FieldName(Combo1(2).Text) & " " & Combo2(2).Text & "'" & Text1(2).Text & "'" & ")"
    txtsql = txtsql & FieldName(Combo3(1).Text) & " " & FieldName(Combo1(2).Text) & Combo2(2).Text & "'" & Text1(2).Text & "'"
    Set mrc = ExecuteSQL(txtsql, msgtext)
    If mrc.EOF Then
            MsgBox "当前没有该内容", vbOKOnly, "提示"
            Exit Sub
    Else
            GoTo case1
    End If


case1:    '定义case1，之后用到了就调用case1就好，避免代码重复，
    With MSFlexGrid1
        .Rows = 1
        .CellAlignment = 4
'        .ColAlignment = 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) = "状态"
        Do While Not mrc.EOF
           With MSFlexGrid1
            .Rows = .Rows + 1
            .CellAlignment = 4
'            .ColAlignment = 4
            .TextMatrix(.Rows - 1, 0) = Trim(mrc.Fields(0))
            .TextMatrix(.Rows - 1, 1) = Trim(mrc.Fields(1))
            .TextMatrix(.Rows - 1, 2) = Trim(mrc.Fields(2))
            .TextMatrix(.Rows - 1, 3) = Trim(mrc.Fields(3))
            .TextMatrix(.Rows - 1, 4) = Trim(mrc.Fields(4))
            .TextMatrix(.Rows - 1, 5) = "" & mrc.Fields(5).Value
            .TextMatrix(.Rows - 1, 6) = "" & Trim(mrc.Fields(6))
            .TextMatrix(.Rows - 1, 7) = "" & Trim(mrc.Fields(7))
'            .TextMatrix(.Rows - 1, 8) = Trim(mrc.Fields(8))
'            If Trim(mrc.Fields(i, j)) = Null Then
'               TextMatrix(.Rows - 1, j) = ""
'            End If
           End With
            mrc.MoveNext
        Loop
    End With
End Sub

Private Sub Command3_Click()   '这个是导出excel
    
    Dim i As Integer
    Dim j As Integer
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True
    Set xlBook = xlApp.Workbooks.add
    Set xlSheet = xlBook.Worksheets(1)
    For i = 0 To MSFlexGrid1.Rows - 1
        For j = 0 To MSFlexGrid1.Cols - 1
            MSFlexGrid1.Row = i
            MSFlexGrid1.Col = j
            xlSheet.Cells(i + 1, j + 1) = Trim(MSFlexGrid1.Text)
        Next
    Next
End Sub
Private Sub Command4_Click()   '退出
 Unload Me
End Sub


Private Sub Form_Load()   '加载字段名，操作符和组合关系
  Combo1(0).AddItem "教师"
  Combo1(0).AddItem "注册日期"
  Combo1(0).AddItem "注册时间"
  Combo1(0).AddItem "注销日期"
  Combo1(0).AddItem "注销时间"
  Combo1(0).AddItem "机器名"

  Combo2(0).AddItem "="
  Combo2(0).AddItem "<"
  Combo2(0).AddItem ">"
  Combo2(0).AddItem "<>"

  Combo3(0).AddItem "或"
  Combo3(0).AddItem "与"

  Combo1(1).AddItem "教师"
  Combo1(1).AddItem "注册日期"
  Combo1(1).AddItem "注册时间"
  Combo1(1).AddItem "注销日期"
  Combo1(1).AddItem "注销时间"
  Combo1(1).AddItem "机器名"

  Combo2(1).AddItem "="
  Combo2(1).AddItem "<"
  Combo2(1).AddItem ">"
  Combo2(1).AddItem "<>"

'  Combo3(1).AddItem ""
  Combo3(1).AddItem "或"
  Combo3(1).AddItem "与"

  Combo1(2).AddItem "教师"
  Combo1(2).AddItem "注册日期"
  Combo1(2).AddItem "注册时间"
  Combo1(2).AddItem "注销日期"
  Combo1(2).AddItem "注销时间"
  Combo1(2).AddItem "机器名"

  Combo2(2).AddItem "="
  Combo2(2).AddItem "<"
  Combo2(2).AddItem ">"
  Combo2(2).AddItem "<>"


End Sub

王冬阳
关注
专栏目录
自建数据库与云数据库RDS性能比较
m0_63984008的博客
11-11 1270
很多人对数据库是什么不是很清楚，那么数据库到底是什么呢？传统数据库是依照某种数据模型组织起来并存放二级存储器中的数据集合。这种数据集合具有如下特点：尽可能不重复，以最优方式为某个特定组织的多种应用服务，其数据结构独立于使用它的应用程序，对数据的增、删、改、查由统一软件进行管理和控制。 阿里云提供的云数据库RDS（ApsaraDB for RDS，简称RDS）是一种稳定可靠、可弹性伸缩的在线数据库服务。基于飞天分布式系统和全SSD盘高性能存储，支持MySQL、SQL Server、PostgreSQL和
自建数据库与云数据库RDS具体内容的优缺点
m0_64346584的博客
11-23 990
很多人对数据库是什么不是很清楚，那么数据库到底是什么呢？传统数据库是依照某种数据模型组织起来并存放二级存储器中的数据集合。这种数据集合具有如下特点：尽可能不重复，以最优方式为某个特定组织的多种应用服务，其数据结构独立于使用它的应用程序，对数据的增、删、改、查由统一软件进行管理和控制。 阿里云提供的云数据库RDS（ApsaraDB for RDS，简称RDS）是一种稳定可靠、可弹性伸缩的在线数据库服务。基于飞天分布式系统和全SSD盘高性能存储，支持MySQL、SQL Server、PostgreSQL和
机房收费系统（5）-迟来的总结
我翱翔的天空
09-30 1388
机房到现在已经
深圳大学初级导论
Srduitno的博客
07-30 1万+
大学入门论 一、基础知识储备篇 （一）、奖励与资费 1.学费标准 贴吧上可以了解到从教育局给出的四学年学费标准，如下 2.新生奖励计划 3.学分
从初级开发者到资深架构师，看这
菜菜程序员
07-11 1417
（Toc generated by simple-php-github-toc ）《java队列——queue详细分析》《LinkedList、ConcurrentLinkedQueue、LinkedBlockingQueue对比分析》每个节点最多有两个叶子节点。左右两个子树的高度差的绝对值不超过1，并且左右两个子树都是一棵平衡二叉树。二叉查找树（Binary Search Tree），也称有序二叉树（ordered binary tree）,排序二叉树（sorted binary tree）。MySQL是
Linux 就该这么学
GitChat
08-14 2万+
内容简介 本书源自日均阅读量近万次火爆的线上同名课程，口碑与影响力俱佳，旨在打造简单易学且实用性强的轻量级 Linux 入门教程。 本书基于红帽 RHEL 系统编写，且内容通用于 CentOS、Fedora 等系统。本书共分为20章，内容涵盖了部署虚拟环境、安装 Linux 系统；常用的 Linux 命令；与文件读写操作有关的技术；使用 Vim 编辑器编写和修改配置文件；用户身份与文件权限的设置...
黑马程序员-IT学生解惑真经-想做程序员或者正在迟疑的同学可以看一下，很有帮助的一篇文章
u014563778的专栏
04-13 1万+
--------韩愈《师说》 在校的IT学生有几百万 都在为如何如何学习才能找到工作、融入社会而迷惑 我们需要的不是灵丹妙药 而是一本让你少走几年弯路的 IT学生解惑真经 这是一部写给在校计算机专业学生的书 如果没有看到这本书，你可能会茫然无措的度过学习阶段，把这本书推荐给你的同学你会得到更多朋友 中国IT领域的发展速度之快令世界瞩目，但是中国的计算机教
（转载）IT行业都有哪些职位，初学者（0基础，新人）该如何选择，才能够快速进入这个行业？
qq_38056704的博客
10-17 2439
作者：暗灭 链接：https://www.zhihu.com/question/36991788/answer/69902291 来源：知乎 著作权归作者所有。商业转载请联系作者获得授权，非商业转载请注明出处。 互联网行业的薪资水准相对较高，刚入行一个月，半年，或者一年超过其他行业薪资很正常。那么，互联网行业究竟有哪些职位呢，又分别适合哪些传统行业转型？ 1.产品2.UI3.CSS4.JS5....
后端架构师技术图谱
chuming03403的博客
05-27 1436
《后端架构师技术图谱》 今天无意间看到github上一篇超炫的博文，是阿里工程师总结的《后端架构师技术图谱》，分享给大家。 推荐: 《Java技术书籍大全》 - awesome-java-books 从初级开发者到资深架构师，看这些书就够了 [外链图片转存失败(img-V5gcbmWU-1563765381416)(https://img.shields.io/badge/License-Cre...
[转]高负载并发网站架构分析
bluehire的专栏
12-23 2万+
由于自己正在做一个高性能大用户量的论坛程序，对高性能高并发服务器架构比较感兴趣，于是在网上收集了不少这方面的资料和大家分享。希望能和大家交流 msn: defender_ios@hotmail.com ——————————————————————————————————————— ? 初创网站与开源软件 6 ? 谈谈大型高负载网站服务器的优化心得! 8 ? Lighttpd+Squid+Apach
IT行业都有哪些职位，初学者如何选择才能够快速进入这个行业？
IT修真院：初学者转行到互联网的聚集地
05-14 2万+
【本人性格不好，被惹到了必然句句带脏字，所以评论中如果有不开眼的，请慎重。 另外，这篇回答从头到尾都是我自己的个人偏见，绝对不客观，也绝对不会为本答案负责。 所以，有自己正常思维的请不要再看下去了。】 互联网行业的薪资水准相对较高，刚入行一个月，半年，或者一年超过其他行业薪资很正常。 那么，互联网行业究竟有哪些职位呢，又分别适合哪些传统行业转型？ 1.产品 2.UI 3.CSS...
参考文献
热门推荐
Ω｜狐步幻影
10-26 7万+
[ IIS 6 = php 5 + MySQL 5 ]body { font-family:verdana; cursor:default;}td {font-size:14px;color:darkslategray;line-height:150%}a:link {color:whitesmoke}a:hover {color:silver}a:visited
OBS-Studio-30.2.3-Windows.zip
最新发布
09-23
OBS-Studio-30.2.3-Windows.zip
ChanjeeDlnaTool-v1.0 推送电脑上的文件到安卓电视大屏，实现音视频播放和apk安装
09-23
详情参考：https://blog.csdn.net/title71/article/details/142462255?spm=1001.2014.3001.5501 文件里面含有视频使用教程 一.windows+Android大屏 使用投送教程： 准备 0.电视机和电脑要在同一网络下面 1.使用u盘安装chanjeeDlnaTool.apk到电视机 2.将Windows软件拷贝到合适目录，将.mp4 /.flac /.jpg ...文件拷贝到软件目录的www/files文件夹下面 投送 1.打开Android电视机大屏的刚安装的软件，找到左上角显示的电视机的ip地址 2.双击打开Windows软件的ChanjeeDlnaTool.exe文件，有弹窗提示防火墙网络，请点击允许 3.在Windows软件的ip地址栏输入Android电视机大屏上面的ip地址，并在Windows软件点击认证 4.认证完成后Windows软件下方蓝字会提示Binging successful 就说明绑定成功，此时就可以在Windows软件选择本地文件向Android大屏投送文件了
CODESYS是PLC软件编程工具.docx
09-23
CODESYS是一款功能强大的PLC（可编程逻辑控制器）软件编程工具，广泛应用于工业自动化领域。以下是对CODESYS的详细介绍： 一、基本概述 定义：CODESYS是Controlled Development System的缩写，是可编程逻辑控制PLC的完整开发环境。 开发商：CODESYS软件商是德国Smart software solution GmbH，该公司位于德国巴伐利亚州肯普腾市。 最新版本：CODESYS V3（国内PLC用户使用的版本多为CODESYS V2.3）。V3版本在软件架构上有了很大的改善，朝安全软件的方向发展，正在申请TUV关于EN 61508的SIL认证。 二、主要特点 开放性：CODESYS是一个开放的软件平台，允许第三方开发者在其上开发定制化的解决方案，适应不同厂商的PLC设备，具有很高的灵活性和扩展性。 跨平台：CODESYS可以运行在多种不同的操作系统上，包括Windows、Linux和嵌入式系统（RTOS），提高了开发效率和可移植性。 多语言支持：支持IEC61131-3标准下的IL、ST、FBD、LD、CFC、SFC六种PLC编程语言，用
广西中医药大学在湖南2021-2024各专业最低录取分数及位次表.pdf
09-23
全国各大学在湖南2021-2024年各专业最低录取分数及录取位次数据，高考志愿必备参考数据
全球法务会计解决方案行业总体规模、主要企业国内外市场占有率及排名（2024版）.docx
09-23
全球法务会计解决方案行业总体规模、主要企业国内外市场占有率及排名（2024版）.docx
电子科技大学在湖南2021-2024各专业最低录取分数及位次表.pdf
09-23
全国各大学在湖南2021-2024年各专业最低录取分数及录取位次数据，高考志愿必备参考数据
JSP实现的机房收费管理系统
"本文主要介绍了基于JSP技术的机房收费管理系统的设计与实现，该系统旨在提高机房管理效率，减轻管理人员负担，并充分利用计算机技术的优势。系统采用B/S架构，结合JavaBean技术，以Sql Server 2000作为数据库，提供...
评论 48
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

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

余额充值