frmbar.frm

来自「Call centeer gestion de usuarios todo el」· FRM 代码 · 共 892 行 · 第 1/2 页

         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00008000&
      Height          =   375
      Left            =   2160
      TabIndex        =   21
      Top             =   0
      Width           =   495
   End
   Begin VB.Label Label10 
      Alignment       =   2  'Center
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Label10"
      Height          =   375
      Left            =   8760
      TabIndex        =   20
      Top             =   4200
      Width           =   1455
   End
   Begin VB.Label Label9 
      Alignment       =   2  'Center
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Label9"
      Height          =   375
      Left            =   8760
      TabIndex        =   19
      Top             =   3240
      Width           =   1455
   End
   Begin VB.Label lblRTN 
      Alignment       =   2  'Center
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "rtn"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   8760
      TabIndex        =   18
      Top             =   3720
      Width           =   1455
   End
   Begin VB.Label Label8 
      Alignment       =   2  'Center
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   1  'Fixed Single
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   375
      Left            =   6840
      TabIndex        =   5
      Top             =   8520
      Width           =   1695
   End
   Begin VB.Label Label7 
      BackStyle       =   0  'Transparent
      Caption         =   "Total"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   255
      Left            =   6120
      TabIndex        =   4
      Top             =   8520
      Width           =   1095
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "Transaction N0."
      BeginProperty Font 
         Name            =   "Monotype Corsiva"
         Size            =   15.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00008000&
      Height          =   375
      Left            =   -960
      TabIndex        =   2
      Top             =   0
      Width           =   4215
   End
End
Attribute VB_Name = "frmBar"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public sw1, seed, eks, way, a, b, c, d, e, f, G, beat, X, z As Integer
Public btn As Integer
Public TotalAmount As Currency
Public Amount As Currency
Dim datenow As String
Dim TransType As String

Private Sub cboGuestType_Click()
If cboGuestType.ListIndex = 1 Then
   Label11.Caption = "Walk-In"
   txtGuestNo = ""
   lblRTN = "0"
   Label5 = "Walk-In Guest"
   l.Enabled = False
   lblRoomNo = ""
Else: Label11 = ""
   lblRTN = ""
   lblRoomNo = ""
   l.Enabled = True
End If
End Sub

Private Sub Command1_Click()
If Command1.Caption = "<< Cancel <<" Then
   Unload Me
ElseIf Command1.Caption = ">> Proceed >>" Then
If bar2.bar = "back" Then
Cnn.Execute "update bar set total = " & Label9 & " where bar_trans_no = " & Label6
bar2.txtsearch = btn
bar2.Label9 = Label9
End If
'Else
cboGuestType.Visible = True
l.Enabled = True
check_RS1
rs1.Open "select * from bar where bar_trans_no = " & btn, Cnn
If rs1.RecordCount = 0 Then
Cnn.Execute "INSERT INTO bar (bar_trans_no, room_trans_no, trans_date, total) VALUES (" & btn & ", '" & lblRTN & _
"', '" & Label4.Caption & "', '" & Label9.Caption & "')"     '
End If
bar2.txtsearch = btn
bar2.Label9 = Label9
Load bar2
bar2.Show 1
End If
End Sub


Private Sub Command2_Click()
If MsgBox("Are you sure do you want to cancel this transaction, All details will be deleted. ", vbYesNo) = vbYes Then
Cnn.Execute "delete * from bar_details where bar_trans_no = " & Label6
Cnn.Execute "delete * from bar where bar_trans_no = " & Label6
rs.Requery 1
Unload frmBar
End If
End Sub

Private Sub Form_Load()
Amount = 0
TotalAmount = 0
'TransType = "Restaurant Order Transaction"
datenow = Format(Date, "mmdd")
'===========
check_RS
rs.Open "select * from liquor order by liquor_no asc", Cnn
fill
'===========
btn = 1
check_RS1
rs1.Open "select * from bar " & txtsearch, Cnn
While Not rs1.RecordCount = 0
 check_RS1
 btn = btn + 1
 rs1.Open "select * from bar_details where bar_trans_no = " & btn, Cnn
Wend
 Label6 = btn
cboGuestType.ListIndex = 0
'===========
check_RS1
rs1.Open "select * from guest", Cnn
While Not rs1.EOF
rs1.MoveNext
Wend
'===========
check_RS2
rs2.Open "select * from room_transaction order by room_trans_no", Cnn
fillrt
'===========
Label4 = Date
Command1.Caption = "<< Cancel <<"
'Label5.Visible = False
End Sub
Public Sub fill()
check_RS
rs.Open "select * from liquor order by liquor_no asc", Cnn

Dim X As Integer
  lv.ListItems.Clear
  While Not rs.EOF
 
     Set lst = lv.ListItems.Add(, , rs(0), , 1)
         For X = 1 To 2
           lst.SubItems(X) = rs(X)
                    
           If Val(rs(2)) = 0 Then lst.SubItems(2) = "OUT OF STOCK"
          Next X
          For X = 3 To 5
          lst.SubItems(X) = rs(X + 1)
          Next X
    rs.MoveNext
  Wend

End Sub
Public Sub fillNAME()
If txtGuestNo = "" Then
lblName = ""
Exit Sub
End If
check_RStemp
rstemp.Open "select * from guest where guest_id = " & txtGuestNo, Cnn
lblName = rstemp(1) & ", " & rstemp(2) & " " & rstemp(3) & "."
check_RS
rs.Open "select * from room_transaction where guest_id = " & txtGuestNo, Cnn
Label11 = btn
End Sub


Private Sub l_Click()
On Error GoTo r
check_RS
rs.Open "select * from room_transaction order by room_trans_no asc", Cnn
While Not rs.EOF
If l.SelectedItem.Text = rs!room_trans_no Then
    lblRTN.Caption = rs!room_trans_no
    Label11.Caption = rs!guest_id
    lblRoomNo.Caption = rs!room_no
    rs.MoveLast
    rs.MoveNext
Else
    rs.MoveNext
End If
Wend
'==========
r:
End Sub



Private Sub lv_DblClick()
Dim tempQTY As String
Dim tempNUM, tempQ As String
'==========
If Label11 = "" And cboGuestType.ListIndex = 0 Then
MsgBox "Please choose a customer...", vbInformation, "IIS-CVH"
Exit Sub
End If
If lv.SelectedItem.ListSubItems(2) = "OUT OF STOCK" Then
MsgBox "This drinks is out of stock!", vbInformation, "IIS-CVH"
Exit Sub
End If
'==========
tempQTY = "0"
While Val(tempQTY) > Val(lv.SelectedItem.SubItems(2)) Or tempQTY = "0" Or IsNumeric(tempQTY) = False
'==========
tempQTY = InputBox("Please enter the quantity.. ", lv.SelectedItem.ListSubItems(1))
'==========
If Val(tempQTY) > Val(lv.SelectedItem.SubItems(2)) Then
MsgBox "The number you entered is greater than the number of item in stock, Please try again."
tempQTY = ""
ElseIf tempQTY = "" Then
Exit Sub
End If
Wend
'===========
Amount = Val(tempQTY) * Val(lv.SelectedItem.ListSubItems(3))
Label10.Caption = Amount
TotalAmount = TotalAmount + Amount
Label9.Caption = TotalAmount
'===========
Cnn.Execute "insert into bar_details values(" & btn & ",'" & lv.SelectedItem.Text & "'," & _
tempQTY & "," & Amount & ")"
'===========
tempQ = Val(lv.SelectedItem.ListSubItems(2)) - Val(tempQTY)
'===========
Cnn.Execute "update liquor set quantity = " & tempQ & " where liquor_no = " & lv.SelectedItem.Text
'===========
fill2
rs.Requery 1
fill
Command1.Caption = ">> Proceed >>"
l.Enabled = False
cboGuestType.Visible = False
'===========
If MsgBox("Add another? ", vbYesNo, "?") = vbNo Then
If bar2.bar = "back" Then
Cnn.Execute "update bar set total = " & Label9 & " where bar_trans_no = " & Label6
bar2.txtsearch = btn
bar2.Label9 = Label9
End If
'Else
cboGuestType.Visible = True
l.Enabled = True
check_RS1
rs1.Open "select * from bar where bar_trans_no = " & btn, Cnn
If rs1.RecordCount = 0 Then
Cnn.Execute "INSERT INTO bar (bar_trans_no, room_trans_no, trans_date, total) VALUES (" & btn & ", '" & lblRTN & _
"', '" & Label4.Caption & "', '" & Label9.Caption & "')"     '
End If
bar2.txtsearch = btn
bar2.Label9 = Label9
Load bar2
bar2.Show 1
End If
'End If
'c:
End Sub
Private Sub fill2()
check_RS
rs.Open "select * from bar_details where bar_trans_no = " & btn, Cnn
On Error GoTo HELL
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(1).Value
'===========
check_RStemp
rstemp.Open "select description from liquor where liquor_no = " & rs(1), Cnn
lvtran.ListItems(i).SubItems(1) = rstemp(0)
'===========
check_RStemp
rstemp.Open "select selling_price from liquor where liquor_no = " & rs(1), Cnn
lvtran.ListItems(i).SubItems(2) = rstemp(0)
'===========
lvtran.ListItems(i).SubItems(3) = rs(2).Value
lvtran.ListItems(i).SubItems(4) = rs(3).Value
Label8 = FormatNumber(TotalAmount)
Label9 = TotalAmount
i = i + 1
rs.MoveNext
HELL:
Wend
End Sub

Private Sub fill22()
check_RS
rs.Open "select * from bar_details where bar_trans_no = " & Label6, Cnn
On Error GoTo HELL
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(1).Value
'===========
check_RStemp
rstemp.Open "select description from liquor where liquor_no = " & rs(1), Cnn
lvtran.ListItems(i).SubItems(1) = rstemp(0)
'===========
check_RStemp
rstemp.Open "select selling_price from liquor where liquor_no = " & rs(1), Cnn
lvtran.ListItems(i).SubItems(2) = rstemp(0)
'===========
lvtran.ListItems(i).SubItems(3) = rs(2).Value
lvtran.ListItems(i).SubItems(4) = rs(3).Value
Label8 = FormatNumber(TotalAmount)
i = i + 1
rs.MoveNext
HELL:
Wend
End Sub




Private Sub Timer1_Timer()
Label2 = Time

End Sub

Private Sub fillrt()
check_RS2
rs2.Open "select * from room_transaction", Cnn
On Error GoTo HELL
l.ListItems.Clear
l.Refresh
Dim i As Integer
i = 1
While Not rs2.EOF
l.Refresh
l.ListItems.Add
l.ListItems(i).Text = rs2(0).Value
l.ListItems(i).SubItems(1) = rs2(3).Value
l.ListItems(i).SubItems(2) = rs2(2).Value
'l.ListItems(i).SubItems(3) = rs2(2).Value
'===========
check_RStemp
rstemp.Open "select last_name, first_name, mi from guest where guest_id = " & rs2(2), Cnn
l.ListItems(i).SubItems(3) = rstemp(0) & ", " & rstemp(1) & " " & rstemp(2) & ". "
i = i + 1
rs2.MoveNext
HELL:
Wend
End Sub

Private Sub Timer2_Timer()
If sw1 = 0 Then
  If seed >= 800 Then
    sw1 = 1
     
  Else
seed = seed + 10
  End If
ElseIf sw1 = 1 Then
  If seed <= 65 Then
    sw1 = 0
    
  Else
seed = seed - 10
  End If
End If
'Label5.ForeColor = seed

End Sub