mdiform1.frm

加油站客户管理系统(开发工具：VB+Access)

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H8000000C&
   Caption         =   "加油站客户信息管理系统"
   ClientHeight    =   7665
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   10410
   LinkTopic       =   "MDIForm1"
   Picture         =   "MDIForm1.frx":0000
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   375
      Left            =   0
      TabIndex        =   0
      Top             =   7290
      Width           =   10410
      _ExtentX        =   18362
      _ExtentY        =   661
      Style           =   1
      SimpleText      =   " "
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   1
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
         EndProperty
      EndProperty
   End
   Begin VB.Menu system 
      Caption         =   "系统操作&F"
      Begin VB.Menu user 
         Caption         =   "用户管理"
         Shortcut        =   ^A
      End
      Begin VB.Menu mdipass 
         Caption         =   "修改密码"
         Shortcut        =   ^D
      End
      Begin VB.Menu relog 
         Caption         =   "重新登陆"
         Shortcut        =   ^B
      End
      Begin VB.Menu qqq 
         Caption         =   "-"
      End
      Begin VB.Menu exit 
         Caption         =   "退出系统"
         Shortcut        =   ^X
      End
   End
   Begin VB.Menu register 
      Caption         =   "客户信息管理&R"
      Begin VB.Menu stureg 
         Caption         =   "客户信息管理"
         Shortcut        =   ^C
      End
      Begin VB.Menu sturea 
         Caption         =   "客户信息查询"
         Shortcut        =   ^E
      End
   End
   Begin VB.Menu zhu 
      Caption         =   "油价管理&X"
      Begin VB.Menu zhuxiu 
         Caption         =   "油价管理"
         Shortcut        =   ^F
      End
      Begin VB.Menu kecheng 
         Caption         =   "油价查询"
         Shortcut        =   ^L
      End
   End
   Begin VB.Menu kai 
      Caption         =   "加油信息管理&K"
      Begin VB.Menu cheadmin 
         Caption         =   "车辆管理"
         Shortcut        =   ^P
      End
      Begin VB.Menu stuxuan 
         Caption         =   "加    油"
         Shortcut        =   ^H
      End
      Begin VB.Menu xuankecha 
         Caption         =   "加油查询"
         Shortcut        =   ^N
      End
   End
   Begin VB.Menu count 
      Caption         =   "加油信息统计&C"
      Begin VB.Menu co 
         Caption         =   "统　　计"
         Shortcut        =   ^O
      End
   End
   Begin VB.Menu about 
      Caption         =   "关　于&G"
      Begin VB.Menu abou 
         Caption         =   "关　于"
         Shortcut        =   ^K
      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 abou_Click()
frmAbout.Show
End Sub

Private Sub cheadmin_Click()

If mdi = False Then
MsgBox "请关闭打开的窗口！", vbInformation, "不允许当前操作！"
Else
If chair = True Or workman = True Then
'Unload Me
Form7.Show
Else
MsgBox "你是客户,没有使用此功能的权限!"
End If
End If
End Sub

Private Sub co_Click()
If mdi = False Then
MsgBox "请关闭打开的窗口！", vbInformation, "不允许当前操作！"
Else
'Unload Me
Form10.Show
End If
End Sub

Private Sub exit_Click()
If mdi = False Then
MsgBox "请保存数据！", vbInformation, "不允许当前操作！"
Else
End
End If
End Sub
Private Sub kecheng_Click()
If mdi = False Then
MsgBox "请关闭打开的窗口！", vbInformation, "不允许当前操作！"
Else
'Unload Me
Form6.Show
End If
End Sub
Private Sub MDIForm_Load()
StatusBar1.SimpleText = "  今天是" & Year(Date) & "年" & Month(Date) & "月" & Day(Date) & "日 , 欢迎您使用加油站客户信息管理系统 !" & "        当前操作者:" & user111 & "    权限:" & sup
End Sub

Private Sub mdipass_Click()
If mdi = False Then
MsgBox "请关闭打开的窗口！", vbInformation, "不允许当前操作！"
Else
'Unload Me
Form11.Show
End If
End Sub

Private Sub relog_Click()
If mdi = False Then
MsgBox "请关闭打开的窗口！", vbInformation, "不允许当前操作！"
Else
Unload Me
Form1.Show
End If
End Sub
Private Sub sturea_Click()
If mdi = False Then
MsgBox "请关闭打开的窗口！", vbInformation, "不允许当前操作！"
Else
'Unload Me
Form4.Show
End If
End Sub
Private Sub stureg_Click()
If mdi = False Then
MsgBox "请关闭打开的窗口！", vbInformation, "不允许当前操作！"
Else
If chair = True Or workman = True Then
'unload Me
Form3.Show
Else
MsgBox "你是客户,没有使用此功能的权限!"
End If
End If
End Sub

Private Sub stuxuan_Click()
If mdi = False Then
MsgBox "请关闭打开的窗口！", vbInformation, "不允许当前操作！"
Else
'unload Me
If chair = False And workman = False Then
MsgBox "你没有管理此功能的权限!"
Else
Form8.Show
End If
End If
End Sub

Private Sub user_Click()
If chair = False And workman = False Then
     MsgBox "你没有管理此功能的权限!"
     Exit Sub
End If
     If mdi = True And chair = True Then
      Form2.Show
     Else
       If mdi = True And workman = True Then
        Form12.Show
       Else
         MsgBox "每次只能打开一个窗口，请关闭正在打开的窗口！", vbInformation, "不允许当前操作！"
       End If
     End If
End Sub

Private Sub xuankecha_Click()
If mdi = False Then
MsgBox "请关闭打开的窗口！", vbInformation, "不允许当前操作！"
Else
'Unload Me
Form9.Show
End If
End Sub

Private Sub zhuxiu_Click()

If mdi = False Then
MsgBox "请关闭打开的窗口！", vbInformation, "不允许当前操作！"
Else
'Unload Me
  If chair = True Then
      Form5.Show
    Else
      MsgBox "你没有管理此功能的权限!!"
  End If
End If
End Sub