作业文件14级物理

实验四：利用 进行简单windows窗口程序设20151028质 √思路正 评价签名实现数据表信息的窗口界（1）在E:\myVbProject 下建立数据库xjgl，该数据库中建立学生数据表tblstudent，其字段及主键如下：【截图第1张，包含 stuidchar(8)notnull,stunamechar(20),stuageint, colidchar(20)primarykey(stuid) 实现对学生信息表 实现对学生信息表student1，在 下建立数据库xjgl，该数据库中建立学生数据表student四、实验结果（题解或运行结果PublicClassPublicstuDataSetAsDataSet=NewDataSetPublicLineNum,LineSumAsIntegerPublicSubLbMsg.Text说明：第&Str(LineNum1)&条，共&Str(LineSum)&条"IfLineSum>0ThenDimmyRowAsDataRow=stuDataSet.Tables("tblStudent").Rows(LineNum)txtStuId.Text=myRow("StuId")txtName.Text=myRow("StuName")txtSage.Text=myRow("StuAge")txtS.Text=myRow("Stu")txtColid.Text=myRow("Colid")LbMsg.Text没有记录了！"EndIfEndPrivateSubfrmStudent_Load(senderAsSystem.Object,eAsSystem.EventArgs)HandlesMyBase.LoadDaStudent.Fill(stuDataSet,DimcurrRow()AsDataRow=stuDataSet.Tables("tblStudent").Select(Nothing,Nothing,DataViewRowState.CurrentRows)LineSum LineNum=0 BnSave.Enabled=FalseEndSubPrivateSubBnFirst_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlesLineNum=0EndPrivateSubBnNext_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlesIfLineNum<LineSum-1ThenLineNum=LineNum+1EndIfEndSubPrivateSubBnPrew_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlesIfLineNum>0ThenLineNum=LineNum-1EndIfEndSubPrivateSubBnLast_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlesLineNum=LineSum-1EndPrivateSubBnAdd_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlestxtStuId.Text=""txtName.Text=""txtSage.Text="" .Text=""txtColid.Text=""BnSave.Enabled=TrueBnDel.Enabled=FalseBnModif.Enabled=FalseBnAdd.Enabled=FalseEndPrivateSubBnSave_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlesIftxtStuId.Text=""ThenDimmyrowAsDataRow=stuDataSet.Tables("tblstudent").NewRowmyrow("StuId")=Trim(txtStuId.Text)myrow("StuName")=Trim(txtName.Text)myrow("StuAge")=Trim(Val(txtSage.Text)) ")=Trim(txtS myrow("Colid")=Trim(txtColid.Text)DaStudent.Update(stuDataSet,"tblStudent")LineSum=LineSum-1IfLineNum=LineSumThenLineNum=LineNum-EndIfBnAdd.Enabled=TrueBnDel.Enabled=TrueBnModif.Enabled=TrueBnSave.Enabled=EndIfEndSubPrivateSubBnDel_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlesDimmyrowAsDataRowIfLineSum>0Thenmyrow=stuDataSet.Tables("tblStudent").Rows(LineNum)PrivatePrivateSubBnModif_Click(senderAsSystem.Object,eAsSystem.EventArgs)DimmyrowAsDataRow=stuDataSet.Tables("tblStudent").Rows(LineNum)myrow("StuId")=txtStuId.Textmyrow("StuName")=txtName.Textmyrow("StuAge")=txtSage.Text ")=txtS.Textmyrow("Colid")=txtColid.TextDaStudent.Update(