module1.bas

KTV管理系统,实现了基本的日常操作.程序有不完善之处,请自修升级修改.

Attribute VB_Name = "Module1"
Option Explicit
'与验证注册相关
Public regflag As String
Public mainstr As String
Public appStr As String
'Public re As New MOSRE.boss
Global qyName As String
Global qyDizhi As String
Global qyPhone As String

Public admin As String
Public adminLX As String
Public adminFlag As String
Public passflag As Boolean
Public flag As Boolean
'报表标识字
Public BBcaption As String
'格式化

Public Const bxhFat As String = "包厢号 |0000"
 Public Const zhFat As String = "桌 号 |0000"
Public Const FmDate As String = "yyyy-m-d" '格式化时间
Public Const FmTime As String = "hh:mm:ss" '格式化时间
Public Const FmatPaihao As String = "0000" '格式化牌号
Public Const FmatMoney As String = " | $0" '格式化金钱
Public Const zdhFat As String = "帐单号 |000000"

'全局数据集,作为临时数据集僵用
Public tempconn As New ADODB.Connection
Public Sub MDIview()
Dim i As Integer
For i = 1 To 9
MDIForm1.Toolbar1.Buttons(i).Enabled = True
Next
End Sub
Public Sub MDIhide()
Dim i As Integer
For i = 1 To 4
MDIForm1.Toolbar1.Buttons(i).Enabled = False
Next
For i = 6 To 8
MDIForm1.Toolbar1.Buttons(i).Enabled = True
Next
MDIForm1.Toolbar1.Buttons(9).Enabled = False
End Sub

'取 0 功能
Public Function Zero(num As String) As Integer
Dim num1 As String
Dim i
num1 = num
For i = 1 To Len(num1)
    If Left(num1, 1) = 0 Then num1 = Right(num1, 6 - i)
Next
Zero = num1
End Function
Public Function getPH(phflag As String, ph As String) As String
Dim lenPH As Integer
If flag = "zd" Then
lenPH = Len(zdhFat)
ElseIf flag = "bx" Then
lenPH = Len(bxhFat)
ElseIf flag = "zh" Then
lenPH = Len(zhFat)
End If
getPH = Left(ph, lenPH)
End Function
'返回一临时记录集
Public Function tempRs(sql As String) As ADODB.Recordset
tempRs.Open sql, conn1, adOpenDynamic, adLockOptimistic
End Function
'删除临时表数据
Public Sub delTempTabel()
Dim sql As String
On Error Resume Next
tempconn.Close
tempconn.ConnectionString = conn1
tempconn.Open
sql = "delete from 点单临时表"
tempconn.Execute sql
End Sub
Public Sub addDD()
Dim i As Integer
Dim sql1 As String
Dim sql2 As String
Dim sql3 As String
Dim rs1 As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
Dim rs3 As New ADODB.Recordset
Set rs1 = New ADODB.Recordset
Set rs3 = New ADODB.Recordset
Set rs2 = New ADODB.Recordset

sql1 = "select * from 点单临时表"
sql2 = "select * from 点单"
rs1.Open sql1, conn1, adOpenKeyset, adLockPessimistic
rs2.Open sql2, conn1, adOpenKeyset, adLockPessimistic
For i = 1 To rs1.RecordCount
    '设置服务员状态,在结帐时可通过 DISTINCT 语句过滤服务员是否还在服务状态,否则就再设为空闲
    If rs1.Fields("服务员") <> "" Then
    sql3 = "select * from 服务员 where 编号='" & rs1.Fields("服务员") & "'"
    rs3.Open sql3, conn1, adOpenKeyset, adLockPessimistic
    If rs3.RecordCount > 0 Then
        rs3.Fields("状态") = "服务"
        rs3.Update
        rs3.Close
        Set rs3 = Nothing
    End If
    Else
    End If
   
    rs2.AddNew
    rs2.Fields("牌号") = rs1.Fields("牌号")
    rs2.Fields("项目") = rs1.Fields("项目")
    rs2.Fields("数量") = rs1.Fields("数量")
    rs2.Fields("单价") = rs1.Fields("单价")
    rs2.Fields("总价") = rs1.Fields("总价")
    rs2.Fields("付款方式") = rs1.Fields("付款方式")
    rs2.Fields("帐单号") = rs1.Fields("帐单号")
    rs2.Fields("预付押金") = rs1.Fields("预付押金")
    rs2.Fields("服务员") = rs1.Fields("服务员")
    rs2.Fields("消费开始日期") = Format(Date, FmDate)
    rs2.Fields("消费开始时间") = Format(Time, FmTime)
    rs2.Update
    rs1.MoveNext
Next

Call delTempTabel
Call addZD
End Sub
'新帐单号自动加
Public Sub addZD()
Dim sql3 As String
Dim rs3 As New ADODB.Recordset
Set rs3 = New ADODB.Recordset
sql3 = "select * from 帐单号"
rs3.Open sql3, conn1, adOpenKeyset, adLockPessimistic
rs3.Fields("帐单号") = FrmLBJD.zdh
rs3.Update
End Sub
' 点单后房态重设
Public Sub FTset(myph As String)
Dim sum As Integer
Dim i As Integer
Dim sql As String
Dim tmpStr As String
Dim rs As New ADODB.Recordset
Set rs = New ADODB.Recordset
sum = Len(myph) / 4
For i = 1 To sum
    tmpStr = Mid$(myph, (i - 1) * 4 + 1, 4)
    If Left(tmpStr, 1) = "1" Then
    sql = "select * from 包厢号 where 包厢号='" & tmpStr & "'"
    ElseIf Left(tmpStr, 1) = "0" Then
    sql = "select * from 桌号 where 桌号='" & tmpStr & "'"
    End If
    rs.Open sql, conn1, adOpenKeyset, adLockPessimistic
    If rs.RecordCount > 0 Then rs.Fields("状态") = "有客"
    rs.Update
    rs.Close
Next

End Sub