n_krxx.frm

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

    If krgl_Rec.RecordCount <> 0 Then
        cmd_func(0).Enabled = t_ft
   '     cmd_func(1).Enabled = t_ft
    Else
        cmd_func(0).Enabled = False
    '    cmd_func(1).Enabled = False
    End If
    
    N_KRXX.KeyPreview = t_ft
End Sub

'**************************************************************************************************
'*  功    能 :
'*  作    者 : shooting
'*  作成日期 : 1999.02.24
'*  修改日期 : 1999.02.24
'**************************************************************************************************
Private Sub flex_refresh()
On Error Resume Next
    'krgl_rec.Requery
    Call Flex_full(gd1, t_bt, krgl_Rec, t_fields, t_fdcounts - 1, t_fdxs)
    Text5.Text = gd1.Rows - 1
    gd1.Refresh
    
    Call button_refresh(True)
Error_Handler:
End Sub

'**************************************************************************************************
'*  功    能 :
'*  作    者 : shooting
'*  作成日期 : 1999.02.24
'*  修改日期 : 1999.02.24
'**************************************************************************************************
Sub MAIN(t_gnmc As String)
On Error Resume Next
   Label1.Caption = t_gnmc

Error_Handler:
End Sub

'**************************************************************************************************
'*  功    能 :
'*  作    者 : shooting
'*  作成日期 : 1999.02.24
'*  修改日期 : 1999.02.24
'**************************************************************************************************
Private Sub CMD_EXIT_Click()
krgl_Rec.Close
Set krgl_Rec = Nothing
Unload Me
End Sub




'**************************************************************************************************
'*  功    能 :
'*  作    者 : shooting
'*  作成日期 : 1999.02.24
'*  修改日期 : 1999.02.24
'**************************************************************************************************
Private Sub cmd_func_Click(Index As Integer)
On Error Resume Next
    Dim temp_zh As String
    Dim kr_Rec  As ADODB.Recordset
    Dim temp_rec As ADODB.Recordset
    frm_msg.Visible = False
    frm_msg.Text = ""
    
    
    'ReDim temp_dffls(SYS_LXN + 1)
    'ReDim temp_pffls(SYS_LXN + 1)
    'For i = 1 To SYS_LXN
    '    temp_dffls(i) = 0
    '    temp_pffls(i) = 0
    'Next i
    
    Select Case Index
    Case 0      '明细显示
        If gd1.Rows <> 1 Then
            'Set kr_rec = PUB_data.OpenRecordset("SELECT * FROM dt_krqd WHERE Zh =  '" & Trim(gd1.TextArray(gd1.Row * t_fdcounts)) & "'", 2, 0, 2)
             Set kr_Rec = New ADODB.Recordset
             kr_Rec.Source = "SELECT * FROM dt_krqd WHERE Zh =  '" & Trim(gd1.TextArray(gd1.Row * t_fdcounts)) & "'"
             Set kr_Rec.ActiveConnection = objConn
             kr_Rec.CursorType = adOpenDynamic
             kr_Rec.LockType = adLockOptimistic
             kr_Rec.Open
            Set temp_rec = New ADODB.Recordset
             temp_rec.Source = "SELECT * FROM N_FJ"
             Set temp_rec.ActiveConnection = objConn
             temp_rec.CursorType = adOpenDynamic
             temp_rec.LockType = adLockOptimistic
             temp_rec.Open
            If Not kr_Rec.EOF Then
                Call N_KRDJD.init_MAIN(kr_Rec, temp_rec, "", "", "")
                'Unload Me          //关闭窗口//
                N_KRDJD.Show (1)
            Else
                MsgBox "选择错误！"
            End If
            kr_Rec.Close
            Set kr_Rec = Nothing
        Else
            frm_msg.Visible = True
            frm_msg.Text = "没有满足条件的记录"
        End If
            

    

    Case 5      '刷新
        sssql = ""
        Call Form_Load
    
    End Select
    
    If tx_bjRT.Text = 1 Then  '增加或修改记录成功时, 重新刷新界面
        flex_refresh
    End If
    
    tx_bjRT.Text = 0
   'Unload Me
Error_Handler:
End Sub





Private Sub Command1_Click()
Dim a As Integer
 a = Len(Trim(Text3.Text))
 
sssql = ""
If Trim(Text1.Text) <> "" Then
sssql = sssql + "AND KR_XM = '" + Trim(Text1.Text) + "'"
End If
If Trim(Text2.Text) <> "" Then
sssql = sssql + "AND KR_CZ = '" + Trim(Text2.Text) + "'"
End If
If Trim(Text3.Text) <> "" Then
   Select Case a
      Case 4
           sssql = sssql + "AND DJSJ like '%" + Trim(Text3.Text) + "%'"
      Case 6
           sssql = sssql + "AND DJSJ like '%" + Trim(Text3.Text) + "%'"
      Case 8
           sssql = sssql + "AND DJSJ = '" + Trim(Text3.Text) + "'"
      Case Else
           MsgBox "日期格式错误！"
   End Select
End If
If Trim(Text6.Text) <> "" Then
sssql = sssql + "AND ZH='" + Trim(Text6.Text) + "'"
End If
Call Form_Load
End Sub



'**************************************************************************************************
'*  功    能 :
'*  作    者 : shooting
'*  作成日期 : 1999.02.24
'*  修改日期 : 1999.02.24
'**************************************************************************************************
Private Sub Form_Load()
On Error Resume Next
Skin1.LoadSkin App.Path + "\棋牌界面"
Skin1.ApplySkin hWnd

If SYS_LX = 0 Then
   N_KRXX.Caption = "在店客人信息查询"
Else
If SYS_LX = 3 Then
   N_KRXX.Caption = "所有客人信息查询"
Else
If SYS_LX = 2 Then
   N_KRXX.Caption = "挂帐单查询"
End If
End If
End If

    tx_bjRT.Text = 0
    
    N_KRXX.KeyPreview = True
    
 '   Set krgl_rec = PUB_data.OpenRecordset("select ZH,KR_X,KR_M,GJMC,KR_XBMC,RZRQ,LDRQ,ZKLX_MC,TDMC,KF_ZKL,KF_FZ,KR_DJ,ZXFE,YE,QD_FT,BXX_FT,MFZC_FT,JYWP_FT,TSFW from DT_KRQD order by ZH", 4, 0, 2)
    Select Case SYS_LX
    Case 0
    'Set krgl_rec = PUB_data.OpenRecordset("select * from DT_KRQD where tf = 0", 4, 0, 2)
     Set krgl_Rec = New ADODB.Recordset
             krgl_Rec.Source = "select * from DT_KRQD where JZ = 0" + sssql
             Set krgl_Rec.ActiveConnection = objConn
             krgl_Rec.CursorType = adOpenDynamic
             krgl_Rec.LockType = adLockOptimistic
             krgl_Rec.Open
    SYS_SQL = "select ZH,KR_CZ,KR_XM,KR_TEL,DJSJ,JZSJ,KF_ZKL,TSFW,SJSR from DT_KRQD where JZ = 0"
    'Command1.Enabled = False
    
    Case 2
    'Set krgl_rec = PUB_data.OpenRecordset("select * from DT_KRQD where tf = 2", 4, 0, 2)
     Set krgl_Rec = New ADODB.Recordset
             krgl_Rec.Source = "select * from DT_KRQD where JZ = 2" + sssql
             Set krgl_Rec.ActiveConnection = objConn
             krgl_Rec.CursorType = adOpenDynamic
             krgl_Rec.LockType = adLockOptimistic
             krgl_Rec.Open
    SYS_SQL = "select ZH,KR_CZ,KR_XM,KR_TEL,DJSJ,JZSJ,KF_ZKL,TSFW,SJSR from DT_KRQD where JZ = 2"
    'Command1.Enabled = False
     Case 3
     Set krgl_Rec = New ADODB.Recordset
             krgl_Rec.Source = "select * from DT_KRQD where JZ = 1" + sssql
             Set krgl_Rec.ActiveConnection = objConn
             krgl_Rec.CursorType = adOpenDynamic
             krgl_Rec.LockType = adLockOptimistic
             krgl_Rec.Open
             'Command1.Enabled = True
             SYS_SQL = "select ZH,KR_CZ,KR_XM,KR_TEL,DJSJ,JZSJ,KF_ZKL,TSFW,SJSR from DT_KRQD " + sssql
     Case 4
     Set krgl_Rec = New ADODB.Recordset
             krgl_Rec.Source = "select * from DT_KRQD WHERE ZH ='" + SYS_STR + "'"
             Set krgl_Rec.ActiveConnection = objConn
             krgl_Rec.CursorType = adOpenDynamic
             krgl_Rec.LockType = adLockOptimistic
             krgl_Rec.Open
             'Command1.Enabled = False
             'SYS_SQL = "select ZH,KR_FJ,KR_XM,GJDM,KR_XBMC,JZSJ,TDMC,KF_FZ,KR_DJ,ZXFE  from DT_KRQDOLD  WHERE ZH ='" + SYS_STR + "'"
             SYS_SQL = "select ZH,KR_CZ,KR_XM,KR_TEL,DJSJ,JZSJ,KF_ZKL,TSFW,SJSR from DT_KRQD  WHERE ZH ='" + SYS_STR + "'"
    Case Else
    'Set krgl_rec = PUB_data.OpenRecordset("select * from DT_KRQD WHERE ZH = '" & Trim(SYS_STR) & "'AND KR_FJ='" & Trim(SYS_FH) & "'", 4, 0, 2)
   Set krgl_Rec = New ADODB.Recordset
             krgl_Rec.Source = "select * from DT_KRQD WHERE ZH = '" & Trim(SYS_STR) & "'AND KR_CZ='" & Trim(SYS_FH) & "'"
             Set krgl_Rec.ActiveConnection = objConn
             krgl_Rec.CursorType = adOpenDynamic
             krgl_Rec.LockType = adLockOptimistic
             krgl_Rec.Open
             'Command1.Enabled = True
             SYS_SQL = "select ZH,KR_CZ,KR_XM,KR_TEL,DJSJ,JZSJ,KF_ZKL,TSFW,SJSR from DT_KRQD WHERE ZH = '" & Trim(SYS_STR) & "'AND KR_FJ='" & Trim(SYS_FH) & "'"
    End Select
    
    
    If Not krgl_Rec.BOF Then
        'krgl_rec.MoveLast
        krgl_Rec.MoveFirst
    End If
    
    t_fields = Array("ZH", "KR_CZ", "KR_XM", "KR_TEL", "DJSJ", "JZSJ", "KF_ZKL", "TSFW", "SJSR") '设置显示字段
    t_fdxs = Array(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 2, 2, 1, 1, 1, 1, 0)  '设置显示字段
    t_bt = "<   帐 号         |<  棋 牌  桌  号  |<  客人姓名  |< 客人电话  |^入店日期  |^ 结帐日期 |>折扣率|>折扣授权 |>   客人消费  "   '设置显示表头格式
    t_fdcounts = 10
    t_pri = Array("帐 号", "棋牌号", "客人姓名", "入店日期", "团队名称", "棋牌桌消费", "定金", "总消费额")
    Call flex_refresh
  
     
     
Error_Handler:
End Sub

'**************************************************************************************************
'*  功    能 :
'*  作    者 : shooting
'*  作成日期 : 1999.02.24
'*  修改日期 : 1999.02.24
'**************************************************************************************************
Private Sub gd1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then
        cmd_func(0).SetFocus
    End If
End Sub

'**************************************************************************************************
'*  功    能 : 初始化
'*  作    者 : shooting
'*  作成日期 : 1999.03.03
'*  修改日期 : 1999.03.03
'*  参数说明 : lx = 0代表查询所有的房子 lx = 1代表查询帐号信息
'**************************************************************************************************
Sub init_MAIN(lx As Integer, temp_zh As String, TEMP_fh As String)
SYS_LX = lx
SYS_STR = temp_zh
SYS_FH = TEMP_fh
sssql = ""
Text3.Text = Format(Date, "YYYYMMDD")
Call Command1_Click
End Sub