存在各自独立的存储空间中,这些空间称作表;可以使用联机窗体来查看、添加及更新表中的数据;使用查询来查找并检索所要的数据;也可以使用报表以特定的版面布置来分析及打印数据。
如果要保存数据,请为每一种类型的信息创建一个表。如果要从查询、窗体或报表中的多个表中将数据合并在一起,就要定义各个表之间的关系。
如果要搜索并检索符合指定条件的数据,包括来自多个表中的数据,就要创建查询。查询的同时也可以更新或删除多条记录,并对数据执行内嵌或自定义的计算。
如果要简单地直接在某个表中查看、输入及更改数据,请创建一个窗体。在打开一个窗体时,MicrosoftAccess将从一个或多个表中检索数据,并使用用户在"窗体向导"选择的版面布局或所创建的版面布局,将窗体显示在屏幕上。
如果要分析数据或将数据以特定的方式打印出来,请创建一个报表。例如,可以打印一份将数据分组并计算数据总和的报表,也可以打印另一份带有各种数据格式的打印邮件标签的报表。
第三章系统的设计
3.1系统的功能结构设计
3.1系统的功能结构设计
1.班费收入/支出表
3.2系统的数据库设计
1.
2.学生信息表:
3.用户密码表:
4.课程信息表:
3.3界面设计与代码设计
1.收入界面
代码分析:
PrivateSubcmd_boot_Click()
GoToero
Data1.Recordset.MoveLast
cmd_n.Enabled=False
cmd_f.Enabled=True
ero:
EndSub
PrivateSubCmd_f_Click()
IfData1.Recordset.BOF<>TrueThen
cmd_n.Enabled=True
GoToero
Data1.Recordset.MovePrevious
ero:
Else
cmd_f.Enabled=False
cmd_n.Enabled=True
Data1.Recordset.MoveFirst
EndIf
EndSub
PrivateSubCmd_n_Click()
IfData1.Recordset.EOF<>TrueThen
cmd_f.Enabled=True
GoToero
Data1.Recordset.MoveNext
Else
cmd_n.Enabled=False
cmd_f.Enabled=True
GoToero
Data1.Recordset.MoveLast
EndIf
ero:
EndSub
PrivateSubCmd_top_Click()
GoToero
Data1.Recordset.MoveFirst
cmd_f.Enabled=False
cmd_n.Enabled=True
ero:
EndSub
PrivateSubCommand1_Click()
Command4.Enabled=True
GoToero1
Data1.Recordset.AddNew
ero1:
'MsgBox"不能添加数据",,"提示"
EndSub
PrivateSubCommand2_Click()
Command4.Enabled=True
GoToero2
Data1.Recordset.Delete
ero2:
EndSub
PrivateSubCommand3_Click()
Command4.Enabled=True
GoToero3
Data1.Recordset.Edit
ero3:
'MsgBox"不能编辑数据",,"提示"
EndSub
PrivateSubCommand4_Click()
GoToero
Data1.Refresh
ero:
EndSub
PrivateSubbfgly_Click()
Ifisadtr=TrueThen
Ifmu_gly=FalseThen
MSFlexGrid1.Visible=False
Command1.Visible=True
Command2.Visible=True
Command3.Visible=True
Command4.Visible=True
cmd_n.Visible=True
cmd_f.Visible=True
cmd_first.Visible=True
cmd_last.Visible=True
mu_gly=(Notmu_gly)
bfgly.Caption="收入"
Else
MSFlexGrid1.Visible=True
Command1.Visible=False
Command2.Visible=False
Command3.Visible=False
Command4.Visible=False
cmd_n.Visible=False
cmd_f.Visible=False
cmd_first.Visible=False
cmd_last.Visible=False
mu_gly=(Notmu_gly)
bfgly.Caption="班费管理员"
EndIf
Else
MsgBox"你不是管理员,你没有这个权限",,"提示"
EndIf
EndSub
PrivateSubForm_Load()
Data1.RecordSource="select*frombfglwheremoney>0"
EndSub
2.余额查询界面
代码分析:
PrivateSubForm_Load()
Data1.RecordSource="selectsum(money)as余额frombfgl"
EndSub
3.班级成绩管理
班级成绩管理代码:
PrivateSubCommand2_Click()
EndSub
PrivateSubCommand1_Click()
EndSub
PrivateSubCmd_ls_Click()
MSFlexGrid1.DataSource=Data1
MSFlexGrid1.Refresh
EndSub
PrivateSubcyy_avg_Click()
ResumeNext
'Data1.Recordset.AddNew
Data1.RecordSource="selectint(20*avg(ps))/20as平时,int(20*avg(qz))/20as期中,int(20*avg(qm))/20as期未fromcyy"
Data1.Recordset.Update
Data1.Refresh
MSFlexGrid1.Refresh
EndSub
PrivateSubcyy_Click()
GoToero
Data1.RecordSource=cyy
Data1.Refresh
ero:
jgl_cyy.Visible=False
jgl_english.Visible=False
jgl_jk.Visible=False
jgl_mz.Visible=False
jgl_photoshop.Visible=False
cyy_avg.Visible=False
english_avg.Visible=False
jk_avg.Visible=False
mz_avg.Visible=False
photoshop_avg.Visible=False
jgl_cyy.Visible=True
cyy_avg.Visible=True
Label1.Caption=cyy.Caption
EndSub
PrivateSubenglish_Click()
'CallCmd_ls_Click
GoToero
Data1.RecordSource=english
Data1.Refresh
ero:
jgl_cyy.Visible=False
jgl_english.Visible=False
jgl_jk.Visible=False
jgl_mz.Visible=False
jgl_photoshop.Visible=False
cyy_avg.Visible=False
english_avg.Visible=False
jk_avg.Visible=False
mz_avg.Visible=False
photoshop_avg.Visible=False
english_avg.Visible=True
jgl_english.Visible=True
Label1.Caption=english.Caption
EndSub
PrivateSubjgl_cyy_Click()
'GoToero
Data1.RecordSource="selectcount(qm)as期末人数fromcyywhereqm>=60"
Data1.Refresh
MSFlexGrid1.Refresh
'ero:
EndSub
PrivateSubjgl_english_Click()
'GoToero
Data1.RecordSource="selectcount(qm)as期末人数fromenglishwhereqm>=60"
Data1.Refresh
MSFlexGrid1.Refresh
'ero:
EndSub
PrivateSubjgl_jk_Click()
Data1.RecordSource="selectcount(qm)as期末人数fromjkwhereqm>=60"
Data1.Refresh
MSFlexGrid1.Refresh
EndSub
PrivateSubjgl_mz_Click()
Data1.RecordSource="selectcount(qm)as期末人数frommzwhereqm>=60"
Data1.Refresh
MSFlexGrid1.Refresh
EndSub
PrivateSubjgl_photoshop_Click()
Data1.RecordSource="selectcount(qm)as期末人数fromphotoshopwhereqm>=60"
Data1.Refresh
MSFlexGrid1.Refresh
EndSub
PrivateSubjk_avg_Click()
ResumeNext
'Data1.Recordset.AddNew
Data1.RecordSource="selectint(20*avg(ps))/20as平时,int(20*avg(qz))/20as期中,int(20*avg(qm))/20as期未fromjk"
Data1.Recordset.Update
Data1.Refresh
MSFlexGrid1.Refresh
EndSub
PrivateSubjk_Click()
GoToero
Data1.RecordSource=jk
Data1.Refresh
ero:
jgl_cyy.Visible=False
jgl_english.Visible=False
jgl_jk.Visible=False
jgl_mz.Visible=False
jgl_photoshop.Visible=False
cyy_avg.Visible=False
english_avg.Visible=False
jk_avg.Visible=False
mz_avg.Visible=False
photoshop_avg.Visible=False
jgl_jk.Visible=True
jk_avg.Visible=True
Label1.Caption=jk.Caption
EndSub
PrivateSubmz_avg_Click()
ResumeNext
'Data1.Recordset.AddNew
Data1.RecordSource="selectint(20*avg(ps))
上一篇:
VB班主任管理系统(论文和程序)
下一篇:
临床前药物安全性评价中毒性病理学新技术的应用