vb和SQL做的学生成绩管理系统

《vb和SQL做的学生成绩管理系统》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、Form1的代码：PrivateSubCommand1_Click()UnloadMeForm3.ShowEndSubPrivateSubCommand2_Click()UnloadMeForm2.ShowEndSubPrivateSubCommand3_Click()IfMsgBox("确定退出管理系统？",_vbQuestion+vbYesNo+vbDefaultButton2,"警告！")=vbYesThenEndEndIfEndSubPrivateSubPicture1_Click()EndSubPrivateSubTimer1_Timer()Command4.

2、Caption=Time$()EndSubPrivateSubForm_Load()Timer1.Interval=1000Timer1.Enabled=TrueEndSubForm2的代码：PrivateSubCommand1_Click()Adodc1.Recordset.MoveFirstAdodc1.Recordset.Find"用户名='"&Text1.Text&"'"IfAdodc1.Recordset.EOF=TrueThenAdodc1.Recordset.MoveFirstIf((Trim(Text1.Text))=(Trim(Text3.Text))

3、)And((Trim(Text2.Text))=(Trim(Text4.Text)))ThenAdodc1.Enabled=FalseForm4.Text3.Text=Text1.TextUnloadMeForm8.ShowElseMsgBox"非法的账号!",vbOKOnly+vbExclamation,"请重新输入！"Text1.Text=""Text2.Text=""Text1.SetFocusEndIfEndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""EndSubPrivateSubCommand

4、3_Click()UnloadMeForm1.ShowEndSubPrivateSubForm_Load()Text2.Text=""Text1.Text=""Text2.PasswordChar="*"EndSubPrivateSubPicture1_Click()EndSubForm3的代码：PrivateSubCommand1_Click()Adodc1.Recordset.MoveFirstAdodc1.Recordset.Find"用户名='"&Text1.Text&"'"IfAdodc1.Recordset.EOF=TrueThenAdodc1.Record

5、set.MoveFirstIf((Trim(Text1.Text))=(Trim(Text3.Text)))And((Trim(Text2.Text))=(Trim(Text4.Text)))ThenAdodc1.Enabled=FalseForm4.Text1.Text=Text1.TextForm4.Text2.Text=Text4.TextUnloadMeForm5.ShowElseMsgBox"非法的账号!",vbOKOnly+vbExclamation,"请重新输入！"Text1.Text=""Text2.Text=""Text1.SetFocusEndIfE

6、ndSubPrivateSubCommand2_Click()Option1.Value=FalseOption2.Value=FalseText1.Text=""Text2.Text=""EndSubPrivateSubCommand3_Click()UnloadMeForm1.ShowEndSubPrivateSubForm_Load()Text2.Text=""Text1.Text=""Text2.PasswordChar="*"EndSub无代码Form5的代码：PrivateSubcjcx_Click(IndexAsInteger)UnloadMeForm7.

7、ShowEndSubPrivateSubCommand1_Click()OnErrorResumeNextIfCommand1.Caption="修改"ThenCommand1.Caption="确认"Adodc2.Recordset.RequeryText5.SetFocusElseCommand1.Caption="修改"Adodc2.Recordset.UpdateMsgBox"修改成功"EndIfEndSubPrivateSubForm_Load()Adodc1.CommandType=adCmdUnknownAdodc1.Rec