活期注销用户.vb

来自「银行帐户管理系统」· VB 代码 · 共 29 行

Public Class 活期注销用户
    Inherits System.Windows.Forms.Form
    Dim strconn As String = "data source=.;initial catalog=weboy;user id= ;password=;"
    Dim cn As New SqlClient.SqlConnection
    Dim cmd As SqlClient.SqlCommand
    Dim strsql As String
    Dim result As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        result = MessageBox.Show("确定删除？", "系统提示", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation)
        If result = Windows.Forms.DialogResult.No Then
            Me.Close()
        Else
            strsql = "DELETE FROM CConsumers WHERE ID= '" & Trim(TextBox1.Text) & "' and password='" & Trim(TextBox2.Text) & "'"
            cn.ConnectionString = strconn
            cn.Open()
            cmd = New SqlClient.SqlCommand(strsql, cn)
            cmd.ExecuteNonQuery()
            cmd.Dispose()
            cn.Dispose()
            MsgBox("删除成功！")
            Me.Close()
            Exit Sub
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub
End Class