📄 skcx.frm

📁 酒店管理系统
💻 FRM
📖 第 1 页 / 共 4 页
字号:
上一页 1 2 34
         Visible         =   0   'False
      End
      Begin VB.Menu MNU12 
         Caption         =   "打印预览"
         Visible         =   0   'False
      End
      Begin VB.Menu MNU13 
         Caption         =   "打印 "
         Shortcut        =   ^P
         Visible         =   0   'False
      End
      Begin VB.Menu MNU15 
         Caption         =   "-"
         Visible         =   0   'False
      End
      Begin VB.Menu MNU16 
         Caption         =   "退出(&E)"
      End
   End
   Begin VB.Menu MNU2 
      Caption         =   "编辑(&E)"
      Enabled         =   0   'False
      Visible         =   0   'False
      Begin VB.Menu MNU21 
         Caption         =   "增加 "
         Shortcut        =   ^A
      End
      Begin VB.Menu MNU26 
         Caption         =   "-"
      End
      Begin VB.Menu MNU23 
         Caption         =   "取消"
         Shortcut        =   ^U
      End
      Begin VB.Menu MNU24 
         Caption         =   "-"
      End
      Begin VB.Menu MNU22 
         Caption         =   "删除 "
         Shortcut        =   ^D
      End
      Begin VB.Menu MNU25 
         Caption         =   "-"
      End
      Begin VB.Menu MNU27 
         Caption         =   "预订散客入住"
         Shortcut        =   {F3}
      End
   End
   Begin VB.Menu MNU3 
      Caption         =   "查看(&V)"
      Begin VB.Menu MNU3_1 
         Caption         =   "查找"
         Shortcut        =   ^F
      End
      Begin VB.Menu MNU3_2 
         Caption         =   "消费帐单"
      End
   End
   Begin VB.Menu MNU4 
      Caption         =   "计算器(&J)"
   End
   Begin VB.Menu MNU5 
      Caption         =   "帮助(&H)"
      Begin VB.Menu MNU51 
         Caption         =   "帮助主题"
         Shortcut        =   {F1}
      End
      Begin VB.Menu MNU53 
         Caption         =   "-"
      End
      Begin VB.Menu MNU54 
         Caption         =   "关于红日软件..."
      End
   End
End
Attribute VB_Name = "SKCX"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim DATJDGL As Database
Dim RECHJZT As Recordset
Dim RECZJLB As Recordset
Dim RECLKLB As Recordset
Dim RECYD As Recordset

Private Sub Combo1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then SendKeys "{TAB}"

End Sub

Private Sub Combo3_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then SendKeys "{TAB}"

End Sub

Private Sub Combo2_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then SendKeys "{TAB}"

End Sub

Private Sub Data1_Reposition()
    If IsNumeric(Text5.Text) Then Text5.Text = FormatNumber(Text5.Text, 2, vbTrue, , vbFalse)
    If IsNumeric(Text5.Text) Then
       If CDbl(Text5.Text) <> 0 Then
          Label2(7).Caption = "<大写>人民币" + SUMDM(CDbl(Text5.Text))
          Else
            Label2(7).Caption = "<大写>"
       End If
    End If
    Text10.Text = Format(Text10.Text, "LONG DATE")
    Text11.Text = Format(Text11.Text, "LONG DATE")

End Sub

Private Sub Data2_Reposition()
    If IsNumeric(Text12(8).Text) Then Text12(8).Text = FormatCurrency(Text12(8).Text, , vbTrue, , vbFalse)
    If IsNumeric(Text12(8).Text) Then
       If CDbl(Text12(8).Text) <> 0 Then
          Label2(18).Caption = "<大写>人民币" + SUMDM(CDbl(Text12(8).Text))
          Else
            Label2(18).Caption = "<大写>"
       End If
    End If
    Text12(0).Text = Format(Text12(0).Text, "LONG DATE")

End Sub
Private Sub Form_Activate()
    If IsNumeric(Text5.Text) Then Text5.Text = FormatNumber(Text5.Text, 2, vbTrue, , vbFalse)
    If IsNumeric(Text5.Text) Then
       If CDbl(Text5.Text) <> 0 Then
          Label2(7).Caption = "<大写>人民币" + SUMDM(CDbl(Text5.Text))
          Else
            Label2(7).Caption = "<大写>"
       End If
    End If
    Text10.Text = Format(Text10.Text, "LONG DATE")
    Text11.Text = Format(Text11.Text, "LONG DATE")
    
    If IsNumeric(Text12(8).Text) Then Text12(8).Text = FormatCurrency(Text12(8).Text, , vbTrue, , vbFalse)
    If IsNumeric(Text12(8).Text) Then
       If CDbl(Text12(8).Text) <> 0 Then
          Label2(18).Caption = "<大写>人民币" + SUMDM(CDbl(Text12(8).Text))
          Else
            Label2(18).Caption = "<大写>"
       End If
    End If
    Text12(0).Text = Format(Text12(0).Text, "LONG DATE")
    
    
End Sub

Private Sub Form_Load()
    Data1.DatabaseName = App.Path & "\data\jdgl.mdb"
    Data1.Refresh
    Data2.DatabaseName = App.Path & "\data\jdgl.mdb"
    Data2.Refresh
    Set DATJDGL = OpenDatabase(App.Path & "\DATA\JDGL.MDB")
    Set RECHJZT = DATJDGL.OpenRecordset("房间状态", dbOpenDynaset)
End Sub

Private Sub Form_Unload(Cancel As Integer)
    DATJDGL.Close
End Sub

Private Sub MNU11_Click()      '打印机设置
    CDLTEST.flags = cdlPDDisablePrintToFile
    CDLTEST.Copies = 3
    CDLTEST.PrinterDefault = True
    CDLTEST.ShowPrinter

End Sub
Private Sub MNU16_Click()     ' 退出模块
    Unload Me
    
End Sub

Private Sub MNU3_1_Click()
    If SSTab1.Tab = 0 Then
       If Data1.Recordset.RecordCount = 0 Then
          MsgBox "无可查信息!", vbCritical, "提示信息"
          Exit Sub
       End If
       Else
         If Data2.Recordset.RecordCount = 0 Then
            MsgBox "无可查信息!", vbCritical, "提示信息"
            Exit Sub
         End If
    End If
    Load SKRZCXWIN
    If SSTab1.Tab = 0 Then
       SKRZCXWIN.Caption = "住房散客登记"
       Else
         SKRZCXWIN.Caption = "非住房散客登记"
    End If
    SKRZCXWIN.Show vbModal
    If SSTab1.Tab = 0 Then
       If SKRZCXWIN.STRKRID <> "" Then Data1.Recordset.FindFirst ("客人ID='" & SKRZCXWIN.STRKRID & "'")
       Else
         If SKRZCXWIN.STRKRID <> "" Then Data2.Recordset.FindFirst ("客人ID='" & SKRZCXWIN.STRKRID & "'")
    End If
End Sub

Private Sub MNU3_2_Click()
    Dim STRKRID As String
    If SSTab1.Tab = 0 Then
       If Data1.Recordset.RecordCount = 0 Then
          MsgBox "无可查信息!", vbCritical, "提示信息"
          Exit Sub
       End If
       Else
         If Data2.Recordset.RecordCount = 0 Then
            MsgBox "无可查信息!", vbCritical, "提示信息"
            Exit Sub
         End If
    End If
    Load KRCXZD
    If SSTab1.Tab = 0 Then
       STRKRID = Text6.Text
       KRCXZD.Caption = KRCXZD.Caption + "─" + STRKRID + "  " + Text2.Text
       Else
         STRKRID = Label5.Caption
         KRCXZD.Caption = KRCXZD.Caption + "─" + STRKRID + "  " + Text12(1).Text
    End If
    KRCXZD.Data3(0).DatabaseName = App.Path & "\data\jdgl.mdb"
    seleid1 = "SELECT 客人帐单.客人ID,客人帐单.日期, 客人帐单.保证金,客人帐单.房费,客人帐单.商品, 客人帐单.加床费, 客人帐单.停车, 客人帐单.电话, 客人帐单.餐费, 客人帐单.酒水, 客人帐单.商务, 客人帐单.会议, 客人帐单.酒吧, 客人帐单.舞厅, 客人帐单.旅游, 客人帐单.损失赔偿, 客人帐单.其他, 客人帐单.操作员,客人帐单.班次 From 客人帐单 WHERE (((客人帐单.客人ID)='" & STRKRID & "')) AND 客人帐单.保证金=0"
    KRCXZD.Data3(0).RecordSource = seleid1
    KRCXZD.Data3(0).Refresh
    KRCXZD.Data3(1).Recordset.FindFirst ("客人ID='" & STRKRID & "'")
    KRCXZD.Show vbModal
    
End Sub

Private Sub MNU4_Click()            ' 计算器
    Dim jsq As Double
    jsq = Shell("calc", vbNormalNoFocus)
 
End Sub

Private Sub MNU51_Click()
    Shell App.Path & "\hh.exe " & App.Path & "\help.chm", vbNormalFocus
End Sub

Private Sub MNU54_Click()          ' 关于对话
    Load frmAbout
    frmAbout.Show vbModal
    
End Sub

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
    If KeyAscii = 13 Then SendKeys "{TAB}"

End Sub

Private Sub Text10_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then SendKeys "{TAB}"
End Sub

Private Sub Text11_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then SendKeys "{TAB}"

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
       If Text2.DataChanged = True Then
          Label4.Caption = PYM(Text2.Text)
       End If
       SendKeys "{TAB}"
    End If
    
End Sub
Private Sub Text4_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then SendKeys "{TAB}"

End Sub
Private Sub Text5_KeyPress(KeyAscii As Integer)
    Dim STRVALID As String
    
    If KeyAscii = 13 Then
       If Not IsNumeric(Text5.Text) Then Text5.Text = 0
       Text5.Text = FormatNumber(Text5.Text, 2, vbTrue, , vbFalse)
       If IsNumeric(Text5.Text) Then
          If CDbl(Text5.Text) <> 0 Then
             Label2(7).Caption = "<大写>人民币" + SUMDM(CDbl(Text5.Text))
             Else
               Label2(7).Caption = "<大写>"
          End If
       End If
       SendKeys "{TAB}"
    End If
    STRVALID = "0123456789.+-"
    If KeyAscii > 26 Then
       If InStr(STRVALID, Chr(KeyAscii)) = 0 Then
          KeyAscii = 0
       End If
    End If
End Sub
Private Sub TEXT7_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then SendKeys "{TAB}"

End Sub
Private Sub Text8_KeyPress(KeyAscii As Integer)
    Dim STRVALID As String
    STRVALID = "0123456789"
    If KeyAscii > 26 Then
       If InStr(STRVALID, Chr(KeyAscii)) = 0 Then
          KeyAscii = 0
       End If
    End If
    
    If KeyAscii = 13 Then
    If Text8.DataChanged Then
       If Not IsNumeric(Text8.Text) Then Text8.Text = 0
       Text8.Text = CStr(CInt(Text8.Text))
       RECHJZT.FindFirst ("房号=" & Text8.Text)
       If RECHJZT.NoMatch Then
          MsgBox "此房号为空号!", vbCritical, "提示信息"
          Else
            If RECHJZT("房态") = "空房" Then
               RECHJZT.Edit
               RECHJZT("房态") = "在住"
               RECHJZT.Update
               SendKeys "{TAB}"
               Else
                 If RECHJZT("房态") = "在住" Then
                    SFOK = MsgBox("此房间已有客人入住!是否加客?", vbYesNo + vbQuestion, "提示信息")
                    If SFOK = vbYes Then SendKeys "{TAB}"
                    Else
                      If RECHJZT("房态") = "维修" Then
                         MsgBox "此房间正在维修!", vbCritical, "提示信息"
                         Else
                           If RECHJZT("房态") = "走房" Then
                              MsgBox "此房间客人刚走,还未清扫!", vbCritical, "提示信息"
                           End If
                      End If
                 End If
            End If
       End If
       Else
         SendKeys "{TAB}"
    End If
    End If
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case UCase(Button.Key)
        Case "A"          ' 打印
        Case "B"          ' 打印预览
        Case "I"          ' 查看
            MNU3_1_Click
        Case "ZD"
            MNU3_2_Click
        Case "K"          ' 计算器
            MNU4_Click
        Case "M"          ' 帮助
            MNU51_Click
        Case "N"          ' 退出
            Unload Me
    End Select
End Sub
上一页 1 2 34
💿 文件大小 1638 K
👤 上传用户 yuanata
📂 所属分类酒店行业
🏷️ 相关标签

#管理系统
⌨️ 快捷键说明

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