📄 form31.frm

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

spql = "select * from wp "

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

spql = "select * from wp "

 Dim db As Database
  Dim EF As Recordset
  Set db = OpenDatabase(ConData, False, False, Constr)
  Set EF = db.OpenRecordset(spql, 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
spql = "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(spql, dbOpenDynaset)
   '列出记录
      
             Text2.Text = EF("单价")
           
            EF.MoveNext
            
  
  EF.Close
  db.Close
  End If
End Sub
Private Sub Combo5_Click()
If Combo4 <> "" Then
spql = "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(spql, dbOpenDynaset)
   '列出记录
      
             Text5.Text = EF("单价")
           
            EF.MoveNext
            
  
  EF.Close
  db.Close
  End If
End Sub
Private Sub Combo6_Click()
If Combo4 <> "" Then
spql = "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(spql, dbOpenDynaset)
   '列出记录
      
             Text8.Text = EF("单价")
           
            EF.MoveNext
            
  
  EF.Close
  db.Close
  End If
End Sub
Private Sub Combo7_Click()
If Combo4 <> "" Then
spql = "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(spql, dbOpenDynaset)
   '列出记录
      
             Text11.Text = EF("单价")
           
            EF.MoveNext
            
  
  EF.Close
  db.Close
  End If
End Sub

Private Sub Combo8_Click()
If Combo4 <> "" Then
spql = "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(spql, 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
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 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 tfd ", dbOpenDynaset)
     
      '==================1
       If Check1.Value = Checked Then
          EF.AddNew
          efc.AddNew
          efc("凭证号码") = "2006888"
  efc("姓名") = "外卖"
  efc("证件名称") = "无"
  efc("证件号码") = "2006888"
  efc("详细地址") = ""
  efc("工作单位") = "无"
  efc("房间号") = 888
  efc("客房类型") = ""
  efc("客房价格") = 0
  efc("住宿日期") = Date
   efc("住宿时间") = Time
  efc("住宿天数") = 0
  efc("宿费") = 0
  efc("折扣或招待") = ""
  efc("折扣") = 0
  efc("应收宿费") = 0
  efc("杂费") = Val(Text25.Text)
  efc("电话费") = 0
  efc("会议费") = 0
  efc("存车费") = 0
   efc("赔偿费") = 0
  efc("金额总计") = Val(Text25.Text)
  efc("预收宿费") = 0
  efc("退还宿费") = 0
  efc("退房日期") = Date
  efc("退房时间") = Time
  efc("日期") = Date
  efc("时间") = Time
  efc("备注") = "外卖输入"
  efc("凭证号码") = "2006888"
   efc("联系电话") = "2006888"
   efc("bz") = 2006
          
          
          
          
          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
         
          
          
          EF("名称") = Combo5
          
           
          EF("单价") = Val(Text5.Text)
          
          EF("数量") = Val(Text4.Text)
          EF("合计") = Val(Text6.Text)
          EF("房间号") = Val(Combo1.Text)
          EF("日期") = Date
         EF("标志") = "1"
         
          EF.Update
          
          
       End If
      
      '----------------------------------3
      If Check3.Value = Checked Then
          EF.AddNew
          
          EF("名称") = Combo6
          
           
          EF("单价") = Val(Text8.Text)
          
          EF("数量") = Val(Text7.Text)
          EF("合计") = Val(Text9.Text)
          EF("房间号") = Val(Combo1.Text)
          EF("日期") = Date
         EF("标志") = "1"
        
          EF.Update
          
          
       End If
      '-------------------------------------4
      If Check4.Value = Checked Then
          EF.AddNew
         
          EF("名称") = Combo7
          
           
          EF("单价") = Val(Text11.Text)
          
          EF("数量") = Val(Text10.Text)
          EF("合计") = Val(Text12.Text)
          EF("房间号") = Val(Combo1.Text)
          EF("日期") = Date
         EF("标志") = "1"
         
          EF.Update
          '-----------------------------5
          If Check5.Value = Checked Then
          EF.AddNew
         
          EF("名称") = Combo8
          
           
          EF("单价") = Val(Text14.Text)
          
          EF("数量") = Val(Text13.Text)
          EF("合计") = Val(Text15.Text)
          EF("房间号") = Val(Combo1.Text)
          EF("日期") = Date
          EF("标志") = "1"
          
          EF.Update
          
          
       End If
       End If
      
  
      
  efc.Close
  EF.Close
  db.Close
   
 
End Sub
上一页 12
💿 文件大小 1974 K
👤 上传用户 tsdtz
📂 所属分类酒店行业
🏷️ 相关标签

#编写 #程序 #数据库
⌨️ 快捷键说明

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