vb课设学生档案管理系统代码

《vb课设学生档案管理系统代码》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、一、登陆界面运行本系统需要进行用户名和密码验证，没有用户名的可以在登陆界面注册，详细注册方法在下文有介绍。登陆界面效果图如图1-1：图1-1登陆界面设计的代码如下：PrivateSubCommand1_Click()str1=Text1.Textstr2=Text2.TextSTRSQL="SELECT*FROM密码表WHERE用户名='"&str1&"'"+"AND密码='"&str2&"'"Data1.RecordSource=STRSQLData1.RefreshIfData1.Recordset.EOFThenMsgBox"用户名或密码错！",16,提示"ElseF

2、orm8.ShowForm1.HideEndIfEndSubPrivateSubCommand2_Click()EndEndSubPrivateSubCommand3_Click()Form6.ShowEndSubPrivateSubTimer1_Timer()Label1.Caption=TimeEndSub12一、欢迎界面当用户名和密码验证成功后即可进入欢迎界面如图2-1图2-1在欢迎界面的设计时用了一个时钟控件，让欢迎界面出现3秒后自动消失进入系统主界面，欢迎界面的代码设计如下：PrivateSubTimer1_Timer()IfTimer1.Enabled=True

3、ThenForm8.HideForm2.ShowTimer1.Enabled=FalseEndIfEndSub二、系统主界面系统主界面可以进行简单的信息浏览（如图3-1），在主界面设置了一些命令按扭，其中“修改”、“删除”、“打印”可以在主界面直接进行，而“查询”和“添加”需要打开另一个窗体操作。代码设计如下：PrivateSubCommand6_Click()Data1.Recordset.MoveFirstEndSubPrivateSubCommand7_Click()Data1.Recordset.MovePreviousIfData1.Recordset.BOFTh

4、enData1.Recordset.MoveFirstEndSubPrivateSubCommand8_Click()Data1.Recordset.MoveNextIfData1.Recordset.EOFThenData1.Recordset.MoveLastEndSubPrivateSubCommand9_Click()Data1.Recordset.MoveLastEndSubPrivateSubForm_Load()Timer1.Enabled=TrueLabel11.Left=Me.WidthEndSub12PrivateSubCommand10_Click()

5、DataReport1.ShowEndSubPrivateSubCommand3_Click()ans=MsgBox("确认修改Ä?",32+1,提示")Ifans=1Thenmbookmark=Data1.Recordset.BookmarkData1.Recordset.EditEndIfEndSubPrivateSubCommand4_Click()OnErrorResumeNextData1.Recordset.DeleteData1.Recordset.MoveNextIfData1.Recordset.EOFThenData1.Recordset.MoveLas

6、tMsgBox"确认删除?",32+1,"提示"EndSubPrivateSubTimer1_Timer()Label11.Left=Label11.Left-200IfLabel11.Left<=-Label11.WidthThenForm2.BackColor=vbRedEndIfEndSubPrivateSubTimer2_Timer()Label12.Caption=TimeEndSub图3-112一、查询查询的效果图如图4-1图4-1代码设计如下：PrivateSubCommand1_Click()a="select*from学生档案where"n=0IfChec

7、k1.Value=CheckedThena=a+"姓名='"+DataCombo1+"'"Adodc1.RecordSource=aAdodc1.Refreshn=1EndIfIfCheck2.Value=CheckedThenIfn=1Thena=a+"and"EndIfa=a+"学号='"+DataCombo2+"'"Adodc1.RecordSource=aAdodc1.Refreshn=1EndIfIfCheck3.Value=CheckedThenIfn=1Thena=a+"and"EndIfa=a+"院