开户二.vb

银行帐户管理系统

Public Class 开户二
    Inherits System.Windows.Forms.Form
    Dim strconn As String = "data source=.;initial catalog=weboy;user id= sa;password=;"
    Dim objds As New Data.DataSet
    Dim objda As SqlClient.SqlDataAdapter
    Dim bingpage As BindingManagerBase
    Dim cn As New SqlClient.SqlConnection
    Dim cmd As SqlClient.SqlCommand
    Dim result As String
    Dim objcommand As SqlClient.SqlCommand
    Dim objdr As SqlClient.SqlDataReader
    Dim sql, str1 As String
  

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        开户一.Show()
        'Unload(Me)
        Me.Close()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Close()

    End Sub
   
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Button2.Enabled = True
        result = MessageBox.Show("确定开户？", "系统提示", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation)
        If result = Windows.Forms.DialogResult.No Then
            Me.Close()
        End If
        If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or TextBox5.Text = "" Or TextBox6.Text = "" Or TextBox7.Text = "" Or TextBox8.Text = "" Then

            MsgBox("请输入完整信息!")
        Else
            str1 = "select ID from CConsumers"
            objcommand = New SqlClient.SqlCommand(str1, New SqlClient.SqlConnection(strconn))
            objcommand.Connection.Open()
            objdr = objcommand.ExecuteReader(CommandBehavior.CloseConnection)
            With objdr
                Do While .Read = True
                    str1 = .GetString(0)
                    If Trim(TextBox1.Text) = Trim(str1) Then
                        MessageBox.Show("该帐户已经存在，请重新输入!")
                        TextBox1.Focus()
                        TextBox1.Text = ""
                        Exit Sub
                    Else
                        sql = "insert into CConsumers(ID,password,userName,deputizeName,userstationID,deputizeStationID,userAddress,userPhone,deputizePhone,memoryWay,procedurePerson) values('" & Trim(TextBox1.Text) & "','" & Trim(TextBox2.Text) & "','" & Trim(TextBox3.Text) & "','" & Trim(TextBox4.Text) & "','" & Trim(TextBox5.Text) & "','" & Trim(TextBox6.Text) & "','" & Trim(TextBox7.Text) & "','" & Trim(TextBox8.Text) & "', '" & Trim(TextBox9.Text) & "','" & Trim(DateTimePicker1.Text) & "','" & Trim(TextBox11.Text) & "')"

                        cn.ConnectionString = strconn
                        cn.Open()
                        cmd = New SqlClient.SqlCommand(sql, cn)
                        cmd.ExecuteNonQuery()
                        cmd.Dispose()
                        cn.Dispose()
                        Button1.Enabled = True
                        Button2.Enabled = False
                        sql = "update CConsumers set ID='" & Trim(TextBox1.Text) & "',password='" & Trim(TextBox2.Text) & "',userName='" & Trim(TextBox3.Text) & "',deputizeName='" & Trim(TextBox4.Text) & "',userstationID='" & Trim(TextBox5.Text) & "',deputizeStationID='" & Trim(TextBox6.Text) & "',userAddress='" & Trim(TextBox7.Text) & "',userPhone='" & Trim(TextBox8.Text) & "',deputizePhone='" & Trim(TextBox9.Text) & "',memoryWay='" & Trim(DateTimePicker1.Text) & "',procedurePerson='" & Trim(TextBox11.Text) & " 'where ID='""'"
                        cn.ConnectionString = strconn
                        cn.Open()
                        cmd = New SqlClient.SqlCommand(sql, cn)
                        cmd.ExecuteNonQuery()
                        cmd.Dispose()
                        cn.Dispose()
                        MessageBox.Show("开户成功！", "系统提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
                        Me.Close()
                        Exit Sub

                    End If
                Loop
            End With
        End If
    End Sub
End Class