?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 strsql As String
    Dim result As String

    Dim sql As String
    Dim cn As New SqlClient.SqlConnection
    Dim cmd As SqlClient.SqlCommand
    Dim str, str1 As String


    Dim objcommand As SqlClient.SqlCommand
    Dim objdr As SqlClient.SqlDataReader
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox2.Text <> TextBox3.Text Then
            MsgBox("請確定兩次輸入的取款金額相同")
            Exit Sub
        End If
        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 = "" Then
                MsgBox("請確定輸入完整信息!")
                Exit Sub


            End If

            str = "select ID from CConsumers"
            objcommand = New SqlClient.SqlCommand(str, New SqlClient.SqlConnection(strconn))
            objcommand.Connection.Open()
            objdr = objcommand.ExecuteReader(CommandBehavior.CloseConnection)
            With objdr
                Do While .Read = True
                    str = .GetString(0)
                    If Trim(TextBox5.Text) <> Trim(str) Then
                        MessageBox.Show(" 密碼不正確!", "系統提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
                        Exit Sub
                    Else
                        strsql = "select money,be from CConsumers where ID='" & Trim(TextBox1.Text) & "'"
                        objda = New SqlClient.SqlDataAdapter(strsql, strconn)
                        objda.Fill(objds, "CConsumers")
                        bingpage = Me.BindingContext(objds, "CConsumers")
                        TextBox4.DataBindings.Add(New Binding("text", objds, "CConsumers.money"))
                        TextBox6.DataBindings.Add(New Binding("text", objds, "CConsumers.be"))
                        If Trim(TextBox6.Text) = 0 Then
                            If (Val(TextBox3.Text) - Val(TextBox4.Text)) > 0 Then
                                MessageBox.Show("金額不足！" & vbCrLf & "當前余額為:" + TextBox4.Text + "元", "系統提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
                                TextBox4.Text = ""
                                Me.Close()
                                Exit Sub
                            ElseIf (Val(TextBox4.Text) - Val(TextBox3.Text)) > 0 Then
                                sql = "update CConsumers set money='" & Trim(TextBox4.Text - TextBox3.Text) & "' where ID='" & Trim(TextBox1.Text) & "'"
                                cn.ConnectionString = strconn
                                cn.Open()
                                cmd = New SqlClient.SqlCommand(sql, cn)
                                cmd.ExecuteNonQuery()
                                cmd.Dispose()
                                cn.Dispose()
                                MessageBox.Show("取款成功！" & vbCrLf & "剩余金額為:" & Trim(TextBox4.Text - TextBox3.Text) & "元", "系統提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
                                Me.Close()
                                Exit Sub
                            End If
                        Else
                            MessageBox.Show("該帳戶已經掛失！")
                            Exit Sub

                        End If
                    End If

                Loop
            End With

            '  Loop
        End If  ' End With

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ' Me.Close()
        Button2.Enabled = True
        result = MessageBox.Show("確定退出取款？", "系統提示", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation)
        If result = Windows.Forms.DialogResult.Yes Then
            Me.Close()

        End If
    End Sub

    
End Class