【机房收费系统】上机

前言：

  上机的过程比较简单，就是查信息，更新表

流程：

关键代码：

                        txtSQL3 = "select * from student_info where cardno= '" & Trim(CardNotxt.Text) & "'"
                        Set mrc3 = ExecuteSQL(txtSQL3, Msgtext3)
    
                   
                        If mrc3.Fields(7) <= 0 Then
                            MsgBox "余额不足请充值后上机", vbOKOnly + vbExclamation, "警告"
                            mrc3.Close
                        Else
                            Studentnotxt.Text = Trim(mrc3.Fields(1))
                            Nametxt.Text = Trim(mrc3.Fields(2))
                            Sextxt.Text = Trim(mrc3.Fields(3))
                            Departmenttxt.Text = Trim(mrc3.Fields(4))
                            SigninDatetxt.Text = Date
                            SigninTimetxt.Text = Time
                            Typetxt.Text = Trim(mrc3.Fields(14))
                            Remaintxt.Text = Trim(mrc3.Fields(7))
                        End If
                    '更新信息到online
                    txtSQL4 = "select * from online_info "
                    Set mrc4 = ExecuteSQL(txtSQL4, Msgtext4)
                    
                    mrc4.AddNew
                    mrc4.Fields(0) = CardNotxt.Text
                    mrc4.Fields(1) = Typetxt.Text
                    mrc4.Fields(2) = Studentnotxt.Text
                    mrc4.Fields(3) = Nametxt.Text
                    mrc4.Fields(4) = Departmenttxt.Text
                    mrc4.Fields(5) = Sextxt.Text
                    mrc4.Fields(6) = Date
                    mrc4.Fields(7) = Time
                    mrc4.Fields(8) = Trim(Environ("computername"))
                    
                    mrc4.Update
                    '更新信息到line
                    txtSQL5 = "select * from line_info where cardno= '" & Trim(CardNotxt.Text) & "'"
                    Set mrc5 = ExecuteSQL(txtSQL5, Msgtext5)
                      mrc5.AddNew
                      mrc5.Fields(1) = Trim(CardNotxt.Text)
                      mrc5.Fields(2) = Trim(Studentnotxt.Text)
                      mrc5.Fields(3) = Trim(Nametxt.Text)
                      mrc5.Fields(4) = Trim(Departmenttxt.Text)
                      mrc5.Fields(5) = Trim(Sextxt.Text)
                      mrc5.Fields(6) = Trim(SigninDatetxt.Text)
                      mrc5.Fields(7) = Trim(SigninTimetxt.Text)
                      mrc5.Fields(10) = 0
                      mrc5.Fields(11) = 0
                      mrc5.Fields(12) = Trim(mrc3.Fields(7))
                      mrc5.Fields(13) = "正常上机"
                      mrc5.Fields(14) = Trim(Environ("computername"))
                      mrc5.Update

小结：

  在流程图中展示的只是大体思路，具体细节，比如清空文本框，显示充值窗体没有详细画出来，可以在编写程序时完善。