frmcheckuser.frm

VB库存管理系统

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form FrmCheckUser 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "查看用户名"
   ClientHeight    =   1905
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   4965
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1905
   ScaleWidth      =   4965
   StartUpPosition =   2  '屏幕中心
   Begin VB.Frame Frame1 
      Height          =   1815
      Left            =   3720
      TabIndex        =   1
      Top             =   0
      Width           =   1215
      Begin VB.CommandButton CmdExit 
         Caption         =   "取  消"
         Height          =   375
         Left            =   120
         TabIndex        =   4
         Top             =   1320
         Width           =   975
      End
      Begin VB.CommandButton CmdChange 
         Caption         =   "修改密码"
         Height          =   375
         Left            =   120
         TabIndex        =   3
         Top             =   720
         Width           =   975
      End
      Begin VB.CommandButton cmdAdd 
         Caption         =   "添加用户"
         Height          =   375
         Left            =   120
         TabIndex        =   2
         Top             =   240
         Width           =   975
      End
   End
   Begin MSComctlLib.ListView ListView1 
      Height          =   1695
      Left            =   0
      TabIndex        =   0
      Top             =   120
      Width           =   3615
      _ExtentX        =   6376
      _ExtentY        =   2990
      LabelWrap       =   -1  'True
      HideSelection   =   -1  'True
      AllowReorder    =   -1  'True
      FullRowSelect   =   -1  'True
      GridLines       =   -1  'True
      _Version        =   393217
      ForeColor       =   -2147483640
      BackColor       =   -2147483643
      BorderStyle     =   1
      Appearance      =   1
      NumItems        =   0
   End
End
Attribute VB_Name = "FrmCheckUser"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'查询用户名称与密码,此权限只有admin用户才拥有.

Dim lst As ListItem

Private Sub cmdAdd_Click()

Unload Me
frmAdduser.Show 1
End Sub

Private Sub cmdChange_Click()

Unload Me
frmChangePWD.Show 1
End Sub

Private Sub cmdExit_Click()
Unload Me
End Sub

Private Sub Form_Load()
 Set rs = New ADODB.Recordset
    SQL = "select * from userinfo "
    Set rs = TransactSQL(SQL)
    If rs.RecordCount = 0 Then
        MsgBox "库存中无数据", vbInformation + vbOKOnly, ginfo
'        cmdChange.Enabled = False
'        cmdSave.Enabled = False
        ListView1.Enabled = False
        Exit Sub
    Else
         With ListView1
         .Enabled = True
        .ListItems.Clear
        .ColumnHeaders.Clear
        .ColumnHeaders.Add , , "序号", 600
        .ColumnHeaders.Add , , "用户名称", 1400
        .ColumnHeaders.Add , , "用户密码", 1500
        .View = lvwReport
            .ColumnHeaders(2).Alignment = lvwColumnCenter
            .ColumnHeaders(3).Alignment = lvwColumnCenter
        End With
        
        With ListView1
           
            Do While Not rs.EOF
            For i = 1 To rs.RecordCount
                Set lst = ListView1.ListItems.Add(, , i)
                lst.SubItems(1) = Trim(rs.Fields(0).Value)
                lst.SubItems(2) = Trim(rs.Fields(1).Value)
                rs.MoveNext
            Next
            Loop
        Set lst = Nothing
        End With

    End If
End Sub