View my program

I am tired of writing programs, but sometimes it is a pleasure to see my own programs!
No matter what you do, as long as you truly melt in, there will be a kind of happiness that ordinary people don't feel!
Imports system. Data
Imports system. Data. sqlclient

Public class teasec
Inherits system. Web. UI. Page
Dim scon as new sqlconnection ("Server = localhost; user = sa; Pwd =; database = mis_grad ")

# Region "code generated by web forms designer"

'The call is required by the web form designer.
<System. Diagnostics. debuggerstepthrough ()> private sub initializecomponent ()

End sub
Protected withevents lblame as system. Web. UI. webcontrols. Label
Protected withevents linkbutton1 as system. Web. UI. webcontrols. linkbutton
Protected withevents Panel1 as system. Web. UI. webcontrols. Panel
Protected withevents panel2 as system. Web. UI. webcontrols. Panel
Protected withevents btnreset as system. Web. UI. webcontrols. Button
Protected withevents btnaddc as system. Web. UI. webcontrols. Button
Protected withevents ddldept as system. Web. UI. webcontrols. dropdownlist
Protected withevents requiredfieldvalidator4 as system. Web. UI. webcontrols. requiredfieldvalidator
Protected withevents txttspwd as system. Web. UI. webcontrols. textbox
Protected withevents requiredfieldvalidator2 as system. Web. UI. webcontrols. requiredfieldvalidator
Protected withevents txttsname as system. Web. UI. webcontrols. textbox
Protected withevents requiredfieldvalidator1 as system. Web. UI. webcontrols. requiredfieldvalidator
Protected withevents txttsno as system. Web. UI. webcontrols. textbox
Protected withevents dgdteasec as system. Web. UI. webcontrols. DataGrid
Protected withevents txttstel as system. Web. UI. webcontrols. textbox
Protected withevents sqldataadapter1 as system. Data. sqlclient. sqldataadapter
Protected withevents sqlselectcommand1 as system. Data. sqlclient. sqlcommand
Protected withevents sqlinsertcommand1 as system. Data. sqlclient. sqlcommand
Protected withevents sqlupdatecommand1 as system. Data. sqlclient. sqlcommand
Protected withevents sqldeletecommand1 as system. Data. sqlclient. sqlcommand

'Note: The following placeholder declaration is required by the web form designer.
'Do not delete or move it.
Private designerplaceholderdeclaration as system. Object

Private sub page_init (byval sender as system. Object, byval e as system. eventargs) handles mybase. init

'Codegen: This method call is required by the web forms designer
'Do not use the code editor to modify it.
Initializecomponent ()
End sub

# End Region

Private sub page_load (byval sender as system. Object, byval e as system. eventargs) handles mybase. Load
'User code to place the initialization page here
If not page. ispostback then

If SESSION ("sysno") is nothing then
Response. Redirect (".../default. aspx ")
Else
Lblaname. Text = SESSION ("sysno ")

'Bind the ddldept Data Source
Dim strsel as string = "select deptname from Dept"
Dim scom as new sqlcommand (strsel, scon)
Dim Dr as sqldatareader
Scom. Connection. open ()
Dr = scom. executereader ()
While dr. Read ()
Ddldept. Items. Add (New listitem (DR (0). tostring ()))
End while
Dr. Close ()
Scom. Connection. Close ()

'Panel Display Control
Databindts ()
Panel1.visible = true
Panel2.visible = false
End if
End if
End sub

'Bind data to dgdteasec
Function databindts ()
Dim selstr as string = "select * From teasec"
Dim sdadept as sqldataadapter
Dim dsdept as Dataset

Sdadept = new sqldataadapter (selstr, scon)
Dsdept = new dataset
Sdadept. Fill (dsdept, "Dept ")
Dgdteasec. datasource = dsdept. Tables ("Dept"). defaultview
Dgdteasec. databind ()
End Function

Private sub dgdteasec_pageindexchanged (byval source as object, byval e as system. Web. UI. webcontrols. datagridpagechangedeventargs) handles dgdteasec. pageindexchanged
Dgdteasec. currentpageindex = E. newpageindex
Databindts ()
End sub

Private sub dgdteasec_editcommand (byval source as object, byval e as system. Web. UI. webcontrols. datagridcommandeventargs) handles dgdteasec. editcommand
Dgdteasec. edititemindex = E. Item. itemindex
Databindts ()
End sub

Private sub dgdteasec_cancelcommand (byval source as object, byval e as system. Web. UI. webcontrols. datagridcommandeventargs) handles dgdteasec. cancelcommand
Dgdteasec. edititemindex =-1
Databindts ()
End sub

'Add teaching secretary
Private sub linkbutton#click (byval sender as system. Object, byval e as system. eventargs) handles linkbutton1.click
Panel1.visible = false
Panel2.visible = true
End sub

'Reset and insert the teaching secretary
Private sub btnreset_click (byval sender as system. Object, byval e as system. eventargs) handles btnreset. Click
Txttsno. Text = ""
Txttsname. Text = ""
Txttspwd. Text = ""
End sub

Private sub btnaddc_click (byval sender as system. Object, byval e as system. eventargs) handles btnaddc. Click

'Determine whether the inserted teaching secretary exists
Dim selstr as string = "select * From teasec where tsno = '" & trim (txttsno. Text )&"'"
Dim scom as new sqlcommand (selstr, scon)
Dim Dr as sqldatareader
Scom. Connection. open ()
Dr = scom. executereader
If dr. Read () = true then
Response. Write ("<script language = JavaScript> alert ('the teaching secretary already exists! ') </SCRIPT> ")
Else
Dr. Close ()
Scom. Connection. Close ()

'Insert a secret
Dim insstr as string = "insert into teasec (tsno, tspas, tsname, tsdept, tstel) values ('" & trim (txttsno. text) & "','" & trim (txttspwd. text) & "','" & trim (txttsname. text) & "','" & trim (ddldept. selectedvalue) & "','" & trim (txttstel. text )&"')"
Scom = new sqlcommand (insstr, scon)
Try
Scom. Connection. open ()
Scom. executenonquery ()
Scom. Connection. Close ()
Response. Write ("<script language = JavaScript> alert ('teaching Secretary added successfully! ') </SCRIPT> ")
Catch ex as exception
Response. Write (insstr)
Response. Write ("<script language = JavaScript> alert ('failed to add teaching secretary! ') </SCRIPT> ")
End try
End if

Txttsno. Text = ""
Txttsname. Text = ""
Txttspwd. Text = ""

Panel1.visible = true
Panel2.visible = false
End sub

'Delete teaching secretary
Private sub dgdteasec_deletecommand (byval source as object, byval e as system. Web. UI. webcontrols. datagridcommandeventargs) handles dgdteasec. deletecommand
Dim strdel as string
Dim scom as sqlcommand

Strdel = "delete from teasec where tsno = @ tsno"
Scom = new sqlcommand (strdel, scon)
Scom. Parameters. Add (New sqlparameter ("@ tsno", sqldbtype. nchar, 8 ))
Scom. parameters ("@ tsno"). value = trim (dgdteasec. datakeys (E. Item. itemindex ))

Try
Scom. Connection. open ()
Scom. executenonquery ()
Scom. Connection. Close ()
Response. Write ("<script language = JavaScript> alert ('teaching Secretary deleted successfully! ') </SCRIPT> ")
Catch ex as exception
Response. Write ("<script language = JavaScript> alert ('failed to delete the teaching secretary! ') </SCRIPT> ")
End try

Databindts ()
End sub

'Update Teaching Secretary information
Private sub dgdteasec_updatecommand (byval source as object, byval e as system. Web. UI. webcontrols. datagridcommandeventargs) handles dgdteasec. updatecommand
Dim strupdate as string
Dim scom as sqlcommand
Strupdate = "Update teasec set tsname = @ tsname, tsdept = @ tsdept, tstel = @ tstel where (tsno = @ tsno )"

Dim txttsname as textbox
Dim txttsdept as textbox
Dim txttstel as textbox

Txttsname = E. Item. cells (1). Controls (0)
Txttsdept = E. Item. cells (2). Controls (0)
Txttstel = E. Item. cells (3). Controls (0)

Scom = new sqlcommand (strupdate, scon)
Scom. Parameters. Add (New sqlparameter ("@ tsno", sqldbtype. nvarchar, 12 ))
Scom. parameters ("@ tsno"). value = trim (dgdteasec. datakeys (E. Item. itemindex ))

Scom. Parameters. Add (New sqlparameter ("@ tsname", sqldbtype. nvarchar, 20 ))
Scom. parameters ("@ tsname"). value = trim (txttsname. Text)

Scom. Parameters. Add (New sqlparameter ("@ tsdept", sqldbtype. nvarchar, 50 ))
Scom. parameters ("@ tsdept"). value = trim (txttsdept. Text)

Scom. Parameters. Add (New sqlparameter ("@ tstel", sqldbtype. nvarchar, 12 ))
Scom. parameters ("@ tstel"). value = trim (txttstel. Text)

Try
Scom. Connection. open ()
Scom. executenonquery ()
Scom. Connection. Close ()
Response. Write ("<script language = JavaScript> alert ('teaching Secretary modified successfully! ') </SCRIPT> ")
Catch ex as exception
Response. Write ("<script language = JavaScript> alert ('failed to modify the teaching secretary! ') </SCRIPT> ")
End try

Dgdteasec. edititemindex =-1
Databindts ()
End sub

End Class