机房收费系统之初体验

<span style="font-family:SimSun;font-size:14px;"> </span>

 一.系统概述

      机房收费系统是我们不参看源码，独立完成的一个用于机房收费的系统。本着实用的原则开发的，它根据机房管理人员在实际工作中需要用到的情况把机房信息加以科学化，标准化的输入到计算机中，利用计算机的快速处理能力，对机房进行标准化管理。通过对实际情况的考察分析，实现了机房信息的处理、统计、账单打印、导出等功能，较好的解决了机房信息的安全性，提高了机房管理人员的工作效率及机房的利用率。

二.系统特点

            （1）操作简便、界面友好：本系统的界面采用window的操作使用习惯进行设计，只要经过简单的使用和说明就可以使                  用。

            （2）权限控制、安全可靠：给不同类别的管理员分配了不同的权限，操作员登陆系统输入密码后，系统自动根据权限                   赋予功能，防止越权操作，安全可靠，杜绝分工不明确、职责不清的情况发生

            （3）数据查询、快捷方便：根据需要本系统对基础信息、日常处理提供了强大的查询功能，所有数据一目了然，可以                  实现单项查询，模糊查询，用户还可以多种信息联合查询，还可以对账单进行导出为Excel。

             （4）报表合理，轻松自如：根据需求，本系统设计了周报表和总账单报表，满足机房管理人员的统计需求。

三.相关技术简介

     1.数据库基础知识 

            本系统所应用的后台数据管理是使用SQL sever 2008对数据进行操作。  要求能够对SQL2008的操作熟悉，知道应用数据库对数据的增删改查。

     2.VB6.0的编程环境

            系统目前为了学习使用VB6.0进行代码的编写，熟练的使用MSHGridFlex控件和grid++报表设计器，以及相应的函数和             事件。再界面美化使用的API函数。

四.系统数据流图

                  

五.登陆窗体的权限分配

         不同的人员具有不同的操作权限，那么如何实现登陆后自动识别权限呢？

我们来看看代码：

<span style="font-size: 14px;"> </span><span style="font-size:14px;">txtSQL = "select * from User_Info where userID='" & txtUsername.Text & "'"
      Set mrc = ExecuteSQL(txtSQL, MsgText)
      
      If mrc.EOF Then
              MsgBox "没有这个用户，请重新输入用户名！", vbOKOnly + vbExclamation, "警告"
               txtUsername.SetFocus
      Else
       If Trim(mrc.Fields(1)) = Trim(txtPassword.Text) Then
            If Trim(mrc.Fields(2)) = "管理员" Then
                  OK = True
                  mrc.Close
                  Me.Hide
                  userName = Trim(txtUsername.Text)
                  frmMain.Show
             Else
              If Trim(mrc.Fields(2)) = "一般用户" Then
                  OK = True
                  Me.Hide
                  mrc.Close
                  userName = Trim(txtUsername.Text)
                  frmMain.Operator.Enabled = False
                  frmMain.Admin.Enabled = False
                  frmMain.Show
           Else
               If Trim(mrc.Fields(2)) = "操作员" Then
                   OK = True
                   Me.Hide
                   mrc.Close
                   userName = Trim(txtUsername.Text)
                   frmMain.Admin.Enabled = False
                   frmMain.Show
                End If
              End If
            End If
         Else
            MsgBox "输入密码不正确，请重新输入！", vbOKOnly + vbExclamation, "警告"
            txtPassword.SetFocus
            txtPassword.Text = ""
   End If
  End If</span>

通过这样我们的权限分配就实现了，接下来要开始系统具体功能的实现了。

总结：通过对整个机房收费系统的总览，让我们对这个系统从宏观上进行了很好的掌握，前期的准备为接下来的窗体功能和代码的实现打下了一个很好的基础，有了方向让我们更加高效和方便的解决接下来面对的问题和技术难点。