frmrestaurant.frm

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

      Caption         =   "rtn"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   9120
      TabIndex        =   3
      Top             =   2760
      Width           =   735
   End
   Begin VB.Label Label6 
      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          =   375
      Left            =   6120
      TabIndex        =   2
      Top             =   8520
      Width           =   615
   End
   Begin VB.Label Label8 
      Alignment       =   2  'Center
      Caption         =   "Transaction No"
      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            =   -360
      TabIndex        =   0
      Top             =   0
      Width           =   2895
   End
End
Attribute VB_Name = "frmRestaurant"
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 rtn 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 Restaurant2.bar = "back" Then
Cnn.Execute "update restaurantorder set total = " & Label9 & " where restaurant_trans_no = " & Label5
Restaurant2.txtsearch = rtn
Restaurant2.Label9 = Label9
End If
cboGuestType.Visible = True
l.Enabled = True
check_RS1
rs1.Open "select * from restaurantorder where restaurant_trans_no = " & rtn, Cnn
If rs1.RecordCount = 0 Then
Cnn.Execute "INSERT INTO restaurantorder (restaurant_trans_no, room_trans_no, trans_date, total) VALUES (" & rtn & ", '" & lblRTN & _
"', '" & Label4 & "', '" & Label9 & "')"    '
End If
Restaurant2.txtsearch = rtn
Restaurant2.Label9 = Label9
Load Restaurant2
Restaurant2.Show 1
End If
End Sub
Private Sub fillt()
On Error GoTo HELL
l.ListItems.Clear
l.Refresh
check_RStemp
rstemp.Open "select * from restaurant_order_details where restaurant_trans_no = " & rtn, Cnn

Dim i As Integer
i = 1
While Not rstemp.EOF

l.Refresh
l.ListItems.Add
l.ListItems(i).Text = rstemp(1).Value '(, , 1)
l.ListItems(i).SubItems(1) = rstemp(2).Value
l.ListItems(i).SubItems(2) = rstemp(3).Value
'l.ListItems(i).SubItems(3) = rstemp(3).Value
'l.ListItems(i).SubItems(4) = rstemp(3).Value
i = i + 1
rstemp.MoveNext
  Set lst = l.ListItems.Add(, , "")
  lst.SubItems(1) = "Total Amount "
  lst.SubItems(2) = TotalAmount '+ Amount


HELL:
Wend
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 restaurant_order_details where restaurant_trans_no = " & Label5
Cnn.Execute "delete * from restaurantorder where restaurant_trans_no = " & Label5
rs.Requery 1
Unload frmRestaurant
End If

End Sub

Private Sub Form_Load()
TransType = "Restaurant"
TotalAmount = 0
Amount = 0
datenow = Format(Date, "mmdd")
'========
check_RS
rs.Open "select * from food order by food_no asc", Cnn
fill
'========
rtn = 1
check_RS1
rs1.Open "select * from restaurant_order_details " & txtGuestNo, Cnn
'========
While Not rs1.RecordCount = 0
 check_RS1
 rtn = rtn + 1
 rs1.Open "select * from restaurant_order_details where restaurant_trans_no = " & rtn, Cnn
Wend
 Label8 = "Transaction No."
 Label5 = rtn
 '===========
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
Label12 = datenow & T & Label12
Command1.Caption = "<< Cancel <<"

End Sub
Public Sub fill()
Dim X As Integer
    lv.ListItems.Clear
check_RS
rs.Open "select * from food order by food_no asc", Cnn
While Not rs.EOF
  Set lst = lv.ListItems.Add(, , rs(0), , 1)
For X = 1 To 2
   lst.SubItems(X) = rs(X)
Next X
rs.MoveNext
Wend
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 = "" Then
MsgBox "Please choose a customer...", 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 tempQTY = "" Then
Exit Sub
End If
Wend
'===============
Amount = Val(tempQTY) * Val(lv.SelectedItem.ListSubItems(2))
TotalAmount = TotalAmount + Amount
'===============
'===============
Cnn.Execute "insert into restaurant_order_details values(" & rtn & ",'" & lv.SelectedItem.Text & "'," & _
tempQTY & "," & Amount & ")"
'===============
fill2
rs.Requery 1
fill
Command1.Caption = ">> Proceed >>"
l.Enabled = False
cboGuestType.Visible = False
'===========
If MsgBox("Add another? ", vbYesNo, "?") = vbNo Then
If Restaurant2.bar = "back" Then
Cnn.Execute "update restaurantorder set total = " & Label9 & " where restaurant_trans_no = " & Label5
Restaurant2.txtsearch = rtn
Restaurant2.Label9 = Label9
End If
cboGuestType.Visible = True
l.Enabled = True
check_RS1
rs1.Open "select * from restaurantorder where restaurant_trans_no = " & rtn, Cnn
If rs1.RecordCount = 0 Then
Cnn.Execute "INSERT INTO restaurantorder (restaurant_trans_no, room_trans_no, trans_date, total) VALUES (" & rtn & ", '" & lblRTN & _
"', '" & Label4 & "', '" & Label9 & "')"    '
End If
Restaurant2.txtsearch = rtn
Restaurant2.Label9 = Label9
Load Restaurant2
Restaurant2.Show 1
'Unload Me
End If
End Sub
Private Sub fill2()
check_RS
rs.Open "select * from restaurant_order_details where restaurant_trans_no = " & rtn, 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 food where food_no = " & rs(1), Cnn
lvtran.ListItems(i).SubItems(1) = rstemp(0)
'===========
check_RStemp
rstemp.Open "select price from food where food_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
Label2 = FormatNumber(TotalAmount)
Label9 = TotalAmount
i = i + 1
rs.MoveNext
HELL:
Wend
End Sub
Public Sub fill22()
Dim X As Integer
l.ListItems.Clear

check_RStemp
rstemp.Open "select * from restaurant_order_details where restaurant_trans_no = " & rtn, Cnn
While Not rstemp.EOF

Set lst = l.ListItems.Add(, , rstemp(0), , 1)
For X = 1 To 3
     lst.SubItems(X) = rstemp(X) ' + 1)
     Next X
rstemp.MoveNext
Wend
Set lst = l.ListItems.Add(, , "")
  lst.SubItems(2) = "Total "
  lst.SubItems(3) = TotalAmount
End Sub



Private Sub Timer1_Timer()
Label1 = Time
End Sub


Private Sub txtQTY_Change()
QTY = Val(txtQTY.Text)
price = Val(lblFoodPrice.Caption)
Amount = QTY * lblFoodPrice.Caption
lblAmount.Caption = Amount
TotalAmount = Val(lblAmount.Caption)
TotalAmount = lblAmount + Amount
End Sub

Private Sub fillrt()
On Error GoTo r:
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
r:
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

End Sub