欢迎来到天天文库
浏览记录
ID:41064492
大小:1.44 MB
页数:21页
时间:2019-08-15
《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
此文档下载收益归作者所有