vb课程设计档案管理系统代码文档格式.docx
- 文档编号:15787726
- 上传时间:2022-11-16
- 格式:DOCX
- 页数:18
- 大小:1.29MB
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
八、帐户管理
(一)帐号注
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 课程设计 档案管理系统 代码
![提示](https://static.bdocx.com/images/bang_tan.gif)