mdiform1.frm

VB开发的一款简易个人通讯录

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