mainform.frm

一个用VB6.0开发的简单餐会管理系统。在WIN2K

VERSION 5.00
Begin VB.MDIForm MainForm 
   AutoShowChildren=   0   'False
   BackColor       =   &H80000009&
   Caption         =   "生日餐会系统"
   ClientHeight    =   5790
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   6300
   Icon            =   "MainForm.frx":0000
   LinkTopic       =   "MainForm"
   Moveable        =   0   'False
   ScrollBars      =   0   'False
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin VB.Menu SRCH_SYSTEM 
      Caption         =   "生日餐会系统"
      Index           =   1
      Begin VB.Menu YDXX_VIEW 
         Caption         =   "预定信息浏览"
         Index           =   2
      End
      Begin VB.Menu ZJSR_VIEW 
         Caption         =   "最近生日浏览"
         Index           =   3
      End
      Begin VB.Menu System_SeprateBar0 
         Caption         =   "-"
      End
      Begin VB.Menu RTXX_ADD 
         Caption         =   "新增基本资料"
         Index           =   4
      End
   End
   Begin VB.Menu XXCX_VIEW 
      Caption         =   "信息查询"
      Index           =   5
      Begin VB.Menu BBCX_VIEW 
         Caption         =   "详细查询"
         Index           =   6
      End
   End
   Begin VB.Menu XYGN_FUNC 
      Caption         =   "系统功能"
      Index           =   7
      Begin VB.Menu YHSZ_SET 
         Caption         =   "用户设置"
         Index           =   8
      End
      Begin VB.Menu COMMUNITY_SET 
         Caption         =   "社区设置"
         Index           =   9
      End
      Begin VB.Menu System_SeprateBar1 
         Caption         =   "-"
      End
      Begin VB.Menu DATA_DEL 
         Caption         =   "删除数据"
         Index           =   10
      End
   End
   Begin VB.Menu System_Exit 
      Caption         =   "退出"
      Index           =   11
   End
End
Attribute VB_Name = "MainForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub BBCX_VIEW_Click(Index As Integer)
SelRepForm.Show
End Sub

Private Sub COMMUNITY_SET_Click(Index As Integer)
CommunitySet.Show
End Sub

Private Sub DATA_DEL_Click(Index As Integer)
DelData.Show
End Sub

Private Sub MDIForm_Load()
If tyUserStru.sUserLev >= JP_SET_USER_LEVEL2 Then
    Me.DATA_DEL.Item(10).Enabled = True
Else
    Me.DATA_DEL.Item(10).Enabled = False
End If
ViewForm.InitFlagViewForm
End Sub

Private Sub RTXX_ADD_Click(Index As Integer)
ViewForm.GetFlagViewForm (JP_SET_NUM_ADD)
ViewForm.Show
End Sub

Private Sub System_Exit_Click(Index As Integer)
Unload MainForm
Unload SelName
Unload ViewForm
Unload BookInfo
Unload BthdInfo

End Sub

Private Sub YDXX_VIEW_Click(Index As Integer)
BookInfo.pnBookinfoFlag = JP_TX_ITEM1
BookInfo.Show
End Sub

Private Sub YHSZ_SET_Click(Index As Integer)
SetUserForm.Show
End Sub

Private Sub ZJSR_VIEW_Click(Index As Integer)
BookInfo.pnBookinfoFlag = JP_TX_ITEM2
BookInfo.Show
End Sub