n_krdjd.frm

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

        'Else
        cm_zklx_mc.Text = "*"
        'End If
        
        m_kf_zkl.Text = 100
        m_kf_fz.Text = 0
        m_kf_fwf.Text = 0
        m_vip_dj.Text = 0
        cm_dj_fkmc.Text = cm_dj_fkmc.List(0)
        kr_tel.Text = ""
        dj_bz.Text = ""
        cm_tsfw.Text = ""
        m_kr_dj.Text = 0
        m_jd_bz1.Text = ""
        
        'op_qd_ft(0).Value = True
        m_hy_kh.Text = ""
        'op_mfzc_ft(0).Value = True
        'm_zck_bz.Text = ""
        'op_sh_ft(1).Value = True
        'op_jywp_ft(0).Value = True
        'op_bxx_ft(0).Value = True

        m_tsfz.Text = ""
        m_tszh.Text = ""
        m_zk_sqr.Text = ""
        m_zk_spr.Text = ""
        m_fzxg_rq.Text = "____-__-__"
        m_fzxg_spr.Text = ""
        m_dfy_dm.Text = CS_dfydm
        m_khdm.Text = CS_khdm
        cm_ywdw_mc.Text = CS_YWDW_MC
    
    
    Case 1                '按记录集给字段赋值
        With temp_rec
            Text22.Text = Trim(.Fields("ZH"))
            'm_kf_lxn.Text = .Fields("KF_LXN")
            'tx_kf_lxc = SYS_LXC(m_kf_lxn.Text)
            'm_KR_FJ.Text = Trim(.Fields("KR_FJ"))
            kr_xm.Text = Trim(.Fields("KR_XM"))
            m_yw_x.Text = Trim(.Fields("YW_X"))
            m_yw_m.Text = Trim(.Fields("YW_M"))
            m_czh.Text = Trim(.Fields("KR_CZ"))
            If .Fields("JZ") = 1 Then
             cm_tsfw.Text = Trim(.Fields("TSFW"))
             Text2.Text = Trim(.Fields("SY"))
             Text8.Text = Trim(.Fields("ZL"))
            End If
            'If Trim(.Fields("KR_XBMC")) = "女" Then
                'op_xb(2).Value = True
            'Else
             '   If Trim(.Fields("KR_XBMC")) = "男" Then
                  '  op_xb(1).Value = True
             '   Else
             '       op_xb(0).Value = True
            '    End If
           ' End If
           
            
            m_kr_zjhm.Text = Trim(.Fields("KR_ZJHM"))
             cm_symc.Text = Trim(.Fields("SYMC"))
        
            cm_qzmc.Text = Trim(.Fields("QZMC"))
           
            
            'm_td_zh.Text = Trim(.Fields("TD_ZH"))
            m_jdy.Text = Trim(.Fields("JDY"))
            m_rzrq.Text = .Fields("DJSJ")
            
            'm_zklx.Text = Trim(.Fields("ZKLX"))
            'If PUB_GetCMName(m_zklx, cm_zklx_mc) Then
            'Else
            cm_zklx_mc.Text = Trim(.Fields("ZKLX_MC"))
            'End If
            
            m_kf_zkl.Text = Trim(.Fields("KF_ZKL"))
            m_kf_fz.Text = Trim(.Fields("KF_FZ"))
            m_kf_fwf.Text = Trim(.Fields("KF_FWF"))
            m_vip_dj.Text = Trim(.Fields("VIP_DJ"))
            cm_dj_fkmc.Text = Trim(.Fields("DJ_FKFS"))
            kr_tel.Text = Trim(.Fields("kr_tel"))
            dj_bz.Text = Trim(.Fields("dj_bz"))
            cm_tsfw.Text = Trim(.Fields("TSFW"))
            
             m_kr_dj.Text = Format(IIf(IsNull(.Fields("KR_DJ")), 0, .Fields("KR_DJ")), "#,##0.00")
            m_jd_bz1.Text = Trim(.Fields("JD_BZ1"))
            

            
            m_hy_kh.Text = IIf(IsNull(.Fields("HYKH")), " ", Trim(.Fields("HYKH")))
            
            'Text1.Text = Trim(.Fields("DJ"))
            'Text2.Text = Trim(.Fields("DJDT"))
            'Text3.Text = Trim(.Fields("DJDTSM"))
            
            m_tsfz.Text = Trim(.Fields("TSFZ"))
            m_tszh.Text = Trim(.Fields("TSZH"))
            m_zk_sqr.Text = Trim(.Fields("ZK_SQR"))
            m_zk_spr.Text = Trim(.Fields("ZK_SPR"))
            m_fzxg_rq.Text = IIf(IsNull(.Fields("FZ_XGRQ")), "____-__-__", Format(.Fields("FZ_XGRQ"), "yyyy-mm-dd"))
            m_fzxg_spr.Text = Trim(.Fields("FZ_XGSPR"))
            m_dfy_dm.Text = Trim(.Fields("DFY_DM"))
            m_khdm.Text = Trim(.Fields("KHBH"))
            cm_ywdw_mc.Text = Trim(.Fields("DWMC"))
            
        
        End With
    End Select
End Sub







Private Sub add_cz_Click()

    Dim temp_ft As New ADODB.Recordset
    Dim fj_rec As New ADODB.Recordset
    Dim krqd_rec As New ADODB.Recordset
    
    Set temp_ft = New ADODB.Recordset
    temp_ft.Source = "select * from dt_krqd where zh='" & Trim(Text22.Text) & "'"
    Set temp_ft.ActiveConnection = objConn
    temp_ft.CursorType = adOpenDynamic
    temp_ft.LockType = adLockOptimistic
    temp_ft.Open
    If temp_ft.EOF Then
     MsgBox "登记后再添加棋牌桌！"
     temp_ft.Close
     Set temp_ft = Nothing
     Exit Sub
    Else
    If temp_ft.Fields("jz") = 1 Then
     MsgBox "该帐号已结帐，错误！"
     temp_ft.Close
     Set temp_ft = Nothing
    Exit Sub
    End If
    End If
                    '检查棋牌桌是被使用
                        Set fj_rec = New ADODB.Recordset
                        fj_rec.Source = "SELECT * FROM N_CZ WHERE FHID = '" & Trim(Combo1.Text) & "'"
                        Set fj_rec.ActiveConnection = objConn
                        fj_rec.CursorType = adOpenDynamic
                        fj_rec.LockType = adLockOptimistic
                        fj_rec.Open
                        If Not fj_rec.EOF Then
                            
                            If fj_rec.Fields("FZT") = 1 Then
                                MsgBox "该棋牌桌正在使用中，请修改棋牌桌号再按继续！"
                                fj_rec.Close
                                Set fj_rec = Nothing
                                Else
                                    fj_rec.Fields("FZT") = 1
                                    fj_rec.Fields("JZZH") = Trim(Text22.Text)
                                    fj_rec.Update
                                    fj_rec.Close
                                    Set fj_rec = Nothing
                                'End If
                            End If
                        Else
                        Text17.Visible = True
                        Text17.Text = "该棋牌桌号不存在,请重输!"
                        fj_rec.Close
                        Set fj_rec = Nothing
                        GoTo endless
                        End If
                        
                        Set krdj = New ADODB.Recordset
                        krdj.Source = "DT_KRQD"
                        Set krdj.ActiveConnection = objConn
                        krdj.CursorType = adOpenDynamic
                        krdj.LockType = adLockOptimistic
                        krdj.Open
                        krdj.AddNew
                         krdj.Fields("ZH") = Trim(Text22.Text)
                         krdj.Fields("KR_CZ") = Trim(Combo1.Text)
                         krdj.Fields("KR_XM") = IIf(Trim(kr_xm.Text) = "", "*", Trim(kr_xm.Text))
                         krdj.Fields("KR_TEL") = IIf(Trim(kr_tel.Text) = "", "0", Trim(kr_tel.Text))
                         krdj.Fields("DJ_BZ") = IIf(Trim(dj_bz.Text) = "", "*", Trim(dj_bz.Text))
                         krdj.Fields("JDY") = IIf(Trim(m_jdy.Text) = "", "*", Trim(m_jdy.Text))
                         'krdj.Fields("TSFW") = IIf(Trim(cm_tsfw) = "", "*", Trim(cm_tsfw))
                         krdj.Fields("DJSJ") = Trim(m_rzrq.Text)
                        'If Trim(m_kf_zkl.Text) = "" Then
                        'krdj.Fields("KF_ZKL") = 100
                        'Else
                        'krdj.Fields("KF_ZKL") = Trim(m_kf_zkl.Text)
                        'End If
                        krdj.Fields("JZ") = 0
                        'krdj_zh = Left(Trim(m_zh.Caption), 4)      '保存当前棋牌桌的付帐人帐号
                        krdj.Update
                        krdj.Close
                        Set krdj = Nothing
                        
                        
                        Text17.Visible = True
                        Text17.Text = "棋牌桌添加成功！"
                        Call dt_main.fj_road
    
endless: Combo1.Clear
 Call CCZ
End Sub

Private Sub cm1_Click()

End Sub




Private Sub cm_tsfw_LostFocus()
'比较折扣
 Dim zke As ADODB.Recordset
 Set zke = New ADODB.Recordset
 zke.Source = "select * from dt_tsfw where tsfw='" & cm_tsfw.Text & "'"
 Set zke.ActiveConnection = objConn
 zke.CursorType = adOpenDynamic
 zke.LockType = adLockOptimistic
 zke.Open
  
  If zke.EOF Then
     Exit Sub
  End If
  
  If Val(Trim(m_kf_zkl.Text)) < Val(Trim(zke.Fields("zdzk"))) Or Val(Trim(m_kf_zkl.Text)) > 100 Then
     MsgBox "折扣授权人与折扣率不匹配，请审核！"
     cm_tsfw.SetFocus
     m_kf_zkl.Text = 100
     Text7.Text = ""
     zke.Close
     Set zke = Nothing
     Exit Sub
  End If
End Sub

'**************************************************************************************************
'*  功    能 : 用来给字段赋值
'*  作    者 : shooting
'*  作成日期 : 1999.03.05
'*  修改日期 : 1999.03.05
'*  参数说明 : temp_rec  --  显示的记录集名称
'*
'**************************************************************************************************
'Private Sub tPkjFieldGet(temp_rec As ADODB.Recordset)
'On Error Resume Next
 '   Dim krgjk_rec As ADODB.Recordset
 '   With temp_rec
 '   End With
'
'End Sub


Private Sub cmd_djbt_Click()
On Error Resume Next

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

    
    cmd_djbt.Enabled = False
    'Command6.Enabled = True
    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
            
            
 

                    '检查棋牌桌是被使用
                        Set fj_rec = New ADODB.Recordset
                        fj_rec.Source = "SELECT * FROM N_CZ WHERE FHID = '" & Trim(m_czh.Text) & "'"
                        Set fj_rec.ActiveConnection = objConn
                        fj_rec.CursorType = adOpenDynamic
                        fj_rec.LockType = adLockOptimistic
                        fj_rec.Open
                        If Not fj_rec.EOF Then
                            
                            If fj_rec.Fields("FZT") = 1 Then
                                MsgBox "该棋牌桌正在使用中，请修改棋牌桌号再按继续！"
                                fj_rec.Close
                                Set fj_rec = Nothing
                                Unload Me
                            'Else
                                'If Trim(m_kf_fz.Text) = "" Or Trim(m_kf_fz.Text) = "0" Then
                                '    fj_rec.Fields("FZT") = 5
                                '    fj_rec.Update
                                '    fj_rec.Close
                                '    Set fj_rec = Nothing
                                
                                Else
                                    fj_rec.Fields("FZT") = 1
                                    fj_rec.Fields("JZZH") = Trim(Text22.Text)
                                    fj_rec.Fields("JZCZ") = Trim(m_czh.Text)
                                    fj_rec.Update
                                    fj_rec.Close
                                    Set fj_rec = Nothing
                                'End If
                            End If
                        Else
                        Text17.Visible = True
                        Text17.Text = "该棋牌桌号不存在,请重输!"
                        fj_rec.Close
                        Set fj_rec = Nothing
                        GoTo endless
                        End If
                        
                        Set krdj = New ADODB.Recordset
                        krdj.Source = "DT_KRQD"
                        Set krdj.ActiveConnection = objConn
                        krdj.CursorType = adOpenDynamic
                        krdj.LockType = adLockOptimistic
                        krdj.Open
                        krdj.AddNew
                         krdj.Fields("ZH") = Trim(Text22.Text)
                         krdj.Fields("KR_CZ") = Trim(m_czh.Text)
                         krdj.Fields("KR_XM") = IIf(Trim(kr_xm.Text) = "", "*", Trim(kr_xm.Text))
                         krdj.Fields("KR_TEL") = IIf(Trim(kr_tel.Text) = "", "*", Trim(kr_tel.Text))
                         krdj.Fields("DJ_BZ") = IIf(Trim(dj_bz.Text) = "", "*", Trim(dj_bz.Text))
                         krdj.Fields("JDY") = IIf(Trim(m_jdy.Text) = "", "*", Trim(m_jdy.Text))
                         'krdj.Fields("TSFW") = IIf(Trim(cm_tsfw) = "", "*", Trim(cm_tsfw))
                         krdj.Fields("DJSJ") = Trim(m_rzrq.Text)
                         krdj.Fields("DJSJT") = Trim(Format(Time$, "HHMMSS"))

                        krdj.Fields("JZ") = 0
                        'krdj_zh = Left(Trim(m_zh.Caption), 4)      '保存当前棋牌桌的付帐人帐号
                        krdj.Update
                        krdj.Close
                        Set krdj = Nothing
                        
                        
                        Text17.Visible = True
                        Text17.Text = "登记成功！"
                        Call dt_main.fj_road
    
m_rzrq.Enabled = False
kr_xm.Enabled = False
kr_tel.Enabled = False
'm_kf_zkl.Enabled = False
'cm_tsfw.Enabled = False
dj_bz.Enabled = False
Command8.Enabled = True
endless:
End Sub


Private Sub Cmd5_Click()
Timer1.Enabled = True
End Sub

Private Sub Command1_Click()
On Error Resume Next
Dim xf_Rec As ADODB.Recordset
Dim xf_rec1 As ADODB.Recordset
Dim sp_rec As ADODB.Recordset
Dim wp_rec As ADODB.Recordset
Dim krqd_rec As ADODB.Recordset
Dim cjadd As ADODB.Recordset

 If Text17.Text = "该帐号已经结帐！" Then
  MsgBox "该棋牌桌已结帐，错误！"
  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
krqd_rec.Close
Set krqd_rec = Nothing

Set wp_rec = New ADODB.Recordset
wp_rec.Source = "select * from N_SPB where menu='" & Combo2.Text & "' and wp ='" & Combo3.Text & "'"
Set wp_rec.ActiveConnection = objConn
wp_rec.CursorType = adOpenDynamic
wp_rec.LockType = adLockOptimistic
wp_rec.Open

Set sp_rec = New ADODB.Recordset
sp_rec.Source = "select * from N_spb where wp='" + Trim(Combo3.Text) + "'"
Set sp_rec.ActiveConnection = objConn
sp_rec.CursorType = adOpenDynamic
sp_rec.LockType = adLockOptimistic
sp_rec.Open

If sp_rec.EOF Then
    MsgBox "食品选择错误！"
    Exit Sub