frmmanager_list.frm

以前上传过的一个图书馆管理系统

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0"; "MSHFLXGD.OCX"
Begin VB.Form frmmanager_list 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "管理员查询"
   ClientHeight    =   5025
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   11910
   Icon            =   "Frmmanager_list.frx":0000
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5025
   ScaleWidth      =   11910
   StartUpPosition =   1  '所有者中心
   Begin VB.Frame Frame1 
      Height          =   4815
      Left            =   9720
      TabIndex        =   1
      Top             =   0
      Width           =   2055
      Begin VB.CommandButton Cmd_list_exit 
         Caption         =   "退出(&E)"
         Height          =   375
         Left            =   480
         TabIndex        =   4
         Top             =   4200
         Width           =   1335
      End
      Begin VB.CommandButton Cmd_Manager_Del 
         Caption         =   "删除管理员(&D)"
         Height          =   375
         Left            =   480
         TabIndex        =   3
         Top             =   3480
         Width           =   1335
      End
      Begin VB.CommandButton Cmd_Manager_Modify 
         Caption         =   "修改管理员(&M)"
         Height          =   375
         Left            =   480
         TabIndex        =   2
         Top             =   2760
         Width           =   1335
      End
      Begin VB.Image Image1 
         Appearance      =   0  'Flat
         BorderStyle     =   1  'Fixed Single
         Height          =   1815
         Left            =   360
         Picture         =   "Frmmanager_list.frx":08CA
         Stretch         =   -1  'True
         Top             =   360
         Width           =   1575
      End
   End
   Begin MSComDlg.CommonDialog CommonDialog1 
      Left            =   2760
      Top             =   1680
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin MSHierarchicalFlexGridLib.MSHFlexGrid MSHFlexGrid1 
      Height          =   4695
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   9495
      _ExtentX        =   16748
      _ExtentY        =   8281
      _Version        =   393216
      Cols            =   8
      FixedCols       =   0
      GridColor       =   16777215
      SelectionMode   =   1
      AllowUserResizing=   3
      Appearance      =   0
      _NumberOfBands  =   1
      _Band(0).Cols   =   8
      _Band(0).GridLinesBand=   1
      _Band(0).TextStyleBand=   0
      _Band(0).TextStyleHeader=   0
   End
End
Attribute VB_Name = "frmmanager_list"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Cmd_Manager_Modify_Click()
    Frmmanager_regedit.Tag = "modify"
    Frmmanager_regedit.Txt_Mid = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 0)
    Frmmanager_regedit.Txt_Mid.Enabled = False
    Frmmanager_regedit.Txt_Mname = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 1)
    Frmmanager_regedit.Txt_Mpass(0) = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2)
    Frmmanager_regedit.Txt_Mpass(1) = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2)
    
    If MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 3) = True Then
        Frmmanager_regedit.Chk_Muser = 1
    Else
        Frmmanager_regedit.Chk_Muser = 0
    End If
    
    If Frmmanager_regedit.Tag = "modify" Then
        Frmmanager_regedit.Chk_Muser.Enabled = False
        Frmmanager_regedit.Chk_Mbook.Enabled = False
    Else
        Frmmanager_regedit.Chk_Muser.Enabled = True
        Frmmanager_regedit.Chk_Mbook.Enabled = True
    End If
    
    If MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 4) = True Then
        Frmmanager_regedit.Chk_Mbook = 1
    Else
        Frmmanager_regedit.Chk_Mbook = 0
    End If

    
    Frmmanager_regedit.CommonDialog1.FileName = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 5)
    On Error GoTo err1:
    Frmmanager_regedit.image_Mphoto.Picture = LoadPicture(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 5))
    Frmmanager_regedit.Show vbModal
    Call Form_Activate
    Exit Sub
err1:
        MsgBox "相片加载错误,请检查路径" + Mid(Err.Description, 7), vbCritical: Resume Next
    
End Sub

Private Sub Cmd_Manager_Del_Click()
If MsgBox("确定要删除" + MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 0) + "吗?", vbCritical + vbOKCancel, "删除管理员") = vbOK Then
myconn.Execute "delete from 管理员 where MANAGER_ID='" + MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 0) + "'"
MsgBox "删除成功", vbExclamation
Call Form_Activate
End If
End Sub

Private Sub Cmd_list_exit_Click()
Unload Me
End Sub

Private Sub Form_Activate()
MSHFlexGrid1.Clear
If rds_manager.State = adStateOpen Then rds_manager.Close
rds_manager.Open "select * from 管理员", Module1.myconn, adOpenKeyset, adLockOptimistic, 1
Set MSHFlexGrid1.DataSource = rds_manager
rds_manager.Close
    MSHFlexGrid1.TextMatrix(0, 0) = "管理员ID"
    MSHFlexGrid1.TextMatrix(0, 1) = "管理员名"
    MSHFlexGrid1.TextMatrix(0, 2) = "密码"
    MSHFlexGrid1.TextMatrix(0, 3) = "读者权限"
    MSHFlexGrid1.TextMatrix(0, 4) = "图书权限"
    MSHFlexGrid1.TextMatrix(0, 5) = "相片位置"
    Image1.Picture = LoadPicture(App.Path + "\ico\photo.ico")
    Cmd_Manager_Modify.Enabled = False
    Cmd_Manager_Del.Enabled = False
End Sub

Private Sub MSHFlexGrid1_Click()
On Error GoTo err1:
    Image1.Picture = LoadPicture(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 5))
    Cmd_Manager_Modify.Enabled = True
    If MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 0) = "admin" Then
        Cmd_Manager_Del.Enabled = False
    Else
        Cmd_Manager_Del.Enabled = True
    End If
    Exit Sub
err1:
    MsgBox "相片加载错误,请检查路径" + Mid(Err.Description, 7), vbCritical: Image1.Picture = LoadPicture(App.Path + "\ico\photo.ico"): Resume Next
End Sub