mdiform1.frm

vc考试系统vc在线 考试系统vc在线 考试系统

VERSION 5.00
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H8000000C&
   Caption         =   "报纸订阅系统"
   ClientHeight    =   6600
   ClientLeft      =   1275
   ClientTop       =   1830
   ClientWidth     =   9720
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   2  '屏幕中心
   Begin VB.Menu 资料管理 
      Caption         =   "资料管理"
      Begin VB.Menu 报纸管理 
         Caption         =   "报纸管理"
      End
      Begin VB.Menu 客户管理 
         Caption         =   "客户管理"
      End
   End
   Begin VB.Menu 订阅报纸 
      Caption         =   "订阅报纸"
   End
   Begin VB.Menu 查询 
      Caption         =   "查询"
      Begin VB.Menu 报纸订阅情况查询 
         Caption         =   "报纸订阅情况查询"
      End
      Begin VB.Menu 客户订阅情况查询 
         Caption         =   "客户订阅情况查询"
      End
   End
   Begin VB.Menu 系统设置 
      Caption         =   "系统设置"
   End
   Begin VB.Menu 退出 
      Caption         =   "退出"
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False



Private Sub 报纸订阅情况查询_Click()
Load Form5
Form5.Show vbmode
End Sub

Private Sub 报纸管理_Click()
Load Form1
Form1.Show vbmode
End Sub

Private Sub 订阅报纸_Click()
Load Form3
Form3.Show vbmode
End Sub

Private Sub 客户订阅情况查询_Click()
Load Form6
Form6.Show vbmode
End Sub

Private Sub 客户管理_Click()
Load Form2
Form2.Show vbmode
End Sub

Private Sub 退出_Click()
Dim strsql As String
strsql = "delete * from sub_temp"
adodc1.Execute (strsql)
End
End Sub

Private Sub 系统设置_Click()
Load Form8
Form8.Show vbmode
End Sub