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

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

ID:11563225

大小:1.62 MB

页数:12页

时间:2018-07-12

vb课设林鸿学生档案管理系统代码_第1页
vb课设林鸿学生档案管理系统代码_第2页
vb课设林鸿学生档案管理系统代码_第3页
vb课设林鸿学生档案管理系统代码_第4页
vb课设林鸿学生档案管理系统代码_第5页
资源描述:

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

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

2、EOFThenMsgBox"用户名或密码错!",16,提示"ElseForm8.ShowForm1.HideEndIfEndSubPrivateSubCommand2_Click()EndEndSubPrivateSubCommand3_Click()Form6.ShowEndSubPrivateSubTimer1_Timer()Label1.Caption=TimeEndSub12一、欢迎界面当用户名和密码验证成功后即可进入欢迎界面如图2-1图2-1在欢迎界面的设计时用了一个时钟控件,让欢迎界面出现3秒

3、后自动消失进入系统主界面,欢迎界面的代码设计如下:PrivateSubTimer1_Timer()IfTimer1.Enabled=TrueThenForm8.HideForm2.ShowTimer1.Enabled=FalseEndIfEndSub二、系统主界面系统主界面可以进行简单的信息浏览(如图3-1),在主界面设置了一些命令按扭,其中“修改”、“删除”、“打印”可以在主界面直接进行,而“查询”和“添加”需要打开另一个窗体操作。代码设计如下:PrivateSubCommand6_Click()Dat

4、a1.Recordset.MoveFirstEndSubPrivateSubCommand7_Click()Data1.Recordset.MovePreviousIfData1.Recordset.BOFThenData1.Recordset.MoveFirstEndSubPrivateSubCommand8_Click()Data1.Recordset.MoveNextIfData1.Recordset.EOFThenData1.Recordset.MoveLastEndSubPrivateSubCo

5、mmand9_Click()Data1.Recordset.MoveLastEndSubPrivateSubForm_Load()Timer1.Enabled=TrueLabel11.Left=Me.WidthEndSub12PrivateSubCommand10_Click()DataReport1.ShowEndSubPrivateSubCommand3_Click()ans=MsgBox("确认修改Ä?",32+1,提示")Ifans=1Thenmbookmark=Data1.Recordset.B

6、ookmarkData1.Recordset.EditEndIfEndSubPrivateSubCommand4_Click()OnErrorResumeNextData1.Recordset.DeleteData1.Recordset.MoveNextIfData1.Recordset.EOFThenData1.Recordset.MoveLastMsgBox"确认删除?",32+1,"提示"EndSubPrivateSubTimer1_Timer()Label11.Left=Label11.Left-

7、200IfLabel11.Left<=-Label11.WidthThenForm2.BackColor=vbRedEndIfEndSubPrivateSubTimer2_Timer()Label12.Caption=TimeEndSub图3-112一、查询查询的效果图如图4-1图4-1代码设计如下:PrivateSubCommand1_Click()a="select*from学生档案where"n=0IfCheck1.Value=CheckedThena=a+"姓名='"+DataCombo1+"'"

8、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+"院

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。