VERSION 5.00
Begin VB.MDIForm MDI主窗體 
   BackColor       =   &H8000000C&
   Caption         =   "通訊錄維護"
   ClientHeight    =   4695
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   5790
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu main 
      Caption         =   "系統維護"
      Index           =   1
      Begin VB.Menu qxgl 
         Caption         =   "權限管理"
         HelpContextID   =   3
      End
      Begin VB.Menu mkgl 
         Caption         =   "模塊管理"
         HelpContextID   =   4
      End
      Begin VB.Menu mkqx 
         Caption         =   "模塊權限管理"
         HelpContextID   =   2
      End
      Begin VB.Menu zhgl 
         Caption         =   "帳號管理"
         HelpContextID   =   1
      End
   End
   Begin VB.Menu main 
      Caption         =   "數據字典維護"
      Index           =   2
      Begin VB.Menu xbdm 
         Caption         =   "性別代碼維護"
      End
      Begin VB.Menu xsdm 
         Caption         =   "省市代碼維護"
      End
   End
   Begin VB.Menu main 
      Caption         =   "通訊錄管理"
      Index           =   3
      Begin VB.Menu txlfz 
         Caption         =   "通訊錄分組維護"
      End
      Begin VB.Menu txlwh 
         Caption         =   "通訊錄維護"
      End
      Begin VB.Menu txlcxdy 
         Caption         =   "通訊錄查詢與打印"
      End
   End
End
Attribute VB_Name = "MDI主窗體"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public sqlstring As String

Private Sub mkgl_Click()
    Load 模塊表
    模塊表.Top = 0
    模塊表.Left = 0
    模塊表.Height = 6000
    模塊表.Width = 4500
    MDI主窗體.Height = 7000
    MDI主窗體.Width = 5000
End Sub

Private Sub mkqx_Click()
    Load 模塊權限對照表
    模塊權限對照表.Top = 0
    模塊權限對照表.Left = 0
    模塊權限對照表.Height = 5775
    模塊權限對照表.Width = 10995
    MDI主窗體.Height = 7000
    MDI主窗體.Width = 12000
End Sub

Private Sub qxgl_Click()
    Load 權限表
    權限表.Top = 0
    權限表.Left = 0
    權限表.Height = 5925
    權限表.Width = 4005
    MDI主窗體.Height = 7000
    MDI主窗體.Width = 5000
End Sub

Private Sub txlcxdy_Click()
    Load 通訊錄查詢與打印
    通訊錄查詢與打印.Top = 0
    通訊錄查詢與打印.Left = 0
    通訊錄查詢與打印.Height = 5800
    通訊錄查詢與打印.Width = 12500
    MDI主窗體.Height = 7500
    MDI主窗體.Width = 13000
End Sub

Private Sub txlfz_Click()
    Load 通訊錄分組表
    通訊錄分組表.Top = 0
    通訊錄分組表.Left = 0
    通訊錄分組表.Height = 5910
    通訊錄分組表.Width = 5805
    MDI主窗體.Height = 7000
    MDI主窗體.Width = 7000
End Sub

Private Sub txlwh_Click()
    Load 通訊錄維護
    通訊錄維護.Top = 0
    通訊錄維護.Left = 0
    通訊錄維護.Height = 5385
    通訊錄維護.Width = 12480
    MDI主窗體.Height = 7000
    MDI主窗體.Width = 14000
End Sub

Private Sub xbdm_Click()
    Load 性別代碼表
    性別代碼表.Top = 0
    性別代碼表.Left = 0
    性別代碼表.Height = 5845
    性別代碼表.Width = 4005
    MDI主窗體.Height = 7000
    MDI主窗體.Width = 6000
End Sub

Private Sub xsdm_Click()
    Load 省市代碼表
    省市代碼表.Top = 0
    省市代碼表.Left = 0
    省市代碼表.Height = 6570
    省市代碼表.Width = 4875
    MDI主窗體.Height = 8000
    MDI主窗體.Width = 6000
End Sub

Private Sub zhgl_Click()
    Load 帳號表
    帳號表.Top = 0
    帳號表.Left = 0
    帳號表.Height = 5925
    帳號表.Width = 8715
    MDI主窗體.Height = 7000
    MDI主窗體.Width = 9200
End Sub

Private Sub MDIform_Load()
'隱藏所有主菜單
For i = 1 To 3
    main(i).Visible = False
Next

'根據用戶的帳號查找“帳號表”中的“權限”，在“模塊權限對照表 ”中查找對應權限所能訪問的模塊，取得模塊列表
sqlstring = "select 模塊代碼 from 帳號表,權限表,模塊權限對照表 where 帳號表.帳號= '" + 登陸帳號 + "' and 帳號表.權限代碼=模塊權限對照表.權限代碼 and 帳號表.權限代碼=權限表.權限代碼"
Set rs = New ADODB.Recordset
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\通訊錄.mdb;Persist Security Info=False"
conn.Open
rs.Open sqlstring, conn ', 1, 1

'顯示模塊列表
Do While Not rs.EOF
   Select Case rs.Fields("模塊代碼")
          Case 1
            main(1).Visible = True '顯示“系統維護”菜單
          Case 2
            main(2).Visible = True '顯示“數據字典維護”菜單
          Case 3
            main(3).Visible = True '顯示“通訊錄管理”菜單
   End Select
  rs.MoveNext
Loop



End Sub

Private Sub xtwh_Click(Index As Integer)

End Sub