hello everybody :)
im new in vb and now try to develop one system using visual studio 2005 and sqlserver 2000..
i succeed to generate the data in datagridview but then
it display all data not i had selected in combo box..
as shown below :-
Imports TMSForm
Imports TMSBusiness
Public Class searchCourse
'declare sharing object
Private facade1 As New CourseAttendedFacade
Private facade2 As New CourseConductedFacade
Private facade3 As New CourseFacade
Private form1 As New CourseAttendedForm
Private form2 As New CourseConductedForm
Private ds1 As New DataSet
Private ds2 As New DataSet
'load for dgv attended
Friend Sub LoadAttendedData(ByVal form1 As CourseAttendedForm)
ds1 = facade1.GetCourseAttended(form1)
dgvCourse.DataSource = ds1
dgvCourse.DataMember = "courseAttended_table"
dgvCourse.RowHeadersWidthSizeMode = DataGridViewRowHeadersWidthSizeMode.AutoSizeToDisplayedHeaders
End Sub
'load for dgv conducted
Friend Sub LoadConductedData(ByVal form2 As CourseConductedForm)
ds2 = facade2.getCourseConducted(form2)
dgvCourse.DataSource = ds2
dgvCourse.DataMember = "courseConducted_table"
dgvCourse.RowHeadersWidthSizeMode = DataGridViewRowHeadersWidthSizeMode.AutoSizeToDisplayedHeaders
End Sub
'load for comAtt
Friend Sub LoadCourseAttendedData()
Dim dsCourseAtt As DataSet
'get list courseatt
dsCourseAtt = facade1.GetCourseAtt()
ComCourse.DataSource = dsCourseAtt
'~~~~set the table in the dataset to display~~~
ComCourse.DisplayMember = "courseAttended.CourseName"
ComCourse.ValueMember = "courseAttended.CourseId"
End Sub
'load utk comCon
Friend Sub LoadCourseConductedData()
Dim dsCourseCond As DataSet
'get list coursecond
dsCourseCond = facade2.GetCourseCond()
ComCourse.DataSource = dsCourseCond
'set the table in the dataset to display'
ComCourse.DisplayMember = "courseConducted.CourseName"
ComCourse.ValueMember = "courseConducted.CourseId"
End Sub
Friend Sub LoadEmployeeData()
Dim dsEmp As DataSet
'get Employee list
dsEmp = facade1.GetEmployee()
'--bind to datagrid view control--
ComEmp.DataSource = dsEmp
ComEmp.DisplayMember = "Employee.EmployeeName"
ComEmp.ValueMember = "Employee.EmployeeId"
End Sub
Friend Sub LoadInstructorData()
Dim dsInst As DataSet
'get instructor list
dsInst = facade2.getInstructor()
'--bind to datagrid view control--
ComInst.DataSource = dsInst
ComInst.DisplayMember = "Instructor.InstructorName"
ComInst.ValueMember = "Instructor.InstructorId"
End Sub
Friend Sub ResetData()
ComCourse.SelectedIndex = -1
ComEmp.DataSource = Nothing
ComInst.DataSource = Nothing
ChkDCourseAtt.Checked = False
ChkDCourseCond.Checked = False
chkDEmp.Checked = False
chkDInst.Checked = False
dgvCourse.DataSource = Nothing
End Sub
Protected Overrides Sub Finalize()
MyBase.Finalize()
End Sub
Private Sub btnRest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnReset.Click
'Reset Form To initial load
ResetData()
End Sub
Public Sub New()
' This call is required by the Windows Form Designer.
InitializeComponent()
' Add any initialization after the InitializeComponent() call.
End Sub
Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
MyBase.OnLoad(e)
End Sub
Private Sub chkDCourseAtt_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChkDCourseAtt.CheckedChanged
If ChkDCourseAtt.Checked Then
chkDInst.Checked = False
ChkDCourseCond.Checked = False
'chkDEmp.Checked = True
Me.LoadCourseAttendedData()
If chkDEmp.Checked Then
chkDInst.Checked = False
ChkDCourseAtt.Checked = True
ComInst.DataSource = Nothing
End If
Else
'ComCourse.DataSource = Nothing
ComEmp.DataSource = Nothing
End If
End Sub
Private Sub ChkDCourseCond_CheckedChange(ByVal Sender As System.Object, ByVal e As System.EventArgs) Handles ChkDCourseCond.CheckedChanged
If ChkDCourseCond.Checked Then
ChkDCourseAtt.Checked = False
chkDEmp.Checked = False
'chkDInst.Checked = True
Me.LoadCourseConductedData()
If chkDInst.Checked Then
chkDEmp.Checked = False
ChkDCourseCond.Checked = True
ComEmp.DataSource = Nothing
End If
Else
'ComCourse.DataSource = Nothing
ComInst.DataSource = Nothing
End If
End Sub
Private Sub BtnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSearch.Click
If ChkDCourseAtt.Checked Then
If ComCourse.Items.Count > 0 Then
form1.CourseId = ComCourse.SelectedValue.ToString
Else
form1.CourseId = Nothing
End If
If ComEmp.Items.Count > 0 Then
form1.EmployeeId = ComEmp.SelectedValue.ToString
Else
form1.EmployeeId = Nothing
End If
Me.LoadAttendedData(form1)
Else
If ChkDCourseCond.Checked Then
If ComCourse.Items.Count > 0 Then
form2.CourseId = ComCourse.SelectedValue.ToString
Else
form2.CourseId = Nothing
End If
If ComInst.Items.Count > 0 Then
form2.InstructorId = ComInst.SelectedValue.ToString
Else
form2.InstructorId = Nothing
End If
Me.LoadConductedData(form2)
End If
End If
End Sub
'Private Sub dgvCourse_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvCourse.CellClick
'Dim cm As CurrencyManager
' If IsNothing(ds) Then Exit Sub
' cm = CType(BindingContext(ds, "course_table"), CurrencyManager)
'get the ID
'Dim id As Integer
'Dim dr As DataRowView = CType(cm.Current, DataRowView)
' id = CType(dr.Item("courseId"), Integer)
'get the selected pupil
'Dim dsBonding As DataSet = facade3.getCourse()
'show the form
'Dim frm As New frmCourse
'frm.MainForm = Me ' set ref. to this form, enables us to call LoadData easily
' frmCourse.Show()
' Me.Hide()
' frmBonding.LoadData(dsCourse)
'End Sub
Private Sub chkDEmp_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkDEmp.CheckedChanged
If chkDEmp.Checked Then
ChkDCourseCond.Checked = False
ChkDCourseAtt.Checked = True
chkDInst.Checked = False
'Dim Index As Integer = ComCourse.SelectedIndex
'If (Index > -1) Then
'form1.CourseId = ComCourse.SelectedValue.ToString
'If (form1.CourseId <> Nothing) Then
Me.LoadEmployeeData()
'End If
' ComInst.DataSource = Nothing
'Me.LoadCourseAttendedData()
Else
ComEmp.DataSource = Nothing
End If
End Sub
Private Sub chkDInst_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkDInst.CheckedChanged
If chkDInst.Checked Then
ChkDCourseAtt.Checked = False
ChkDCourseCond.Checked = True
chkDEmp.Checked = False
'Dim Index As Integer = ComCourse.SelectedIndex
'If (Index > -1) Then
'form2.CourseId = ComCourse.SelectedValue.ToString
'If (form2.CourseId <> Nothing) Then
Me.LoadInstructorData()
' End If
'End If
ComEmp.DataSource = Nothing
'Me.LoadCourseConductedData()
Else
ComInst.DataSource = Nothing
End If
End Sub
' Private Sub ComCourse_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComCourse.SelectedIndexChanged
' If ChkDCourseAtt.Checked Then
'Dim index As Integer = ComCourse.SelectedIndex
' If (index > 0) Then
' form1.CourseId = ComCourse.SelectedValue.ToString
' If (form1.CourseId <> Nothing) Then
' Me.LoadEmployeeData()
' End If
' End If
' Else
' ComEmp.DataSource = Nothing
' End If
' If ChkDCourseCond.Checked Then
' Dim ind As Integer = ComCourse.SelectedIndex
' If (ind > 0) Then
' form2.CourseId = ComCourse.SelectedValue.ToString
' If (form2.CourseId <> Nothing) Then
' Me.LoadInstructorData()
'
' End If
' End If
' Else
' ComInst.DataSource = Nothing
'
' End If
' End Sub
End Class
~is there any coding that i miss?
~thank u :)