mdiform1.frm

基于C++编写的用于移动电话的计费系统可以完成日常计费系统的需要

VERSION 5.00
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H00008000&
   Caption         =   "ZQ电话计费管理系统"
   ClientHeight    =   6765
   ClientLeft      =   3405
   ClientTop       =   3750
   ClientWidth     =   9990
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   2  '屏幕中心
   Begin VB.Menu file 
      Caption         =   "文件"
      Begin VB.Menu klxg 
         Caption         =   "口令修改"
      End
      Begin VB.Menu exit 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu sp 
      Caption         =   "个人信息"
      Begin VB.Menu tp 
         Caption         =   "个人信息查看"
      End
   End
   Begin VB.Menu cx 
      Caption         =   "查询"
      Begin VB.Menu cccx 
         Caption         =   "话费查询"
      End
      Begin VB.Menu skbcx 
         Caption         =   "余额查询"
      End
      Begin VB.Menu spqkcx 
         Caption         =   "套餐查询"
      End
   End
   Begin VB.Menu wh 
      Caption         =   "业务办理及维护"
      Begin VB.Menu cpbxg 
         Caption         =   "业务办理及查询"
      End
      Begin VB.Menu a 
         Caption         =   "备份整个数据库"
      End
      Begin VB.Menu b 
         Caption         =   "恢复先前数据库"
      End
   End
   Begin VB.Menu tj 
      Caption         =   "统计及打印"
      Begin VB.Menu sptj 
         Caption         =   "收费统计"
      End
      Begin VB.Menu print 
         Caption         =   "业务打印"
      End
   End
   Begin VB.Menu gy 
      Caption         =   "关于"
      Begin VB.Menu about 
         Caption         =   "关于系统"
      End
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub a_Click()
FrmBackUp.Show

End Sub

Private Sub about_Click()
frmStar.Show
End Sub

Private Sub b_Click()
If MsgBox("是否现在就执行还原数据库的操作？", vbYesNo + vbInformation, "还原数据库") = vbYes Then
   success = WritePrivateProfileString("BackUp", "Restore", "True", App.Path & "\Sims.ini")
Unload Me
End If

End Sub


Private Sub cccx_Click()
Form7.Show

End Sub

Private Sub cpbxg_Click()
Form14.Show

End Sub

Private Sub exit_Click()
End

End Sub

Private Sub klxg_Click()
Form2.Show

End Sub

Private Sub MDIForm_Load()
If Form1.Option2 Then
   wh.Visible = False
   tj.Visible = False
Else
   If Form1.Option1.Value Then
      sp.Visible = False
   End If
End If


End Sub

Private Sub mmxg_Click()
Form17.Show
Form17.Command1.Visible = True
Form17.Command2.Visible = True

End Sub

Private Sub print_Click()
Form3.Show

End Sub

Private Sub skbcx_Click()
Form9.Show

End Sub

Private Sub spqkcx_Click()
Form8.Show

End Sub

Private Sub sptj_Click()
Form18.Show

End Sub

Private Sub tp_Click()
Form4.Show
End Sub

Private Sub xscp_Click()
Form3.Show

End Sub