📄 form15.frm

📁 利用VB编写的一个完整的酒店管理程序,支持双数据库!
💻 FRM
📖 第 1 页 / 共 2 页
字号:
上一页 12
 
      Do While Not EF.EOF
           Combo6.AddItem EF("名称")
           
            EF.MoveNext
    Loop
  
  EF.Close
  db.Close
End Sub
Private Sub Check4_Click()

ssql = "select * from wp "

 Dim db As Database
  Dim EF As Recordset
  Set db = OpenDatabase(ConData, False, False, Constr)
  Set EF = db.OpenRecordset(ssql, dbOpenDynaset)
  
 
      Do While Not EF.EOF
           Combo7.AddItem EF("名称")
           
            EF.MoveNext
    Loop
  
  EF.Close
  db.Close
End Sub
Private Sub Check5_Click()

ssql = "select * from wp "

 Dim db As Database
  Dim EF As Recordset
  Set db = OpenDatabase(ConData, False, False, Constr)
  Set EF = db.OpenRecordset(ssql, dbOpenDynaset)
  
 
      Do While Not EF.EOF
           Combo8.AddItem EF("名称")
           
            EF.MoveNext
    Loop
  
  EF.Close
  db.Close
End Sub

Private Sub Combo4_Click()
If Combo4 <> "" Then
ssql = "select * from wp where 名称= '" & Combo4.Text & "'"

 Dim db As Database
  Dim EF As Recordset
  Set db = OpenDatabase(ConData, False, False, Constr)
  Set EF = db.OpenRecordset(ssql, dbOpenDynaset)
   '列出记录
      
             Text2.Text = EF("单价")
           
            EF.MoveNext
            
  
  EF.Close
  db.Close
  End If
End Sub
Private Sub Combo5_Click()
If Combo4 <> "" Then
ssql = "select * from wp where 名称= '" & Combo5.Text & "'"

 Dim db As Database
  Dim EF As Recordset
  Set db = OpenDatabase(ConData, False, False, Constr)
  Set EF = db.OpenRecordset(ssql, dbOpenDynaset)
   '列出记录
      
             Text5.Text = EF("单价")
           
            EF.MoveNext
            
  
  EF.Close
  db.Close
  End If
End Sub
Private Sub Combo6_Click()
If Combo4 <> "" Then
ssql = "select * from wp where 名称= '" & Combo6.Text & "'"

 Dim db As Database
  Dim EF As Recordset
  Set db = OpenDatabase(ConData, False, False, Constr)
  Set EF = db.OpenRecordset(ssql, dbOpenDynaset)
   '列出记录
      
             Text8.Text = EF("单价")
           
            EF.MoveNext
            
  
  EF.Close
  db.Close
  End If
End Sub
Private Sub Combo7_Click()
If Combo4 <> "" Then
ssql = "select * from wp where 名称= '" & Combo7.Text & "'"

 Dim db As Database
  Dim EF As Recordset
  Set db = OpenDatabase(ConData, False, False, Constr)
  Set EF = db.OpenRecordset(ssql, dbOpenDynaset)
   '列出记录
      
             Text11.Text = EF("单价")
           
            EF.MoveNext
            
  
  EF.Close
  db.Close
  End If
End Sub

Private Sub Combo8_Click()
If Combo4 <> "" Then
ssql = "select * from wp where 名称= '" & Combo8.Text & "'"

 Dim db As Database
  Dim EF As Recordset
  Set db = OpenDatabase(ConData, False, False, Constr)
  Set EF = db.OpenRecordset(ssql, dbOpenDynaset)
   '列出记录
      
             Text14.Text = EF("单价")
           
            EF.MoveNext
            
  
  EF.Close
  db.Close
  End If
End Sub



Private Sub comend_Click()
Unload Me
End Sub

Private Sub comok_Click()
If MsgBox("您确认以上客户房间消费【" & Text25.Text & "元】吗（Y/N）？ 是否进行结帐操作？", vbInformation + vbYesNo) = vbYes Then
 'Caozuo = "确定客房消费 '" & Text25.Text & "'并进行结帐 "
'lu_time = Now
'RiZhil

SaveIt
Unload Me
Form5.Show
Else
'Caozuo = "确定客房消费 '" & Text25.Text & "'不进行结帐 "
'lu_time = Now
'RiZhil

SaveIt
MsgBox "成功录入客房消费！"
Check1.Value = Unchecked
Check2.Value = Unchecked
Check3.Value = Unchecked
Check4.Value = Unchecked
Check5.Value = Unchecked
Combo4.Text = ""
Combo5.Text = ""
Combo6.Text = ""
Combo7.Text = ""
Combo8.Text = ""
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Text12.Text = ""
Text13.Text = ""
Text14.Text = ""
Text15.Text = ""
Text25.Text = ""
End If
End Sub

Private Sub Form_Load()
Dim db As Database
  Dim EF As Recordset
  Set db = OpenDatabase(ConData, False, False, Constr)
  Set EF = db.OpenRecordset("select * from djb where 标志='1' order by 房间号", dbOpenDynaset)
  
  
  
     '列出记录
      If Not (EF.BOF And EF.EOF) Then
         Do While Not EF.EOF
            Combo1.AddItem EF("房间号")
            EF.MoveNext
         Loop
      End If
      
 
  EF.Close
  db.Close
End Sub

Private Sub Text1_Change()
   Text3.Text = Val(Text1.Text) * Val(Text2.Text)
   Text25.Text = Val(Text3.Text)
 
End Sub
Private Sub Text4_Change()
   Text6.Text = Val(Text4.Text) * Val(Text5.Text)
   Text25.Text = Val(Text6.Text) + Val(Text3.Text)
  
End Sub
Private Sub text7_Change()
   Text9.Text = Val(Text7.Text) * Val(Text8.Text)
   Text25.Text = Val(Text6.Text) + Val(Text3.Text) + Val(Text9.Text)

End Sub

Private Sub text10_Change()
   Text12.Text = Val(Text10.Text) * Val(Text11.Text)
   Text25.Text = Val(Text6.Text) + Val(Text3.Text) + Val(Text9.Text) + Val(Text12.Text)
   
End Sub
Private Sub text13_Change()
   Text15.Text = Val(Text13.Text) * Val(Text14.Text)
   Text25.Text = Val(Text6.Text) + Val(Text3.Text) + Val(Text9.Text) + Val(Text12.Text) + Val(Text15.Text)
   
End Sub
Private Sub SaveIt()

 '检索数据

   Dim db As Database
  Dim EF As Recordset
  Dim efc As Recordset
  Set db = OpenDatabase(ConData, False, False, Constr)
  Set EF = db.OpenRecordset("Select * from wpxh", dbOpenDynaset)
  Set efc = db.OpenRecordset("Select * from djb where 房间号='" & Combo1.Text & "'and 标志='1'", dbOpenDynaset)
     
      '==================1
       If Check1.Value = Checked Then
          EF.AddNew
          efc.Edit
          efc("bz") = efc("bz") + Val(Text3.Text)
          EF("名称") = Combo4
          
           
          EF("单价") = Val(Text2.Text)
          
          EF("数量") = Val(Text1.Text)
          EF("合计") = Val(Text3.Text)
          EF("房间号") = Val(Combo1.Text)
          EF("日期") = Date
          EF("标志") = "1"
          efc.Update
          EF.Update
          
          
       End If
      '-----------------2
      If Check2.Value = Checked Then
      
          EF.AddNew
          efc.Edit
          efc("bz") = efc("bz") + Val(Text6.Text)
          
          
          EF("名称") = Combo5
          
           
          EF("单价") = Val(Text5.Text)
          
          EF("数量") = Val(Text4.Text)
          EF("合计") = Val(Text6.Text)
          EF("房间号") = Val(Combo1.Text)
          EF("日期") = Date
         EF("标志") = "1"
         efc.Update
          EF.Update
          
          
       End If
      
      '----------------------------------3
      If Check3.Value = Checked Then
          EF.AddNew
          efc.Edit
          efc("bz") = efc("bz") + Val(Text9.Text)
          EF("名称") = Combo6
          
           
          EF("单价") = Val(Text8.Text)
          
          EF("数量") = Val(Text7.Text)
          EF("合计") = Val(Text9.Text)
          EF("房间号") = Val(Combo1.Text)
          EF("日期") = Date
         EF("标志") = "1"
         efc.Update
          EF.Update
          
          
       End If
      '-------------------------------------4
      If Check4.Value = Checked Then
          EF.AddNew
          efc.Edit
          efc("bz") = efc("bz") + Val(Text12.Text)
          EF("名称") = Combo7
          
           
          EF("单价") = Val(Text11.Text)
          
          EF("数量") = Val(Text10.Text)
          EF("合计") = Val(Text12.Text)
          EF("房间号") = Val(Combo1.Text)
          EF("日期") = Date
         EF("标志") = "1"
         efc.Update
          EF.Update
          '-----------------------------5
          If Check5.Value = Checked Then
          EF.AddNew
          efc.Edit
          efc("bz") = efc("bz") + Val(Text15.Text)
          EF("名称") = Combo8
          
           
          EF("单价") = Val(Text14.Text)
          
          EF("数量") = Val(Text13.Text)
          EF("合计") = Val(Text15.Text)
          EF("房间号") = Val(Combo1.Text)
          EF("日期") = Date
          EF("标志") = "1"
          efc.Update
          EF.Update
          
          
       End If
       End If
      
  
      
  efc.Close
  EF.Close
  db.Close
   
 
End Sub
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -