vb课程设计档案管理系统代码文档格式.docx
《vb课程设计档案管理系统代码文档格式.docx》由会员分享，可在线阅读，更多相关《vb课程设计档案管理系统代码文档格式.docx（18页珍藏版）》请在冰豆网上搜索。
'
+"
AND密码='
str2&
'
Data1.RecordSource=STRSQL
Data1.Refresh
IfData1.Recordset.EOFThen
MsgBox"
用户名或密码错！
16,提示"
Else
Form8.Show
Form1.Hide
EndIf
EndSub
PrivateSubCommand2_Click（）
End
PrivateSubCommand3_Click（）
Form6.Show
PrivateSubTimer1_Timer（）
Label1.Caption=Time
二、欢迎界面
当用户名和密码验证成功后即可进入欢迎界面如图2-1
图2-1
在欢迎界面的设计时用了一个时钟控件，让欢迎界面出现3秒后自动消失进入系统主界面，欢迎界面的代码设计如下：
IfTimer1.Enabled=TrueThen
Form8.Hide
Form2.Show
Timer1.Enabled=False
EndIf
三、系统主界面
系统主界面可以进行简单的信息浏览（如图3-1），在主界面设置了一些命令按扭，其中“修改”、“删除”、“打印”可以在主界面直接进行，而“查询”和“添加”需要打开另一个窗体操作。
代码设计如下：
PrivateSubCommand6_Click（）
Data1.Recordset.MoveFirst
PrivateSubCommand7_Click（）
Data1.Recordset.MovePrevious
IfData1.Recordset.BOFThenData1.Recordset.MoveFirst
PrivateSubCommand8_Click（）
Data1.Recordset.MoveNext
IfData1.Recordset.EOFThenData1.Recordset.MoveLast
PrivateSubCommand9_Click（）
Data1.Recordset.MoveLast
PrivateSubForm_Load（）
Timer1.Enabled=True
Label11.Left=Me.Width
EndSub
PrivateSubCommand10_Click（）
DataReport1.Show
EndSubPrivateSubCommand3_Click（）
ans=MsgBox（"
确认修改Ä
?
32+1,提示"
）
Ifans=1Then
mbookmark=Data1.Recordset.Bookmark
Data1.Recordset.Edit
PrivateSubCommand4_Click（）
OnErrorResumeNext
Data1.Recordset.Delete
确认删除?
32+1,"
提示"
Label11.Left=Label11.Left-200
IfLabel11.Left<
=-Label11.WidthThen
Form2.BackColor=vbRed
PrivateSubTimer2_Timer（）
Label12.Caption=Time
图3-1
四、查询
查询的效果图如图4-1
图4-1
a="
select*from学生档案where"
n=0
IfCheck1.Value=CheckedThen
a=a+"
姓名='
+DataCombo1+"
Adodc1.RecordSource=a
Adodc1.Refresh
n=1
IfCheck2.Value=CheckedThen
Ifn=1Then
and"
学号='
+DataCombo2+"
IfCheck3.Value=CheckedThen
院系='
+DataCombo3+"
IfCheck4.Value=CheckedThen
专业='
+DataCombo4+"
IfCheck5.Value=CheckedThen
班级='
+DataCombo5+"
IfCheck6.Value=CheckedThen
入学时间='
+DataCombo6+"
五、添加
添加效果图如图5-1
图5-1
IfCommand1.Caption="
Ì
í
¼
Ó
Then
Command1.Caption="
È
·
Ï
Data1.Recordset.AddNew
Data1.Refresh
Text1（0）.SetFocus
á
Ê
¾
Fori=0To13
Text1（i）="
Nexti
UnloadForm4
六、修改、删除、打印
这部分的效果图如图6-1、图6-2
图6-1
图6-2
确认修改?
七、统计
必须添加一个MSFlexGrid控件与Data控件连接，用来保存统计的结果，统计的效果图如图7-1
图7-1
PrivateSubCommand2_Click（IndexAsInteger）
Data1.RecordSource="
select院系,count（*）as人数from学生档案¸
groupby院系"
select专业,count（*）as人数from学生档案¸
groupby专业"
select入学时间,count（*）as人数from学生档案¸
groupby入学时间"
PrivateSubCommand5_Click（）
select籍贯,count（*）as人数from学生档案¸
groupby籍贯"
select民族,count（*）as人数from学生档案¸
groupby民族"
select政治面貌,count（*）as人数from学生档案¸
groupby政治面貌"
UnloadForm9
八、帐户管理
（一）帐号注
升级会员 