001.Imports CrystalDecisions.CrystalReports.Engine
002.Imports CrystalDecisions.Shared
003.Imports CrystalDecisions.Windows.Forms
004.Imports CrystalDecisions.ReportSource
005.Imports CrystalDecisions.CrystalReports
006.Imports System.Text
007.Imports System.IO
008.Imports System.Xml
009.Imports System.Data.SqlClient
010.
011.Public Class FrmCryt_HR
012.
013. Dim sb As StringBuilder
014. Dim ds As DataSet
015. Dim da As SqlDataAdapter
016. Dim prv_id As New ArrayList
017. Dim status As New ArrayList
018.
019. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
020.
021. sb = New StringBuilder
022. sb.Append("SELECT PRV_ID,PRV_NAME_TH from Province")
023. connection()
024. da = New SqlDataAdapter(sb.ToString, conn)
025. ds = New DataSet
026. For i = 0 To da.Fill(ds, "Province") - 1
027. cboPRV.Properties.Items.Add(ds.Tables("Province").Rows(i)("PRV_NAME_TH").ToString)
028. prv_id.Add(ds.Tables("Province").Rows(i)("PRV_ID").ToString)
029. Next
030. conn.Close()
031.
032. sb = New StringBuilder
033. sb.Append("SELECT* from Status")
034. connection()
035. da = New SqlDataAdapter(sb.ToString, conn)
036. ds = New DataSet
037. For i = 0 To da.Fill(ds, "Status") - 1
038. Cbstatus.Properties.Items.Add(ds.Tables("Status").Rows(i)("status_full").ToString)
039. status.Add(ds.Tables("Status").Rows(i)("status").ToString)
040. Next
041. conn.Close()
042.
043. End Sub
044.
045. Private Sub cbomenu_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbomenu.SelectedIndexChanged
046. If cbomenu.SelectedIndex = 0 Then
047. Panel2.Visible = True
048. Panel1.Visible = False
049. Panel3.Visible = False
050. ElseIf cbomenu.SelectedIndex = 1 Then
051. Panel2.Visible = False
052. Panel1.Visible = True
053. cboPRV.SelectedIndex = -1
054. Panel3.Visible = False
055. ElseIf cbomenu.SelectedIndex = 2 Then
056. Panel1.Visible = False
057. Panel2.Visible = False
058. Panel3.Visible = True
059. Cbstatus.SelectedIndex = -1
060. End If
061. End Sub
062.
063. Private Sub txtsearch_EditValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtsearch.EditValueChanged
064. sb = New StringBuilder
065. sb.Append("SELECT * FROM V_User_TH")
066. sb.Append(" WHERE User_id like '" & txtsearch.Text & "'")
067. sb.Append("Order by User_id asc")
068. connection()
069. da = New SqlDataAdapter(sb.ToString, conn)
070. ds = New DataSet
071. da.Fill(ds, "V_User_TH")
072. conn.Close()
073.
074.
075.
076. End Sub
077.
078. Private Sub cboPRV_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboPRV.SelectedIndexChanged
079. sb = New StringBuilder
080. sb.Append("SELECT * FROM V_User_TH")
081. sb.Append(" WHERE prv_id ='" & prv_id(cboPRV.SelectedIndex).ToString & "'")
082. connection()
083. da = New SqlDataAdapter(sb.ToString, conn)
084. ds = New DataSet
085. da.Fill(ds, "V_User_TH")
086. conn.Close()
087. End Sub
088.
089. Private Sub Cbstatus_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cbstatus.SelectedIndexChanged
090. sb = New StringBuilder
091. sb.Append("SELECT * FROM V_User_TH")
092. sb.Append(" WHERE status ='" & status(Cbstatus.SelectedIndex).ToString & "'")
093. connection()
094. da = New SqlDataAdapter(sb.ToString, conn)
095. ds = New DataSet
096. da.Fill(ds, "V_User_TH")
097. conn.Close()
098. End Sub
099.End Class
