FrmsUsers.frm
3.99 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form FrmUsers
Caption = "Usuários"
ClientHeight = 3345
ClientLeft = 60
ClientTop = 345
ClientWidth = 3375
Icon = "FrmsUsers.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3345
ScaleWidth = 3375
StartUpPosition = 2 'CenterScreen
Begin VB.Frame Frame1
Height = 3345
Left = 0
TabIndex = 0
Top = -30
Width = 3375
Begin MSComctlLib.ImageList ImageList1
Left = 2340
Top = 2760
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 1
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmsUsers.frx":0320
Key = ""
EndProperty
EndProperty
End
Begin VB.CommandButton cmdEdit
Caption = "Editar"
Height = 375
Left = 1170
TabIndex = 2
Top = 2880
Width = 855
End
Begin VB.CommandButton cmdNew
Caption = "Novo"
Height = 375
Left = 210
TabIndex = 1
Top = 2880
Width = 855
End
Begin MSComctlLib.ListView LvUsers
Height = 2535
Left = 210
TabIndex = 3
Top = 240
Width = 2895
_ExtentX = 5106
_ExtentY = 4471
View = 3
LabelEdit = 1
Sorted = -1 'True
LabelWrap = -1 'True
HideSelection = -1 'True
HideColumnHeaders= -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
SmallIcons = "ImageList1"
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 1
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Object.Width = 2540
EndProperty
End
End
End
Attribute VB_Name = "FrmUsers"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Conn As ADODB.Connection
Private Sub cmdEdit_Click()
If Not (LvUsers.SelectedItem Is Nothing) Then
FrmUser.Init Conn, LvUsers.SelectedItem.Tag
Else
MsgBox "Selecione um usuário", vbExclamation
End If
End Sub
Public Function Init(MyConn As ADODB.Connection) As Boolean
On Error GoTo Users_Init_Error
Set Conn = MyConn
UpdateForm
LvUsers.ColumnHeaders.Item(1).Width = LvUsers.Width - 350
Me.Show vbModal
Init = True
Exit Function
Users_Init_Error:
MsgBox "Users_Init_Error" & " " & Err.Description
End Function
Private Sub cmdNew_Click()
FrmUser.Init Conn, 0
UpdateForm
End Sub
Private Sub UpdateForm()
Dim Rs As ADODB.Recordset
Dim MyUsers As New NexusUsers.clsUsers
Set Rs = MyUsers.Users.SelectAllUsers(Conn)
LvUsers.ListItems.Clear
Dim Itmx As ListItem
While Not Rs.EOF
Set Itmx = LvUsers.ListItems.Add(, , Rs.Fields("UsrNom").Value, , 1)
Itmx.Tag = Rs.Fields("UsrId").Value
Rs.MoveNext
Wend
Rs.Close
Set Rs = Nothing
Set MyUsers = Nothing
End Sub