📄 krzd.frm
字号:
MYMARK = Data3(0).Recordset.Bookmark
Data3(0).UpdateRecord
Data3(0).Recordset.Bookmark = MYMARK
Data3(1).Refresh
If SSTab1.Tab = 0 Then STRIDMC = "客人ID" Else STRIDMC = "团会ID"
Data3(1).Recordset.FindFirst (STRIDMC & "='" & left(List1(SSTab1.Tab).Text, 12) & "'")
Exit Sub
EXITSUB:
SFOK = MsgBox(CStr(Err.Number) & "-" & Err.Description, vbCritical + vbAbortRetryIgnore, "错误信息")
If SFOK = vbAbort Then
Unload Me
Else
If SFOK = vbRetry Then
Resume
Else
Resume Next
End If
End If
End Sub
Private Sub DBGrid1_Error(ByVal DataError As Integer, Response As Integer)
MsgBox DataError
MsgBox Response
End Sub
Private Sub DBGrid1_MouseDown(Button As Integer, Shift As Integer, X As Single, y As Single)
If Button = vbRightButton Then
Me.PopupMenu MNU2
End If
End Sub
Private Sub Form_Activate()
If List1(SSTab1.Tab).ListCount > 0 Then List1(SSTab1.Tab).ListIndex = 0
End Sub
Private Sub Form_Load()
Data1(0).DatabaseName = App.Path & "\data\jdgl.mdb"
Data1(0).Refresh
Data2(0).DatabaseName = App.Path & "\data\jdgl.mdb"
Data2(0).Refresh
Data3(0).DatabaseName = App.Path & "\data\jdgl.mdb"
Data3(0).Refresh
Data1(1).DatabaseName = App.Path & "\data\jdgl.mdb"
Data1(1).Refresh
Data2(1).DatabaseName = App.Path & "\data\jdgl.mdb"
Data2(1).Refresh
Data3(1).DatabaseName = App.Path & "\data\jdgl.mdb"
Data3(1).Refresh
Set DATJDGL = OpenDatabase(App.Path & "\DATA\JDGL.MDB")
Set RECTH = DATJDGL.OpenRecordset("团会登记表", dbOpenDynaset)
Set RECSK = DATJDGL.OpenRecordset("散客登记表", dbOpenDynaset)
Set RECZD = DATJDGL.OpenRecordset("客人帐单", dbOpenDynaset)
List1(1).Clear
Do While Not RECTH.EOF
If RECTH("团会名称") <> " " Then
List1(1).AddItem RECTH("团会ID") + " " + IIf(IsNull(RECTH("团会名称")), "", RECTH("团会名称"))
End If
RECTH.MoveNext
Loop
List1(0).Clear
If RECSK.RecordCount > 0 Then RECSK.MoveFirst
While Not RECSK.EOF
List1(0).AddItem RECSK("客人ID") + " " + IIf(IsNull(RECSK("姓名")), "", RECSK("姓名"))
RECSK.MoveNext
Wend
End Sub
Private Sub Form_Unload(Cancel As Integer)
DATJDGL.Close
End Sub
Private Sub List1_Click(Index As Integer)
If List1(Index).Text = "" Then
seleid1 = "SELECT 客人帐单.ID,客人帐单.日期, 客人帐单.房费, 客人帐单.商品,客人帐单.加床费, 客人帐单.停车, 客人帐单.电话, 客人帐单.餐费, 客人帐单.酒水, 客人帐单.商务, 客人帐单.会议, 客人帐单.酒吧, 客人帐单.舞厅, 客人帐单.旅游, 客人帐单.损失赔偿, 客人帐单.其他, 客人帐单.操作员,客人帐单.班次 From 客人帐单 WHERE (((客人帐单.客人ID)='999999999999'))"
Else
If Index = 0 Then
seleid1 = "SELECT 客人帐单.ID,客人帐单.客人ID,客人帐单.日期, 客人帐单.保证金,客人帐单.房费,客人帐单.商品, 客人帐单.加床费, 客人帐单.停车, 客人帐单.电话, 客人帐单.餐费, 客人帐单.酒水, 客人帐单.商务, 客人帐单.会议, 客人帐单.酒吧, 客人帐单.舞厅, 客人帐单.旅游, 客人帐单.损失赔偿, 客人帐单.其他, 客人帐单.操作员,客人帐单.班次 From 客人帐单 WHERE (((客人帐单.客人ID)='" & left(List1(0).Text, 12) & "')) AND 客人帐单.保证金=0"
Else
seleid1 = "SELECT 客人帐单.ID,客人帐单.团会ID,客人帐单.日期, 客人帐单.保证金,客人帐单.房费,客人帐单.商品, 客人帐单.加床费, 客人帐单.停车, 客人帐单.电话, 客人帐单.餐费, 客人帐单.酒水, 客人帐单.商务, 客人帐单.会议, 客人帐单.酒吧, 客人帐单.舞厅, 客人帐单.旅游, 客人帐单.损失赔偿, 客人帐单.其他, 客人帐单.操作员,客人帐单.班次 From 客人帐单 WHERE (((客人帐单.团会ID)='" & left(List1(1).Text, 12) & "')) AND 客人帐单.保证金=0"
End If
End If
Data3(0).RecordSource = seleid1
Data3(0).Refresh
If SSTab1.Tab = 0 Then STRIDMC = "客人ID" Else STRIDMC = "团会ID"
Data1(SSTab1.Tab).Recordset.FindFirst (STRIDMC & "='" & left(List1(SSTab1.Tab).Text, 12) & "'")
Data2(SSTab1.Tab).Recordset.FindFirst (STRIDMC & "='" & left(List1(SSTab1.Tab).Text, 12) & "'")
Data3(1).Recordset.FindFirst (STRIDMC & "='" & left(List1(SSTab1.Tab).Text, 12) & "'")
STROPTION = ""
If Not Data1(SSTab1.Tab).Recordset.EOF Then
If SSTab1.Tab = 0 Then
If Not IsNull(Data1(SSTab1.Tab).Recordset("房号")) Then STROPTION = STROPTION + CStr(Data1(SSTab1.Tab).Recordset("房号"))
If Not IsNull(Data1(SSTab1.Tab).Recordset("姓名")) Then STROPTION = STROPTION + " " + CStr(Data1(SSTab1.Tab).Recordset("姓名"))
If Not IsNull(Data1(SSTab1.Tab).Recordset("性别")) Then STROPTION = STROPTION + " " + CStr(Data1(SSTab1.Tab).Recordset("性别"))
If Not IsNull(Data1(SSTab1.Tab).Recordset("证件类别")) Then STROPTION = STROPTION + Chr(13) + CStr(Data1(SSTab1.Tab).Recordset("证件类别"))
If Not IsNull(Data1(SSTab1.Tab).Recordset("证件号码")) Then STROPTION = STROPTION + " " + CStr(Data1(SSTab1.Tab).Recordset("证件号码"))
If Not IsNull(Data1(SSTab1.Tab).Recordset("类别")) Then STROPTION = STROPTION + Chr(13) + CStr(Data1(SSTab1.Tab).Recordset("类别"))
If Not IsNull(Data1(SSTab1.Tab).Recordset("国籍")) Then STROPTION = STROPTION + " " + CStr(Data1(SSTab1.Tab).Recordset("国籍"))
If Not IsNull(Data1(SSTab1.Tab).Recordset("入住日期")) Then STROPTION = STROPTION + Chr(13) + Format(Data1(SSTab1.Tab).Recordset("入住日期"), "LONG DATE")
If Not IsNull(Data1(SSTab1.Tab).Recordset("离住日期")) Then STROPTION = STROPTION + " " + Format(Data1(SSTab1.Tab).Recordset("离住日期"), "LONG DATE")
If Not IsNull(Data1(SSTab1.Tab).Recordset("单位或地址")) Then STROPTION = STROPTION + Chr(13) + CStr(Data1(SSTab1.Tab).Recordset("单位或地址"))
If Not Data1(SSTab1.Tab).Recordset("住房") Then
STROPTION = STROPTION + Chr(13) + Chr(13) + "非住房客人"
DBGrid1.Columns("房费").Locked = True
DBGrid1.Columns("商品").Locked = True
DBGrid1.Columns("加床费").Locked = True
Else
DBGrid1.Columns("房费").Locked = False
DBGrid1.Columns("商品").Locked = False
DBGrid1.Columns("加床费").Locked = False
End If
Else
If Not IsNull(Data1(SSTab1.Tab).Recordset("团会名称")) Then STROPTION = STROPTION + CStr(Data1(SSTab1.Tab).Recordset("团会名称"))
If Not IsNull(Data1(SSTab1.Tab).Recordset("团体人数")) Then STROPTION = STROPTION + Chr(13) + "人数:" + CStr(Data1(SSTab1.Tab).Recordset("团体人数"))
If Not IsNull(Data1(SSTab1.Tab).Recordset("陪同人数")) Then STROPTION = STROPTION + " 陪同:" + CStr(Data1(SSTab1.Tab).Recordset("陪同人数"))
If Not IsNull(Data1(SSTab1.Tab).Recordset("入住日期")) Then STROPTION = STROPTION + Chr(13) + Format(Data1(SSTab1.Tab).Recordset("入住日期"), "LONG DATE")
If Not IsNull(Data1(SSTab1.Tab).Recordset("离住日期")) Then STROPTION = STROPTION + " " + Format(Data1(SSTab1.Tab).Recordset("离住日期"), "LONG DATE")
If Not Data1(SSTab1.Tab).Recordset("住房") Then
STROPTION = STROPTION + Chr(13) + Chr(13) + "非住房团会"
DBGrid1.Columns("房费").Locked = True
DBGrid1.Columns("商品").Locked = True
DBGrid1.Columns("加床费").Locked = True
Else
DBGrid1.Columns("房费").Locked = False
DBGrid1.Columns("商品").Locked = False
DBGrid1.Columns("加床费").Locked = False
End If
End If
End If
Label2(SSTab1.Tab).Caption = STROPTION
DBGrid1.Refresh
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 MNU21_Click()
If DBGrid1.DataChanged Then
Data3(0).UpdateRecord
End If
If SSTab1.Tab = 0 And List1(0).Text <> "" Then
Data3(0).Recordset.AddNew
INTID = Data3(0).Recordset("ID")
Data3(0).Recordset("客人ID") = left(List1(0).Text, 12)
Data3(0).Recordset("日期") = Now
Data3(0).Recordset("操作员") = frmLogin.CZYXM
Data3(0).Recordset("班次") = frmLogin.CZYBC
Data3(0).Recordset.Update
Data3(0).Recordset.FindFirst ("ID=" & INTID)
End If
If SSTab1.Tab = 1 And List1(1).Text <> "" Then
Data3(0).Recordset.AddNew
INTID = Data3(0).Recordset("ID")
Data3(0).Recordset("团会ID") = left(List1(1).Text, 12)
Data3(0).Recordset("日期") = Now
Data3(0).Recordset("操作员") = frmLogin.CZYXM
Data3(0).Recordset("班次") = frmLogin.CZYBC
Data3(0).Recordset.Update
Data3(0).Recordset.FindFirst ("ID=" & INTID)
End If
End Sub
Private Sub MNU22_Click() ' 删除记录
If Data3(0).Recordset.RecordCount = 0 Then Exit Sub
SFOK = MsgBox("是否删除当前行?", vbYesNo + vbQuestion, "提示信息")
If SFOK = vbYes Then
Data3(0).Recordset.Delete
If Not Data3(0).Recordset.EOF Then
Data3(0).Recordset.MoveNext
If Data3(0).Recordset.EOF And Data3(0).Recordset.RecordCount > 0 Then Data3(0).Recordset.MoveLast
Else
Data3(0).Recordset.MoveLast
End If
Data3(1).Refresh
End If
List1_Click (SSTab1.Tab)
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 SSTab1_Click(PreviousTab As Integer)
If SSTab1.Tab = 0 Then
Data3(1).RecordSource = Data2(0).RecordSource
Else
Data3(1).RecordSource = Data2(1).RecordSource
End If
Data3(1).Refresh
If List1(SSTab1.Tab).ListCount > 0 Then
If List1(SSTab1.Tab).Text = "" Then List1(SSTab1.Tab).ListIndex = 0
End If
List1_Click (SSTab1.Tab)
End Sub
Private Sub Text3_Change(Index As Integer)
List1(SSTab1.Tab).Clear
If RECSK.RecordCount > 0 Then RECSK.MoveFirst
If RECTH.RecordCount > 0 Then RECTH.MoveFirst
If SSTab1.Tab = 0 Then
While Not RECSK.EOF
If InStr(UCase(RECSK("FPY")), UCase(Text3(Index).Text)) > 0 Or Text3(Index).Text = "" Then
List1(SSTab1.Tab).AddItem RECSK("客人ID") + " " + IIf(IsNull(RECSK("姓名")), "", RECSK("姓名"))
End If
RECSK.MoveNext
Wend
Else
While Not RECTH.EOF
If InStr(UCase(RECTH("FPY")), UCase(Text3(Index).Text)) > 0 Or Text3(Index).Text = "" Then
List1(SSTab1.Tab).AddItem RECTH("团会ID") + " " + IIf(IsNull(RECTH("团会名称")), "", RECTH("团会名称"))
End If
RECTH.MoveNext
Wend
End If
End Sub
Private Sub Text3_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = 13 Then
If List1(SSTab1.Tab).ListCount > 0 Then
List1(SSTab1.Tab).ListIndex = 0
List1(SSTab1.Tab).SetFocus
End If
End If
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case UCase(Button.Key)
Case "A" ' 打印机设置
MNU11_Click
Case "B" ' 打印预览
MsgBox "B"
Case "C" ' 文件输出
MsgBox "C"
Case "E" ' 增加
MNU21_Click
Case "G" ' 删除
MNU22_Click
Case "I" ' 查看
MsgBox "H"
Case "K" ' 计算器
MNU4_Click
Case "M" ' 帮助
MNU51_Click
Case "N" ' 退出
Unload Me
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -