?? skldcx.frm

?? 計算機學位畢業設計客房管理系統無解壓密碼
?? FRM
?? 第 1 頁 / 共 4 頁
字號:
上一頁 1 2 34
   End
   Begin DevPowerTransImg.TransImg TransImg1 
      Height          =   495
      Left            =   8880
      TabIndex        =   20
      Top             =   680
      Width           =   1095
      _ExtentX        =   1931
      _ExtentY        =   873
      AutoSize        =   0   'False
      MaskColor       =   16777215
      Transparent     =   -1  'True
   End
   Begin MSComctlLib.ImageList ImageList2 
      Left            =   0
      Top             =   0
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   26
      ImageHeight     =   23
      MaskColor       =   16777215
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   10
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "SKLDCX.frx":0500
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "SKLDCX.frx":0684
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "SKLDCX.frx":0B4C
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "SKLDCX.frx":1050
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "SKLDCX.frx":11D4
            Key             =   ""
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "SKLDCX.frx":169C
            Key             =   ""
         EndProperty
         BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "SKLDCX.frx":1820
            Key             =   ""
         EndProperty
         BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "SKLDCX.frx":1CAC
            Key             =   ""
         EndProperty
         BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "SKLDCX.frx":2100
            Key             =   ""
         EndProperty
         BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "SKLDCX.frx":258C
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin VB.Line Line4 
      BorderColor     =   &H80000009&
      X1              =   120
      X2              =   120
      Y1              =   840
      Y2              =   5775
   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)"
      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 = "SKLDCX"
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 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
    KRCXZD.Data3(1).DatabaseName = App.Path & "\data\jdgl.mdb"
    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).RecordSource = STRTJ
    KRCXZD.Data3(1).Refresh

    
    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 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
?? 文件大小 1526 K
?? 上傳用戶 liu2237329
?? 所屬分類 MySQL數據庫
??? 相關標簽

#計算機 #畢業設計 #密碼 #管理系統
?? 快捷鍵說明

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

?? skldcx.frm

?? 快捷鍵說明
