form_chshh.frm

射频卡收费系统 自主开发 可以用于任何商业收费场所

VERSION 5.00
Begin VB.Form Form_chshh 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "初始化数据库"
   ClientHeight    =   2700
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   7740
   LinkTopic       =   "Form4"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2700
   ScaleWidth      =   7740
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command2 
      Caption         =   "退 出"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   405
      Left            =   3240
      TabIndex        =   1
      Top             =   1440
      Width           =   1455
   End
   Begin VB.CommandButton Command1 
      Caption         =   "初始化数据库"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   405
      Left            =   2760
      TabIndex        =   0
      Top             =   720
      Width           =   2415
   End
   Begin VB.Label Label7 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "注：初始化数据库后，所有数据将丢失，请谨慎处理"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   285
      Left            =   480
      TabIndex        =   2
      Top             =   2280
      Width           =   6900
   End
End
Attribute VB_Name = "Form_chshh"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim lianjie As Connection


Private Sub Command1_Click()
If (MsgBox("是否初始化数据库，请确认？", vbYesNo + vbCritical + vbDefaultButton1 + vbCritical, "提示")) = vbYes Then

    lianjie.Execute "delete from 卡充值记录"
    lianjie.Execute "delete from 卡结算记录"
    lianjie.Execute "delete from 卡退款记录"
    lianjie.Execute "delete from 卡资料"
    
    
    MsgBox "初始化数据库成功！", vbExclamation, "提示"


End If

End Sub

Private Sub Command2_Click()
Unload Me

End Sub

Private Sub Form_Load()
Set lianjie = New Connection
With lianjie
    .ConnectionString = dblianjie
    .Open
End With

End Sub

Private Sub Form_Unload(Cancel As Integer)
lianjie.Close

End Sub