mdiform1.frm

会员消费积分管理系统

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H8000000C&
   Caption         =   "珠海 卡路.约翰会员管理系统"
   ClientHeight    =   7875
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   10635
   Icon            =   "MDIForm1.frx":0000
   LinkTopic       =   "会员管理系统"
   StartUpPosition =   2  '屏幕中心
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   375
      Left            =   0
      TabIndex        =   0
      Top             =   7500
      Width           =   10635
      _ExtentX        =   18759
      _ExtentY        =   661
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   3
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            Object.Width           =   5362
            MinWidth        =   5362
            Picture         =   "MDIForm1.frx":030A
            Text            =   "珠海 卡路.约翰会员管理系统"
            TextSave        =   "珠海 卡路.约翰会员管理系统"
            Object.ToolTipText     =   "Author: liaosa"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   6
            Alignment       =   1
            TextSave        =   "2008-11-25"
            Object.ToolTipText     =   "http://www.liaosa.com"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   5
            TextSave        =   "15:54"
         EndProperty
      EndProperty
   End
   Begin VB.Menu sys_menu 
      Caption         =   "系统管理(&S)"
      Begin VB.Menu AddAdmin_menu 
         Caption         =   "增加管理员"
      End
      Begin VB.Menu MidAdmin_menu 
         Caption         =   "修改管理员"
      End
      Begin VB.Menu ReLogin_menu 
         Caption         =   "重新登录"
      End
      Begin VB.Menu Quit_menu 
         Caption         =   "退出登录"
      End
   End
   Begin VB.Menu member_manage_menu 
      Caption         =   "会员管理(&U)"
      Begin VB.Menu MenuList_menu 
         Caption         =   "会员列表"
      End
      Begin VB.Menu AddMember_menu 
         Caption         =   "增加会员"
      End
      Begin VB.Menu FindMember_menu 
         Caption         =   "查找会员"
      End
   End
   Begin VB.Menu consume_manage_menu 
      Caption         =   "消费管理(&C)"
      Begin VB.Menu ConsumeList_menu 
         Caption         =   "消费列表"
      End
      Begin VB.Menu ConsumeAdd_menu 
         Caption         =   "消费登记"
      End
      Begin VB.Menu FindConsume_menu 
         Caption         =   "查找消费"
      End
   End
   Begin VB.Menu help_menu 
      Caption         =   "帮助(&H)"
      Begin VB.Menu help_index_menu 
         Caption         =   "主题"
      End
      Begin VB.Menu about_menu 
         Caption         =   "关于..."
      End
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim ocn As New Class1
Dim rs As New Class1

Private Sub about_menu_Click()
frmAbout.Show

End Sub

Private Sub AddAdmin_menu_Click()
frmAddAdmin.Show

End Sub

Private Sub AddMember_menu_Click()
AddMemberFr.Show

End Sub

Private Sub ConsumeAdd_menu_Click()
Add_Consume_Form.Show

End Sub

Private Sub ConsumeList_menu_Click()
Consume_list.Show

End Sub

Private Sub FindConsume_menu_Click()
consume.Show

End Sub

Private Sub FindMember_menu_Click()
frmFindMember.Show
End Sub

Private Sub MDIForm_Load()
If frmLogin.Popedom <> 1 Then
With Me
.AddAdmin_menu = False
.AddMember_menu = False
'.member_manage_menu = False
.MidAdmin_menu = False
.ConsumeAdd_menu = False
End With
End If

End Sub

'Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  'If ocn.ocn.State = True Then
'ocn.ocn.Close
'Set ocn.ocn = Nothing
'End If
'If rs.rs.State = True Then
'rs.rs.Close
'Set rs.rs = Nothing
'End If
'Unload Me

  
 ' If MsgBox("真的要对出本系统吗？", vbQuestion + vbYesNo + vbDefaultButton2, "退出") = vbNo Then
   ' Cancel = 1
 ' End If

'End Sub

Private Sub MenuList_menu_Click()
MainForm.Show

End Sub

Private Sub MidAdmin_menu_Click()
frmAdminList.Show

End Sub

Private Sub Quit_menu_Click()
If ocn.ocn.State = True Then
ocn.ocn.Close
Set ocn.ocn = Nothing
End If
If rs.rs.State = True Then
rs.rs.Close
Set rs.rs = Nothing
End If
Unload Me


End Sub

Private Sub ReLogin_menu_Click()
If ocn.ocn.State = True Then
ocn.ocn.Close
Set ocn.ocn = Nothing
End If
If rs.rs.State = True Then
rs.rs.Close
Set rs.rs = Nothing
End If
Unload Me
frmLogin.Show
End Sub