Click here to Skip to main content
16,004,944 members
Home / Discussions / Visual Basic
   

Visual Basic

 
Questiondisplay a picture in crystal report from a database Pin
steve_rm24-Sep-07 4:49
steve_rm24-Sep-07 4:49 
AnswerRe: display a picture in crystal report from a database Pin
prasuaaron14-Nov-07 23:38
prasuaaron14-Nov-07 23:38 
GeneralRe: display a picture in crystal report from a database Pin
prasuaaron14-Nov-07 23:39
prasuaaron14-Nov-07 23:39 
QuestionSOftware of server & clients Pin
ankur010124-Sep-07 3:19
ankur010124-Sep-07 3:19 
AnswerRe: SOftware of server & clients Pin
DigiOz Multimedia24-Sep-07 4:12
DigiOz Multimedia24-Sep-07 4:12 
Questiondatagrid in vb.net 2003 Pin
prasuaaron24-Sep-07 3:03
prasuaaron24-Sep-07 3:03 
AnswerRe: datagrid in vb.net 2003 Pin
DigiOz Multimedia24-Sep-07 4:25
DigiOz Multimedia24-Sep-07 4:25 
QuestionAccess Pin
mcbunnell24-Sep-07 3:01
mcbunnell24-Sep-07 3:01 
Hi I am trying to make a login program. I want to use access 2003 to keep track of the usernames/passwords so the program can just check with access to see if the username matches the password and if so let them continue with the program.
Here is my code so far.

'Max Bunnell
Public Class LoginForm
Dim Times As Double
Dim Username As String
Dim Password As String

Private Sub ResetButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ResetButton.Click
Me.PasswordTextBox.Text = ""
Me.UsernameTextBox.Text = ""
End Sub

Private Sub SubmitButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SubmitButton.Click
If Times < 3 Then
Username = Me.UsernameTextBox.Text
Password = Me.PasswordTextBox.Text

If Username = "mcbunnell" Then
If Password = "x1236598" Then
MessageBox.Show("Congradulations", "You got it right!", MessageBoxButtons.OK)
Me.PasswordTextBox.Text = ""
Me.UsernameTextBox.Text = ""
Times = 0
Username = ""
Password = ""
Me.Close()
Else
MessageBox.Show("Wrong Username And/Or Password", "Login Error", MessageBoxButtons.OK)
Me.UsernameTextBox.Text = ""
Me.PasswordTextBox.Text = ""
Times = Times + 1
Username = ""
Password = ""
End If
Else
MessageBox.Show("Wrong Username And/Or Password", "Login Error", MessageBoxButtons.OK)
Me.UsernameTextBox.Text = ""
Me.PasswordTextBox.Text = ""
Times = Times + 1
Username = ""
Password = ""
End If
End If

End Sub

Private Sub LoginForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Times = 0
End Sub
End Class


Confused | :confused: Confused | :confused: Confused | :confused:
AnswerRe: Access Pin
Kschuler24-Sep-07 4:01
Kschuler24-Sep-07 4:01 
GeneralRe: Access Pin
mcbunnell24-Sep-07 6:53
mcbunnell24-Sep-07 6:53 
GeneralRe: Access Pin
Kschuler24-Sep-07 8:02
Kschuler24-Sep-07 8:02 
AnswerRe: Access Pin
Dave Kreskowiak24-Sep-07 5:01
mveDave Kreskowiak24-Sep-07 5:01 
GeneralRe: Access Pin
mcbunnell24-Sep-07 6:52
mcbunnell24-Sep-07 6:52 
GeneralRe: Access Pin
nlarson1124-Sep-07 7:37
nlarson1124-Sep-07 7:37 
GeneralRe: Access Pin
Dave Kreskowiak24-Sep-07 7:57
mveDave Kreskowiak24-Sep-07 7:57 
AnswerRe: Access Pin
parth.p25-Sep-07 12:30
parth.p25-Sep-07 12:30 
QuestionDatabase Pin
vidya11024-Sep-07 1:55
vidya11024-Sep-07 1:55 
AnswerRe: Database Pin
pmarfleet24-Sep-07 2:18
pmarfleet24-Sep-07 2:18 
AnswerRe: Database Pin
originSH24-Sep-07 3:14
originSH24-Sep-07 3:14 
AnswerRe: Database Pin
helelark12324-Sep-07 4:37
helelark12324-Sep-07 4:37 
QuestionConcurrency Violation: the update command affected 0 of the expected 1 records.? Pin
Mr Oizo24-Sep-07 0:42
Mr Oizo24-Sep-07 0:42 
AnswerRe: Concurrency Violation: the update command affected 0 of the expected 1 records.? Pin
GuyThiebaut24-Sep-07 1:46
professionalGuyThiebaut24-Sep-07 1:46 
GeneralRe: Concurrency Violation: the update command affected 0 of the expected 1 records.? Pin
Mr Oizo24-Sep-07 4:49
Mr Oizo24-Sep-07 4:49 
GeneralRe: Concurrency Violation: the update command affected 0 of the expected 1 records.? Pin
Dave Kreskowiak24-Sep-07 4:56
mveDave Kreskowiak24-Sep-07 4:56 
AnswerRe: Concurrency Violation: the update command affected 0 of the expected 1 records.? Pin
Dave Kreskowiak24-Sep-07 4:12
mveDave Kreskowiak24-Sep-07 4:12 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.