?? main_tf.frm

?? 本酒店管理系統可用于各餐館管理
?? FRM
?? 第 1 頁 / 共 3 頁
字號:
上一頁 1 23
     End If
   Else
     Texts.Text = DTP2.Value - DTP1.Value
   End If
 Else
 If tim1.Value < #2:00:00 AM# Then
   If tim2.Value > #2:00:00 AM# Then
     If tim2.Value > #12:00:00 PM# Then
       If tim2.Value > #6:00:00 PM# Then
         Texts.Text = 1 + 1
       Else
         Texts.Text = 1 + 0.5
       End If
     Else
       Texts.Text = 1
     End If
   Else
     Texts.Text = 1
   End If
  Else
   Texts.Text = 1
  End If
 End If
End Sub
Public Sub ssje()     '定義計算實收金額和退還金額的函數
 Texssje.Text = Val(Texzhje.Text) + Val(Texzf.Text) + Val(Texdhf.Text) + Val(Texpcf.Text) + Val(Texhyf.Text) + Val(Textcf.Text)
 Texthje.Text = Val(Texyj.Text) - Val(Texssje.Text)
End Sub
Private Sub Form_Load()
'自動識別數據庫路徑
 Data1.DatabaseName = App.Path & "\KFGL.MDB"
 Data2.DatabaseName = App.Path & "\KFGL.MDB"
 Data3.DatabaseName = App.Path & "\KFGL.MDB"
 Data4.DatabaseName = App.Path & "\KFGL.MDB"
 Data5.DatabaseName = App.Path & "\KFGL.MDB"
End Sub
Private Sub Form_Activate()
 czy.Text = main.StatusBar1.Panels(4).Text     '賦值給czy
 DTP2.Value = Date: tim2.Value = Time
'查詢住宿登記信息
 Data5.RecordSource = "select 憑證號碼 from djb where 標志='1'order by 憑證號碼"
 Data5.Refresh
End Sub
Private Sub Form_Unload(Cancel As Integer)
 main.Enabled = True     '設置主窗體有效
End Sub
Private Sub DBCombo1_KeyDown(KeyCode As Integer, Shift As Integer)
 If KeyCode = vbKeyReturn Then DBCombo2.SetFocus      '按回車鍵DBCombo2獲得焦點
End Sub
Private Sub DBCOMBO2_KeyDown(KeyCode As Integer, Shift As Integer)
 If KeyCode = vbKeyReturn Then DTP1.SetFocus     '按回車鍵DTP1獲得焦點
End Sub
Private Sub Combo2_Click()
If Combo2.Text = "折扣" Then
  Texzk.Text = 100     '賦值給Texzk.text
 Else
  Texzk.Text = 0
End If
If Combo2.Text = "掛帳" Then
  Lab10.Visible = True
  Texgzdw.Visible = True
  Texgzdw.Text = Texxm.Text     '賦值給Texxm.text
Else
  Lab10.Visible = False
  Texgzdw.Visible = False     '設置Texgzdw不可見
  Texgzdw.Text = ""
End If
End Sub
Private Sub Combo3_Click()
 Texfjf.SetFocus     'Texfjf獲得焦點
 Texfjf.Text = "0"     '賦值給Texfjf.text
End Sub
Private Sub DBCombo4_Change()
 If DBCombo4.Text <> "" Then
 '查詢住宿登記信息
  Data1.RecordSource = "select * from djb where 憑證號碼='" + DBCombo4.Text + "'"
  Data1.Refresh
  bh.Text = "T" & DBCombo4.Text
  '賦值給texxm.text等
  If Data1.Recordset.RecordCount > 0 Then
  If Data1.Recordset.Fields("姓名") <> "" Then Texxm.Text = Data1.Recordset.Fields("姓名")
  If Data1.Recordset.Fields("證件名稱") <> "" Then Combo1.Text = Data1.Recordset.Fields("證件名稱")
  If Data1.Recordset.Fields("證件號碼") <> "" Then Texsfz.Text = Data1.Recordset.Fields("證件號碼")
  If Data1.Recordset.Fields("詳細地址") <> "" Then Texdz.Text = Data1.Recordset.Fields("詳細地址")
  If Data1.Recordset.Fields("房間號") <> "" Then DBCombo3.Text = Data1.Recordset.Fields("房間號")
  If Data1.Recordset.Fields("客房類型") <> "" Then DBCombo1.Text = Data1.Recordset.Fields("客房類型")
  If Data1.Recordset.Fields("客房價格") <> "" Then DBCombo2.Text = Data1.Recordset.Fields("客房價格")
  If Data1.Recordset.Fields("住宿日期") <> "" Then DTP1.Value = Data1.Recordset.Fields("住宿日期")
  If Data1.Recordset.Fields("住宿時間") <> "" Then tim1.Value = Data1.Recordset.Fields("住宿時間")
  If Data1.Recordset.Fields("住宿天數") <> "" Then Texts.Text = Data1.Recordset.Fields("住宿天數")
  If Data1.Recordset.Fields("預收金額") <> "" Then Texyj.Text = Data1.Recordset.Fields("預收金額") Else Texyj.Text = "0"
  If Data1.Recordset.Fields("結款方式") <> "" Then Combo2.Text = Data1.Recordset.Fields("結款方式")
  If Data1.Recordset.Fields("折扣") <> "" Then Texzk.Text = Data1.Recordset.Fields("折扣")
  End If
  '計算住宿天數
  If DTP2.Value > DTP1.Value Then
  If tim2.Value > #11:59:00 AM# Then
    If tim2.Value > #6:00:00 PM# Then
      Texts.Text = DTP2.Value - CDate(DTP1.Value) + 1
    Else
      Texts.Text = DTP2.Value - CDate(DTP1.Value) + 0.5
    End If
  Else
    Texts.Text = DTP2.Value - CDate(DTP1.Value)
  End If
 Else
  If tim1.Value < #6:00:00 PM# Then
      If tim2.Value > #6:00:00 PM# Then Texts.Text = 1 Else Texts.Text = "0.5"
    Else
      Texts.Text = "0.5"
  End If
 End If
  Texxf.Text = Val(Texts.Text) * Val(DBCombo2.Text)     '計算宿費
  Texzhje.Text = Val(Texxf.Text) * Val(Texzk.Text) / 100     '計算折后金額
  Texthje.Text = Val(Texyj.Text) - Val(Texzhje.Text) - Val(Texzf.Text) - Val(Texdhf.Text)      '計算退還金額
 End If
End Sub
Private Sub DBCombo4_KeyDown(KeyCode As Integer, Shift As Integer)
 If KeyCode = vbKeyReturn Then Texzk.SetFocus     '按回車鍵Texzk獲得焦點
End Sub
Private Sub TIM2_Change()
 Call JS     '調用函數
End Sub
Private Sub DTP2_Change()
 Call JS     '調用函數
End Sub
Private Sub texxm_KeyDown(KeyCode As Integer, Shift As Integer)
 If KeyCode = vbKeyReturn Then Texsfz.SetFocus     '按回車鍵Texsfz獲得焦點
End Sub
Private Sub texzhje_Change()
 Call ssje     '調用函數
End Sub
Private Sub texzf_Change()
 Call ssje     '調用函數
End Sub
Private Sub texdhf_Change()
 Call ssje     '調用函數
End Sub
Private Sub texssje_Change()
 Texxf.Text = Val(Texts.Text) * Val(DBCombo2.Text)     '計算宿費
 Call ssje     '調用函數
End Sub
Private Sub texssje_KeyDown(KeyCode As Integer, Shift As Integer)
 If KeyCode = vbKeyReturn Then Texbz.SetFocus
End Sub
Private Sub texpcf_Change()
 Call ssje     '調用函數
End Sub
Private Sub texhyf_Change()
 Call ssje     '調用函數
End Sub
Private Sub texfjf_Change()
 Texfjf.Text = Val(Texfjf.Text)
 If Combo3.Text = "電話費" Then Texdhf.Text = Val(Texfjf.Text)
 If Combo3.Text = "雜費" Then Texzf.Text = Val(Texfjf.Text)
 If Combo3.Text = "會議費" Then Texhyf.Text = Val(Texfjf.Text)
 If Combo3.Text = "停車費" Then Textcf.Text = Val(Texfjf.Text)
 If Combo3.Text = "賠償費" Then Texpcf.Text = Val(Texfjf.Text)
End Sub
Private Sub texfjf_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyReturn Then Texssje.SetFocus
End Sub
Private Sub textcf_Change()
 Call ssje     '調用函數
End Sub
Private Sub texts_Change()
 Texxf.Text = Val(Texts.Text) * Val(DBCombo2.Text)     '計算宿費
 Texzhje.Text = Val(Texxf.Text) * Val(Texzk.Text) / 100   '計算折后金額
 '計算退還金額
 Texthje.Text = Val(Texyj.Text) - Val(Texzhje.Text) - Val(Texzf.Text) - Val(Texdhf.Text)
End Sub
Private Sub texts_KeyDown(KeyCode As Integer, Shift As Integer)
 If KeyCode = vbKeyReturn Then Texzk.SetFocus     '回車Texzk獲得焦點
End Sub
Private Sub texts_LostFocus()
 Texts.Text = Format(Val(Texts.Text), "0.0")     '格式化天數
End Sub
Private Sub texzk_Change()
Texzk.Text = Val(Texzk.Text)
Texzhje.Text = Val(Texxf.Text) * Val(Texzk.Text) / 100     '計算折后金額
 '計算退還金額
Texthje.Text = Val(Texyj.Text) - Val(Texzhje.Text) - Val(Texzf.Text) - Val(Texdhf.Text)
End Sub
Private Sub texbz_KeyDown(KeyCode As Integer, Shift As Integer)
 If KeyCode = vbKeyReturn Then Comok.SetFocus
End Sub
Private Sub zj_KeyDown(KeyCode As Integer, Shift As Integer)
 If KeyCode = vbKeyReturn Then Texts.SetFocus
End Sub
Private Sub texsfz_KeyDown(KeyCode As Integer, Shift As Integer)
 If KeyCode = vbKeyReturn Then Texdz.SetFocus
End Sub
Private Sub texzk_KeyDown(KeyCode As Integer, Shift As Integer)
 If KeyCode = vbKeyReturn Then Texfjf.SetFocus
End Sub
Private Sub comdj_Click()      '登記
 Texxm.Text = "": Texsfz.Text = "": Texfjf.Text = "": Texdz.Text = "": Texts.Text = ""
 Texzk.Text = "": Texyj.Text = "": DBCombo4.Text = "": Texzhje.Text = "": Texthje.Text = ""
 Texxf.Text = "": DBCombo1.Text = "": DBCombo2.Text = "": DBCombo3.Text = "": Texbz.Text = ""
 Textcf.Text = "0": Texzf.Text = "0": Texdhf.Text = "0": Texssje.Text = "0": Texpcf.Text = "0"
 Texhyf.Text = "0"
 Comok.Enabled = True: Comcancel.Enabled = True: Comdj.Enabled = False
 Comprint.Enabled = False: DBCombo4.Enabled = True: Texzk.Enabled = True
 DBCombo4.SetFocus
End Sub
Private Sub comok_Click()        '保存退宿信息
 If Combo2.Text = "掛帳" And Texgzdw.Text = "" Then
   MsgBox ("掛帳單位為空，清填寫掛帳單位！")
   Exit Sub
 End If
 If Texxm.Text <> "" And Texts.Text <> "" Then
  Dim mydb1 As Database
  Dim myrs1 As Recordset
  Dim myrs2 As Recordset
  Set mydb1 = Workspaces(0).OpenDatabase(App.Path & "\KFGL.MDB")
  Set myrs1 = mydb1.OpenRecordset("tfd", dbOpenTable)
  Set myrs2 = mydb1.OpenRecordset("djb", dbOpenTable)
  myrs1.AddNew       '添加退宿記錄
  If bh.Text <> "" Then myrs1.Fields("憑證號碼") = bh.Text
  If Texxm.Text <> "" Then myrs1.Fields("姓名") = Texxm.Text
  If Combo1.Text <> "" Then myrs1.Fields("證件名稱") = Combo1.Text
  If Texsfz.Text <> "" Then myrs1.Fields("證件號碼") = Texsfz.Text
  If Texdz.Text <> "" Then myrs1.Fields("詳細地址") = Texdz.Text
  If Textcf.Text <> "" Then myrs1.Fields("工作單位") = Textcf.Text
  If DBCombo3.Text <> "" Then myrs1.Fields("房間號") = DBCombo3.Text
  If DBCombo1.Text <> "" Then myrs1.Fields("客房類型") = DBCombo1.Text
  If DBCombo2.Text <> "" Then myrs1.Fields("客房價格") = DBCombo2.Text
  If DTP1.Value <> "" Then myrs1.Fields("住宿日期") = DTP1.Value
  If tim1.Value <> "" Then myrs1.Fields("住宿時間") = tim1.Value
  If DTP2.Value <> "" Then myrs1.Fields("退房日期") = DTP2.Value
  If tim2.Value <> "" Then myrs1.Fields("退房時間") = tim2.Value
  If Texts.Text <> "" Then myrs1.Fields("住宿天數") = Val(Texts.Text)
  If Texzk.Text <> "" Then myrs1.Fields("折扣") = Val(Texzk.Text)
  If Combo2.Text <> "" Then myrs1.Fields("折扣或招待") = Combo2.Text
  If Texxf.Text <> "" Then myrs1.Fields("宿費") = Format(Texxf.Text, "0.00")
  If Texzhje.Text <> "" Then myrs1.Fields("應收宿費") = Texzhje.Text
  If Texyj.Text <> "" Then myrs1.Fields("預收宿費") = Texyj.Text
  If Texthje.Text <> "" Then myrs1.Fields("退還宿費") = Texthje.Text
  If Texzf.Text <> "" Then myrs1.Fields("雜費") = Val(Texzf.Text) Else myrs1.Fields("雜費") = "0"
  If Texdhf.Text <> "" Then myrs1.Fields("電話費") = Val(Texdhf.Text) Else myrs1.Fields("電話費") = "0"
  If Texhyf.Text <> "" Then myrs1.Fields("會議費") = Val(Texhyf.Text) Else myrs1.Fields("會議費") = "0"
  If Texpcf.Text <> "" Then myrs1.Fields("賠償費") = Val(Texpcf.Text) Else myrs1.Fields("賠償費") = "0"
  If Textcf.Text <> "" Then myrs1.Fields("存車費") = Val(Textcf.Text) Else myrs1.Fields("存車費") = "0"
  If Texssje.Text <> "" Then myrs1.Fields("金額總計") = Val(Texssje.Text)
  If Texbz.Text <> "" Then myrs1.Fields("備注") = Texbz.Text
  myrs1.Fields("日期") = Date
  myrs1.Fields("時間") = Time
  myrs1.Fields("BZ") = Left(Date, 4) & Right(Left(Date, 7), 2) & Right(Date, 2) & Left(Time, 2) & Left(Right(Time, 5), 2)
  myrs1.Update     '更新記錄
  Data1.Recordset.Edit
  Data1.Recordset.Fields("標志") = 0
  Data1.Recordset.Update     '更新記錄
  Data4.RecordSource = "select * from djys where 憑證號碼 ='" & DBCombo4.Text & "'"
  Data4.Refresh
  Data4.Recordset.Edit
  Data4.Recordset.Fields("標志") = 0
  Data4.Recordset.Update
  Data2.Recordset.FindFirst "房間號 ='" & DBCombo3.Text & "'"
  Data2.Recordset.Edit
  Data2.Recordset.Fields("房態") = "空房"
  Data2.Recordset.Update
  If Combo2.Text = "掛帳" Then
   '查詢掛帳單位
   Data3.RecordSource = "select * from gzmx where 掛賬單位='" & Texgzdw.Text & "'order by 日期,時間"
   Data3.Refresh
   If Data3.Recordset.EOF = False Then Data3.Recordset.MoveLast
   If Data3.Recordset.RecordCount > 0 Then
   If Data3.Recordset.Fields("金額累計") <> "" Then gzje.Text = Data3.Recordset.Fields("金額累計")
   End If
   '添加掛帳記錄
   Data3.Recordset.AddNew
   Data3.Recordset.Fields("日期") = Date
   Data3.Recordset.Fields("時間") = Time
   Data3.Recordset.Fields("票號") = "T" & DBCombo4.Text
   Data3.Recordset.Fields("日期") = Date
   Data3.Recordset.Fields("姓名") = Texxm.Text
   Data3.Recordset.Fields("證件號碼") = Texsfz.Text
   Data3.Recordset.Fields("房間標準") = DBCombo1.Text
   Data3.Recordset.Fields("房間價格") = DBCombo2.Text
   Data3.Recordset.Fields("時間") = Time
   Data3.Recordset.Fields("掛賬單位") = Texgzdw.Text
   Data3.Recordset.Fields("住宿金額") = Texssje.Text
   Data3.Recordset.Fields("摘要") = "住宿日期:" & DTP1.Value & " 住宿天數: " & Texts.Text
   Data3.Recordset.Fields("欠款金額") = Val(Texssje.Text)
   Data3.Recordset.Fields("金額累計") = Val(Texssje.Text) + Val(gzje.Text)
   Data3.Recordset.Update     '更新記錄
  End If
 Else
  MsgBox ("請錄入正確的數據")
 End If
 Data2.RecordSource = "select * from kf where 房態='空房'"
 Data2.Refresh
 Data5.Refresh
 '設置控件有效或無效
 Comprint.Enabled = True: Comok.Enabled = False: Comcancel.Enabled = False
 Comdj.Enabled = True: Comprint.SetFocus
End Sub
Private Sub comcancel_Click()     '取消操作
 Texxm.Text = "": Texsfz.Text = "": Texfjf.Text = "": Texdz.Text = "": Texts.Text = ""
 Texzk.Text = "": Texyj.Text = "": DBCombo4.Text = "": Texzhje.Text = "": Texthje.Text = ""
 Texxf.Text = "": DBCombo1.Text = "": DBCombo2.Text = "": DBCombo3.Text = "": Texbz.Text = ""
 Textcf.Text = "0": Texzf.Text = "0": Texdhf.Text = "0": Texssje.Text = "0": Texpcf.Text = "0"
 Texhyf.Text = "0"
 Comdj.Enabled = True: Comcancel.Enabled = False: Comok.Enabled = False: Comprint.Enabled = False
End Sub
Private Sub comprint_Click()        '打印退宿信息
 Printer.Height = 7000: Printer.Width = 12000
 Printer.CurrentX = 4000: Printer.CurrentY = 800
 Printer.FontSize = 16
 Printer.Print "  龍海賓館退宿結賬單 "
 Dim A, B, C, D As Integer
 A = 360: B = 1100: C = 3800: D = 350
 Printer.FontSize = 10
 Printer.CurrentX = 100 + A
 Printer.CurrentY = B + 200
 Printer.Print Date & " " & Time & "  NO." & bh.Text
 B = B + D
 Printer.Line (60 + A, B + 100)-(11000 + A, B + 100)
 Printer.CurrentX = 100 + A
 Printer.CurrentY = B + 200
 Printer.Print "姓名：" & Texxm.Text
 B = B + D
 Printer.CurrentX = 100 + A
 Printer.CurrentY = B + 200
 Printer.Print "房間號:" & DBCombo3.Text
 B = B + D
 Printer.CurrentX = 100 + A
 Printer.CurrentY = B + 200
 Printer.Print "房價:" & Format(DBCombo2.Text, "0.00") & "元" & "    " & "入住天數: " & Texts.Text & "天     " & "宿費 " & Format(Texxf.Text, "0.00") & "元    " & Combo2.Text & ":" & Texzk.Text & "%"
 If Texdhf.Text <> "0" Then
   B = B + D
   Printer.CurrentX = 100 + A
   Printer.CurrentY = B + 200
   Printer.Print "電話費:" & Format(Texdhf.Text, "0.00") & "元"
 End If
 If Texzf.Text <> "0" Then
   B = B + D
   Printer.CurrentX = 100 + A
   Printer.CurrentY = B + 200
   Printer.Print "雜費:" & Format(Texzf.Text, "0.00") & "元"
 End If
 If Texhyf.Text <> "0" Then
   B = B + D
   Printer.CurrentX = 100 + A
   Printer.CurrentY = B + 200
   Printer.Print "會議費:" & Format(Texhyf.Text, "0.00") & "元"
 End If
 If Textcf.Text <> "0" Then
   B = B + D
   Printer.CurrentX = 100 + A
   Printer.CurrentY = B + 200
   Printer.Print "停車費:" & Format(Textcf.Text, "0.00") & "元"
 End If
 If Texpcf.Text <> "0" Then
   B = B + D
   Printer.CurrentX = 100 + A
   Printer.CurrentY = B + 200
   Printer.Print "賠償費:" & Format(Texpcf.Text, "0.00") & "元"
 End If
 B = B + D
 Printer.CurrentX = 100 + A
 Printer.CurrentY = B + 200
 Printer.Print "實收金額:" & Format(Texssje.Text, "0.00") & "元 " & "押金: " & Format(Texyj.Text, "0.00") & "元 " & "退還金額: " & Format(Texthje.Text, "0.00") & "元"
 B = B + D
 Printer.CurrentX = 100 + A
 Printer.CurrentY = B + 200
 Printer.Print "備注:" & Texbz.Text
 B = B + D
 Printer.Line (60 + A, B + 100)-(11000 + A, B + 100)
 Printer.CurrentX = 400
 Printer.CurrentY = B + 200
 Printer.Print "日期: "; Date & "  " & Time
 Printer.CurrentX = 3000 + A
 Printer.CurrentY = B + 200
 Printer.Print "操作員: " & czy.Text
 Printer.CurrentX = 6000 + A
 Printer.CurrentY = B + 200
 Printer.Print "顧客簽名:                     簽章: "
 Printer.EndDoc
End Sub
Private Sub comend_Click()
 Unload Me
 main.Enabled = True
End Sub
上一頁 1 23
?? 文件大小 1360 K
?? 上傳用戶 wuseyue
?? 所屬分類其他數據庫
??? 相關標簽

#管理系統
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? main_tf.frm

?? 快捷鍵說明
