Visual Basic - Ayuda con permisos a los formularios y restricciones en VB 6.0

Life is soft - evento anual de software empresarial
   
Vista:

Ayuda con permisos a los formularios y restricciones en VB 6.0

Publicado por Mariano (41 intervenciones) el 18/01/2016 15:37:04
Permiso

Hola, quiero hacer que funcione los permisos a los formularios y restricciones en VB 6.0
Alguien me podría ayudar por favor, el proyecto es para mi trabajo

Adjunto imagen del formulario
La base de datos es en ACCES

cuando coloco el ID y luego coloco Buscar me sal el nombre del usuario y los permisos que tendría que tener pero no se como codificarlo

Aguardo la ayuda
desde ya muchas gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo

Ayuda con permisos a los formularios y restricciones en VB 6.0

Publicado por Andres Leonardo (698 intervenciones) el 19/01/2016 19:46:42
Como estan los campos en acces??
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
-1
Comentar

Ayuda con permisos a los formularios y restricciones en VB 6.0

Publicado por Mariano (41 intervenciones) el 19/01/2016 20:18:18
Hola

los campos en acces están
Id Usuario Permiso1 Permiso2 Permiso3 Permiso4 hasta permiso 20
50 Martin 1 1 1 1
57 Mariano 1 1 1 1

mi pregunta puntual es como y donde coloco el código

esto es lo que tengo

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
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
Private Sub Check22_Click()
        If Check22.Value = 1 Then
 
          Check22.Caption = "Destilde todos los capos "
          Check1.Value = 1
          Check2.Value = 1
          Check3.Value = 1
          Check4.Value = 1
          Check5.Value = 1
          Check6.Value = 1
          Check7.Value = 1
          Check8.Value = 1
          Check9.Value = 1
          Check10.Value = 1
          Check11.Value = 1
          Check12.Value = 1
          Check13.Value = 1
          Check14.Value = 1
          Check15.Value = 1
          Check16.Value = 1
          Check17.Value = 1
          Check18.Value = 1
          Check19.Value = 1
          Check20.Value = 1
 
    Else
 
        Check22.Caption = "Tilde Todos los campos  "
          Check1.Value = 0
          Check2.Value = 0
          Check3.Value = 0
          Check4.Value = 0
          Check5.Value = 0
          Check6.Value = 0
          Check7.Value = 0
          Check8.Value = 0
          Check9.Value = 0
          Check10.Value = 0
          Check11.Value = 0
          Check12.Value = 0
          Check13.Value = 0
          Check14.Value = 0
          Check15.Value = 0
          Check16.Value = 0
          Check17.Value = 0
          Check18.Value = 0
          Check19.Value = 0
          Check20.Value = 0
 
 
 
End If
 
End Sub
 
Private Sub Command1_Click()
Dim RS As ADODB.Recordset
 Set RS = New ADODB.Recordset
 If Text1.Text = "" Then
MsgBox "Debes ingresar el ID del equipo", vbCritical
Exit Sub
End If
 With RS
 .ActiveConnection = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & _
 App.Path & "\db1.mdb"
 .CursorType = adOpenStatic
 .CursorLocation = adUseClient
 .Open "Select USUARIO, PERMISO1,PERMISO2, PERMISO3,PERMISO4,PERMISO5,PERMISO6,PERMISO7,PERMISO8,PERMISO9,PERMISO10,PERMISO11,PERMISO12,PERMISO13,PERMISO14,PERMISO15,PERMISO16,PERMISO17,PERMISO18,PERMISO19,PERMISO20 from CLAVE where id =" & Text1.Text
 
 End With
 
 ' cargar el Grid
 
 'Set MSHFlexGrid1.DataSource = RS
  '   MSHFlexGrid1.SelectionMode = flexSelectionByRow
 
    If RS.RecordCount = 0 Then
    MsgBox "RecordSet vacio, intente con otro id"
    Else
          Text2.Enabled = True
          Check1.Enabled = True
          Check2.Enabled = True
          Check3.Enabled = True
          Check4.Enabled = True
          Check5.Enabled = True
          Check6.Enabled = True
          Check7.Enabled = True
          Check8.Enabled = True
          Check9.Enabled = True
          Check10.Enabled = True
          Check11.Enabled = True
          Check12.Enabled = True
          Check13.Enabled = True
          Check14.Enabled = True
          Check15.Enabled = True
          Check16.Enabled = True
          Check17.Enabled = True
          Check18.Enabled = True
          Check19.Enabled = True
          Check20.Enabled = True
 
 
        If Not IsNull(RS.Fields.Item(0).Value) Then
            Text2.Text = RS.Fields.Item(0).Value
        End If
 
        If Not IsNull(RS.Fields.Item(2).Value) Then
           Check1.Value = RS.Fields.Item(2).Value
        End If
 
        If Not IsNull(RS.Fields.Item(3).Value) Then
             Check2.Value = RS.Fields.Item(3).Value
        End If
 
        If Not IsNull(RS.Fields.Item(4).Value) Then
             Check3.Value = RS.Fields.Item(4).Value
        End If
 
         If Not IsNull(RS.Fields.Item(5).Value) Then
             Check4.Value = RS.Fields.Item(5).Value
        End If
 
         If Not IsNull(RS.Fields.Item(6).Value) Then
             Check5.Value = RS.Fields.Item(6).Value
        End If
 
         If Not IsNull(RS.Fields.Item(7).Value) Then
             Check6.Value = RS.Fields.Item(7).Value
        End If
 
         If Not IsNull(RS.Fields.Item(8).Value) Then
             Check7.Value = RS.Fields.Item(8).Value
        End If
 
         If Not IsNull(RS.Fields.Item(9).Value) Then
             Check8.Value = RS.Fields.Item(9).Value
        End If
 
         If Not IsNull(RS.Fields.Item(10).Value) Then
             Check9.Value = RS.Fields.Item(10).Value
        End If
 
         If Not IsNull(RS.Fields.Item(11).Value) Then
             Check10.Value = RS.Fields.Item(11).Value
        End If
 
         If Not IsNull(RS.Fields.Item(12).Value) Then
             Check11.Value = RS.Fields.Item(12).Value
        End If
 
         If Not IsNull(RS.Fields.Item(13).Value) Then
             Check12.Value = RS.Fields.Item(13).Value
        End If
 
          If Not IsNull(RS.Fields.Item(14).Value) Then
             Check13.Value = RS.Fields.Item(14).Value
        End If
 
          If Not IsNull(RS.Fields.Item(15).Value) Then
             Check14.Value = RS.Fields.Item(15).Value
        End If
 
          If Not IsNull(RS.Fields.Item(16).Value) Then
             Check15.Value = RS.Fields.Item(16).Value
        End If
 
          If Not IsNull(RS.Fields.Item(17).Value) Then
             Check16.Value = RS.Fields.Item(17).Value
        End If
 
            If Not IsNull(RS.Fields.Item(18).Value) Then
             Check17.Value = RS.Fields.Item(18).Value
        End If
 
            If Not IsNull(RS.Fields.Item(19).Value) Then
             Check18.Value = RS.Fields.Item(19).Value
        End If
 
            If Not IsNull(RS.Fields.Item(20).Value) Then
             Check19.Value = RS.Fields.Item(20).Value
        End If
 
 
 
 
 
    End If
End Sub
 
Private Sub Command2_Click()
Dim RS As ADODB.Recordset
Set RS = New ADODB.Recordset
 With RS
 .ActiveConnection = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & _
 App.Path & "\db1.mdb"
 .CursorType = adOpenStatic
 .CursorLocation = adUseClient
.Open "UPDATE CLAVE SET USUARIO=" & Chr(34) & Text2.Text & Chr(34) & ", PERMISO1=" & Chr(10) & Check1.Value & Chr(10) & ", PERMISO2=" & Chr(10) & Check2.Value & Chr(10) & ", PERMISO3=" & Chr(10) & Check3.Value & Chr(10) & ", PERMISO4=" & Chr(10) & Check4.Value & Chr(10) & ", PERMISO5=" & Chr(10) & Check5.Value & Chr(10) & ", PERMISO6=" & Chr(10) & Check6.Value & Chr(10) & ", PERMISO7=" & Chr(10) & Check7.Value & Chr(10) & ", PERMISO8=" & Chr(10) & Check8.Value & Chr(10) & ", PERMISO9=" & Chr(10) & Check9.Value & Chr(10) & ", PERMISO10=" & Chr(10) & Check10.Value & Chr(10) & ", PERMISO11=" & Chr(10) & Check11.Value & Chr(10) & ", PERMISO12=" & Chr(10) & Check12.Value & Chr(10) & ", PERMISO13=" & Chr(10) & Check13.Value & Chr(10) & ", PERMISO14=" & Chr(10) & Check14.Value & Chr(10) & ",PERMISO15=" & Chr(10) & Check15.Value & Chr(10) & ",PERMISO16=" & Chr(10) & Check16.Value & Chr(10) & ",PERMISO17=" & Chr(10) & Check17.Value & Chr(10) & ",PERMISO18=" & Chr(10) & Check18.Value & Chr(10) & " Where ID = " & Text1
 
 
 
 
MsgBox ("Modificacion exitosa!")
 
End With
End Sub
 
 
Private Sub Form_Load()
 
    Text1.Enabled = True
    Text2.Enabled = False
    Check1.Enabled = False
    Check2.Enabled = False
    Check3.Enabled = False
    Check4.Enabled = False
    Check5.Enabled = False
    Check6.Enabled = False
    Check7.Enabled = False
    Check8.Enabled = False
    Check9.Enabled = False
    Check10.Enabled = False
    Check11.Enabled = False
    Check12.Enabled = False
    Check13.Enabled = False
    Check14.Enabled = False
    Check15.Enabled = False
    Check16.Enabled = False
    Check17.Enabled = False
    Check18.Enabled = False
    Check19.Enabled = False
    Check20.Enabled = False
 
 
End Sub

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Ayuda con permisos a los formularios y restricciones en VB 6.0

Publicado por Mariano (41 intervenciones) el 21/01/2016 12:47:00
Hola

los campos en acces están
Id Usuario Permiso1 Permiso2 Permiso3 Permiso4 hasta permiso 20
50 Martin 1 1 1 1
57 Mariano 1 1 1 1

mi pregunta puntual es como y donde coloco el código

esto es lo que tengo

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
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
Private Sub Check22_Click()
        If Check22.Value = 1 Then
 
          Check22.Caption = "Destilde todos los capos "
          Check1.Value = 1
          Check2.Value = 1
          Check3.Value = 1
          Check4.Value = 1
          Check5.Value = 1
          Check6.Value = 1
          Check7.Value = 1
          Check8.Value = 1
          Check9.Value = 1
          Check10.Value = 1
          Check11.Value = 1
          Check12.Value = 1
          Check13.Value = 1
          Check14.Value = 1
          Check15.Value = 1
          Check16.Value = 1
          Check17.Value = 1
          Check18.Value = 1
          Check19.Value = 1
          Check20.Value = 1
 
    Else
 
        Check22.Caption = "Tilde Todos los campos  "
          Check1.Value = 0
          Check2.Value = 0
          Check3.Value = 0
          Check4.Value = 0
          Check5.Value = 0
          Check6.Value = 0
          Check7.Value = 0
          Check8.Value = 0
          Check9.Value = 0
          Check10.Value = 0
          Check11.Value = 0
          Check12.Value = 0
          Check13.Value = 0
          Check14.Value = 0
          Check15.Value = 0
          Check16.Value = 0
          Check17.Value = 0
          Check18.Value = 0
          Check19.Value = 0
          Check20.Value = 0
 
 
 
End If
 
End Sub
 
Private Sub Command1_Click()
Dim RS As ADODB.Recordset
 Set RS = New ADODB.Recordset
 If Text1.Text = "" Then
MsgBox "Debes ingresar el ID del equipo", vbCritical
Exit Sub
End If
 With RS
 .ActiveConnection = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & _
 App.Path & "\db1.mdb"
 .CursorType = adOpenStatic
 .CursorLocation = adUseClient
 .Open "Select USUARIO, PERMISO1,PERMISO2, PERMISO3,PERMISO4,PERMISO5,PERMISO6,PERMISO7,PERMISO8,PERMISO9,PERMISO10,PERMISO11,PERMISO12,PERMISO13,PERMISO14,PERMISO15,PERMISO16,PERMISO17,PERMISO18,PERMISO19,PERMISO20 from CLAVE where id =" & Text1.Text
 
 End With
 
 ' cargar el Grid
 
 
 'Set MSHFlexGrid1.DataSource = RS
 
  '   MSHFlexGrid1.SelectionMode = flexSelectionByRow
 
 
    If RS.RecordCount = 0 Then
    MsgBox "RecordSet vacio, intente con otro id"
    Else
          Text2.Enabled = True
          Check1.Enabled = True
          Check2.Enabled = True
          Check3.Enabled = True
          Check4.Enabled = True
          Check5.Enabled = True
          Check6.Enabled = True
          Check7.Enabled = True
          Check8.Enabled = True
          Check9.Enabled = True
          Check10.Enabled = True
          Check11.Enabled = True
          Check12.Enabled = True
          Check13.Enabled = True
          Check14.Enabled = True
          Check15.Enabled = True
          Check16.Enabled = True
          Check17.Enabled = True
          Check18.Enabled = True
          Check19.Enabled = True
          Check20.Enabled = True
 
 
        If Not IsNull(RS.Fields.Item(0).Value) Then
            Text2.Text = RS.Fields.Item(0).Value
        End If
 
        If Not IsNull(RS.Fields.Item(2).Value) Then
           Check1.Value = RS.Fields.Item(2).Value
        End If
 
        If Not IsNull(RS.Fields.Item(3).Value) Then
             Check2.Value = RS.Fields.Item(3).Value
        End If
 
        If Not IsNull(RS.Fields.Item(4).Value) Then
             Check3.Value = RS.Fields.Item(4).Value
        End If
 
         If Not IsNull(RS.Fields.Item(5).Value) Then
             Check4.Value = RS.Fields.Item(5).Value
        End If
 
         If Not IsNull(RS.Fields.Item(6).Value) Then
             Check5.Value = RS.Fields.Item(6).Value
        End If
 
         If Not IsNull(RS.Fields.Item(7).Value) Then
             Check6.Value = RS.Fields.Item(7).Value
        End If
 
         If Not IsNull(RS.Fields.Item(8).Value) Then
             Check7.Value = RS.Fields.Item(8).Value
        End If
 
         If Not IsNull(RS.Fields.Item(9).Value) Then
             Check8.Value = RS.Fields.Item(9).Value
        End If
 
         If Not IsNull(RS.Fields.Item(10).Value) Then
             Check9.Value = RS.Fields.Item(10).Value
        End If
 
         If Not IsNull(RS.Fields.Item(11).Value) Then
             Check10.Value = RS.Fields.Item(11).Value
        End If
 
         If Not IsNull(RS.Fields.Item(12).Value) Then
             Check11.Value = RS.Fields.Item(12).Value
        End If
 
         If Not IsNull(RS.Fields.Item(13).Value) Then
             Check12.Value = RS.Fields.Item(13).Value
        End If
 
          If Not IsNull(RS.Fields.Item(14).Value) Then
             Check13.Value = RS.Fields.Item(14).Value
        End If
 
          If Not IsNull(RS.Fields.Item(15).Value) Then
             Check14.Value = RS.Fields.Item(15).Value
        End If
 
          If Not IsNull(RS.Fields.Item(16).Value) Then
             Check15.Value = RS.Fields.Item(16).Value
        End If
 
          If Not IsNull(RS.Fields.Item(17).Value) Then
             Check16.Value = RS.Fields.Item(17).Value
        End If
 
            If Not IsNull(RS.Fields.Item(18).Value) Then
             Check17.Value = RS.Fields.Item(18).Value
        End If
 
            If Not IsNull(RS.Fields.Item(19).Value) Then
             Check18.Value = RS.Fields.Item(19).Value
        End If
 
            If Not IsNull(RS.Fields.Item(20).Value) Then
             Check19.Value = RS.Fields.Item(20).Value
        End If
 
 
 
 
 
    End If
End Sub
 
Private Sub Command2_Click()
Dim RS As ADODB.Recordset
Set RS = New ADODB.Recordset
 With RS
 .ActiveConnection = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & _
 App.Path & "\db1.mdb"
 .CursorType = adOpenStatic
 .CursorLocation = adUseClient
.Open "UPDATE CLAVE SET USUARIO=" & Chr(34) & Text2.Text & Chr(34) & ", PERMISO1=" & Chr(10) & Check1.Value & Chr(10) & ", PERMISO2=" & Chr(10) & Check2.Value & Chr(10) & ", PERMISO3=" & Chr(10) & Check3.Value & Chr(10) & ", PERMISO4=" & Chr(10) & Check4.Value & Chr(10) & ", PERMISO5=" & Chr(10) & Check5.Value & Chr(10) & ", PERMISO6=" & Chr(10) & Check6.Value & Chr(10) & ", PERMISO7=" & Chr(10) & Check7.Value & Chr(10) & ", PERMISO8=" & Chr(10) & Check8.Value & Chr(10) & ", PERMISO9=" & Chr(10) & Check9.Value & Chr(10) & ", PERMISO10=" & Chr(10) & Check10.Value & Chr(10) & ", PERMISO11=" & Chr(10) & Check11.Value & Chr(10) & ", PERMISO12=" & Chr(10) & Check12.Value & Chr(10) & ", PERMISO13=" & Chr(10) & Check13.Value & Chr(10) & ", PERMISO14=" & Chr(10) & Check14.Value & Chr(10) & ",PERMISO15=" & Chr(10) & Check15.Value & Chr(10) & ",PERMISO16=" & Chr(10) & Check16.Value & Chr(10) & ",PERMISO17=" & Chr(10) & Check17.Value & Chr(10) & ",PERMISO18=" & Chr(10) & Check18.Value & Chr(10) & " Where ID = " & Text1
 
 
 
 
MsgBox ("Modificacion exitosa!")
 
End With
End Sub
 
 
Private Sub Form_Load()
 
    Text1.Enabled = True
    Text2.Enabled = False
    Check1.Enabled = False
    Check2.Enabled = False
    Check3.Enabled = False
    Check4.Enabled = False
    Check5.Enabled = False
    Check6.Enabled = False
    Check7.Enabled = False
    Check8.Enabled = False
    Check9.Enabled = False
    Check10.Enabled = False
    Check11.Enabled = False
    Check12.Enabled = False
    Check13.Enabled = False
    Check14.Enabled = False
    Check15.Enabled = False
    Check16.Enabled = False
    Check17.Enabled = False
    Check18.Enabled = False
    Check19.Enabled = False
    Check20.Enabled = False
 
 
End Sub

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar