【正文】 tring, myconnection) () mydatareader = () If () Then Else (script defer (39。提交成功39。)。/script) End If ()End Sub繼續(xù)添加下一個按鈕代碼：Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles = = = = = = = = = = = = = = = = End Sub返回按鈕代碼如下：Private Sub Button3_Click(ByVal sender As , ByVal e As ) Handles () End Sub 課程信息界面確定提交按鈕代碼如下：Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles Dim connection = server=LCY。uid=sa。pwd=。database=jxg Dim myconnection As New SqlConnection(connection) Dim mydatareader As SqlDataReader 39。Dim m As String 39。 m = Now Dim selectstring As String = insert into kcxx (coursename,coursenumber,coursetype,classhour,coursecredit,teachingname,teachingpublisher,coachbook,testhour,designhour,testcredit,designcredit,coursebrief) values(39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。) Dim mymand As New SqlCommand(selectstring, myconnection) () mydatareader = () If () Then Else (script defer (39。提交成功39。)。/script) End If ()End Sub繼續(xù)添加下一個按鈕代碼：Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles = = = = = = = = = = = = = End Sub返回按鈕代碼如下：Private Sub Button3_Click(ByVal sender As , ByVal e As ) Handles () End Sub 工作量登記卡界面確定提交按鈕代碼如下：Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles Dim connection = server=LCY。uid=sa。pwd=。database=jxg Dim myconnection As New SqlConnection(connection) Dim mydatareader As SqlDataReader 39。Dim m As String 39。 m = Now Dim selectstring As String = insert into gzlys (teachername,coursename1,coursename2,coursename3,holdingteachinggrade1,holdingteachinggrade2,holdingteachinggrade3,studentnimber1,studentnimber2,studentnimber3,coursehour1,coursehour2,coursehour3,correcthomeworkhour1,correcthomeworkhour2,correcthomeworkhour3,specialholdteachinghour1,specialholdteachinghour2,mergegrade1,mergegrade2,mergegrade3,specialweeknumber,testhour,testtime,puteractualhour,puteractualtime,productactualgrade,productactualstudentnumber,productactualweeknumber,graduateactualgrade,graduateactualstudentnumber,graduateactualweeknumber,collegeactualgrade,collegeactualstudentnumber,collegeactualweeknumber,coursedesigngrade1,coursedesigngrade2,coursedesignstudentnumber1,coursedesignstudentnumber2,cuorsedesignweeknumber1,cuorsedesignweeknumber2,graduatedesigngrade1,graduatedesigngrade2,graduatedesignstudentnumber1,graduatedesignstudentnumber2,graduatedesignweeknumber1,graduatedesignweeknumber2,advisoryoungteachernumber,[year],[month],[day],academiccoachstudentnumber,academiccoachstudentpaper,deputyacademiccoachstudentnumber,deputyacademiccoachstudentpaper,studentcourseclasshour1,studentcourseclasshour2,studentcourseclasshour3,studentcoursestudentnumber1,studentcoursestudentnumber2,studentcoursestudentnumber3,trainingmissionundernumber,morningexersizenumber,gamesdaynumber,teachingmethodstudy,besiderand,branch,[section],teachersname,professional,assessresult) values(39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。) Dim mymand As New SqlCommand(selectstring, myconnection) () mydatareader = () If () Then Else (script defer (39。提交成功39。)。/script) End If ()End Sub繼續(xù)添加下一個按鈕代碼：Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =