n_krdjd.frm

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

    Command2.Enabled = False
 End If
Else
 xf_dt.Fields("SY") = Trim(Text2.Text)
 xf_dt.Fields("ZL") = IIf(Int(Trim(Text8.Text)) = "", "0", Int(Trim(Text8.Text)))
End If
 xf_dt.Fields("TSFW") = Trim(cm_tsfw.Text)
 xf_dt1.Fields("ZKL") = Int(Trim(m_kf_zkl.Text))
 xf_dt.Fields("KF_ZKL") = Int(Trim(m_kf_zkl.Text))
 xf_dt.Fields("SJSR") = Trim(Text7.Text)
 a = Val(b) * Val(m_kf_zkl.Text) / 100

 xf_dt.Update
 xf_dt1.Update
 xf_dt.Close
Set xf_dt = Nothing
Set xf_dt1 = Nothing

addcj (a)
Timer1.Enabled = True
Command7.Enabled = False
Command2.Enabled = True
End Sub

Private Sub Command8_Click()
 kr_xm.Enabled = True
 kr_tel.Enabled = True
 m_kf_zkl.Enabled = True
 cm_tsfw.Enabled = True
 dj_bz.Enabled = True
 Command11.Enabled = True
End Sub

Private Sub Command9_Click()
On Error Resume Next
Dim xf_Rec As ADODB.Recordset
Dim krqd_rec As ADODB.Recordset
Dim fj_rec As ADODB.Recordset
Dim krjz As ADODB.Recordset
Dim intrtn  As Integer
Dim intrtnzz  As Integer
Dim syyj  As Integer
Dim a1
Call krzd


'Dim kryj
intrtn = MsgBox("确认清席？", vbOKCancel, "清席")
    If intrtn = vbCancel Then
        Exit Sub
    End If

Set krqd_rec = New ADODB.Recordset
krqd_rec.Source = "SELECT * FROM DT_KRQD WHERE ZH ='" & Trim(Text22.Text) & "'"
Set krqd_rec.ActiveConnection = objConn
krqd_rec.CursorType = adOpenDynamic
krqd_rec.LockType = adLockOptimistic
krqd_rec.Open

If krqd_rec.EOF Then
    MsgBox "帐号错误！"
    krqd_rec.Close
    Set krqd_rec = Nothing
    Exit Sub
End If

If Val(gd1.Rows) > 1 And IsNull(krqd_rec.Fields("sy")) = True And op_gz_ft(0).Value = True Then
   MsgBox "客人未付款不能清席！"
   krqd_rec.Close
   Set krqd_rec = Nothing
   Exit Sub
End If

Set fj_rec = New ADODB.Recordset
fj_rec.Source = "SELECT * FROM N_CZ WHERE JZZH = '" & Trim(Text22.Text) & "'"
Set fj_rec.ActiveConnection = objConn
fj_rec.CursorType = adOpenDynamic
fj_rec.LockType = adLockOptimistic
fj_rec.Open

'If a = "" Then
If Val(gd1.Rows) < 2 Then
While Not fj_rec.EOF
If fj_rec.Fields("FZT") = 1 Then
    fj_rec.Fields("FZT") = 0
    fj_rec.Update
End If
fj_rec.MoveNext
Wend
fj_rec.Close
Set fj_rec = Nothing
MsgBox "该客人未消费！"
krqd_rec.Fields("JZ") = 1
krqd_rec.Fields("jzsj") = Trim(Format(Date, "yyyymmdd"))            '客人清单表
krqd_rec.Update
krqd_rec.Close
Set krqd_rec = Nothing
Call dt_main.fj_road
Exit Sub
End If

While Not fj_rec.EOF
If fj_rec.Fields("FZT") = 1 Then
    fj_rec.Fields("FZT") = 2
    fj_rec.Update
End If
fj_rec.MoveNext
Wend
Set fj_rec = Nothing

'kryj = Val(Text1.Text) - Val(Text2.Text)
'delcj (xf_rec.Fields("je"))
'If Not intrtnzz = vbOK Then
'
'  zxfe = Val(Trim(Text7.Text)) - Val(Trim(Text8.Text)) - Val(b) * Val(c) / 100
'  addcj (zxfe)
'  MsgBox "结帐成功！"
'End If

xf_Rec.Close
Set xf_Rec = Nothing

While Not krqd_rec.EOF
'If krqd_rec.Fields("jz") = 0 Then
    krqd_rec.Fields("JZSJ") = Format(Date$, "yy-mm-dd") & " " & Format(Time$, "hh:mm")
    
'End If
If op_gz_ft(0).Value = True Then
    krqd_rec.Fields("JZ") = 1
Else
    krqd_rec.Fields("JZ") = 2
End If
krqd_rec.MoveNext
Wend
krqd_rec.Update
Set krqd_rec = Nothing

    
    
    intrtn = MsgBox("打印结帐信息吗？", vbOKCancel, "打印信息")
    If intrtn = vbOK Then
        vbnprn1.Show
    End If
                        
fj_rec.Close
Set fj_rec = Nothing
krqd_rec.Close
Set krqd_rec = Nothing
Text17.Visible = True
Text17.Text = "结帐成功"

Set krjz = New ADODB.Recordset
krjz.Source = "SELECT * FROM N_XFJL WHERE ZH = '" & Trim(Text22.Text) & "'"
Set krjz.ActiveConnection = objConn
krjz.CursorType = adOpenDynamic
krjz.LockType = adLockOptimistic
krjz.Open
While Not krjz.EOF
 'krjz.Fields("JSSJ") = Format(Time$, "HH:MM")
 krjz.Fields("JSSJ") = Format(Date$, "yyyymmdd")   '消费记录表
krjz.Update
krjz.MoveNext
Wend
krjz.Close
Set krjz = Nothing
Command9.Enabled = False
 Call dt_main.fj_road
End Sub


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

Private Sub Exit_cmd_Click()
'Timer1.Enabled = False
a = ""
Unload Me
End Sub

Sub CCZ()
    Dim ccz_rec  As ADODB.Recordset
    
    'Set temp_rec = tp_data.OpenRecordset("SELECT " & Trim(tp_field) & " FROM " & Trim(tp_table) & " ORDER BY " & Trim(tp_field), 4, 0, 2)
    Set ccz_rec = New ADODB.Recordset
    ccz_rec.Source = "SELECT * FROM N_CZ WHERE FZT=0"
    Set ccz_rec.ActiveConnection = objConn
    ccz_rec.CursorType = adOpenDynamic
    ccz_rec.LockType = adLockOptimistic
    ccz_rec.Open
    If Not ccz_rec.BOF Then
        ccz_rec.MoveFirst
        Do While Not ccz_rec.EOF
            Combo1.AddItem (Trim(ccz_rec("FHID")))
            ccz_rec.MoveNext
        Loop
    End If
    ccz_rec.Close
    Set ccz_rec = Nothing

End Sub


Private Sub Form_Load()
Timer1.Enabled = True
'With Combo4
' .AddItem (" 退")
' .AddItem (" 补")
'End With
'On Error Resume Next
  Call PUB_GetCMSG("DT_TSFW", "TSFW", cm_tsfw)
  Call PUB_GetCMSG("n_spb", "menu", Combo2)
  'Call PUB_GetCMSG("n_cz", "FHID", Combo1)
  'Call PUB_GetCMSG("N_SPB", "WP", Combo3)
  Call CCZ
'
'
'
Skin1.LoadSkin App.Path + "\棋牌界面"
Skin1.ApplySkin hWnd

Call Command10_Click

sys_Cs = 0
'Call dj
'Call djth
End Sub

Sub krzd()   '客人消费帐单：
 Dim xfje As New ADODB.Recordset
 
 Set xfje = New ADODB.Recordset
 xfje.Source = "select sum(xfje) as num from N_XFJL WHERE ZH='" & Trim(Text22.Text) & "'"
 Set xfje.ActiveConnection = objConn
 xfje.CursorType = adOpenDynamic
 xfje.LockType = adLockOptimistic
 xfje.Open

       If IsNull(xfje.Fields("num")) = False Then
        b = Val(xfje.Fields("num"))
       End If

 xfje.Close
 Set xfje = Nothing
End Sub


Private Sub tPkjEnabledFT(temp_ft As Boolean)     '控件.enabled 的设置
On Error Resume Next

    m_czh.Enabled = False
    m_zh.Enabled = False
    kr_xm.Enabled = temp_ft
    m_yw_x.Enabled = temp_ft
    m_yw_m.Enabled = temp_ft
    
    m_kr_sr.Enabled = temp_ft
    m_gjdm.Enabled = temp_ft
    
    cm_zjmc.Enabled = temp_ft
    m_kr_zjhm.Enabled = temp_ft
    
    cm_symc.Enabled = temp_ft
    
    cm_qzmc.Enabled = temp_ft
    m_kr_qz_yxq.Enabled = temp_ft
    m_dz.Enabled = temp_ft
    
    cm_tdmc.Enabled = False
    
    m_jdy.Enabled = temp_ft
    m_bdjddw_mc.Enabled = temp_ft
    
    m_rzrq.Enabled = False
    m_rzsj.Enabled = False
    
    m_ldrq.Enabled = False
    
    
    m_ldsj.Enabled = False
    
    'm_zklx.Enabled = temp_ft
    cm_zklx_mc.Enabled = temp_ft
    
    
    
   ' m_kf_zkl.Enabled = temp_ft
  
    
    m_kf_fz.Enabled = temp_ft
    m_kf_fwf.Enabled = temp_ft
    m_vip_dj.Enabled = temp_ft
    cm_dj_fkmc.Enabled = temp_ft
    kr_tel.Enabled = temp_ft
    dj_bz.Enabled = temp_ft
    'cm_tsfw.Enabled = temp_ft
    
    m_kr_dj.Enabled = temp_ft
    
    m_jd_bz1.Enabled = temp_ft
    
 
    m_hy_kh.Enabled = temp_ft
    

    

    
    m_tsfz.Enabled = temp_ft
    m_tszh.Enabled = temp_ft
    
    m_zk_sqr.Enabled = temp_ft
    m_zk_spr.Enabled = temp_ft
    
    m_fzxg_rq.Enabled = temp_ft
    m_fzxg_spr.Enabled = temp_ft
  
    
    m_dfy_dm.Enabled = temp_ft
    m_khdm.Enabled = temp_ft
    cm_ywdw_mc.Enabled = temp_ft
    
End Sub

Private Sub flex1_refresh(sqlstr As String)
On Error Resume Next
    Dim xf_Rec As ADODB.Recordset
    
    Set xf_Rec = New ADODB.Recordset
    xf_Rec.Source = sqlstr
    Set xf_Rec.ActiveConnection = objConn
    xf_Rec.CursorType = adOpenDynamic
    xf_Rec.LockType = adLockOptimistic
    xf_Rec.Open
    Call Flex_full(gd1, t_bt1, xf_Rec, t_fields1, t_fdcounts1 - 1, t_fdxs1)
    lb_jls.Caption = gd1.Rows - 1
    gd1.Refresh
    
    xf_Rec.Close
    Set xf_Rec = Nothing
Error_Handler:
End Sub




Private Sub m_kr_zjhm_LostFocus()
On Error Resume Next
Dim krqd_rec As ADODB.Recordset
Set krqd_rec = New ADODB.Recordset
krqd_rec.Source = "SELECT * FROM DT_KRQD WHERE kr_zjhm ='" & Trim(m_kr_zjhm.Text) & "'"
Set krqd_rec.ActiveConnection = objConn
krqd_rec.CursorType = adOpenDynamic
krqd_rec.LockType = adLockOptimistic
krqd_rec.Open
If Not krqd_rec.EOF Then
With krqd_rec
            kr_xm.Text = Trim(.Fields("KR_XM"))
            

           
           cm_zjmc.Text = Trim(.Fields("ZJMC"))
            
            
            m_kr_zjhm.Text = Trim(.Fields("KR_ZJHM"))
             'cm_symc.Text = Trim(.Fields("SYMC"))
        
            'cm_qzmc.Text = Trim(.Fields("QZMC"))
           
            kr_tel.Text = IIf(IsNull(Trim(.Fields("kr_tel"))), "*", Trim(.Fields("kr_tel")))
            dj_bz.Text = IIf(IsNull(Trim(.Fields("dj_bz"))), "*", Trim(.Fields("dj_bz")))
           ' m_kr_qz_yxq.Text = IIf(IsNull(.Fields("KR_QZ_YXQ")), "____-__-__", Format(.Fields("KR_QZ_YXQ"), "yyyy-mm-dd"))
            m_dz.Text = Trim(.Fields("KR_DZ"))


End With
End If
krqd_rec.Close
Set krqd_rec = Nothing
End Sub
Private Sub m_bdjddw_mc_LostFocus()
If Trim(m_bdjddw_mc.Text) = "" Then
    Exit Sub
End If

If Not IsNumeric(m_bdjddw_mc.Text) Then
    MsgBox "协议号输入错误！"
    Exit Sub
End If

Dim ckqd_rec As New ADODB.Recordset
Set ckqd_rec = New ADODB.Recordset
ckqd_rec.Source = "SELECT * FROM dt_gsqd WHERE XH=" & Trim(m_bdjddw_mc.Text)
Set ckqd_rec.ActiveConnection = objConn
ckqd_rec.CursorType = adOpenDynamic
ckqd_rec.LockType = adLockOptimistic
ckqd_rec.Open
If ckqd_rec.EOF Then
    MsgBox "协议号错误，无该协议用户！"
End If

ckqd_rec.Close
Set ckqd_rec = Nothing
End Sub





Private Sub op_gz_ft_Click(Index As Integer)
 Select Case Index
   Case 1
    Text1.Text =