Reply to thread

Message

<blockquote data-quote="cm2004cm4ever" data-source="post: 6973076" data-attributes="member: 120594"><img src="http://img514.imageshack.us/img514/9112/65070401.png" alt="" class="fr-fic fr-dii fr-draggable " style="" /><img src="http://img704.imageshack.us/img704/9030/77383518.png" alt="" class="fr-fic fr-dii fr-draggable " style="" /><img src="http://img708.imageshack.us/img708/5775/93227771.png" alt="" class="fr-fic fr-dii fr-draggable " style="" /><a href="http://www.ziddu.com/download/8939329/StudentRegistration.zip.html" target="_blank">http://www.ziddu.com/download/8939329/StudentRegistration.zip.html</a>Public Class Form1&nbsp; &nbsp; Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load&nbsp; &nbsp; &nbsp; &nbsp; Dim spYear = 1970, spDate = 1&nbsp; &nbsp; &nbsp; &nbsp; While (spYear &lt;= 2010 And spDate &lt;= 31)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Me.cmbYear.Items.Add(spYear)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Me.cmbDate.Items.Add(spDate)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; spYear += 1&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; spDate += 1&nbsp; &nbsp; &nbsp; &nbsp; End While&nbsp; &nbsp; &nbsp; &nbsp; RegistrationTableAdapter1.Update(DatabaseDataset1.registration)&nbsp; &nbsp; End Sub&nbsp; &nbsp; Private Sub chkMale_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles chkMale.Click&nbsp; &nbsp; &nbsp; &nbsp; If Me.chkFemale.Checked = True Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Me.chkFemale.Checked = False&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Me.chkMale.Checked = True&nbsp; &nbsp; &nbsp; &nbsp; Else : Me.chkMale.Checked = True&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; End Sub&nbsp; &nbsp; Private Sub chkFemale_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles chkFemale.Click&nbsp; &nbsp; &nbsp; &nbsp; If Me.chkMale.Checked = True Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Me.chkMale.Checked = False&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Me.chkFemale.Checked = True&nbsp; &nbsp; &nbsp; &nbsp; Else : Me.chkFemale.Checked = True&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; End Sub&nbsp; &nbsp; Private Sub txtTel_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtTel.TextChanged&nbsp; &nbsp; &nbsp; &nbsp; If Not IsNumeric(txtTel.Text) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MsgBox(&quot;You can enter only numbers in this field.&quot;, MsgBoxStyle.Exclamation, &quot;Warning&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Me.txtTel.Focus()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Me.txtTel.SelectionStart = txtTel.TextLength - 1&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Me.txtTel.SelectionLength = txtTel.TextLength&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; End Sub&nbsp; &nbsp; Private Sub tmrBchk_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles tmrBchk.Tick&nbsp; &nbsp; &nbsp; &nbsp; If Me.txtStud.TextLength &gt; 0 And Me.txtAdd.TextLength &gt; 0 And Me.txtEmail.TextLength &gt; 0 And Me.txtTel.TextLength &gt; 0 Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If Me.chkMale.Checked = True Or Me.chkFemale.Checked = True Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If Me.cmbDate.Text.Length &gt; 0 And Me.cmbMonth.Text.Length &gt; 0 And Me.cmbYear.Text.Length &gt; 0 Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Me.btnReg.Enabled = True&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Else : Me.btnReg.Enabled = False&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; End Sub&nbsp; &nbsp; Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click&nbsp; &nbsp; &nbsp; &nbsp; Dim msgExit = MsgBox(&quot;You are about close this application, are you sure you want to exit?&quot;, MsgBoxStyle.YesNo + MsgBoxStyle.Question + MsgBoxStyle.DefaultButton2, &quot;Want to exit?&quot;)&nbsp; &nbsp; &nbsp; &nbsp; If msgExit = vbYes Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Me.Dispose()&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; End Sub&nbsp; &nbsp; Private Sub frmMain_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing&nbsp; &nbsp; &nbsp; &nbsp; Dim msgExit = MsgBox(&quot;You are about close this application, are you sure you want to exit?&quot;, MsgBoxStyle.YesNo + MsgBoxStyle.Question + MsgBoxStyle.DefaultButton2, &quot;Want to exit?&quot;)&nbsp; &nbsp; &nbsp; &nbsp; If msgExit = vbYes Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Me.Dispose()&nbsp; &nbsp; &nbsp; &nbsp; Else : e.Cancel = True&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; End Sub&nbsp; &nbsp; Private Sub btnReg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReg.Click&nbsp; &nbsp; &nbsp; &nbsp; Dim gender, dob As String&nbsp; &nbsp; &nbsp; &nbsp; If chkMale.Checked = True Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; gender = &quot;Male&quot;&nbsp; &nbsp; &nbsp; &nbsp; Else : gender = &quot;Female&quot;&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; dob = Me.cmbDate.Text &amp; &quot;/&quot; &amp; Me.cmbMonth.Text &amp; &quot;/&quot; &amp; Me.cmbYear.Text&nbsp; &nbsp; &nbsp; &nbsp; Dim newRow, chkRow As databaseDataset.registrationRow&nbsp; &nbsp; &nbsp; &nbsp; chkRow = DatabaseDataset1.registration.Rows.Find(Me.txtStud.Text)&nbsp; &nbsp; &nbsp; &nbsp; If chkRow Is Nothing Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; newRow = DatabaseDataset1.registration.newRow&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; newRow.sname = Me.txtStud.Text&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; newRow.gender = gender&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; newRow.address = Me.txtAdd&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; newRow.dob = dob&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; newRow.email = Me.txtEmail&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; newRow.tel = Me.txtTel&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; DatabaseDataset1.registration.AddregistrationRow(newRow)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; RegistrationTableAdapter1.Update(DatabaseDataset1)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MsgBox(&quot;Record successfully added to database.&quot;, MsgBoxStyle.Information, &quot;Success&quot;)&nbsp; &nbsp; &nbsp; &nbsp; Else : MsgBox(&quot;This student name already exists.&quot;, MsgBoxStyle.Information, &quot;Faild to add&quot;)&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; End SubEnd Class</blockquote>

[QUOTE="cm2004cm4ever, post: 6973076, member: 120594"] [IMG]http://img514.imageshack.us/img514/9112/65070401.png[/IMG] [IMG]http://img704.imageshack.us/img704/9030/77383518.png[/IMG] [IMG]http://img708.imageshack.us/img708/5775/93227771.png[/IMG] [FONT=Courier New][SIZE=5] [URL="http://www.ziddu.com/download/8939329/StudentRegistration.zip.html"][B]http://www.ziddu.com/download/8939329/StudentRegistration.zip.html[/B][/URL][/SIZE][/FONT] Public Class Form1 Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim spYear = 1970, spDate = 1 While (spYear <= 2010 And spDate <= 31) Me.cmbYear.Items.Add(spYear) Me.cmbDate.Items.Add(spDate) spYear += 1 spDate += 1 End While RegistrationTableAdapter1.Update(DatabaseDataset1.registration) End Sub Private Sub chkMale_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles chkMale.Click If Me.chkFemale.Checked = True Then Me.chkFemale.Checked = False Me.chkMale.Checked = True Else : Me.chkMale.Checked = True End If End Sub Private Sub chkFemale_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles chkFemale.Click If Me.chkMale.Checked = True Then Me.chkMale.Checked = False Me.chkFemale.Checked = True Else : Me.chkFemale.Checked = True End If End Sub Private Sub txtTel_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtTel.TextChanged If Not IsNumeric(txtTel.Text) Then MsgBox("You can enter only numbers in this field.", MsgBoxStyle.Exclamation, "Warning") Me.txtTel.Focus() Me.txtTel.SelectionStart = txtTel.TextLength - 1 Me.txtTel.SelectionLength = txtTel.TextLength End If End Sub Private Sub tmrBchk_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles tmrBchk.Tick If Me.txtStud.TextLength > 0 And Me.txtAdd.TextLength > 0 And Me.txtEmail.TextLength > 0 And Me.txtTel.TextLength > 0 Then If Me.chkMale.Checked = True Or Me.chkFemale.Checked = True Then If Me.cmbDate.Text.Length > 0 And Me.cmbMonth.Text.Length > 0 And Me.cmbYear.Text.Length > 0 Then Me.btnReg.Enabled = True Else : Me.btnReg.Enabled = False End If End If End If End Sub Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click Dim msgExit = MsgBox("You are about close this application, are you sure you want to exit?", MsgBoxStyle.YesNo + MsgBoxStyle.Question + MsgBoxStyle.DefaultButton2, "Want to exit?") If msgExit = vbYes Then Me.Dispose() End If End Sub Private Sub frmMain_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing Dim msgExit = MsgBox("You are about close this application, are you sure you want to exit?", MsgBoxStyle.YesNo + MsgBoxStyle.Question + MsgBoxStyle.DefaultButton2, "Want to exit?") If msgExit = vbYes Then Me.Dispose() Else : e.Cancel = True End If End Sub Private Sub btnReg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReg.Click Dim gender, dob As String If chkMale.Checked = True Then gender = "Male" Else : gender = "Female" End If dob = Me.cmbDate.Text & "/" & Me.cmbMonth.Text & "/" & Me.cmbYear.Text Dim newRow, chkRow As databaseDataset.registrationRow chkRow = DatabaseDataset1.registration.Rows.Find(Me.txtStud.Text) If chkRow Is Nothing Then newRow = DatabaseDataset1.registration.newRow newRow.sname = Me.txtStud.Text newRow.gender = gender newRow.address = Me.txtAdd newRow.dob = dob newRow.email = Me.txtEmail newRow.tel = Me.txtTel DatabaseDataset1.registration.AddregistrationRow(newRow) RegistrationTableAdapter1.Update(DatabaseDataset1) MsgBox("Record successfully added to database.", MsgBoxStyle.Information, "Success") Else : MsgBox("This student name already exists.", MsgBoxStyle.Information, "Faild to add") End If End Sub End Class [/QUOTE]

Verification

Awruddata maasa keeyada?

Search

Latest ads

Reply to thread