frmothers.frm

Call centeer gestion de usuarios todo ello gratis y bajo windows

         BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            Text            =   "Engineering No."
            Object.Width           =   3528
         EndProperty
         BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            SubItemIndex    =   1
            Text            =   "Description"
            Object.Width           =   4992
         EndProperty
      End
      Begin MSComctlLib.Toolbar Toolbar1 
         Height          =   570
         Left            =   120
         TabIndex        =   6
         Top             =   3240
         Width           =   3735
         _ExtentX        =   6588
         _ExtentY        =   1005
         ButtonWidth     =   1984
         ButtonHeight    =   1005
         Appearance      =   1
         Style           =   1
         TextAlignment   =   1
         ImageList       =   "ImageList2"
         _Version        =   393216
         BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
            NumButtons      =   5
            BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Caption         =   "Add"
               Key             =   "Add"
               ImageIndex      =   1
            EndProperty
            BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
            BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Caption         =   "Edit"
               Key             =   "Edit"
               ImageIndex      =   2
            EndProperty
            BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
            BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Caption         =   "Trash"
               Key             =   "Trash"
               ImageIndex      =   3
            EndProperty
         EndProperty
      End
      Begin MSComctlLib.Toolbar Toolbar3 
         Height          =   570
         Left            =   -74880
         TabIndex        =   7
         Top             =   3240
         Width           =   3735
         _ExtentX        =   6588
         _ExtentY        =   1005
         ButtonWidth     =   1984
         ButtonHeight    =   1005
         Appearance      =   1
         Style           =   1
         TextAlignment   =   1
         ImageList       =   "ImageList2"
         _Version        =   393216
         BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
            NumButtons      =   5
            BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Caption         =   "Add"
               Key             =   "Add"
               ImageIndex      =   1
            EndProperty
            BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
            BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Caption         =   "Edit"
               Key             =   "Edit"
               ImageIndex      =   2
            EndProperty
            BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
            BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Caption         =   "Trash"
               Key             =   "Trash"
               ImageIndex      =   3
            EndProperty
         EndProperty
      End
   End
End
Attribute VB_Name = "frmOthers"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public berg As String
Public ron As String
Public nad As String

Private Sub Command1_Click()
Unload Me
End Sub


Private Sub Form_Load()
'=======
check_RS2
rs2.Open "select * from engineering order by eng_no asc", Cnn
fillEng
'=======
check_RS
rs.Open "select * from function order by function_no asc", Cnn
fillFunction
'=======
check_RS1
rs1.Open "select * from setup order by setup_no asc", Cnn
fillSetup
'=======
End Sub
Public Sub fillFunction()
check_RS
rs.Open "select * from function order by function_no asc", Cnn
Dim x As Integer
    lvF.ListItems.Clear
While Not rs.EOF
  Set lst = lvF.ListItems.Add(, , rs(0), , 1)
For x = 1 To 1
   lst.SubItems(x) = rs(x)
Next x
rs.MoveNext
Wend
End Sub
Public Sub fillSetup()
check_RS1
rs1.Open "select * from setup order by setup_no asc", Cnn
Dim x As Integer
    lvS.ListItems.Clear
While Not rs1.EOF
  Set lst = lvS.ListItems.Add(, , rs1(0), , 1)
For x = 1 To 1
   lst.SubItems(x) = rs1(x)
Next x
rs1.MoveNext
Wend
End Sub
Public Sub fillEng()
check_RS2
rs2.Open "select * from engineering order by eng_no asc", Cnn
Dim x As Integer
    lvE.ListItems.Clear
While Not rs2.EOF
  Set lst = lvE.ListItems.Add(, , rs2(0), , 1)
For x = 1 To 1
   lst.SubItems(x) = rs2(x)
Next x
rs2.MoveNext
Wend
End Sub


Private Sub Label1_Click()
Unload Me
End Sub
Private Sub Label2_Click()
Unload Me
End Sub
Private Sub Label3_Click()
Unload Me
End Sub

Private Sub lvE_DblClick()
On Error GoTo m
Dim x As Integer
nad = "edit"
EngData.data(0) = lvE.SelectedItem.Text
EngData.data(0).Locked = True
'frmFuncRoomData.Label1.Visible = False
For x = 1 To 1
EngData.data(x) = lvE.SelectedItem.SubItems(x)
Next x
'Load FunctionData
EngData.Show 1
m:
End Sub

Private Sub lvF_DblClick()
On Error GoTo m
Dim x As Integer
berg = "edit"
FunctionData.data(0) = lvF.SelectedItem.Text
FunctionData.data(0).Locked = True
'frmFuncRoomData.Label1.Visible = False
For x = 1 To 1
FunctionData.data(x) = lvF.SelectedItem.SubItems(x)
Next x
'Load FunctionData
FunctionData.Show 1
m:
End Sub


Private Sub lvS_DblClick()
On Error GoTo m
Dim x As Integer
ron = "edit"
SetupData.data(0) = lvS.SelectedItem.Text
SetupData.data(0).Locked = True
'frmFuncRoomData.Label1.Visible = False
For x = 1 To 1
SetupData.data(x) = lvS.SelectedItem.SubItems(x)
Next x
'Load FunctionData
SetupData.Show 1
m:
End Sub


Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.key
'=======
Case "Add"
berg = "add"
'Load FunctionData
FunctionData.Show 1
'=======
Case "Edit"
Call lvF_DblClick
'=======
Case "Trash"
If MsgBox("Are you sure do you want to delete " & lvF.SelectedItem.SubItems(1), vbYesNo) = vbYes Then
Cnn.Execute "delete from function where function_no = " & lvF.SelectedItem.Text
rs.Requery 1
fillFunction
End If
'=======
Case "Close"
Unload Me

'=======
End Select

End Sub

Private Sub Toolbar2_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.key
'=======
Case "Add"
ron = "add"
'Load SetupData
SetupData.Show 1
'=======
Case "Edit"
Call lvS_DblClick
'=======
Case "Trash"
If MsgBox("Are you sure do you want to delete " & lvS.SelectedItem.SubItems(1), vbYesNo) = vbYes Then
Cnn.Execute "delete from setup where setup_no = " & lvS.SelectedItem.Text
rs.Requery 1
fillSetup
End If
'=======
Case "Close"
Unload Me

'=======
End Select

End Sub

Private Sub Toolbar3_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.key
'=======
Case "Add"
nad = "add"
'Load SetupData
EngData.Show 1
'=======
Case "Edit"
Call lvE_DblClick
'=======
Case "Trash"
If MsgBox("Are you sure do you want to delete " & lvE.SelectedItem.SubItems(1), vbYesNo) = vbYes Then
Cnn.Execute "delete from engineering where eng_no = " & lvE.SelectedItem.Text
rs.Requery 1
fillEng
End If
'=======
Case "Close"
Unload Me

'=======
End Select
End Sub