n_krdjd.frm

杭州舟远信息技术连锁有限公司的棋牌管理系统源代码

End If

If Not IsNumeric(Text6.Text) Or Trim(Text6.Text) = "0" Then
    MsgBox "数量错误！"
    Exit Sub
End If

If Trim(Combo2.Text) = "" Then
   MsgBox "请选择消费类别！"
   Exit Sub
End If

If Trim(Combo3.Text) = "" Then
   MsgBox "请选择消费品！"
   Exit Sub
End If

Set xf_Rec = New ADODB.Recordset
xf_Rec.Source = "select * from N_XFJL where XFLB='" & Trim(Combo2.Text) & "' and XFWP='" & Trim(Combo3.Text) & "' and zh='" & Trim(Text22.Text) & "'"
Set xf_Rec.ActiveConnection = objConn
xf_Rec.CursorType = adOpenDynamic
xf_Rec.LockType = adLockOptimistic
xf_Rec.Open
If Not xf_Rec.EOF Then
  xf_Rec.Fields("XFSL") = Val(xf_Rec.Fields("XFSL")) + Val(Trim(Text6.Text))
  xf_Rec.Fields("xfje") = xf_Rec.Fields("xfje") + Trim(wp_rec.Fields("wpjg")) * Val(Trim(Text6.Text))
  xf_Rec.Update
  xf_Rec.Close
  Set xf_Rec = Nothing

Else
Set xf_rec1 = New ADODB.Recordset
xf_rec1.Source = "select * from N_XFJL"
Set xf_rec1.ActiveConnection = objConn
xf_rec1.CursorType = adOpenDynamic
xf_rec1.LockType = adLockOptimistic
xf_rec1.Open
 xf_rec1.AddNew
  With xf_rec1
  .Fields("id") = fGetMaxComID("N_xfjl", "ID") + 1
  .Fields("ZH") = Trim(Text22.Text)
  .Fields("XFLB") = Trim(Combo2.Text)
  .Fields("XFWP") = Trim(Combo3.Text)
  .Fields("XFSL") = CInt(Trim(Text6.Text))
  .Fields("XFSJ") = Trim(Format(Time, "hh:mm"))
  .Fields("RQ") = Trim(Format(Date, "yyyymmdd"))
  .Fields("czh") = Trim(m_czh.Text)
  .Fields("xfje") = wp_rec.Fields("wpjg") * Val(Trim(Text6.Text))
 End With
xf_rec1.Update
xf_rec1.Close
Set xf_rec1 = Nothing
End If
'addcj (wp_rec.Fields("wpjg"))
wp_rec.Close
Set wp_rec = Nothing

Call flex1_refresh("select * from N_XFJL where zh='" + Trim(Text22.Text) + "'")
Text6.Text = ""
Combo2.Text = ""
Combo3.Text = ""
Timer1.Enabled = True
Command5.Enabled = True
Command6.Enabled = True
Command7.Enabled = True
Text7.Enabled = True
End Sub

Private Sub Command10_Click()
Frame8(1).Visible = True
Frame4.Visible = False
'Frame1.Visible = False
End Sub

Private Sub Command11_Click()
On Error Resume Next

    Dim temp_jyFT As Boolean
    Dim fj_rec As New ADODB.Recordset
    Dim krqd_rec As New ADODB.Recordset

    

    
    Dim strSQLTXT As String
 
    temp_jyFT = True
    

            
                '折扣率
                temp_jyFT = True
                If Trim(m_kf_zkl.Text) = "" Then
                    m_kf_zkl.Text = 100
                Else
                    If Not IsNumeric(m_kf_zkl.Text) Then
                        temp_jyFT = False
                    End If
                End If
                If Not temp_jyFT Then
                    Text17.Visible = True
                    Text17.Text = "折扣率应为数字型"
                    m_kf_zkl.SetFocus
                    Exit Sub
                End If
                                    
                        
                        strSQLTXT = "SELECT * FROM DT_KRQD WHERE ZH ='" & Trim(Text22.Text) & "'"
                        
                        Set krqd_rec = New ADODB.Recordset
                        krqd_rec.Source = strSQLTXT
                        Set krqd_rec.ActiveConnection = objConn
                        krqd_rec.CursorType = adOpenDynamic
                        krqd_rec.LockType = adLockOptimistic
                        krqd_rec.Open
                        While Not krqd_rec.EOF
                         krqd_rec.Fields("KR_XM") = IIf(Trim(kr_xm.Text) = "", "*", Trim(kr_xm.Text))
                         krqd_rec.Fields("KR_TEL") = IIf(Trim(kr_tel.Text) = "", "*", Trim(kr_tel.Text))
                         krqd_rec.Fields("DJ_BZ") = IIf(Trim(dj_bz.Text) = "", "*", Trim(dj_bz.Text))
                         'krqd_rec.Fields("TSFW") = IIf(Trim(cm_tsfw) = "", "*", Trim(cm_tsfw))
                         If Trim(m_kf_zkl.Text) = "" Then
                          krqd_rec.Fields("KF_ZKL") = 100
                         Else
                          krqd_rec.Fields("KF_ZKL") = Trim(m_kf_zkl.Text)
                         End If
                        krqd_rec.MoveNext
                        Wend
                        krqd_rec.Update
                        
                        

                        'fj_rec.Close
                        krqd_rec.Close
                        Set krqd_rec = Nothing
                                                
                        
                        Text17.Visible = True
                        Text17.Text = "修改成功"
                        Command2.Enabled = False
                        Call tPkjEnabledFT(False)
                        
                        Call dt_main.fj_road
End Sub

Private Sub Combo2_Click()
    Dim i As Integer
    Dim temp_rec  As ADODB.Recordset
    
    Combo3.Clear
    
    'Set temp_rec = tp_data.OpenRecordset("SELECT " & Trim(tp_field) & " FROM " & Trim(tp_table) & " ORDER BY " & Trim(tp_field), 4, 0, 2)
    Set temp_rec = New ADODB.Recordset
    temp_rec.Source = "SELECT * FROM N_SPB WHERE MENU='" & Combo2.Text & "'"
    Set temp_rec.ActiveConnection = objConn
    temp_rec.CursorType = adOpenDynamic
    temp_rec.LockType = adLockOptimistic
    temp_rec.Open
    If Not temp_rec.BOF Then
        temp_rec.MoveFirst
        
        Do While Not temp_rec.EOF
            Combo3.AddItem (temp_rec(Trim("wp")))
            temp_rec.MoveNext
        Loop
    End If
    temp_rec.Close
    Set temp_rec = Nothing
End Sub




Private Sub Command2_Click()
 Command7.Enabled = True
End Sub

'Private Sub Command2_Click()
'Dim kr_dj As New ADODB.Recordset
'Dim czzt As New ADODB.Recordset

'If Text1.Text = "" Or IsNumeric(Text1.Text) = False Then
'   MsgBox "金额错误"
'   Exit Sub
'End If


' If Text17.Text = "该帐号已经结帐！" Then
'  MsgBox "该棋牌桌已结帐，错误！"
'  Exit Sub
'End If
'
' Set kr_dj = New ADODB.Recordset
' kr_dj.Source = "select * from DT_KRQD where ZH='" & Trim(Text22.Text) & "'"
 'Set kr_dj.ActiveConnection = objConn
' kr_dj.CursorType = adOpenDynamic
' kr_dj.LockType = adLockOptimistic
' kr_dj.Open
' If kr_dj.EOF Then
'  MsgBox "客人尚未登记"
'  Exit Sub
' End If
'
'  While Not kr_dj.EOF
'   kr_dj.Fields("dj") = Trim(Text1.Text)
'   kr_dj.Update
'  kr_dj.MoveNext
'  Wend
'  kr_dj.Close
'  Set kr_dj = Nothing
'  addcj (Trim(Text1.Text))
'  'Call dj
'End Sub

'Sub dj()
' Dim kr_dj As New ADODB.Recordset
' Set kr_dj = New ADODB.Recordset
' kr_dj.Source = "select DJ from DT_KRQD where ZH='" & Trim(Text22.Text) & "'"
' Set kr_dj.ActiveConnection = objConn
' kr_dj.CursorType = adOpenDynamic
' kr_dj.LockType = adLockOptimistic
' kr_dj.Open
'
'  If IsNull(kr_dj.Fields("DJ")) = True Then
'   DJXG.Enabled = False
'   DJXGQR.Enabled = False
'  Else
'   Text1.Text = kr_dj.Fields("DJ")
'   Text1.Enabled = False
'   Command2.Enabled = False
'   DJXG.Enabled = True
'   DJXGQR.Enabled = True
'   End If
'End Sub


'Sub djth()
 'Dim djth As New ADODB.Recordset
 'Set djth = New ADODB.Recordset
 'djth.Source = "select DJDT,DJDTSM from DT_KRQD where ZH='" & Trim(Text22.Text) & "'"
 'Set djth.ActiveConnection = objConn
 'djth.CursorType = adOpenDynamic
 'djth.LockType = adLockOptimistic
 'djth.Open
 ' If IsNull(djth.Fields("DJDT")) = True Then
 '  Command3.Enabled = True
 '  Command4.Enabled = False
 '  Cmd5.Enabled = False
 'Else
 '  Text2.Text = djth.Fields("DJDT")
 '  If IsNull(djth.Fields("DJDTSM")) = False Then
 '  Text3.Text = djth.Fields("DJDTSM")
 '  End If
 '  Text2.Enabled = False
 '  Text3.Enabled = False
 '  Command3.Enabled = False
 '  Command4.Enabled = True
'   Cmd5.Enabled = True
' End If
'End Sub

Private Sub command6_Click()
If IsNumeric(Text6.Text) = False And Text6.Text <> "" Then
   MsgBox "数量输入错误！"
   Exit Sub
End If

Dim del_xf As ADODB.Recordset
Set del_xf = New ADODB.Recordset
del_xf.Source = "select * from N_XFJL where ID = '" & gd1.TextArray(gd1.Row * 5) & "'"
Set del_xf.ActiveConnection = objConn
del_xf.CursorType = adOpenDynamic
del_xf.LockType = adLockOptimistic
del_xf.Open
 If del_xf.EOF Then
    MsgBox "未找到记录！"
    Exit Sub
 End If
 
 If Text6.Text = "" Then
    del_xf.Delete
    del_xf.Update
 Else
 Dim wpjg As ADODB.Recordset
 Set wpjg = New ADODB.Recordset
 wpjg.Source = "select * from N_SPB where MENU = '" & del_xf.Fields("XFLB") & "' and WP ='" & del_xf.Fields("XFWP") & "'"
 Set wpjg.ActiveConnection = objConn
 wpjg.CursorType = adOpenDynamic
 wpjg.LockType = adLockOptimistic
 wpjg.Open
 
 If IsNumeric(Text6.Text) = True And CInt(Text6.Text) < CInt(del_xf.Fields("XFSL")) Then
    del_xf.Fields("XFSL") = Val(del_xf.Fields("XFSL")) - Val(Text6.Text)
    del_xf.Fields("XFJE") = Val(del_xf.Fields("XFSL")) * Val(wpjg.Fields("WPJG"))
    del_xf.Update
    delcj (12)
 End If
 End If
 del_xf.Close
 Set del_xf = Nothing
 Call flex1_refresh("select * from N_XFJL where zh='" + Trim(Text22.Text) + "'")
 
 '   Call tPkjEnabledFT(True)
 '   Command11.Enabled = True
End Sub

Private Sub Command4_Click()
 Timer1.Enabled = False
 Text2.Enabled = True
 Text3.Enabled = True
End Sub

Private Sub Command5_Click()
    intrtn = MsgBox("打印客人菜单信息吗？", vbOKCancel, "打印信息")
    If intrtn = vbOK Then
        vbnprn2.Show
    End If
End Sub

Private Sub Command7_Click()
Call krzd                             '总消费额(未打折)

'Dim zksq As ADODB.Recordset                                        '**************消费折扣****************

' Set zksq = New ADODB.Recordset
' zksq.Source = "select * from dt_tsfw where tsfw='" & cm_tsfw & "'"
' Set zksq.ActiveConnection = objConn
' zksq.CursorType = adOpenDynamic
' zksq.LockType = adLockOptimistic
' zksq.Open
   
 'If Trim(cm_tsfw.Text) <> "" And IsNumeric(Trim(m_kf_zkl.Text)) = True Then
 '  If Val(Trim(m_kf_zkl.Text)) < Val(zksq.Fields("zdzk")) Then
 '     MsgBox "错误：" & cm_tsfw.Text & "最低授权折扣为" & Trim(zksq.Fields("zdzk")) & "%"
 '     Exit Sub
 '  Else
 '     c = Trim(m_kf_zkl.Text)
 '  End If
 'Else
 '  c = 100
 'End If

If b = "" Or b <= 0 Then
   MsgBox "该客人尚未消费！"
   Exit Sub
End If

 If Text17.Text = "该帐号已经结帐！" Then
  MsgBox "该棋牌桌已结帐，错误！"
  Exit Sub
End If

If Not IsNumeric(Text2.Text) Then
    MsgBox "金额错误！"
    Exit Sub
End If

If Trim(Text8.Text) <= 0 And Trim(Text1.Text) = "" Then
   MsgBox "错误：金额小于消费金额"
   Exit Sub
End If

If IsNumeric(Trim(Text2.Text)) = False Or Trim(Text2.Text) = "" And Trim(Text1.Text) = "" And op_gz_ft(0).Value = True Then
   MsgBox "收款金额错误！"
   Exit Sub
End If

If Trim(Text2.Text) < Val(b) * Val(m_kf_zkl.Text) / 100 And Trim(Text1.Text) = "" And op_gz_ft(0).Value = True Then
   MsgBox "错误：收款金额低于客人消费金额，结帐失败！"
   Exit Sub
End If

If Trim(m_kf_zkl.Text) <> 100 And Trim(Text7.Text) <> b And cm_tsfw.Text = "" Then
   MsgBox "请选择折扣授权人！"
   Exit Sub
End If
 
Dim xf_dt As ADODB.Recordset
'Dim zksq As ADODB.Recordset
Dim xf_dt1 As ADODB.Recordset

Set xf_dt1 = New ADODB.Recordset
xf_dt1.Source = "select * from N_XFJL where ZH ='" & Trim(Text22.Text) & "'"
Set xf_dt1.ActiveConnection = objConn
xf_dt1.CursorType = adOpenDynamic
xf_dt1.LockType = adLockOptimistic
xf_dt1.Open
If xf_dt1.EOF Then
 MsgBox "请登记后操作！"
 xf_dt1.Close
 Set xf_dt1 = Nothing
 Exit Sub
End If


intrtn = MsgBox("确认付款？", vbOKCancel, "客人付款")
    If intrtn = vbCancel Then
        Exit Sub
    End If
    
Text8.Text = Trim(Text2.Text) - Text7.Text
Set xf_dt = New ADODB.Recordset
xf_dt.Source = "select * from DT_KRQD WHERE ZH ='" & Trim(Text22.Text) & "'"
Set xf_dt.ActiveConnection = objConn
xf_dt.CursorType = adOpenDynamic
xf_dt.LockType = adLockOptimistic
xf_dt.Open
If IsNumeric(Trim(Text1.Text)) = True Then
 xf_dt.Fields("SY") = 0
 xf_dt.Fields("ZL") = 0
 xf_dt.Fields("JZFJ") = Trim(Text1.Text)
 If GZ("棋牌", Trim(Text1.Text), Text7.Text, SYS_USER) = 1 Then '*********************转帐*******************
    MsgBox "转入错误！"
    Exit Sub
 Else
    MsgBox "转帐成功！"
    Text1.Enabled = False
    Text2.Enabled = False
    Text7.Enabled = False