Public Class Form1
Dim arrTable(4, 3) As String
Dim ctr As Integer
Dim ctr2 As Integer
Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
arrTable(ctr, 0) = txtFirstName.Text
arrTable(ctr, 1) = txtLastName.Text
arrTable(ctr, 2) = txtStudenNumber.Text
arrTable(ctr, 3) = txtGrade.Text
lstView.Items.Add(arrTable(ctr, 0))
lstView.Items(ctr).SubItems.Add(arrTable(ctr, 1))
lstView.Items(ctr).SubItems.Add(arrTable(ctr, 2))
lstView.Items(ctr).SubItems.Add(arrTable(ctr, 3))
For i As Integer = 1 To UBound(arrTable, 2)
lstView.Items(ctr).SubItems.Add(arrTable(ctr, i))
Next
For i As Integer = 0 To UBound(arrTable, 2)
lstView.Columns(i).AutoResize(ColumnHeaderAutoResizeStyle.HeaderSize)
Next
ctr += 1
If ctr >= 5 Then
btnAdd.Enabled = False
End If
txtFirstName.Clear()
txtLastName.Clear()
txtStudenNumber.Clear()
txtGrade.Clear()
End Sub
Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
Me.Close()
End Sub
Private Sub lstView_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstView.Click
If lstView.SelectedItems(0).Index = 0 Then
txtFirstName.Text = arrTable(0, 0)
txtLastName.Text = arrTable(0, 1)
txtStudenNumber.Text = arrTable(0, 2)
txtGrade.Text = arrTable(0, 3)
End If
If lstView.SelectedItems(0).Index = 1 Then
txtFirstName.Text = arrTable(1, 0)
txtLastName.Text = arrTable(1, 1)
txtStudenNumber.Text = arrTable(1, 2)
txtGrade.Text = arrTable(1, 3)
End If
If lstView.SelectedItems(0).Index = 2 Then
txtFirstName.Text = arrTable(2, 0)
txtLastName.Text = arrTable(2, 1)
txtStudenNumber.Text = arrTable(0, 2)
txtGrade.Text = arrTable(2, 3)
End If
If lstView.SelectedItems(0).Index = 3 Then
txtFirstName.Text = arrTable(3, 0)
txtLastName.Text = arrTable(3, 1)
txtStudenNumber.Text = arrTable(3, 2)
txtGrade.Text = arrTable(3, 3)
End If
If lstView.SelectedItems(0).Index = 4 Then
txtFirstName.Text = arrTable(4, 0)
txtLastName.Text = arrTable(4, 1)
txtStudenNumber.Text = arrTable(4, 2)
txtGrade.Text = arrTable(4, 3)
End If
End Sub
Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click
If ctr > 0 Then
lstView.Items.RemoveAt(ctr2)
ctr -= 1
End If
txtFirstName.Clear()
txtLastName.Clear()
txtStudenNumber.Clear()
txtGrade.Clear()
End Sub
Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click
lstView.SelectedItems(0).SubItems(0).Text = txtFirstName.Text
lstView.SelectedItems(0).SubItems(1).Text = txtLastName.Text
lstView.SelectedItems(0).SubItems(2).Text = txtStudenNumber.Text
lstView.SelectedItems(0).SubItems(3).Text = txtGrade.Text
arrTable(lstView.SelectedItems(0).Index, 0) = txtFirstName.Text
arrTable(lstView.SelectedItems(0).Index, 1) = txtLastName.Text
arrTable(lstView.SelectedItems(0).Index, 2) = txtStudenNumber.Text
arrTable(lstView.SelectedItems(0).Index, 3) = txtGrade.Text
End Sub
End Class
Biyernes, Enero 13, 2012
testing 1 sql
orm1
Public Class Form1
Private Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
If MessageBox.Show("Are you sure you want to add a record", "Add Record?", MessageBoxButtons.YesNo, MessageBoxIcon.Question,
MessageBoxDefaultButton.Button3) = Windows.Forms.DialogResult.Yes Then
MsgBox("successfully added new record!")
Else
MsgBox("successfully not added to your record")
End If
If AddRecords(txtStudentID, txtLastName, txtFirstName, txtMI, txtContactNumber, txtEmail, txtAddress, cmbCourse) = True Then
Else
MsgBox(" Failed to add new Record")
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
GetCourse(cmbCourse)
End Sub
Private Sub BtnView_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnView.Click
formviewdata.ListView1.Items.Clear()
formviewdata.MdiParent = myParent
formviewdata.Show()
End Sub
End Class
folder
datqa connection
Imports System.Data.SqlClient
Public Class clsDataConnection
Private conn As New SqlConnection("Data Source=ALC1; Initial Catalog=tutorial; User Id=sa; Password=dbms ; integrated Security = true")
Public Function Execute(ByVal command As String) As DataTable
Try
Dim DataAdapter As New SqlDataAdapter(command, conn)
Dim DT As New DataTable
DataAdapter.Fill(DT)
Return DT
Catch ex As Exception
Return Nothing
MsgBox("Error: " & ex.Message)
End Try
End Function
End Class
folder module
Module mdMain
Private CONN As New clsDataConnection
Dim DT As New DataTable
Public Function AddRecords(ByVal StudNum As TextBox, ByVal Lname As TextBox, ByVal Fname _
As TextBox, ByVal MI As TextBox, ByVal Email As TextBox, _
ByVal Cnum As TextBox, ByVal Address As TextBox, ByVal Course As ComboBox)
Dim ctr As Integer
Try
CONN.Execute("INSERT INTO tbl_tutorial VALUES('" & StudNum.Text & "','" & Lname.Text _
& "','" & Fname.Text & "','" & MI.Text & "','" & Email.Text & "','" & Cnum.Text _
& "','" & Address.Text & "','" & Course.SelectedItem & "')")
Return True
Catch ex As Exception
Return False
End Try
End Function
Public Sub GetCourse(ByVal Course As ComboBox)
Dim ctr As Integer
DT = CONN.Execute("SELECT * FROM tbl_course")
If DT.Rows.Count > 0 Then
For ctr = 0 To DT.Rows.Count - 1
Course.Items.Add(DT.Rows(ctr)("Course"))
Next
End If
End Sub
Public Sub yahoo(ByVal LV As ListView)
Dim ctr As Integer
Dim LN, FN, MI As String
DT = CONN.Execute(" Select * From tbl_tutorial")
If DT.Rows.Count > 0 Then
For ctr = 0 To DT.Rows.Count - 1
Dim LVI As New ListViewItem
LN = DT.Rows(ctr)("LastName")
FN = DT.Rows(ctr)("FirstName")
MI = DT.Rows(ctr)("MI")
LVI.Text = DT.Rows(ctr)("StudentID")
LVI.SubItems.Add(LN & ", " & FN & "," & MI & " . ")
LVI.SubItems.Add(DT.Rows(ctr)("ContactNumber"))
LVI.SubItems.Add(DT.Rows(ctr)("Address"))
LVI.SubItems.Add(DT.Rows(ctr)("Course"))
LV.Items.Add(LVI)
Next
End If
End Sub
End Module
folder presentation layer
Public Class formviewdata
Private Sub formviewdata_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
yahoo(ListView1)
End Sub
Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
End Sub
End Class
folder my parent
Imports System.Windows.Forms
Public Class myParent
Private Sub ShowNewForm(ByVal sender As Object, ByVal e As EventArgs) Handles NewToolStripMenuItem.Click, NewToolStripButton.Click, NewWindowToolStripMenuItem.Click
' Create a new instance of the child form.
Dim ChildForm As New System.Windows.Forms.Form
' Make it a child of this MDI form before showing it.
ChildForm.MdiParent = Me
m_ChildFormNumber += 1
ChildForm.Text = "Window " & m_ChildFormNumber
ChildForm.Show()
End Sub
Private Sub OpenFile(ByVal sender As Object, ByVal e As EventArgs) Handles OpenToolStripMenuItem.Click, OpenToolStripButton.Click
Dim OpenFileDialog As New OpenFileDialog
OpenFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
OpenFileDialog.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
If (OpenFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then
Dim FileName As String = OpenFileDialog.FileName
' TODO: Add code here to open the file.
End If
End Sub
Private Sub SaveAsToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles SaveAsToolStripMenuItem.Click
Dim SaveFileDialog As New SaveFileDialog
SaveFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
SaveFileDialog.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
If (SaveFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then
Dim FileName As String = SaveFileDialog.FileName
' TODO: Add code here to save the current contents of the form to a file.
End If
End Sub
Private Sub ExitToolsStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ExitToolStripMenuItem.Click
Me.Close()
End Sub
Private Sub CutToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CutToolStripMenuItem.Click
' Use My.Computer.Clipboard to insert the selected text or images into the clipboard
End Sub
Private Sub CopyToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CopyToolStripMenuItem.Click
' Use My.Computer.Clipboard to insert the selected text or images into the clipboard
End Sub
Private Sub PasteToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PasteToolStripMenuItem.Click
'Use My.Computer.Clipboard.GetText() or My.Computer.Clipboard.GetData to retrieve information from the clipboard.
End Sub
Private Sub ToolBarToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ToolBarToolStripMenuItem.Click
Me.ToolStrip.Visible = Me.ToolBarToolStripMenuItem.Checked
End Sub
Private Sub StatusBarToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles StatusBarToolStripMenuItem.Click
Me.StatusStrip.Visible = Me.StatusBarToolStripMenuItem.Checked
End Sub
Private Sub CascadeToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CascadeToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.Cascade)
End Sub
Private Sub TileVerticalToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles TileVerticalToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.TileVertical)
End Sub
Private Sub TileHorizontalToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles TileHorizontalToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.TileHorizontal)
End Sub
Private Sub ArrangeIconsToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ArrangeIconsToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.ArrangeIcons)
End Sub
Private Sub CloseAllToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CloseAllToolStripMenuItem.Click
' Close all child forms of the parent.
For Each ChildForm As Form In Me.MdiChildren
ChildForm.Close()
Next
End Sub
Private m_ChildFormNumber As Integer
Private Sub myParent_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim myForm As New Form1
myForm.MdiParent = Me
myForm.Show()
End Sub
End Class
challenge
4 column (ID , LASt name < FirstName , MI
10 -auto generated
format : First Letter of LN , FN ,MI
ex Mauricio , Arvin Paul Bagalay
MAB - 5 random# - date today
ex
MAB - 45012 - 08/27/2011
dim random as new random
use random.next(1111,9999)
sql server management studio
just connect it is default
table
Public Class Form1
Private Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
If MessageBox.Show("Are you sure you want to add a record", "Add Record?", MessageBoxButtons.YesNo, MessageBoxIcon.Question,
MessageBoxDefaultButton.Button3) = Windows.Forms.DialogResult.Yes Then
MsgBox("successfully added new record!")
Else
MsgBox("successfully not added to your record")
End If
If AddRecords(txtStudentID, txtLastName, txtFirstName, txtMI, txtContactNumber, txtEmail, txtAddress, cmbCourse) = True Then
Else
MsgBox(" Failed to add new Record")
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
GetCourse(cmbCourse)
End Sub
Private Sub BtnView_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnView.Click
formviewdata.ListView1.Items.Clear()
formviewdata.MdiParent = myParent
formviewdata.Show()
End Sub
End Class
folder
datqa connection
Imports System.Data.SqlClient
Public Class clsDataConnection
Private conn As New SqlConnection("Data Source=ALC1; Initial Catalog=tutorial; User Id=sa; Password=dbms ; integrated Security = true")
Public Function Execute(ByVal command As String) As DataTable
Try
Dim DataAdapter As New SqlDataAdapter(command, conn)
Dim DT As New DataTable
DataAdapter.Fill(DT)
Return DT
Catch ex As Exception
Return Nothing
MsgBox("Error: " & ex.Message)
End Try
End Function
End Class
folder module
Module mdMain
Private CONN As New clsDataConnection
Dim DT As New DataTable
Public Function AddRecords(ByVal StudNum As TextBox, ByVal Lname As TextBox, ByVal Fname _
As TextBox, ByVal MI As TextBox, ByVal Email As TextBox, _
ByVal Cnum As TextBox, ByVal Address As TextBox, ByVal Course As ComboBox)
Dim ctr As Integer
Try
CONN.Execute("INSERT INTO tbl_tutorial VALUES('" & StudNum.Text & "','" & Lname.Text _
& "','" & Fname.Text & "','" & MI.Text & "','" & Email.Text & "','" & Cnum.Text _
& "','" & Address.Text & "','" & Course.SelectedItem & "')")
Return True
Catch ex As Exception
Return False
End Try
End Function
Public Sub GetCourse(ByVal Course As ComboBox)
Dim ctr As Integer
DT = CONN.Execute("SELECT * FROM tbl_course")
If DT.Rows.Count > 0 Then
For ctr = 0 To DT.Rows.Count - 1
Course.Items.Add(DT.Rows(ctr)("Course"))
Next
End If
End Sub
Public Sub yahoo(ByVal LV As ListView)
Dim ctr As Integer
Dim LN, FN, MI As String
DT = CONN.Execute(" Select * From tbl_tutorial")
If DT.Rows.Count > 0 Then
For ctr = 0 To DT.Rows.Count - 1
Dim LVI As New ListViewItem
LN = DT.Rows(ctr)("LastName")
FN = DT.Rows(ctr)("FirstName")
MI = DT.Rows(ctr)("MI")
LVI.Text = DT.Rows(ctr)("StudentID")
LVI.SubItems.Add(LN & ", " & FN & "," & MI & " . ")
LVI.SubItems.Add(DT.Rows(ctr)("ContactNumber"))
LVI.SubItems.Add(DT.Rows(ctr)("Address"))
LVI.SubItems.Add(DT.Rows(ctr)("Course"))
LV.Items.Add(LVI)
Next
End If
End Sub
End Module
folder presentation layer
Public Class formviewdata
Private Sub formviewdata_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
yahoo(ListView1)
End Sub
Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
End Sub
End Class
folder my parent
Imports System.Windows.Forms
Public Class myParent
Private Sub ShowNewForm(ByVal sender As Object, ByVal e As EventArgs) Handles NewToolStripMenuItem.Click, NewToolStripButton.Click, NewWindowToolStripMenuItem.Click
' Create a new instance of the child form.
Dim ChildForm As New System.Windows.Forms.Form
' Make it a child of this MDI form before showing it.
ChildForm.MdiParent = Me
m_ChildFormNumber += 1
ChildForm.Text = "Window " & m_ChildFormNumber
ChildForm.Show()
End Sub
Private Sub OpenFile(ByVal sender As Object, ByVal e As EventArgs) Handles OpenToolStripMenuItem.Click, OpenToolStripButton.Click
Dim OpenFileDialog As New OpenFileDialog
OpenFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
OpenFileDialog.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
If (OpenFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then
Dim FileName As String = OpenFileDialog.FileName
' TODO: Add code here to open the file.
End If
End Sub
Private Sub SaveAsToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles SaveAsToolStripMenuItem.Click
Dim SaveFileDialog As New SaveFileDialog
SaveFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
SaveFileDialog.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
If (SaveFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then
Dim FileName As String = SaveFileDialog.FileName
' TODO: Add code here to save the current contents of the form to a file.
End If
End Sub
Private Sub ExitToolsStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ExitToolStripMenuItem.Click
Me.Close()
End Sub
Private Sub CutToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CutToolStripMenuItem.Click
' Use My.Computer.Clipboard to insert the selected text or images into the clipboard
End Sub
Private Sub CopyToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CopyToolStripMenuItem.Click
' Use My.Computer.Clipboard to insert the selected text or images into the clipboard
End Sub
Private Sub PasteToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PasteToolStripMenuItem.Click
'Use My.Computer.Clipboard.GetText() or My.Computer.Clipboard.GetData to retrieve information from the clipboard.
End Sub
Private Sub ToolBarToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ToolBarToolStripMenuItem.Click
Me.ToolStrip.Visible = Me.ToolBarToolStripMenuItem.Checked
End Sub
Private Sub StatusBarToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles StatusBarToolStripMenuItem.Click
Me.StatusStrip.Visible = Me.StatusBarToolStripMenuItem.Checked
End Sub
Private Sub CascadeToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CascadeToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.Cascade)
End Sub
Private Sub TileVerticalToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles TileVerticalToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.TileVertical)
End Sub
Private Sub TileHorizontalToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles TileHorizontalToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.TileHorizontal)
End Sub
Private Sub ArrangeIconsToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ArrangeIconsToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.ArrangeIcons)
End Sub
Private Sub CloseAllToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CloseAllToolStripMenuItem.Click
' Close all child forms of the parent.
For Each ChildForm As Form In Me.MdiChildren
ChildForm.Close()
Next
End Sub
Private m_ChildFormNumber As Integer
Private Sub myParent_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim myForm As New Form1
myForm.MdiParent = Me
myForm.Show()
End Sub
End Class
challenge
4 column (ID , LASt name < FirstName , MI
10 -auto generated
format : First Letter of LN , FN ,MI
ex Mauricio , Arvin Paul Bagalay
MAB - 5 random# - date today
ex
MAB - 45012 - 08/27/2011
dim random as new random
use random.next(1111,9999)
sql server management studio
just connect it is default
table
Mag-subscribe sa:
Mga Post (Atom)