机房收费系统的上下机

最新推荐文章于 2018-09-21 17:02:55 发布
最新推荐文章于 2018-09-21 17:02:55 发布
阅读量1.4k 收藏
点赞数
分类专栏： VB6.0 数据库*SQL
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/u010924845/article/details/12955865
版权

经过一段时间的机房收费系统的进行，摘出其中一部分的功能，其中上下机的代码修改有很多次，其中可能还有缺陷，请大家尽情的指出。

上机：

Private Sub cmdStart_Click() '点击上机按钮
    Dim gudingeveryhourcash As Integer
    Dim linshieveryhourcash As Integer
    If Trim(txtCardID.Text) = "" Then
        MsgBox "卡号不能为空", vbOKOnly + vbExclamation, "警告"
        Exit Sub
    Else
        txtSQL = "select * from student_info"
        Set mrc = ExecuteSQL(txtSQL, MsgText)
        
        If mrc.EOF = True And mrc.BOF = True Then    '没有数据的情况
            MsgBox "此卡号没有注册", vbOKOnly + vbExclamation, "警告"
            txtCardID.SetFocus
            txtCardID.SelStart = 0
            txtCardID.SelLength = Len(txtCardID.Text)
            Exit Sub
        Else
            While mrc.EOF = False
                
                If Trim(txtCardID.Text) = Trim(mrc.Fields(0)) Then
                    mybookmark = mrc.Bookmark   '存储书签
                    mrc.MoveNext
                Else
                    mrc.MoveNext
                End If
            Wend
        End If
        
        If mybookmark = "" Then
            MsgBox "此卡号没有注册", vbOKOnly + vbExclamation, "警告"
            txtCardID.SetFocus
            txtCardID.SelStart = 0
            txtCardID.SelLength = Len(txtCardID.Text)
            mrc.Close
            Exit Sub
        Else
            mrc.Bookmark = mybookmark     '获得位置
            balance = Trim(mrc.Fields(7))   '获得余额
            cardid = Trim(mrc.Fields(0))     '获得卡号
            If "不使用" = Trim(mrc.Fields(10)) Then
                MsgBox "此卡尚未注册", vbOKOnly + vbExclamation, "警告"
                txtCardID.SetFocus
                txtCardID.SelStart = 0
                txtCardID.SelLength = Len(txtCardID.Text)
                mybookmark = ""
            Else
                txtSQL = "select * from basicdata_info"
                Set mrcc = ExecuteSQL(txtSQL, MsgText)
                mrcc.MoveLast
                gudingeveryhourcash = Trim(mrcc.Fields(0))
                linshieveryhourcash = Trim(mrcc.Fields(1))
                mrcc.Close
                If Trim(mrc.Fields(14)) = "固定用户" Then
                    If Trim(mrc.Fields(7)) <= 1 / 2 * gudingeveryhourcash Then
                        MsgBox "余额不足，请先充值", vbOKOnly + vbExclamation, "提示"
                        Exit Sub
                    End If
                Else
                    If Trim(mrc.Fields(7)) <= 1 / 2 * linshieveryhourcash Then
                        MsgBox "余额不足，请先充值", vbOKOnly + vbExclamation, "提示"
                        Exit Sub
                    End If
                End If
                txtSQL = "select * from online_info"
                Set mrcc = ExecuteSQL(txtSQL, MsgText)
                While mrcc.EOF = False      '判断是有正在上机
                    If Trim(txtCardID.Text) = Trim(mrcc.Fields(0)) Then
                        MsgBox "此号正在上机", vbOKOnly + vbExclamation, "警告"
                        Exit Sub
                    Else
                        mrcc.MoveNext
                    End If
                
                Wend
                
                
                '从Studnet表中获得数据
                mrc.Bookmark = mybookmark
                txtType.Text = mrc.Fields(14)
                txtStudentNO.Text = mrc.Fields(1)
                txtSex.Text = mrc.Fields(3)
                txtName.Text = mrc.Fields(2)
                txtDepartment.Text = mrc.Fields(4)
                txtStartDate.Text = Format(Date, "yyyy-mm-dd")
                txtStartTime.Text = Time
                txtBalance.Text = mrc.Fields(7)
                labStart.Visible = True
                labEnd.Visible = False
                labDoubleEnd.Visible = False
                txtEndDate.Text = ""
                txtEndTime.Text = ""
                txtCostTIme.Text = ""
                txtCostCash.Text = ""
                mybookmark = ""
                mrc.Close
                
                If Trim(txtType.Text) = "固定用户" Then
                    txtSQL = "select * from basicdata_info"
                    Set mrc = ExecuteSQL(txtSQL, MsgText)
                    mrc.MoveLast
                    perhourrate = Trim(mrc.Fields(0))
                    canusetime = (balance / perhourrate) * 60
                    mrc.Close
                Else
                    txtSQL = "select * from basicdata_info"
                    Set mrc = ExecuteSQL(txtSQL, MsgText)
                    mrc.MoveLast
                    perhourrate = Trim(mrc.Fields(1))
                     canusetime = (balance / perhourrate) * 60
                     mrc.Close
                End If
                
                labCount.Caption = Int(labCount.Caption) + 1   '上机人数加1
                '将数据添加到ONLine表中
                txtSQL = "select * from online_info"
                Set mrc = ExecuteSQL(txtSQL, MsgText)
                mrc.AddNew
                mrc.Fields(0) = Trim(txtCardID.Text)
                mrc.Fields(1) = Trim(txtType.Text)
                mrc.Fields(2) = Trim(txtStudentNO.Text)
                mrc.Fields(3) = Trim(txtName.Text)
                mrc.Fields(4) = Trim(txtDepartment.Text)
                mrc.Fields(5) = Trim(txtSex.Text)
                mrc.Fields(6) = Trim(txtStartDate.Text)
                mrc.Fields(7) = Trim(txtStartTime.Text)
                mrc.Fields(8) = Environ("username")           '获得计算机名
                mrc.Fields(9) = canusetime
                mrc.Update
                mrc.Close
                
            
            End If
        End If
    End If
   
End Sub


下机：

Private Sub cmdEnd_Click() '单机下机按钮
    Dim ontime As String
    Dim usetime As Single
    Dim usetime1 As Single
    
    If Trim(txtCardID.Text) = "" Then '卡号为空，显示“卡号没有上机”
        labDoubleEnd.Visible = True
    Else
        txtSQL = "select * from online_info"
        Set mrc = ExecuteSQL(txtSQL, MsgText)
        
        
        While mrc.EOF = False     '判断卡号是否上机
            If Trim(txtCardID.Text) = Trim(mrc.Fields(0)) Then
                mybookmark = mrc.Bookmark
                ontime = Trim(mrc.Fields(7)) '有上机，得到刚上机的时间
                mrc.MoveNext
                
            Else
                mrc.MoveNext
            End If
        Wend
        
        If mybookmark = "" Then   '输入的卡号没有上机
            labDoubleEnd.Visible = True
            Exit Sub
        Else
            '有上机，下机显示的内容
            txtSQL = "select * from online_info where cardno='" & Trim(txtCardID.Text) & "'"
            Set mrcc = ExecuteSQL(txtSQL, MsgText)
            txtType.Text = Trim(mrcc.Fields(1))
            cardtype = Trim(mrcc.Fields(1))  '获得卡的类型
            txtStudentNO.Text = Trim(mrcc.Fields(2))
            txtName.Text = Trim(mrcc.Fields(3))
            txtDepartment.Text = Trim(mrcc.Fields(4))
            txtSex.Text = Trim(mrcc.Fields(5))
            txtStartDate.Text = Trim(mrcc.Fields(6))
            txtStartTime.Text = Trim(mrcc.Fields(7))
            mrcc.Close
            labEnd.Visible = True      '有上机
            txtEndDate.Text = Format(Date, "yyyy-mm-dd")
            txtEndTime.Text = Time
            '计算花费时间
            usetime = DateDiff("n", ontime, Time) ' usetime=time-ontime 得到是分钟
            usetime = Int(usetime / 60) '得到小时数
            usetime1 = usetime Mod 60    '得到余数为分钟数  ，与上面的分钟不同
            If usetime1 <= 30 Then       '不足30分钟按半小时计算
                usetime1 = 0.5
            Else
                usetime1 = 1             '大于30分钟按一个小时计算
            End If
            usetime = usetime + usetime1      '得到所上机的小时数
            txtCostTIme.Text = usetime
            '计算消费金额
            If cardtype = "固定用户" Then   '是固定用户的基本数据
            
                txtSQL = "select * from basicdata_info"
                Set mrcc = ExecuteSQL(txtSQL, MsgText)
                mrcc.MoveLast
                perhourrate = Int(mrcc.Fields(0))
                txtCostCash.Text = usetime * perhourrate
                mrcc.Close
            Else                           '临时用户
                txtSQL = "select * from basicdata_info"
                Set mrcc = ExecuteSQL(txtSQL, MsgText)
                mrcc.MoveLast
                perhourrate = Int(mrcc.Fields(1))
                txtCostCash.Text = usetime * perhourrate
                mrcc.Close
            End If
            '计算余额
            txtSQL = "select * from student_info where cardno='" & Trim(txtCardID.Text) & "'"
            Set mrcc = ExecuteSQL(txtSQL, MsgText)
            
            txtBalance.Text = Trim(mrcc.Fields(7)) - usetime * perhourrate
            mrcc.Fields(7) = Trim(txtBalance.Text)
            mrcc.Update
            mrcc.Close
                                         
            labCount.Caption = Int(labCount.Caption) - 1  '下机，人数减1
            mrc.Close
            mybookmark = ""
        End If
    End If
    
    txtSQL = "select * from online_info where cardno='" & txtCardID.Text & "'"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    
    txtSQL = "select * from line_info"
    Set mrcc = ExecuteSQL(txtSQL, MsgText)
    '将上机情况记录到line表中，并将ONline中的上机记录删除
    While mrc.EOF = False
        If Trim(txtCardID.Text) = Trim(mrc.Fields(0)) Then
            mrcc.AddNew
            '此处自动添加内容  mrcc.Fields (0)
            mrcc.Fields(1) = Trim(mrc.Fields(0))
            mrcc.Fields(2) = Trim(mrc.Fields(2))
            mrcc.Fields(3) = Trim(mrc.Fields(3))
            mrcc.Fields(4) = Trim(mrc.Fields(4))
            mrcc.Fields(5) = Trim(mrc.Fields(5))
            mrcc.Fields(6) = Trim(mrc.Fields(6))
            mrcc.Fields(7) = Trim(mrc.Fields(7))
            mrcc.Fields(8) = Format(Date, "yyyy-mm-dd")
            mrcc.Fields(9) = Format(Time, "hh:nn")
            mrcc.Fields(10) = Trim(txtCostTIme.Text)
            mrcc.Fields(11) = Trim(txtCostCash.Text)
            mrcc.Fields(12) = Trim(txtBalance.Text)
            mrcc.Fields(13) = "正常下机"
            mrcc.Fields(14) = Environ("username")
            mrcc.Update
            mrcc.Close
            mrc.Delete
            mrc.Update
            mrc.MoveNext
        Else
            mrc.MoveNext
        End If
    Wend
    mrc.Close
    '卡号的消费记录
    txtSQL = "select * from cost_info"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    mrc.AddNew
    mrc.Fields(0) = Trim(txtCardID.Text)
    mrc.Fields(1) = usetime * perhourrate
    mrc.Fields(2) = Format(Date, "yyyy-mm-dd")
    mrc.Fields(3) = Format(Time, "hh:nn")
    mrc.Update
    mrc.Close
    
    
End Sub

Private Sub cmdStart_Click() '点击上机按钮
    Dim gudingeveryhourcash As Integer
    Dim linshieveryhourcash As Integer
    If Trim(txtCardID.Text) = "" Then
        MsgBox "卡号不能为空", vbOKOnly + vbExclamation, "警告"
        Exit Sub
    Else
        txtSQL = "select * from student_info"
        Set mrc = ExecuteSQL(txtSQL, MsgText)
        
        If mrc.EOF = True And mrc.BOF = True Then    '没有数据的情况
            MsgBox "此卡号没有注册", vbOKOnly + vbExclamation, "警告"
            txtCardID.SetFocus
            txtCardID.SelStart = 0
            txtCardID.SelLength = Len(txtCardID.Text)
            Exit Sub
        Else
            While mrc.EOF = False
                
                If Trim(txtCardID.Text) = Trim(mrc.Fields(0)) Then
                    mybookmark = mrc.Bookmark   '存储书签
                    mrc.MoveNext
                Else
                    mrc.MoveNext
                End If
            Wend
        End If
        
        If mybookmark = "" Then
            MsgBox "此卡号没有注册", vbOKOnly + vbExclamation, "警告"
            txtCardID.SetFocus
            txtCardID.SelStart = 0
            txtCardID.SelLength = Len(txtCardID.Text)
            mrc.Close
            Exit Sub
        Else
            mrc.Bookmark = mybookmark     '获得位置
            balance = Trim(mrc.Fields(7))   '获得余额
            cardid = Trim(mrc.Fields(0))     '获得卡号
            If "不使用" = Trim(mrc.Fields(10)) Then
                MsgBox "此卡尚未注册", vbOKOnly + vbExclamation, "警告"
                txtCardID.SetFocus
                txtCardID.SelStart = 0
                txtCardID.SelLength = Len(txtCardID.Text)
                mybookmark = ""
            Else
                txtSQL = "select * from basicdata_info"
                Set mrcc = ExecuteSQL(txtSQL, MsgText)
                mrcc.MoveLast
                gudingeveryhourcash = Trim(mrcc.Fields(0))
                linshieveryhourcash = Trim(mrcc.Fields(1))
                mrcc.Close
                If Trim(mrc.Fields(14)) = "固定用户" Then
                    If Trim(mrc.Fields(7)) <= 1 / 2 * gudingeveryhourcash Then
                        MsgBox "余额不足，请先充值", vbOKOnly + vbExclamation, "提示"
                        Exit Sub
                    End If
                Else
                    If Trim(mrc.Fields(7)) <= 1 / 2 * linshieveryhourcash Then
                        MsgBox "余额不足，请先充值", vbOKOnly + vbExclamation, "提示"
                        Exit Sub
                    End If
                End If
                txtSQL = "select * from online_info"
                Set mrcc = ExecuteSQL(txtSQL, MsgText)
                While mrcc.EOF = False      '判断是有正在上机
                    If Trim(txtCardID.Text) = Trim(mrcc.Fields(0)) Then
                        MsgBox "此号正在上机", vbOKOnly + vbExclamation, "警告"
                        Exit Sub
                    Else
                        mrcc.MoveNext
                    End If
                
                Wend
                
                
                '从Studnet表中获得数据
                mrc.Bookmark = mybookmark
                txtType.Text = mrc.Fields(14)
                txtStudentNO.Text = mrc.Fields(1)
                txtSex.Text = mrc.Fields(3)
                txtName.Text = mrc.Fields(2)
                txtDepartment.Text = mrc.Fields(4)
                txtStartDate.Text = Format(Date, "yyyy-mm-dd")
                txtStartTime.Text = Time
                txtBalance.Text = mrc.Fields(7)
                labStart.Visible = True
                labEnd.Visible = False
                labDoubleEnd.Visible = False
                txtEndDate.Text = ""
                txtEndTime.Text = ""
                txtCostTIme.Text = ""
                txtCostCash.Text = ""
                mybookmark = ""
                mrc.Close
                
                If Trim(txtType.Text) = "固定用户" Then
                    txtSQL = "select * from basicdata_info"
                    Set mrc = ExecuteSQL(txtSQL, MsgText)
                    mrc.MoveLast
                    perhourrate = Trim(mrc.Fields(0))
                    canusetime = (balance / perhourrate) * 60
                    mrc.Close
                Else
                    txtSQL = "select * from basicdata_info"
                    Set mrc = ExecuteSQL(txtSQL, MsgText)
                    mrc.MoveLast
                    perhourrate = Trim(mrc.Fields(1))
                     canusetime = (balance / perhourrate) * 60
                     mrc.Close
                End If
                
                labCount.Caption = Int(labCount.Caption) + 1   '上机人数加1
                '将数据添加到ONLine表中
                txtSQL = "select * from online_info"
                Set mrc = ExecuteSQL(txtSQL, MsgText)
                mrc.AddNew
                mrc.Fields(0) = Trim(txtCardID.Text)
                mrc.Fields(1) = Trim(txtType.Text)
                mrc.Fields(2) = Trim(txtStudentNO.Text)
                mrc.Fields(3) = Trim(txtName.Text)
                mrc.Fields(4) = Trim(txtDepartment.Text)
                mrc.Fields(5) = Trim(txtSex.Text)
                mrc.Fields(6) = Trim(txtStartDate.Text)
                mrc.Fields(7) = Trim(txtStartTime.Text)
                mrc.Fields(8) = Environ("username")           '获得计算机名
                mrc.Fields(9) = canusetime
                mrc.Update
                mrc.Close
                
            
            End If
        End If
    End If
   
End Sub


里面来回使用很多张表，在下机代码中，有一部分是关于金额的计算的，我是那样算的，是不是感觉我有点奸商的感觉呢，嘿嘿！

除此以外还多添加了一个Timer控件.

Private Sub Timer2_Timer()
    
    
    Timer2.Enabled = True
    Timer2.Interval = 10000    '一分钟
    Dim txtSQL As String
    Dim MsgText As String
    Dim mrc As ADODB.Recordset
    Dim cardno As String
    txtSQL = "select * from online_info"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    
   
    Do While mrc.EOF = False
        If mrc.Fields(9) = 30 Then    '可使用时间为30分钟
            cardno = Trim(mrc.Fields(0))
            MsgBox "卡号：" & cardno & "余额不足，请去充值！", vbOKOnly + vbExclamation, "提示"
            mrc.MoveNext
        Else
            mrc.MoveNext
        End If
    Loop
    
    
    txtSQL = "select * from online_info"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    
    Do While mrc.EOF = False
        If mrc.Fields(9) = 0 Then          '可使用时间为0
            cardno = Trim(mrc.Fields(0))
            MsgBox "卡号：" & cardno & "时间到，强制下机！", vbOKOnly + vbExclamation, "提示"
            mrc.Delete
            mrc.Update
            labCount.Caption = labCount.Caption - 1
            
            mrc.MoveNext
        Else
            mrc.MoveNext
        End If
    Loop
    
    txtSQL = "select * from online_info"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    
     Do While mrc.EOF = False
        mrc.Fields(9) = mrc.Fields(9) - 1   '所有卡的使用时间减1
        mrc.MoveNext
    Loop
    
End Sub

在这个Timer控件中，每过一分钟，就会在在可以使用的时间里面减少一分钟，在还剩30分钟的时候会显示余额不足的提示框，在可使用时间还剩0分钟的时候 ，会强制用户下机。

这就是我所写的上下机，希望能给大家带来一些灵感。

郭新宇
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 14
    评论
专栏目录
机房收费系统上下机之观察者模式的尝试
To Begin,Begin　　
08-13 1458
如果读者想在本篇文章中看到观察者模式的巧妙应用，大概有些不可能了。因为这里我只是想把自己的一种思路展现给大家，然后和大家探讨。 背景：        在敲机房收费系统的过程中，都是别人说可能会用到什么模式，然后自己针对这些模式进行思考，然后去模仿书中的例子去用。        这不，师姐说上下机这里能用观察者模式，然后我就琢磨了一番，只是收获不是很丰硕，貌似也和师姐讲课中的设想不一样。  
机房收费系统-上下机
Zachary
08-13 530
机房收费系统上下机操作
机房收费系统上下机
玲珑骰子安红豆，入骨相思知不知
01-01 585
前言        机房收费系统最关键的几个部分包括上下机，组合查询，结账。上下机这部分主要还是理逻辑关系，理清各个窗体之间的关系，还有表与表之间的关系。把基本功能实现之后，自己就会发现原来需要注意和完善的地方还有很多，需要我们认真细心去对待。 主要内容         由于frmMain窗体为MDI窗体，所以不能直接添加控件，需要借助picturebox。        上机涉及到的
机房收费系统上下机小结
荼白
12-03 523
前言 上机 前言   敲了很久的机房，感觉自己还是有些地方做的不够，自己感觉的很好，但是却还是缺少很多东西，让璐璐帮我点了一遍机房，发现自己不足的地方还有很多，自己想不到的地方还有很多很多，也就证明了自己需要去学习的地方还有很多，还需要不断的努力，感觉自己的机房逻辑还不是很清晰，感觉还需要再去和他们交流一下，目前就先把我所理解的上下机总结一下 上机   觉得上下机要判断的
机房收费系统——上下机
好学若饥，谦卑若愚
08-10 1474
自学生管理系统以后，进入了机房收费系统，开始自己真的很抵触这个东西，因为没有源码，只能靠自己了。对代码没有亲和力的我，只能硬着头皮硬闯。下面看看就讲讲我的上下机的辛酸路吧！ 【分析】    界面：很简单，只有两个简单的Command命令按钮掌控着上下机。    功能：上机时，窗体显示该学生的基本信息；下机时，更新学生卡里的余额。计算消费情况。上下机时及时更新上机人数。    需求：用到的数
机房收费系统之上下机
你要十分努力，才能看起来毫不费力！
11-28 270
前言 上下机部分是机房收费系统的一个重要部分，需要捋清思路，逻辑要清楚。 上下机逻辑先来捋一下上下机的思路。上机：下机问题及重点代码： 上机部分：1.文本框如何锁定：locked 属性决定控件是否可以编辑；BackStyle属性指出label或shape背景样式是否透明。 2.label如何显示当前时间：通过如下代码实现 Private Sub Timer1_Timer() Label20.
【机房收费系统】-上下机
Arielle-L
02-18 336
前言：    一遍遍的说理清逻辑是多么的重要，刚开始的时候毫无头绪更不想开始，画出流程图梳理清晰自己的思路，上下机并没有想象中的那么难，现在就总结下上下机部分； 内容： 上机：整个上机过程总的来说就是查询数据库，进行条件限制判断，更新数据表，就过程的思路有以下流程图； 下机：下机相对而言就复杂了点，关于消费时间的计算判断，和消费金额的计算； 1、 时间转换 txtTime1 = Trim(DateDiff("n", Trim(txtOnTime.Text), Trim(Time))) txtda
机房收费系统——下机
Nikita
09-21 432
前言 下机在机房中是比较难的，也不能说难，在搞懂逻辑之前只能说迷糊，搞懂以后你绝对就不说难了。其中也遇到了很多问题，比如时间格式的转化，这么多表到底该删除哪个，更新哪个。不过已经被我一一的解决了，流程图真的是个好工具！其中，对于上机表的删除和下机表的更新可以使用触发器实现，在优化中在继续研究！ 代码片段 Private Sub cmdOffline_Click() Dim txtSQL ...
机房收费之上下机
崔博伦 一路有你
08-28 1101
上机：
C机房收费系统文档.docx
03-14
《C机房收费系统》是针对辽宁工程技术大学《C语言课程设计》的一项实践项目，旨在设计和实现一个机房收费管理软件。该系统的核心功能包括输入、计算、修改、查询和显示，全部基于Visual C++ 6.0开发。下面将详细阐述...
c语言编程机房收费管理系统.pdf
最新发布
03-30
设计一个名为《机房收费管理系统》的应用，其主要任务是接收15名学生的信息，包括学号、班级、姓名和上下机时间，并根据上机时长计算费用。 **实验目的**： 1. 深入理解C语言的基本数据类型、语句、数组、函数、...
机房收费系统——上下机操作
人生苦短，我用Python
08-20 951
按照顺序来讲到网吧的顾客，分为两种一是办卡充钱的会员，一种是交钱上网的临时用户。充完钱之后，一般用户（网管）就需要对顾客进行上机来记录时间，下机时进行收费。 上机：上机过程比较简单，涉及数据库中的三张表：online_info 、student_info、basicdata_info       上机的判断过程如下：1.从student表中判断卡号是否存在、此卡状态是否使用
VB.NET初识
郭新宇 天道酬勤
06-08 1258
听到VB.NET 让我会感到很熟悉，但又有点陌生。之前已经学过了VB，想来VB.NET怎么也跟VB有关系吧，但加上了.NET ,肯定也会出现一些新的什么不同吧。         首先让我们先回忆下VB是什么。         VB：VB  即  Visual Basic，通常翻译为可视化的基本语言。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以
将MSHFlexgrid中的数据导出为Excel文件
郭新宇 天道酬勤
09-19 1217
在机房收费系统中有很多的窗体要导出为Excel文件。 首先要在应用  工程——引用 然后敲下以下代码，其中根据不同的人的喜好，有些地方可能有些小区别，但功能不会有什么影响的。 Dim tmpExcel As Excel.Application Dim tmpsheet As Excel.Worksheet Dim i As Integer Dim j
学生信息系统之总结
郭新宇 天道酬勤
08-12 1154
经历了具体不知道是多少天的学生信息管理系统的敲代码，百度，查资料，请教同，终于完成了，充满了喜悦。 下面先说说我所遇到的一些问题吧。 问题一： 此问题是大部分同学都会遇到的问题，出现这个问题的原因普遍有两个。 其一：是数据库的连接没有成功连接上，（看看服务是否有停止的）。 其二：那就是你代码的问题了。例如：txtSQL=" select * from student_Info whe
学生信息管理系统总结续篇
郭新宇 天道酬勤
08-19 1133
上一篇我们已经总结了学生信息管理系统出现的一些问题，现在我就一些细节再进行一下总结。 细节一：              在设置课程中，课程的添加不可以重复，为了防止重复的出现，需要再加一段代码，用来判断是否已经有选择的课程，没有则添加，有则不添加。              先写一个函数，用来做判断。              Private Function Addlist(List
机房收费与管理系统设计与实现
"该资源是关于一个名为‘机房收费管理系统’的项目，由一组学生在2014年开发，旨在改善学校机房的管理效率，减轻管理员工作负担，并实现机房收费的自动化。系统包括学生信息管理、用户信息管理、收支账目管理和系统...
评论 14
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值