机房收费系统之上下机

最新推荐文章于 2020-11-17 22:06:08 发布
最新推荐文章于 2020-11-17 22:06:08 发布
阅读量1.1k 收藏 1
点赞数
分类专栏： ★★★C/S学习 ------C/S项目实践 文章标签： 数据库 vb sql
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/ww130929/article/details/39557095
版权
        感觉上下机比结账要简单一些，可能因为自己敲得比结账要快的原因。
    先说一下上机，需要用到student、line和online表：
   （1）判断是否为空，是否存在或不在使用，余额是否充足，是否正在上机，如果上机则将上机信息显示出来。
   （2）上机成功后，将相关信息显示出来。上机信息添加到online表中，为了信息的完整性，也要将相关信息添加到line表中。
    代码如下：     
Dim txtSQL1 As String
    Dim txtSQL2 As String
    Dim txtSQL3 As String
    Dim txtSQL4 As String
      
    Dim MsgText1 As String
    Dim MsgText2 As String
    Dim MsgText3 As String
    Dim MsgText4 As String
      
    Dim mrc1 As ADODB.Recordset
    Dim mrc2 As ADODB.Recordset
    Dim mrc3 As ADODB.Recordset
    Dim mrc4 As ADODB.Recordset
      
    Dim leastmoney As Long
    
    '使下机的文本框为空
    txtOffdate.Text = ""
    txtOfftime.Text = ""
    txtConsumetime.Text = ""
    txtConsumecash.Text = ""
   '判断卡号是否为空
   If Not testtxt(txtcardno.Text) Then
     MsgBox "请输入卡号！", vbOKOnly + vbExclamation, "提示"
     txtcardno.SetFocus
     Exit Sub
    End If
   Set mrc1 = New ADODB.Recordset
   txtSQL1 = "select * from student_Info where cardno = '" & txtcardno.Text & "' and status = '使用'"
   Set mrc1 = ExecuteSQL(txtSQL1, MsgText1)

   If mrc1.EOF And mrc1.BOF Then
      MsgBox "卡号不存在或不在使用！", vbOKOnly + vbExclamation, "提示"
      txtcardno.Text = ""
      txtcardno.SetFocus
      Exit Sub
     Else
      '判断余额是否充足
         Set mrc4 = New ADODB.Recordset
         txtSQL4 = "select * from BasicData_Info"
         Set mrc4 = ExecuteSQL(txtSQL4, MsgText4)
         leastmoney = mrc4.Fields(5)
         If mrc1.Fields(7) < leastmoney Then
            MsgBox "余额只有" & mrc1.Fields(7) & ",少于最少金额，请充值后再上机！", vbOKOnly, "提示"
            Exit Sub
            mrc4.Close
          Else
       '判断该卡号是否正在上机
          Set mrc2 = New ADODB.Recordset
          txtSQL2 = "select * from Online_Info where cardno = '" & txtcardno.Text & "'"
          Set mrc2 = ExecuteSQL(txtSQL2, MsgText2)
      If Not (mrc2.EOF And mrc2.BOF) Then
              MsgBox "该卡正在上机", vbOKOnly + vbExclamation, "提示"
              txtcardno.Text = Trim(mrc2.Fields(0))
              txtType.Text = Trim(mrc2.Fields(1))
              txtSID.Text = Trim(mrc2.Fields(2))
              txtName.Text = Trim(mrc2.Fields(3))
              txtDept.Text = Trim(mrc2.Fields(4))
              txtSex.Text = Trim(mrc2.Fields(5))
              txtOndate.Text = Trim(mrc2.Fields(6))
              txtOntime.Text = Trim(mrc2.Fields(7))
              txtBalance.Text = Trim(mrc1!cash)
          Exit Sub
      Else   '没有在上机，添加上机信息
            txtcardno.Text = Trim(mrc1.Fields(0))
            txtSID.Text = Trim(mrc1.Fields(1))
            txtName.Text = Trim(mrc1.Fields(2))
            txtSex.Text = Trim(mrc1.Fields(3))
            txtDept.Text = Trim(mrc1.Fields(4))
            txtOndate.Text = Date
            txtOntime.Text = Time
            txtBalance.Text = Trim(mrc1.Fields(7))
            txtType.Text = Trim(mrc1!Type)
         '将上机信息添加到online表中
         Set mrc3 = New ADODB.Recordset
         txtSQL3 = "select * from Online_Info where cardno= '" & Trim(txtcardno.Text) & "'"
         Set mrc3 = ExecuteSQL(txtSQL3, MsgText3)
         mrc3.AddNew
         mrc3.Fields(0) = Trim(txtcardno.Text)
         mrc3.Fields(1) = Trim(txtType.Text)
         mrc3.Fields(2) = Trim(txtSID.Text)
         mrc3.Fields(3) = Trim(txtName.Text)
         mrc3.Fields(4) = Trim(txtDept.Text)
         mrc3.Fields(5) = Trim(txtSex.Text)
         mrc3.Fields(6) = Trim(txtOndate.Text)
         mrc3.Fields(7) = Trim(txtOntime.Text)
         mrc3.Fields(8) = Trim(Winsock1.LocalHostName)
         mrc3.Update
         '显示此时上机的人数
         labOnpeople.Caption = mrc3.RecordCount
         '信息放到line表中
        
         txtSQL4 = "select * from line_Info "
         Set mrc4 = ExecuteSQL(txtSQL4, MsgText4)
         mrc4.AddNew
         mrc4.Fields(1) = Trim(txtcardno.Text)
         mrc4.Fields(2) = Trim(txtSID.Text)
         mrc4.Fields(3) = Trim(txtName.Text)
         mrc4.Fields(4) = Trim(txtDept.Text)
         mrc4.Fields(5) = Trim(txtSex.Text)
         mrc4.Fields(6) = Trim(txtOndate.Text)
         mrc4.Fields(7) = Trim(txtOntime.Text)
         mrc4!cash = Trim(txtBalance.Text)
         mrc4!computer = Trim(Winsock1.LocalHostName)
         mrc4.Update
         
     End If
  End If
 End If
        
End Sub<span style="font-family: SimSun; background-color: rgb(255, 255, 255);"> </span>
   下机，需要用到student、online、line、basicdata表 ：
  （ 1）卡号不能为空，卡号需正在上机。
       （2）计算消费时间、计算消费金额。
    （3）将信息更新到student、online、line表中。
   代码如下：
    
 Dim txtSQL2 As String
    Dim txtSQL3 As String
    Dim txtSQL4 As String
      
    Dim MsgText1 As String
    Dim MsgText2 As String
    Dim MsgText3 As String
    Dim MsgText4 As String
      
    Dim mrc1 As ADODB.Recordset
    Dim mrc2 As ADODB.Recordset
    Dim mrc3 As ADODB.Recordset
    Dim mrc4 As ADODB.Recordset
      
    Dim leasttime As String
    Dim OldCash As String
    Dim NewCash As String
    Dim StrType As String
    Dim StartTime As String
    Dim EndTime As String
    Dim Inttime As Integer
    Dim StrRate As Integer
    Dim consume As Integer
    '卡号是否为空
    If testtxt(txtcardno.Text) = False Then
        MsgBox "请输入卡号！", vbOKOnly + vbExclamation, "提示"
        txtcardno.Text = ""
        txtcardno.SetFocus
        Exit Sub
    End If
    '卡号是否注册
    Set mrc1 = New ADODB.Recordset
    txtSQL1 = "select * from student_Info where cardno= '" & Trim(txtcardno.Text) & "'"
    Set mrc1 = ExecuteSQL(txtSQL1, MsgText1)
    If mrc1.EOF Then
       MsgBox "此卡尚未注册！", vbOKOnly + vbExclamation, "提示"
       txtcardno.Text = ""
       txtcardno.SetFocus
       Exit Sub
    Else
    '卡号是否上机
        Set mrc2 = New ADODB.Recordset
        txtSQL2 = "select * from OnLine_Info where cardno= '" & txtcardno.Text & "'"
        Set mrc2 = ExecuteSQL(txtSQL2, MsgText2)
        If mrc2.EOF And mrc2.BOF Then
           MsgBox "该卡没有上机！", vbOKOnly + vbExclamation, "提示"
           txtcardno.Text = ""
           txtcardno.SetFocus
           Exit Sub
        Else
           txtcardno.Text = Trim(mrc2.Fields(0))
           txtType.Text = Trim(mrc2.Fields(1))
           txtSID.Text = Trim(mrc2.Fields(2))
           txtName.Text = Trim(mrc2.Fields(3))
           txtDept.Text = Trim(mrc2.Fields(4))
           txtSex.Text = Trim(mrc2.Fields(5))
           txtOndate.Text = Trim(mrc2.Fields(6))
           txtOntime.Text = Trim(mrc2.Fields(7))
           txtOffdate.Text = Date
           txtOfftime.Text = Time
           
    '计算消费时间
    StartTime = Format(mrc2.Fields(7))
    EndTime = Format(Time, "hh:mm:ss")
    txtConsumetime.Text = DateDiff("n", Trim(StartTime), Trim(EndTime))  '计算消费时间
    
    '计算消费金额
    StrType = Trim(mrc1.Fields(14))  '获得用户类型，判断用户单位价格
    OldCash = Val(mrc1.Fields(7))  '获得用户余额
    
    '在basicdate表中获取基本数据
    txtSQL3 = "select * from BasicData_Info "
    Set mrc3 = ExecuteSQL(txtSQL3, MsgText3)
    leasttime = Trim(mrc3.Fields(3))  '最小金额
    '固定 用户和临时用户的单位金额不一样
    Select Case StrType
    Case "固定用户"
       StrRate = Val(Trim(mrc3.Fields(0)))
    Case "临时用户"
       StrRate = Val(Trim(mrc3.Fields(1)))
    End Select
    '如果总时长少于至少上机时间，则消费为0
    If Val(Trim(txtConsumetime.Text)) < leasttime Then
        NewCash = OldCash
        txtConsumecash.Text = "0.0"
        
    Else
       '如果小于60分钟且多于预备时间
       If Val(Trim(txtConsumetime.Text)) < 60 And Val(Trim(txtConsumetime.Text)) > leasttime Then
          NewCash = Val(OldCash) - Val(StrRate) * 1
          consume = StrRate
       Else
          Inttime = Int(Val(txtConsumetime.Text) / 60)
          
            NewCash = Val(OldCash) - StrRate * Inttime
            consume = StrRate * Inttime
           End If
            txtConsumecash.Text = Val(consume) & ".0"
            txtBalance.Text = Val(NewCash)
      End If
  End If
'更新student表
txtSQL1 = "update student_Info set cash=" & NewCash & " where cardno='" & txtcardno.Text & "'"
Call ExecuteSQL(txtSQL1, MsgText1)
  
'更新OnLine表
txtSQL2 = "delete OnLine_Info where cardno= '" & txtcardno.Text & "'"
Call ExecuteSQL(txtSQL2, MsgText2)
txtSQL2 = "select * from OnLine_Info "
Set mrc2 = ExecuteSQL(txtSQL2, MsgText2)
  labOnpeople.Caption = mrc2.RecordCount '获取新的上机人数
  
'更新Line表
   txtSQL4 = "select * from Line_Info where cardno= '" & txtcardno.Text & "'"
   Set mrc4 = ExecuteSQL(txtSQL4, MsgText4)
   mrc4.Fields(1) = Trim(txtcardno.Text)
   mrc4.Fields(2) = Trim(txtSID.Text)
   mrc4.Fields(3) = Trim(txtName.Text)
   mrc4.Fields(4) = Trim(txtDept.Text)
   mrc4.Fields(5) = Trim(txtSex.Text)
   mrc4.Fields(6) = Trim(txtOndate.Text)
   mrc4.Fields(7) = Trim(txtOntime.Text)
   mrc4.Fields(8) = Trim(txtOffdate.Text)
   mrc4.Fields(9) = Trim(txtOfftime.Text)
   mrc4.Fields(10) = Trim(txtConsumetime.Text)
   mrc4.Fields(11) = Trim(txtConsumecash.Text)
   mrc4.Fields(12) = Trim(NewCash)
   mrc4.Fields(13) = "正常下机"
   mrc4.Fields(14) = Trim(Winsock1.LocalHostName) '获取机器号
   mrc4.Update
   mrc4.Close
  
End If
End Sub
    虽然相对来说上下机花费的时间不算多，但是这些代码页并不是全部自己独立完成的，比如获取机器号是通过看别人的博客完成的。但是就没有想着自己查如何获取机器号，这是自己欠缺的，通过自己独立的查一些东西应该收获的会更多。站在巨人的肩膀上并不是一昧的看别人比较全的博客，这样是少走了很多弯路，但是缺少成长了一些。我很多时候也会依赖别人，这样自己解决问题的能力得不到很好的锻炼。不知道自己这样的认识对不对，反正现在是这样认识的，希望自己可以得到一个很好的成长。
文子越来越强
关注
专栏目录
机房收费之上下机
业精于勤，荒于嬉
08-14 713
机房开始已经有段时间了，今天来整理一下上下机部分的思路，对这部分的学习做一个小结。在我们想实现一个功能时首先我们需要了解其逻辑结构，无论多复杂的功能都是由简单的0和1构成的，只要我们理清各判断语句的逻辑结构，通过语句调用各数据表信息，实现简单的数据查询和管理的功能就变得很容易了。     上机逻辑结构图：。           下机逻辑结构图：         在了解整体的结构后就是编写
第一次机房收费系统之上下机
前端爱好者
09-01 377
【学习思路】 先根据给出的程序和相关的博客整理出上下机的思路和逻辑，知道它都是做什么，要解决哪些问题，会用到哪些表，然后画出流程图。 【分析】 界面：很简单，只有两个简单的Command命令按钮掌控着上下机。 功能：上机时，窗体显示该学生的基本信息；下机时，更新学生卡里的余额。计算消费情况。上下机时及时更新上机人数。 需求：用到的数据库为：student表；online表；line...
机房收费系统-上下机
Zachary
08-13 542
机房收费系统上下机操作
机房收费系统——上下机操作
人生苦短，我用Python
08-20 971
按照顺序来讲到网吧的顾客，分为两种一是办卡充钱的会员，一种是交钱上网的临时用户。充完钱之后，一般用户（网管）就需要对顾客进行上机来记录时间，下机时进行收费。 上机：上机过程比较简单，涉及数据库中的三张表：online_info 、student_info、basicdata_info       上机的判断过程如下：1.从student表中判断卡号是否存在、此卡状态是否使用
C机房收费系统文档.docx
03-14
《C机房收费系统》是针对辽宁工程技术大学《C语言课程设计》的一项实践项目，旨在设计和实现一个机房收费管理软件。该系统的核心功能包括输入、计算、修改、查询和显示，全部基于Visual C++ 6.0开发。下面将详细阐述...
C语言程序设计-机房收费管理系统02
盘盘的博客
11-17 2238
第一部分、引言 课程设计(Curriculum design)：是一个有目的、有计划、有结构的产生教学计划、教学大纲以及教科书等系统化活动。 越来越多的研究者把课程设计界定为一种计划或方案。它是在学校教育环境中，旨在使学生获得的、促进其迁移的、进而促使学生全面发展的、具有教育性经验的计划。这种课程观突破了课程局限于课堂教学中，把范围拓展到整个学校教育环境中加以界定。突破了以往只注重知识、经验的积累的局限，把积累、迁移、促进学生发展等多方面因素作为指标。并将课程分为形式课程与环境课程。所谓形式课程是在教育者的
VB机房收费系统06——上下机
我能在河边钓一整天的鱼
01-08 457
上机 上机流程图 这里个人觉得就是数据表的增删改查，没有思路的看官可以参考我的全码 '上机 Private Sub cmdonline_Click(Index As Integer)     Dim mrc As adodb.Recordset     Dim txtsql As String     Dim msgtext As String            
机房收费系统（一）之上下机
杜宇航 廊坊师范学院信息技术提高班十三期
10-05 378
上机代码分解： 代码定义和清空：     判断卡号阶段：  txtSQL = "select * from student_Info where cardno='" & Trim(stutxtcardsno.Text) & "'"    Set mrc = ExecuteSQL(txtSQL, MsgText)         If stut
机房重构-上下机（职责链模式和策略模式）
萨摩耶的微笑
01-13 235
机房重构中上机功能相对好实现一些，下机用到了职责链模式和策略模式，职责链模式算时间，策略模式算消费金额 部分代码 DAL层 public class OffDAL:IOffIDAL { //查询card表 public DataTable SelectCard(Card card) { SQLHelper.Sq...
[机房重构]UML图（包图、类图、用例图、时序图）
颗粒归仓
03-28 4508
机房重构画图是一个非常重要的一个阶段，机房重构之前也画过UML的图，但是这一次与上一次不同，这一次有分层的思想在里面。 包图 之前三层的时候各层之间的传递很清晰，包图也很容易就画出来了，先来看之前三层的包图。通过实体将输入的信息从U层传入B层，同时通过实体将信息从D层传入B层，B层进行判断，通过实体将结果返回给U层。 之前的三层不能很好的实现低耦和的思想，并且我们学习了设计模式，要继
学生信息管理系统问题总结（一）
颗粒归仓
07-29 4404
学生管理系统已经敲完有两天了，
UML总结之构件图和部署图
颗粒归仓
12-09 3316
一 构件图 1.构件的含义：     是系统中遵从一组接口且提供实现的一个物理部件，通常指开发和运行时类的物理实现。     构件作为系统中定义良好接口的物理实现单元，仅仅依赖于构件所支持的接口。系统中的一个构件可以被支持正确接口的其他构件所替代。 2.构件和类的对比        3.构件图的含义    用来表示系统中构件与构件之间、类或接口与构件之间的关系图
UML总结之时序图、协作图
颗粒归仓
12-04 3221
一 时序图 1.定义     时序图（Sequence Diagram），亦称为序列图，是一种UML行为图。它通过描述对象之间发送消息的时间顺序显示多个对象之间的动态协作。它可以表示用例的行为顺序。     描述对象是如何交互的。重点放在消息序列上，描述消息在对象间是如何收发的     时序图有两个坐标轴：纵坐标轴显示时间，横坐标轴显示对象。每一个对象的表示方法是：矩形框中写有对象或（和）类名，且名字下面有下划线
uml总结之状态图、活动图
颗粒归仓
12-03 2536
一 状态图（State Diagram） （一）含义 状态图是UML中对系统的动态方面进行建模的五种图之一。主要用于描述一个对象在其生存期间的动态行为，表现为一个对象所经历的状态序列，引起的 状态转移的时间，以及因状态转移而伴随的动作。一般用状态机对一个对象的生命周期建模。 我的理解就是从开始状态起，经过事件形成某个状态，再经过某个事件形成某个状态，如此直到结束状态。 （二）构成 1.状
评论 32
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值