frmuserlist.frm

超市进销存管理系统vb+access源代码+可执行文件+论文+开题报稿+外文翻译+答辩,给需要的朋友参考参考

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmUserList 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "管理员列表"
   ClientHeight    =   4215
   ClientLeft      =   2760
   ClientTop       =   3750
   ClientWidth     =   6360
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4215
   ScaleWidth      =   6360
   ShowInTaskbar   =   0   'False
   Begin VB.Frame frmOp 
      Caption         =   "操作"
      Height          =   735
      Left            =   480
      TabIndex        =   1
      Top             =   3120
      Width           =   5535
      Begin VB.CommandButton CancelButton 
         Caption         =   "取消"
         Height          =   330
         Left            =   4200
         TabIndex        =   5
         Top             =   240
         Width           =   975
      End
      Begin VB.CommandButton cmdDel 
         Caption         =   "删除"
         Height          =   330
         Left            =   2920
         TabIndex        =   4
         Top             =   240
         Width           =   975
      End
      Begin VB.CommandButton cmdModify 
         Caption         =   "修改"
         Height          =   330
         Left            =   1640
         TabIndex        =   3
         Top             =   240
         Width           =   975
      End
      Begin VB.CommandButton cmdAdd 
         Caption         =   "添加"
         Height          =   330
         Left            =   360
         TabIndex        =   2
         Top             =   240
         Width           =   975
      End
   End
   Begin MSComctlLib.ListView lvAdmin 
      Height          =   2265
      Left            =   240
      TabIndex        =   0
      Top             =   720
      Width           =   5850
      _ExtentX        =   10319
      _ExtentY        =   3995
      View            =   3
      LabelEdit       =   1
      LabelWrap       =   -1  'True
      HideSelection   =   0   'False
      FlatScrollBar   =   -1  'True
      FullRowSelect   =   -1  'True
      GridLines       =   -1  'True
      _Version        =   393217
      Icons           =   "imlViewBIcon"
      SmallIcons      =   "imlViewSIcon"
      ForeColor       =   -2147483640
      BackColor       =   -2147483643
      BorderStyle     =   1
      Appearance      =   1
      NumItems        =   0
   End
   Begin VB.Label labTitle 
      AutoSize        =   -1  'True
      Caption         =   "管理员列表"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   285
      Left            =   2160
      TabIndex        =   6
      Top             =   240
      Width           =   1500
   End
End
Attribute VB_Name = "frmUserList"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Explicit
Dim opAdmin As New clsOpAdmin

Private Sub CancelButton_Click()
  Unload Me
End Sub

Private Sub cmdAdd_Click()
  opAdmin.Add lvAdmin
End Sub

Private Sub cmdDel_Click()
  opAdmin.Delete lvAdmin
End Sub

Private Sub cmdModify_Click()
  opAdmin.Modify lvAdmin
End Sub

Private Sub Form_Load()
  opAdmin.FillListView lvAdmin
End Sub