📄 thcx.frm

📁 小型酒店管理系统
💻 FRM
📖 第 1 页 / 共 4 页
字号:
上一页 1 2 34
      EndProperty
   End
   Begin MSComDlg.CommonDialog CDLTEST 
      Left            =   0
      Top             =   0
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.Menu MNU1 
      Caption         =   "文件(&F)"
      Begin VB.Menu MNU11 
         Caption         =   "打印设置"
         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)"
      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 MNU52 
         Caption         =   "索引"
         Enabled         =   0   'False
      End
      Begin VB.Menu MNU53 
         Caption         =   "-"
      End
      Begin VB.Menu MNU54 
         Caption         =   "关于红日软件..."
      End
   End
   Begin VB.Menu POP1 
      Caption         =   "mouse"
      Visible         =   0   'False
      Begin VB.Menu POP11 
         Caption         =   "增加 "
      End
      Begin VB.Menu POP13 
         Caption         =   "-"
      End
      Begin VB.Menu POP12 
         Caption         =   "删除"
      End
   End
End
Attribute VB_Name = "THCX"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim DATJDGL As Database
Dim RECHJZT As Recordset
Private Sub Data1_Reposition()
    Data2.DatabaseName = App.Path & "\data\jdgl.mdb"
    Data2.RecordSource = "SELECT 团会房间安排.ID, 团会房间安排.团会ID, 团会房间安排.房号,团会房间安排.房价, 团会房间安排.姓名, 团会房间安排.性别, 团会房间安排.附注 From 团会房间安排 WHERE (((团会房间安排.团会ID)='" + Text6.Text + "'))"
    Data2.Refresh
    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
    Text7.Text = Format(Text7.Text, "LONG DATE")
    Text8.Text = Format(Text8.Text, "LONG DATE")

End Sub

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

End Sub
Private Sub Form_Activate()
    Data2.RecordSource = "SELECT 团会房间安排.ID, 团会房间安排.团会ID, 团会房间安排.房号,团会房间安排.房价, 团会房间安排.姓名, 团会房间安排.性别, 团会房间安排.附注 From 团会房间安排 WHERE (((团会房间安排.团会ID)='" + Text6.Text + "'))"
    Data2.Refresh
    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
    Text7.Text = Format(Text7.Text, "LONG DATE")
    Text8.Text = Format(Text8.Text, "LONG DATE")
    
    Text9(0).Text = Format(Text9(0).Text, "LONG DATE")
    If IsNumeric(Text9(4).Text) Then Text9(4).Text = FormatCurrency(Text9(4).Text, , vbTrue, , vbFalse)
    If IsNumeric(Text9(4).Text) Then
       If CDbl(Text9(4).Text) <> 0 Then
          Label2(8).Caption = "<大写>人民币" + SUMDM(CDbl(Text9(4).Text))
          Else
            Label2(8).Caption = "<大写>"
       End If
    End If
    
End Sub

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

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()     ' 退出模块
    DATJDGL.Close
    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 Data3.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 Data3.Recordset.FindFirst ("团会ID='" & SKRZCXWIN.STRKRID & "'")
    End If

End Sub

Private Sub MNU3_2_Click()
    If SSTab1.Tab = 0 Then
       If Data1.Recordset.RecordCount = 0 Then
          MsgBox "无可查信息!", vbCritical, "提示信息"
          Exit Sub
       End If
       Else
         If Data3.Recordset.RecordCount = 0 Then
            MsgBox "无可查信息!", vbCritical, "提示信息"
            Exit Sub
         End If
    End If
    Load KRCXZD
    STRTJ = "SELECT DISTINCTROW 团会登记表.团会ID, 团会登记表.预付款, Sum(客人帐单.保证金) AS 保证金, IIf([预付款]<>0,[预付款],0)+IIf([保证金]<>0,[保证金],0) AS 保证金合计, Sum(客人帐单.房费) AS 房费, Sum(客人帐单.商品) AS 商品, Sum(客人帐单.加床费) AS 加床费, Sum(客人帐单.停车) AS 停车, Sum(客人帐单.电话) AS 电话, Sum(客人帐单.餐费) AS 餐费, Sum(客人帐单.酒水) AS 酒水, Sum(客人帐单.商务) AS 商务, Sum(客人帐单.会议) AS 会议, Sum(客人帐单.酒吧) AS 酒吧, Sum(客人帐单.舞厅) AS 舞厅, Sum(客人帐单.旅游) AS 旅游, Sum(客人帐单.损失赔偿) AS 损失赔偿, Sum(客人帐单.其他) AS 其他, IIf([房费]<>0,[房费],0)+IIf([商品]<>0,[商品],0)+IIf([加床费]<>0,[加床费],0)+IIf([停车]<>0,[停车],0)+IIf([电话]<>0,[电话],0)+IIf([餐费]<>0,[餐费],0)+IIf([酒水]<>0,[酒水],0)+IIf([商务]<>0,[商务],0)+IIf([会议]<>0,[会议],0)+IIf([酒吧]<>0,[酒吧],0)+IIf([舞厅]<>0,[舞厅],0)+IIf([旅游]<>0,[旅游],0)+IIf([损失赔偿]<>0,[损失赔偿],0)+IIf([其他]<>0,[其他],0) AS 消费合计, [保证金合计]-[消费合计] AS 余额, 团会登记表.班次"
    STRTJ = STRTJ + " " + "FROM 团会登记表 LEFT JOIN 客人帐单 ON 团会登记表.团会ID = 客人帐单.团会ID GROUP BY 团会登记表.团会ID, 团会登记表.预付款, 团会登记表.班次"
    KRCXZD.Data3(1).DatabaseName = App.Path & "\DATA\JDGL.MDB"
    KRCXZD.Data3(1).RecordSource = STRTJ
    KRCXZD.Data3(1).Refresh
    If SSTab1.Tab = 0 Then
       KRCXZD.Data3(1).Recordset.FindFirst ("团会ID='" & Text6.Text & "'")
       seleid1 = "SELECT 客人帐单.团会ID,客人帐单.日期, 客人帐单.保证金,客人帐单.房费,客人帐单.商品, 客人帐单.加床费, 客人帐单.停车, 客人帐单.电话, 客人帐单.餐费, 客人帐单.酒水, 客人帐单.商务, 客人帐单.会议, 客人帐单.酒吧, 客人帐单.舞厅, 客人帐单.旅游, 客人帐单.损失赔偿, 客人帐单.其他, 客人帐单.操作员,客人帐单.班次 From 客人帐单 WHERE (((客人帐单.团会ID)='" & Text6.Text & "')) AND 客人帐单.保证金=0"
       KRCXZD.Caption = KRCXZD.Caption + "─" + Text6.Text + "  " + Text2.Text
       Else
         KRCXZD.Data3(1).Recordset.FindFirst ("团会ID='" & Label4.Caption & "'")
         seleid1 = "SELECT 客人帐单.团会ID,客人帐单.日期, 客人帐单.保证金,客人帐单.房费,客人帐单.商品, 客人帐单.加床费, 客人帐单.停车, 客人帐单.电话, 客人帐单.餐费, 客人帐单.酒水, 客人帐单.商务, 客人帐单.会议, 客人帐单.酒吧, 客人帐单.舞厅, 客人帐单.旅游, 客人帐单.损失赔偿, 客人帐单.其他, 客人帐单.操作员,客人帐单.班次 From 客人帐单 WHERE (((客人帐单.团会ID)='" & Label4.Caption & "')) AND 客人帐单.保证金=0"
         KRCXZD.Caption = KRCXZD.Caption + "─" + Label4.Caption + "  " + Text9(1).Text
    End If
    KRCXZD.Data3(0).DatabaseName = App.Path & "\DATA\JDGL.MDB"
    KRCXZD.Data3(0).RecordSource = seleid1
    KRCXZD.Data3(0).Refresh
    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 Text2_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
       Text3.SetFocus
    End If
    
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
       Text4.SetFocus
    End If
End Sub
Private Sub Text4_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
       Text7.SetFocus
    End If
End Sub
Private Sub TEXT7_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
       Text8.SetFocus
    End If
End Sub
Private Sub Text8_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
       Text5.SetFocus
    End If
End Sub
Private Sub Text5_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
       Text2.SetFocus
    End If
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case UCase(Button.Key)
        Case "A"          ' 打印机设置
            MNU11_Click
        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
💿 文件大小 1568 K
👤 上传用户 huihuisasa
📂 所属分类酒店行业
🏷️ 相关标签

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

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