定期开户.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 As String
    Dim str1 As String
    Dim strsql As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        
        Button2.Enabled = True
        result = MessageBox.Show("确定开户？", "系统提示", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation)
        If result = Windows.Forms.DialogResult.No Then
            Me.Close()
        Else
            If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or ComboBox3.Text = "" Or TextBox5.Text = "" Or TextBox6.Text = "" Or TextBox7.Text = "" Or ComboBox4.Text = "" Or ComboBox2.Text = "" Or TextBox8.Text = "" Or ComboBox1.Text = "" Then
                MsgBox("请输入完整信息!")
                Exit Sub
            Else
                strsql = "select ID from FConsumers "
                objcommand = New SqlClient.SqlCommand(strsql, 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
                            MsgBox("该帐户已经存在,请重新输入!")
                            TextBox1.Text = ""
                            TextBox1.Focus()
                            Exit Sub

                        Else

                            sql = "insert into FConsumers(ID,name,password,money,passTime,stationID,address,Phone,CAccrual,FAccrual,procedurePerson,be,fetchDate) values('" & Trim(TextBox1.Text) & "','" & Trim(TextBox2.Text) & "','" & Trim(TextBox3.Text) & "','" & Trim(TextBox4.Text) & "','" & Trim(ComboBox3.Text) & "','" & Trim(TextBox5.Text) & "','" & Trim(TextBox6.Text) & "','" & Trim(TextBox7.Text) & "','" & Trim(ComboBox4.Text) & "','" & Trim(ComboBox2.Text) & "','" & Trim(TextBox8.Text) & "','" & Trim(ComboBox1.Text) & "','" & Trim(DateTimePicker1.Text) & "')"
                            cn.ConnectionString = strconn
                            cn.Open()
                            cmd = New SqlClient.SqlCommand(sql, cn)
                            cmd.ExecuteNonQuery()
                            cmd.Dispose()
                            cn.Dispose()
                            Button1.Enabled = True
                            Button2.Enabled = False

                            MessageBox.Show("开户成功！", "系统提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
                            Me.Close()
                            Exit Sub
                        End If
                    Loop
                End With

            End If
        End If




    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Button1.Enabled = True
        result = MessageBox.Show("确定退出开户？", "系统提示", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation)
        If result = Windows.Forms.DialogResult.Yes Then
            Me.Close()
        End If
    End Sub
End Class