n_zt.frm

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

VERSION 5.00
Object = "{74848F95-A02A-4286-AF0C-A3C755E4A5B3}#1.0#0"; "actskn43.ocx"
Begin VB.Form N_ZT 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "转清洁桌"
   ClientHeight    =   2880
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   5355
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2880
   ScaleWidth      =   5355
   StartUpPosition =   3  '窗口缺省
   Begin ACTIVESKINLibCtl.SkinLabel SkinLabel1 
      Height          =   615
      Left            =   0
      OleObjectBlob   =   "N_ZT.frx":0000
      TabIndex        =   2
      Top             =   720
      Width           =   5295
   End
   Begin VB.CommandButton Command2 
      Caption         =   "退 出"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   18
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   3000
      TabIndex        =   1
      Top             =   1680
      Width           =   1455
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确 定"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   18
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   720
      TabIndex        =   0
      Top             =   1680
      Width           =   1575
   End
   Begin ACTIVESKINLibCtl.Skin Skin1 
      Left            =   2400
      OleObjectBlob   =   "N_ZT.frx":007A
      Top             =   2280
   End
End
Attribute VB_Name = "N_ZT"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim SYS_FH As String
Sub MAIN(t_xx As String)
    SYS_FH = t_xx
End Sub


Private Sub Command1_Click()
On Error Resume Next
    Dim fj_rec As ADODB.Recordset
    Set fj_rec = New ADODB.Recordset
    fj_rec.Source = "SELECT * FROM N_CZ WHERE FHID = '" & Trim(SYS_FH) & "'"
    Set fj_rec.ActiveConnection = objConn
    fj_rec.CursorType = adOpenDynamic
    fj_rec.LockType = adLockOptimistic
    fj_rec.Open
    fj_rec.Fields("FZT") = 0
    fj_rec.Update
    fj_rec.Close
    Set fj_rec = Nothing
    Call dt_main.fj_road
    Unload Me
End Sub

Private Sub Command2_Click()
 Unload Me
End Sub

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