frmmain.frm

由VB编写的一个实用短信计费系统。主要模块包括（1）计费管理子系统：用户入费；错单处理；用户费率管理；费率管理；用户分析（2）系统维护子系统：管理员登录、管理员管理、数据库设置等（3）计费引擎子系统

VERSION 5.00
Begin VB.Form frmMain 
   BackColor       =   &H00808000&
   Caption         =   "轩辕短信计费"
   ClientHeight    =   5790
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   8010
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   9
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "frmMain.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   ScaleHeight     =   5790
   ScaleWidth      =   8010
   StartUpPosition =   2  'CenterScreen
   WindowState     =   2  'Maximized
   Begin VB.Menu mnuDocumentSet 
      Caption         =   "系统(&L)"
      Begin VB.Menu mnuNewLogin 
         Caption         =   "新登陆(&L)"
      End
      Begin VB.Menu mnuSuper 
         Caption         =   "管理员(&M)..."
      End
      Begin VB.Menu mnuServer 
         Caption         =   "服务器(&S)..."
      End
      Begin VB.Menu sp1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuExit 
         Caption         =   "退出(&X)"
      End
   End
   Begin VB.Menu mnuPolicy 
      Caption         =   "计费(&C)"
      Begin VB.Menu mnuInCharge 
         Caption         =   "用户入费(&L)"
      End
      Begin VB.Menu mnuErrRep 
         Caption         =   "错单处理(&I)"
      End
      Begin VB.Menu fg1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuUserFL 
         Caption         =   "用户费率(&F)"
      End
      Begin VB.Menu mnuFLtable 
         Caption         =   "费率表(&T)"
      End
      Begin VB.Menu pb6 
         Caption         =   "-"
      End
      Begin VB.Menu mnuUserFX 
         Caption         =   "用户分析(&U)"
      End
   End
   Begin VB.Menu mnuHelp 
      Caption         =   "帮助(&H)"
      Begin VB.Menu mnuAbout 
         Caption         =   "关于(&A)..."
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*******************************************************
'*    模 块 名 称 :主菜单模块
'*    功 能 描 述 :
'*    程序员姓名  :谭怀志
'*    最后修改人  :谭怀志
'*    最后修改时间:2003/6/26
'*    备        注:
'*******************************************************

Private blnRlogin As Boolean    '重新登录标志

Private Sub Form_Load()
    
    
    blnRlogin = False

End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    
    If blnRlogin = False Then
    
        '退出系统时(不是重新登陆),提示是否退出系统
        If MsgBox("确定退出轩辕短信计费吗？", vbOKCancel + vbDefaultButton2, SYSCAPTION) = vbOK Then
            End
        Else
            Cancel = True
        End If
        
    End If
    
End Sub

Private Sub mnuErrRep_Click()
    
    '错单重单处理
    frmErrRep.Show vbModal

End Sub

Private Sub mnuExit_Click()

    Unload Me

End Sub

Private Sub mnuFLtable_Click()
    
    '计费费率管理
    frmRate.Show vbModal
    
End Sub

Private Sub mnuInCharge_Click()
    
    '用户入费
    frmIncharge.Show vbModal
    
End Sub

Private Sub mnuNewLogin_Click()
        
    '新登陆
    blnRlogin = True
    Unload Me
    frmUserLogin.Show vbModal
    
End Sub

Private Sub mnuServer_Click()
    
    '数据库设置
    Load frmDBset
    frmDBset.Tag = "Modify"
    frmDBset.Show vbModal
    
End Sub

Private Sub mnuSuper_Click()
    
    '管理员管理
    frmSuper.Show vbModal
    
End Sub

Private Sub mnuUserFL_Click()
    
    '用户费率设置
    frmUserRate.Show vbModal

End Sub

Private Sub mnuUserFX_Click()
    
    '用户分析
    frmStatSet.Show vbModal

End Sub