module1.bas

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

'delcj (xf_rec.Fields("je"))
'MsgBox "退房成功！需要退还客人定金" + Val(count) + "元。"
Set xf_Rec = New ADODB.Recordset
xf_Rec.Source = "select * from N_FFJL "
Set xf_Rec.ActiveConnection = objConn
xf_Rec.CursorType = adOpenDynamic
xf_Rec.LockType = adLockOptimistic
xf_Rec.Open


If krqd_rec.Fields("tf") = 0 Then
    'm_ldrq.Text = Trim(Format(Date, "YYYYMMDD"))
    'm_ldsj.Text = Format(Time, "HHMMSS")
    krqd_rec.Fields("LDRQ") = Trim(Format(Date, "YYYYMMDD"))
    krqd_rec.Fields("LD_SJ") = Trim(Format(Time, "HHMMSS"))
    krqd_rec.Fields("LDRQS") = CStr(Trim(Format(Date, "YYYYMMDD")))
    krqd_rec.Fields("ZXFE") = Val(count)
    
End If

    krqd_rec.Fields("tf") = 1
krqd_rec.Update
        
                        

If Not fj_rec.EOF Then
   fj_rec.Fields("lybj") = "0"
   fj_rec.Fields("drbj") = "0"
   fj_rec.Fields("jxbj") = "0"
   fj_rec.Fields("kbj") = "0"
                            
    If fj_rec.Fields("FZT") = 1 Or fj_rec.Fields("FZT") = 5 Or fj_rec.Fields("FZT") = 6 Then
        fj_rec.Fields("FZT") = 2
        fj_rec.Update
    End If


End If

    Set temp = New ADODB.Recordset
    temp.Source = "select * from N_FJ WHERE jxbj = '1' and  jx='" & Trim(fj_rec.Fields("jx")) & "'"
    Set temp.ActiveConnection = objConn
    temp.CursorType = adOpenDynamic
    temp.LockType = adLockOptimistic
    temp.Open

    If temp.EOF Then
        Dim tp_fj As ADODB.Recordset
        Set tp_fj = New ADODB.Recordset
        tp_fj.Source = "select * from N_FJ WHERE fhid='" & Trim(fj_rec.Fields("jx")) & "'"
        Set tp_fj.ActiveConnection = objConn
        tp_fj.CursorType = adOpenDynamic
        tp_fj.LockType = adLockOptimistic
        tp_fj.Open
        tp_fj.Fields("jxbj") = "0"
        tp_fj.Update
        tp_fj.Close
        Set tp_fj = Nothing
    End If
    temp.Close
    Set temp = Nothing

endless:
    xf_Rec.Close
Set xf_Rec = Nothing
    fj_rec.Close
    Set fj_rec = Nothing
krqd_rec.Close
Set krqd_rec = Nothing

Call dt_main.fj_road


End Function
Public Function chick_ff(m_zh As String) As Variant
On Error Resume Next
Dim count_rec As ADODB.Recordset
Dim count As Variant
Dim temp As Variant
temp = 0
Set count_rec = New ADODB.Recordset
count_rec.Source = "SELECT SUM(JE) FROM N_XFJL where KX ='迷你吧' AND zh='" + Trim(m_zh) + "'"
Set count_rec.ActiveConnection = objConn
count_rec.CursorType = adOpenDynamic
count_rec.LockType = adLockOptimistic
count_rec.Open
temp = IIf(IsNull(count_rec.Fields(0)), 0, Val(count_rec.Fields(0)))
count = 0 - temp
count_rec.Close
Set count_rec = Nothing
temp = 0
Set count_rec = New ADODB.Recordset
count_rec.Source = "SELECT SUM(JE) FROM N_XFJL where KX ='酒店消费' AND zh='" + Trim(m_zh) + "'"
Set count_rec.ActiveConnection = objConn
count_rec.CursorType = adOpenDynamic
count_rec.LockType = adLockOptimistic
count_rec.Open
temp = IIf(IsNull(count_rec.Fields(0)), 0, Val(count_rec.Fields(0)))
count = count - temp
count_rec.Close
Set count_rec = Nothing
temp = 0
Set count_rec = New ADODB.Recordset
count_rec.Source = "SELECT SUM(JE) FROM N_XFJL where KX ='抵退消费' AND zh='" + Trim(m_zh) + "'"
Set count_rec.ActiveConnection = objConn
count_rec.CursorType = adOpenDynamic
count_rec.LockType = adLockOptimistic
count_rec.Open
temp = IIf(IsNull(count_rec.Fields(0)), 0, Val(count_rec.Fields(0)))
count = count + temp
count_rec.Close
Set count_rec = Nothing
temp = 0
Set count_rec = New ADODB.Recordset
count_rec.Source = "SELECT SUM(JE) FROM N_FFJL where KX ='加押金' AND zh='" + Trim(m_zh) + "'"
Set count_rec.ActiveConnection = objConn
count_rec.CursorType = adOpenDynamic
count_rec.LockType = adLockOptimistic
count_rec.Open
temp = IIf(IsNull(count_rec.Fields(0)), 0, Val(count_rec.Fields(0)))
count = count + temp
count_rec.Close
Set count_rec = Nothing
temp = 0
Set count_rec = New ADODB.Recordset
count_rec.Source = "SELECT SUM(JE) FROM N_FFJL where KX ='退押金' AND zh='" + Trim(m_zh) + "'"
Set count_rec.ActiveConnection = objConn
count_rec.CursorType = adOpenDynamic
count_rec.LockType = adLockOptimistic
count_rec.Open
temp = IIf(IsNull(count_rec.Fields(0)), 0, Val(count_rec.Fields(0)))
count = count - temp
count_rec.Close
Set count_rec = Nothing
temp = 0
Set count_rec = New ADODB.Recordset
count_rec.Source = "SELECT SUM(JE) FROM N_FFJL where KX ='房租' AND zh='" + Trim(m_zh) + "'"
Set count_rec.ActiveConnection = objConn
count_rec.CursorType = adOpenDynamic
count_rec.LockType = adLockOptimistic
count_rec.Open
temp = IIf(IsNull(count_rec.Fields(0)), 0, Val(count_rec.Fields(0)))
count = count - temp
count_rec.Close
Set count_rec = Nothing
chick_ff = count
End Function

Public Sub Flex_full(t_win1 As MSFlexGrid, t_bt As String, t_rec As ADODB.Recordset, t_fields As Variant, t_col As Integer, t_func As Variant)
'*******************
't_win1   msflexgrid 名称
't_bt     中文列头
't_rec    要显示的记录集
'
'
'******************
On Error Resume Next
Dim i As Integer
Dim t_row As Integer
Dim ls_var As String
Dim LS_ROW As Integer
LS_ROW = t_win1.Row
Dim tp_rows

t_win1.Visible = False
't_win1.Row = 0
t_win1.Clear
t_win1.SelectionMode = flexSelectionByRow
t_win1.FocusRect = flexFocusNone
t_win1.BackColorSel = &HFFC0C0   ' RGB(250, 250, 200)
t_win1.FillStyle = 1
t_win1.AllowBigSelection = False
t_rec.Requery
tp_rows = 1
Do While Not t_rec.EOF
  t_rec.MoveNext
  tp_rows = tp_rows + 1
Loop
'  t_win1.Rows = 1
'End If
t_win1.Rows = tp_rows
If tp_rows <> 1 Then
t_rec.MoveFirst
End If
t_win1.Cols = t_col + 1
t_win1.FormatString = t_bt
t_row = 0
Do While Not t_rec.EOF
     t_row = t_row + 1
     For i = 0 To t_col
     If t_func(i) = 0 Then
        If Not IsNull(t_rec.Fields(t_fields(i))) Then
             t_win1.TextArray(t_row * (t_col + 1) + i) = Trim(CStr(t_rec.Fields(t_fields(i))))
        Else
           t_win1.TextArray(t_row * (t_col + 1) + i) = " "
        End If
     Else
        If t_func(i) = 2 Then
            If Not IsNull(t_rec.Fields(t_fields(i))) Then
                t_win1.TextArray(t_row * (t_col + 1) + i) = Format(Trim(CStr(t_rec.Fields(t_fields(i)))), "#,##0.00")
            Else
                t_win1.TextArray(t_row * (t_col + 1) + i) = " "
            End If
        End If
     End If
   Next
     If t_row Mod 5 = 0 Then
        t_win1.Row = t_row
        t_win1.RowSel = t_row
        t_win1.ColSel = t_col
        t_win1.CellBackColor = &HFAFCEB
     End If
   t_rec.MoveNext
   
Loop
t_win1.Visible = True
t_win1.Col = 0
If t_win1.Rows > 0 And LS_ROW = 0 Then
    t_win1.Row = 0
Else
    If LS_ROW < t_win1.Rows Then
       t_win1.Row = LS_ROW
    Else
       t_win1.Row = t_win1.Rows - 1
    End If
End If
End Sub


Public Function tdkr_tf(m_zh As String, m_fjh As String) '团队客人退房程序
On Error Resume Next
Dim xf_Rec As ADODB.Recordset
Dim krqd_rec As ADODB.Recordset
Dim fj_rec As ADODB.Recordset
Dim intrtn  As Integer
Dim count As Variant

Set krqd_rec = New ADODB.Recordset
krqd_rec.Source = "SELECT * FROM DT_KRQD WHERE ZH ='" & Trim(m_zh) & "'"
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 Function
End If
'Call Command8_Click
'MsgBox "退111las"
count = chick_ff(m_zh)


'MsgBox "退" + Val(count)

                        
Set fj_rec = New ADODB.Recordset
fj_rec.Source = "SELECT * FROM N_FJ WHERE FHID = '" & Trim(m_fjh) & "'"
Set fj_rec.ActiveConnection = objConn
fj_rec.CursorType = adOpenDynamic
fj_rec.LockType = adLockOptimistic
fj_rec.Open


'delcj (xf_rec.Fields("je"))
'MsgBox "退房成功！需要退还客人定金" + Val(count) + "元。"
Set xf_Rec = New ADODB.Recordset
xf_Rec.Source = "select * from N_FFJL "
Set xf_Rec.ActiveConnection = objConn
xf_Rec.CursorType = adOpenDynamic
xf_Rec.LockType = adLockOptimistic
xf_Rec.Open

           xf_Rec.AddNew
            With xf_Rec
            .Fields("id") = fGetMaxComID("N_ffjl", "ID") + 1
            .Fields("ZH") = Trim(krqd_rec.Fields("tdmc"))
            .Fields("KX") = "加押金"
            .Fields("je") = Val(count)
            .Fields("RQ") = Trim(Format(Date, "YYYYMMDD"))
            .Fields("MS") = Trim(m_fjh) & "客人退房转帐到团队"
             End With
             xf_Rec.Update


If krqd_rec.Fields("tf") = 0 Then
    'm_ldrq.Text = Trim(Format(Date, "YYYYMMDD"))
    'm_ldsj.Text = Format(Time, "HHMMSS")
    krqd_rec.Fields("LDRQ") = Trim(Format(Date, "YYYYMMDD"))
    krqd_rec.Fields("LD_SJ") = Trim(Format(Time, "HHMMSS"))
    krqd_rec.Fields("LDRQS") = CStr(Trim(Format(Date, "YYYYMMDD")))
    krqd_rec.Fields("ZXFE") = Val(count)
    
End If

    krqd_rec.Fields("tf") = 1
krqd_rec.Update





xf_Rec.AddNew
With xf_Rec
.Fields("id") = fGetMaxComID("N_ffjl", "ID") + 1
.Fields("ZH") = m_zh
.Fields("KX") = "退押金"
.Fields("je") = Val(count)
.Fields("RQ") = Trim(Format(Date, "YYYYMMDD"))
.Fields("MS") = m_fjh + "客人退房"
'.Fields("JSRQ") = TRIM(Format(Date, "YYYYMMDD"))
End With
xf_Rec.Update
                        
                        

If Not fj_rec.EOF Then
   fj_rec.Fields("lybj") = "0"
   fj_rec.Fields("drbj") = "0"
   fj_rec.Fields("jxbj") = "0"
   fj_rec.Fields("kbj") = "0"
                            
    If fj_rec.Fields("FZT") = 1 Or fj_rec.Fields("FZT") = 5 Or fj_rec.Fields("FZT") = 6 Then
        fj_rec.Fields("FZT") = 2
        fj_rec.Update
    End If


End If


endless:
    xf_Rec.Close
Set xf_Rec = Nothing
    fj_rec.Close
    Set fj_rec = Nothing
krqd_rec.Close
Set krqd_rec = Nothing

Call dt_main.fj_road


End Function