frmdelshoujianren.vb

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

微信扫码关注公众号，代码整理好后第一时间通知你。

Public Class frmdelshoujianren
    Dim u_info() As String
    'u_id, sj_name, sj_mb, sj_company, sj_sheng, sj_shi, sj_qu, sj_dizhi
    Sub New(ByVal _u_info() As String)
        ' 此调用是设计器所必需的。
        InitializeComponent()
        ' 在 InitializeComponent() 调用之后添加任何初始化。
        u_info = _u_info
    End Sub

    Private Sub frmdelshoujianren_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'Call viewinfo()
        Me.Text = "删除〖" & u_info(1) & "〗信息"
        Call showcode()
        If u_info(9) = 1 Then
            TextBox3.Text = TextBox1.Text
        End If
    End Sub

    'Sub viewinfo()
    '    sj_name.Text = u_info(1)
    '    sj_mb.Text = u_info(2)
    '    sj_company.Text = u_info(3)
    '    sj_sheng.Text = u_info(4)
    '    sj_shi.Text = u_info(5)
    '    sj_qu.Text = u_info(6)
    '    sj_dizhi.Text = u_info(7)
    'End Sub

    ''' <summary>
    ''' 加载验证码
    ''' </summary>
    ''' <remarks></remarks>
    Sub showcode()
        Dim validCode__1 As New yzcode(5, yzcode.CodeType.Numbers)
        ' 图片加载验证码
        Me.PictureBox1.Image = Bitmap.FromStream(validCode__1.CreateCheckCodeImage())
        Me.TextBox1.Text = validCode__1.CheckCode
    End Sub

    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
        Call showcode()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If Me.PictureBox1.Visible = True Then
            If TextBox3.Text.Trim = "" Then
                Me.TextBox3.Focus()
                Exit Sub
            End If

            If Not Me.TextBox3.Text.Equals(TextBox1.Text) Then
                Me.TextBox3.Focus()
                Return
            End If
        End If

        kuaidi.Deleter.DeleteRow("sys_kh", " id=" & u_info(0))

        DialogResult = DialogResult.OK