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