机房收费系统（一）

最新推荐文章于 2019-10-03 08:50:42 发布

前端帅气小哥哥

最新推荐文章于 2019-10-03 08:50:42 发布

阅读量386

点赞数

分类专栏：数据库文章标签：数据库

本文链接：https://blog.csdn.net/FutureLifes/article/details/78942811

版权

数据库专栏收录该内容

7 篇文章 0 订阅

订阅专栏

开始机房收费系统，最开始的就是连接软件和数据库了。代码如下，这是非常简单的代码，没有什么复杂的地方，理解一下就好了。重要的地方就是对应的数据不要输入错误就好了。机房收费系统模块中的其他代码以后再慢慢理解。数据库中的数据对应的机房收费系统中的数据一定要认真对照，不要搞错了对象。从现在起养成良好的工作习惯，这比什么知识点都要重要的多。

Public Function ConnectString() As String         '以文件DSN标记，访问ODBC数据源
       ConnectString = "FileDSN=charge;UID=sa;PWD=123456"
       'returns a DB ConnectString
End Function

开始机房收费系统已经一个星期了，经过我长时间的摸索，对这个软件的理解已经渐渐有了头绪。最先开的就是设计登陆窗体了，这是登陆窗体中的登陆按钮的代码。这是一段比较常见的登陆窗体的代码，先判断用户是否为空，再进行查询，是否有这样一个用户，再后判断密码是否正确，密码正确frmMain窗体就会显示，如果密码错误超过三次，就会执行Me.Hide程序。

Private Sub cmdOK_Click()
    Dim txtSQL As String                   '用来存放记录SQL语句
    Dim mrc As ADODB.Recordset             '用来存放记录集对象
    Dim MsgText As String
    UserName = ""
    a = txtUserName.Text                    '将登陆窗体的用户名赋给a
    frmLogin.a = txtUserName.Text           '给窗体一个外加属性，将这个值直接赋给它
    If Trim(txtUserName.Text = "") Then       '判断用户名是否为空
       MsgBox "没有这个用户，请重新输入用户名！", vbOKOnly + vbExclamation, "警告"
       txtUserName.SetFocus
    Else
       txtSQL = "select * from User_Info where userID='" & txtUserName.Text & "'"
                                              '执行查询语句
       Set mrc = ExecuteSQL(txtSQL, MsgText)
       If mrc.EOF = True Then
            MsgBox "没有这个用户,请重新输入用户名！", vbOKOnly + vbExclamation, "警告"
            txtUserName.SetFocus
    Else
       If Trim(mrc.Fields(1)) = Trim(txtPassword.Text) Then
            OK = True
            mrc.Close
            Me.Hide
            UserName = Trim(txtUserName.Text)
            frmMain.Show
    Else
            MsgBox "输入密码不正确，请重新输入！", vbOKOnly + vbExclamation, "警告"
            txtPassword.SetFocus
            txtPassword.Text = ""
12          End If
       End If
    End If
    miCount = miCount + 1
    If miCount = 3 Then
       Me.Hide
    End If
    
    Exit Sub
    End Sub

这是我设计的关于查询学生余额的窗体，这个窗体的功能是只要输入卡号，就可以显示学生的基础信息，包括余额。这个窗体中所涉及的信息都来自于student_Info这张数据库中的表，正是因为这个原因所以这个窗体的代码比较简单，输入查询语句，再将查询所得到的数据赋值给对应的控件，就可以完成这个窗体的功能。

Private Sub cmdInquiry_Click()
   Dim txtSQL As String
   Dim mrc As ADODB.Recordset
   Dim MsgText As String
   Dim sMeg As String
    '组合SQL语句
   txtSQL = "select * from student_Info where cardno= '" & txtCardno.Text & "'"
   Set mrc = ExecuteSQL(txtSQL, MsgText)
   If mrc.EOF = True Then
   MsgBox "卡号不能为空", vbOKOnly + vbExclamation, "警告"
   txtCardno.Text = ""
   txtCardno.SetFocus
   Exit Sub
   Else
   txtSID.Text = mrc.Fields(1)
   txtName.Text = mrc.Fields(2)
   txtSex.Text = mrc.Fields(3)
   txtDept.Text = mrc.Fields(4)
   txtGrade.Text = mrc.Fields(5)
   txtClassno.Text = mrc.Fields(6)
   txtCash.Text = mrc.Fields(7)
   txtStatus.Text = mrc.Fields(10)
   txtExplain.Text = mrc.Fields(9)
   End If
End Sub

总结这段时间的探索，我已经掌握了用代码从数据库中查询数据的能力，整个机房收费系统所涉及的操作大概就是增删改查这些对数据库的基本操作，万变不离其宗。我们只要坚持总结，就一定能掌握整个机房收费系统的知识点。