frmreservation.frm

Call centeer gestion de usuarios todo ello gratis y bajo windows

Dim x As Integer
    lvroom.ListItems.Clear
While Not rs.EOF
  Set lst = lvroom.ListItems.Add(, , rs(0), , 1)
For x = 1 To 2
   lst.SubItems(x) = rs(x)
   If rs.Fields(3) = True Then lst.SubItems(1) = "OCCUPIED"
Next x
rs.MoveNext
Wend
End Sub


Private Sub l_DblClick()
check_RS
rs.Open "select * from guest order by guest_id asc", Cnn
While Not rs.EOF
If l.SelectedItem.Text = rs!guest_id Then
    Label14.Caption = rs!guest_id
    lblGC.Caption = rs!guest_id
    txtLN.Text = rs!last_name
    txtFN.Text = rs!first_name
    txtMI.Text = rs!MI
    txtAddress.Text = rs!Address
    txtAge.Text = rs!Age
    txtSex.Text = rs!Sex
    txtNationality.Text = rs!Nationality
    txtTelNo.Text = rs!tel_no
    txtCompany.Text = rs!Company
    rs.MoveLast
    rs.MoveNext
Else
    rs.MoveNext
End If
Wend
Call Lock_Text
Frame3.Visible = False
Command4.Visible = True
End Sub



Private Sub Label20_Click()
Unload Me
End Sub



Private Sub lvroom_Click()
check_RS
rs.Open "select * from room order by room_no asc", Cnn
While Not rs.EOF
If lvroom.SelectedItem.Text = rs!room_no Then
    lblRoomNo.Caption = rs!room_no
    Label13.Caption = rs!Rate
    rs.MoveLast
    rs.MoveNext
Else
    rs.MoveNext
End If
Wend
check_RS
rs.Open "select * from room_reservation where room_reservation.room_no = " & lblRoomNo, Cnn
filltt
End Sub

Private Sub Option1_Click()
Guest = "new"
Frame3.Visible = False
Command4.Visible = False
Label14 = G
Call Clear_Text
Call Unlock_Text
End Sub

Private Sub Option2_Click()
Guest = "old"
Frame3.Visible = True
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.key
Case "Cancel"
Unload Me
'=======
Case "Save"
If ValidData Then
Frame2.Visible = False
End If
'=======
End Select
End Sub
Private Sub Conflick()
On Error GoTo r
check_RS
rs.Open "select * from room_reservation order by room_res_no asc", Cnn
While Not rs.EOF
If txtDateReserved.Text = rs!date_reserved And lblRoomNo.Caption = rs!room_no Then
MsgBox "Conflick"
rs.MoveLast
    rs.MoveNext
Else
    rs.MoveNext
    End If
Wend
r:
End Sub

Private Sub Toolbar2_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.key
Case "Save"
T = 1
If ValidDataRes Then
check_RS
rs.Open "select * from room_reservation order by room_res_no asc", Cnn
While Not rs.EOF
If lblRoomNo.Caption = rs!room_no And txtReservedDate.Text = rs!date_reserved Then
MsgBox "Conflick Detected, Please check your Reservation System", vbInformation, "Conflick Detected"
rs.MoveLast
rs.MoveNext
Exit Sub
ElseIf lblRoomNo.Caption = rs!room_no And txtReservedDate.Text = rs!date_reserved _
And txtEndDate.Text = rs!lenght_of_stay Then
MsgBox "Conflick Detected, Please check your Reservation System", vbInformation, "Conflick Detected"
rs.MoveLast
rs.MoveNext
Exit Sub
ElseIf txtReservedDate.Text >= rs!date_reserved And txtReservedDate.Text < rs!lenght_of_stay And _
lblRoomNo.Caption = rs!room_no Then
MsgBox "Conflick Detected, Please check your Reservation System", vbInformation, "Conflick Detected"
rs.MoveLast
rs.MoveNext
Exit Sub
ElseIf txtReservedDate.Text < rs!lenght_of_stay And lblRoomNo.Caption = rs!room_no Then
MsgBox "Conflick Detected, Please check your Reservation System", vbInformation, "Conflick Detected"
rs.MoveLast
rs.MoveNext
Exit Sub
ElseIf txtReservedDate.Text > rs!date_reserved And lblRoomNo.Caption = rs!room_no _
And rs!lenght_of_stay > txtReservedDate.Text Then
MsgBox "Conflick Detected, Please check your Reservation System", vbInformation, "Conflick Detected"
rs.MoveLast
rs.MoveNext
Exit Sub

Else
rs.MoveNext
End If
Wend
'================
check_RStemp
rstemp.Open "select * from room_reservation", Cnn
'================
While rstemp.RecordCount > 0
check_RStemp
T = T + 1
rstemp.Open "select * from room_reservation where room_res_no = " & T, Cnn
Wend
Label22 = "Transaction No." & T
lblResNo = T
'================
check_RS2
rs2.Open "select * from room_reservation", Cnn
Cnn.Execute "insert into room_reservation (room_res_no,guest_id,room_no,reservation_date,date_reserved,lenght_of_stay,status) values (" & T & ", '" & lblGC.Caption & _
"', '" & lblRoomNo.Caption & "', '" & lblDate.Caption & "', '" & txtReservedDate.Text & "', '" & txtEndDate.Text & "', '" & Status & "')"
'================
fillt
Command2.Enabled = True
Command1.Enabled = False
rs1.Requery 1
If MsgBox("Add another? ", vbYesNo, "?") = vbNo Then
'================
If Guest = "old" Then
rs1.Requery 1
Unload Me
ElseIf Guest = "new" Then
check_RStemp
rstemp.Open "select * from guest", Cnn
Cnn.Execute "INSERT INTO guest (guest_id, last_name, first_name, mi, address, age, sex, nationality, tel_no, company) VALUES (" & lblGC.Caption & ", '" & txtLN.Text & _
"', '" & txtFN.Text & "', '" & txtMI.Text & "', '" & txtAddress.Text & "', '" & txtAge.Text & "', '" & txtSex.Text & "', '" & txtNationality.Text & "', '" & txtTelNo.Text & _
"', '" & txtCompany.Text & "')"    '
rs1.Requery 1
Unload Me
End If
End If
End If
End Select
End Sub

Private Sub txtEndDate_Change()
'If txtReservedDate.Text > txtEndDate.Text Then
'MsgBox "Checkout date must be higher than reserved date...", vbInformation, "IIS-CVH"
'txtEndDate = ""
'Else

'End If
End Sub
Private Sub txt()
If txtReservedDate.Text > txtEndDate.Text Then
MsgBox "Checkout date must be higher than reserved date...", vbInformation, "IIS-CVH"
txtEndDate = ""
'Else

End If
End Sub

Private Sub txtLN_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or KeyAscii <= vbKeyBack Then
                Exit Sub
            Else
                KeyAscii = 0
            End If
End Sub
Private Sub txtFN_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or KeyAscii <= vbKeyBack Then
                Exit Sub
            Else
                KeyAscii = 0
            End If
End Sub
Private Sub txtMI_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or KeyAscii <= vbKeyBack Then
                Exit Sub
            Else
                KeyAscii = 0
            End If
End Sub

Private Sub txtSex_GotFocus() '(KeyAscii As Integer)
Combo1.Visible = True
If Not (KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or KeyAscii <= vbKeyBack Then
                Exit Sub
            Else
                KeyAscii = 0
            End If
End Sub
Private Sub txtAge_KeyPress(KeyAscii As Integer)
If (KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or KeyAscii <= vbKeyBack Then
                Exit Sub
            Else
                KeyAscii = 0
            End If
End Sub
Private Sub txtNationality_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or KeyAscii <= vbKeyBack Then
                Exit Sub
            Else
                KeyAscii = 0
            End If
End Sub
Private Sub txtTelNo_KeyPress(KeyAscii As Integer)
If (KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or KeyAscii <= vbKeyBack Then
                Exit Sub
            Else
                KeyAscii = 0
            End If
End Sub
Private Sub Clear_Text()
    lblGC.Caption = G
    txtLN.Text = ""
    txtFN.Text = ""
    txtMI.Text = ""
    txtAddress.Text = ""
    txtAge.Text = ""
    txtSex.Text = ""
    txtNationality.Text = ""
    txtTelNo.Text = ""
    txtCompany.Text = ""
End Sub
Private Sub Unlock_Text()
    txtLN.Locked = False
    txtFN.Locked = False
    txtMI.Locked = False
    txtAddress.Locked = False
    txtAge.Locked = False
    txtSex.Locked = False
    txtNationality.Locked = False
    txtTelNo.Locked = False
    txtCompany.Locked = False
End Sub

Private Sub Lock_Text()
    txtLN.Locked = True
    txtFN.Locked = True
    txtMI.Locked = True
    txtAddress.Locked = True
    txtAge.Locked = True
    txtSex.Locked = True
    txtNationality.Locked = True
    txtTelNo.Locked = True
    txtCompany.Locked = True
End Sub
Private Sub fillt()
check_RS
rs.Open "select * from room_reservation where room_reservation.guest_id = " & lblGC, Cnn
lvtran.ListItems.Clear
lvtran.Refresh
Dim i As Integer
i = 1
While Not rs.EOF
lvtran.Refresh
lvtran.ListItems.Add
lvtran.ListItems(i).Text = rs(0).Value
lvtran.ListItems(i).SubItems(1) = rs(1).Value
lvtran.ListItems(i).SubItems(2) = rs(2).Value
lvtran.ListItems(i).SubItems(3) = rs(3).Value
lvtran.ListItems(i).SubItems(4) = rs(4).Value
lvtran.ListItems(i).SubItems(5) = rs(5).Value
i = i + 1
rs.MoveNext
Wend
End Sub
Private Sub filltt()
'check_RS
'rs.Open "select * from room_reservation order by room_res_no asc", Cnn
ll.ListItems.Clear
ll.Refresh
Dim i As Integer
i = 1
While Not rs.EOF
ll.Refresh
ll.ListItems.Add
ll.ListItems(i).Text = rs(0).Value
ll.ListItems(i).SubItems(1) = rs(1).Value
ll.ListItems(i).SubItems(2) = rs(2).Value
ll.ListItems(i).SubItems(3) = rs(3).Value
ll.ListItems(i).SubItems(4) = rs(4).Value
ll.ListItems(i).SubItems(5) = rs(5).Value
i = i + 1
rs.MoveNext
Wend
End Sub

Public Sub fillg()
check_RS
rs.Open "select * from guest", Cnn
Dim x As Integer
l.ListItems.Clear
While Not rs.EOF
Set lst = l.ListItems.Add(, , rs(0), , 1)
     For x = 1 To 9
     lst.SubItems(x) = rs(x)
     Next x
rs.MoveNext
Wend
End Sub

Private Sub fillttt()
check_RS
rs.Open "select * from room_reservation order by room_res_no asc", Cnn
ll.ListItems.Clear
ll.Refresh
Dim i As Integer
i = 1
While Not rs.EOF
ll.Refresh
ll.ListItems.Add
ll.ListItems(i).Text = rs(0).Value
ll.ListItems(i).SubItems(1) = rs(1).Value
ll.ListItems(i).SubItems(2) = rs(2).Value
ll.ListItems(i).SubItems(3) = rs(3).Value
ll.ListItems(i).SubItems(4) = rs(4).Value
ll.ListItems(i).SubItems(5) = rs(5).Value
i = i + 1
rs.MoveNext
Wend
End Sub