n_ydd.frm

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

      Height          =   3300
      Left            =   5880
      TabIndex        =   12
      Top             =   840
      Width           =   3060
      _ExtentX        =   5398
      _ExtentY        =   5821
      _Version        =   393216
      Rows            =   10
      Cols            =   3
      FixedCols       =   0
      BackColor       =   12648447
      FocusRect       =   0
      SelectionMode   =   1
   End
End
Attribute VB_Name = "N_YDD"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim CS_qz As String     '预订单前缀
Dim t_bt As String       '存储列表显示的表头
Dim t_fields As Variant  '存储列表显示的字段名
Dim t_fdxs As Variant    '表示显示列是否由代码转换成文字
Dim t_fdcounts As Integer   '表示列表所显示的字段的个数

Dim yddk_yddh As String

Private Sub CMD_EXIT_Click()
Unload Me
End Sub

Private Sub Cmd_OK_Click()
'On Error GoTo Error_Handler
Dim ID_REC As ADODB.Recordset
Set ID_REC = New ADODB.Recordset
ID_REC.Source = "SELECT * FROM  N_YDD"
Set ID_REC.ActiveConnection = objConn
ID_REC.CursorType = adOpenDynamic
ID_REC.LockType = adLockOptimistic
ID_REC.Open
ID_REC.AddNew
ID_REC.Fields("ID") = Text4.Text
Call tPkjTextSet(ID_REC, 2)
ID_REC.Update
ID_REC.Close
Set ID_REC = Nothing
Call tPkjEnabled(False)
Error_Handler:
End Sub

Public Sub init(lx As Integer, id As String)
Dim ID_REC As ADODB.Recordset
Select Case lx
    Case 0
        m_rzrq.Text = Format(Date$, "YYYYMMDD")
        Text4.Text = fGetMaxComID("N_YDD", "ID") + 1
        Call tPkjEnabled(True)
        Call tPkjTextSet("", 0)
    Case 1
        
        Set ID_REC = New ADODB.Recordset
        ID_REC.Source = "SELECT * FROM  N_YDD WHERE ID = '" + Trim(id) + "'"
        Set ID_REC.ActiveConnection = objConn
        ID_REC.CursorType = adOpenDynamic
        ID_REC.LockType = adLockOptimistic
        ID_REC.Open
        If ID_REC.EOF Then
            MsgBox "数据错误！" + id
        Else
            Call tPkjTextSet(ID_REC, 1)
            Call tPkjEnabled(False)
            ID_REC.Close
            Set ID_REC = Nothing
        End If
        Call flex_refresh
End Select
End Sub

Private Sub tPkjTextSet(temp_rec As Variant, temp_bszt As Integer)
    Select Case temp_bszt
    Case 0    '清空
        m_kr_mc.Text = ""
        m_lxdh.Text = ""
        m_bz.Text = ""
    
    Case 1    '按记录集赋值
        With temp_rec
            Text4.Text = IIf(IsNull(.Fields("ID")), "预定号", Trim(.Fields("ID")))
            m_kr_mc.Text = IIf(IsNull(.Fields("KRMC")), "*", Trim(.Fields("KRMC")))
            m_rzrq.Text = .Fields("YDRQ")
            m_ydsj.Text = IIf(IsNull(.Fields("YDSJ")), "*", .Fields("YDSJ"))
            m_lxdh.Text = IIf(IsNull(.Fields("LXDH")), "*", Trim(.Fields("LXDH")))
            m_bz.Text = IIf(IsNull(.Fields("BZ")), "*", Trim(.Fields("BZ")))
        End With
    Case 2   '新增记录
        With temp_rec
            .Fields("KRMC") = IIf(Trim(m_kr_mc.Text) = "", "*", Trim(m_kr_mc.Text))
            .Fields("YDRQ") = IIf(Trim(m_rzrq.Text) = "", "00000000", Trim(m_rzrq.Text))
            .Fields("YDSJ") = IIf(Trim(m_ydsj.Text) = "", "*", Trim(m_ydsj.Text))
            .Fields("LXDH") = IIf(Trim(m_lxdh.Text) = "", "*", Trim(m_lxdh.Text))
            .Fields("BZ") = IIf(Trim(m_bz.Text) = "", "*", Trim(m_bz.Text))
        End With
    End Select
End Sub

Private Sub tPkjEnabled(fals As Boolean)
    m_kr_mc.Enabled = fals
    'm_df_js.Enabled = fals
    m_rzrq.Enabled = fals
    m_ydsj.Enabled = fals
    'm_chcl.Enabled = fals
    m_lxdh.Enabled = fals
    m_bz.Enabled = fals
End Sub




Private Sub Command2_Click()
On Error GoTo Error_Handler
Dim ID_REC As ADODB.Recordset
'Dim SYCZ As ADODB.Recordset


If Trim(Combo1.Text) = "" Or Trim(Text1.Text) = "" Then
    MsgBox "棋牌桌类型或者数量为空，错误！"
    Exit Sub
End If

If Not IsNumeric(Text1.Text) Then
    MsgBox "数量输入错误！"
    Exit Sub
End If

Set ID_REC = New ADODB.Recordset
ID_REC.Source = "SELECT * FROM  N_YDD where ID='" + Trim(Text4.Text) + "'"
Set ID_REC.ActiveConnection = objConn
ID_REC.CursorType = adOpenDynamic
ID_REC.LockType = adLockOptimistic
ID_REC.Open
If ID_REC.EOF Then
    MsgBox "请先确认预定信息，再进行棋牌桌预订！"
    ID_REC.Close
    Set ID_REC = Nothing
    Exit Sub
End If

ID_REC.Close
Set ID_REC = Nothing

'Set SYCZ = New ADODB.Recordset
'SYCZ.Source = "select sum(CZS) as num from N_YDFJ where CZLX='" & Combo1.Text & "'and "
'Set SYCZ.ActiveConnection = objConn
'SYCZ.CursorType = adOpenDynamic
'SYCZ.LockType = adLockOptimistic
'SYCZ.Open

Set ID_REC = New ADODB.Recordset                '*******************棋牌桌数量限制*****************
ID_REC.Source = "select count(*) from N_CZ where FZT = 0 and FMS='" & Trim(Combo1.Text) & "'"
Set ID_REC.ActiveConnection = objConn
ID_REC.CursorType = adOpenDynamic
ID_REC.LockType = adLockOptimistic
ID_REC.Open
If CInt(Text1.Text) > ID_REC.Fields(0) Then
   MsgBox "错误：数量超出该类型剩余棋牌桌数量！"
   Exit Sub
End If

ID_REC.Close
Set ID_REC = Nothing
'SYCZ.Close
'Set SYCZ = Nothing                             '*******************棋牌桌数量限制*****************
   


Set ID_REC = New ADODB.Recordset
ID_REC.Source = "SELECT * FROM  N_YDFJ"
Set ID_REC.ActiveConnection = objConn
ID_REC.CursorType = adOpenDynamic
ID_REC.LockType = adLockOptimistic
ID_REC.Open
ID_REC.AddNew
ID_REC.Fields("ID") = fGetMaxComID("N_YDFJ", "ID") + 1
ID_REC.Fields("YDH") = Trim(Text4.Text)
ID_REC.Fields("CZLX") = Trim(Combo1.Text)
ID_REC.Fields("CZS") = Trim(Text1.Text)
ID_REC.Fields("YDRQ") = Trim(m_rzrq.Text)
ID_REC.Fields("YDSJ") = Trim(m_ydsj.Text)
ID_REC.Update
ID_REC.Close
Set ID_REC = Nothing
Text1.Text = ""
Combo1.Text = ""
Call flex_refresh
Error_Handler:
End Sub


Private Sub Command3_Click()
On Error Resume Next
    Dim ID_REC As ADODB.Recordset
    Set ID_REC = New ADODB.Recordset
    ID_REC.Source = "SELECT * FROM  N_YDFJ WHERE ID ='" + gd1.TextArray(gd1.Row * 3) + "'"
    Set ID_REC.ActiveConnection = objConn
    ID_REC.CursorType = adOpenDynamic
    ID_REC.LockType = adLockOptimistic
    ID_REC.Open
    
    If ID_REC.EOF Then
        MsgBox "无该预定，或者数据错误！"
    Else
        ID_REC.Delete
        ID_REC.Update
    End If
    
    ID_REC.Close
    Set ID_REC = Nothing
    

    Call flex_refresh
Error_Handler:
End Sub

Private Sub flex_refresh()
On Error Resume Next
    Dim ID_REC As ADODB.Recordset
    Set ID_REC = New ADODB.Recordset
    ID_REC.Source = "SELECT * FROM  N_YDFJ WHERE YDH ='" & Trim(Text4.Text) & "'"
    Set ID_REC.ActiveConnection = objConn
    ID_REC.CursorType = adOpenDynamic
    ID_REC.LockType = adLockOptimistic
    ID_REC.Open
    
    Call Flex_full(gd1, t_bt, ID_REC, t_fields, t_fdcounts - 1, t_fdxs)
    ID_REC.Close
    Set ID_REC = Nothing
    'gd1.Refresh
Error_Handler:
End Sub





Private Sub Form_Load()
 
Skin1.LoadSkin App.Path + "\棋牌界面"
Skin1.ApplySkin hWnd

t_fields = Array("ID", "CZLX", "CZS") '设置显示字段
t_fdxs = Array(0, 0, 0) '设置显示字段
t_bt = "<序号      |<    棋牌桌类型  |<  棋牌桌数量"   '设置显示表头格式
t_fdcounts = 3

 Call N_GetCMSG("N_CZZL", "CZZL", Combo1)
 Call flex_refresh
End Sub

'Private Sub Timer1_Timer()
' Call flex_refresh
'End Sub