作業(yè)文件14級物理

實(shí)驗(yàn)四：利用 進(jìn)行簡單windows窗口程序設(shè)20151028質(zhì) √思路正 評價簽名實(shí)現(xiàn)數(shù)據(jù)表信息的窗口界（1）在E:\myVbProject 下建立數(shù)據(jù)庫xjgl，該數(shù)據(jù)庫中建立學(xué)生數(shù)據(jù)表tblstudent，其字段及主鍵如下：【截圖第1張，包含 stuidchar(8)notnull,stunamechar(20),stuageint, colidchar(20)primarykey(stuid) 實(shí)現(xiàn)對學(xué)生信息表 實(shí)現(xiàn)對學(xué)生信息表student1，在 下建立數(shù)據(jù)庫xjgl，該數(shù)據(jù)庫中建立學(xué)生數(shù)據(jù)表student四、實(shí)驗(yàn)結(jié)果（題解或運(yùn)行結(jié)果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(