学生成绩查询系统报告Word格式.docx

1、逻辑结构的任务是把概念结构设计阶段设计好的基本E-R图转化为宜选用的DBMS所支持的数据模型相符合的逻辑结构，并对其进行优化。E-R图向关系模型转化要解决的问题是如何将实体型和实体间的联系转化为关系模式，如何确定这些关系模式的属性和码。 设计学生成绩管理数据库，包括学生信息，学生成绩信息，课程信息三个关系, 其关系模式中对每个实体定义的属性如下：课程信息表：（课程编号，课程名称，任课教师，学分） 其中，课程编号为主码学生信息表：（ 学号，姓名，性别，年龄，专业，年级） 其中，学号为主码学生成绩信息表：（学号，课程编号，课程名称，分数，修课类别） 其中，学号、课程编号为主码四、物理设计阶段 数据

2、库物理设计的任务是为上一阶段得到的数据库逻辑模式，即数据库的逻辑结构选择合适的应用环境的物理结构，既确定有效地实现逻辑结构模式的数据库存储模式，确定在物理设备上所采用的存储结构和存取方法，然后对该存储模式进行性能评价、修改设计，经过多次反复，最后得到一个性能较好的存储模式。数据库物理设计内容包括记录存储结构的设计，存储路径的设计。五、功能模块设计Private Sub Command1_Click（）If user = a And passwd = ThenForm1.ShowElseMsgBox （用户名或密码错误，请重新输入）End IfEnd SubPrivate Sub Command

3、2_Click（）EndPrivate Sub cmdreturn_Click（）Unload MePrivate Sub dtgCond_Click（）With dtgcond.Columns（0）.Caption = 学号.Columns（1）.Caption = 姓名.Columns（2）.Caption = 性别.Columns（3）.Caption = 系别.Columns（4）.Caption = 年级.Columns（5）.Caption = 年龄.Columns（0）.Width = 1000.Columns（1）.Width = 2000.Columns（2）.Width =

4、 800.Columns（3）.Width = 800.Columns（4）.Width = 800.Columns（5）.Width = 800End WithPrivate Sub Form_Load（）Adodc1.CommandType = adCmdTextAdodc1.RecordSource = select * from 学生信息 where sno= & Form2.Text1.Text & Private Sub Toolbar1_ButtonClick（ByVal Button As MSComctlLib.Button）Select Case Button.KeyCas

5、e Is = 查询Form2.Show添加Form3.Text1.Text = Form3.Text2.Text = Form3.Text3.Text = Form3.Text4.Text = Form3.Text5.Text = Form3.Text6.Text = Form3.Command1.Visible = TrueForm3.Command2.Visible = TrueForm3.Show修改Form3.Command6.Visible = True删除Form3.Command3.Visible = TrueForm3.Command1.Visible = FalseForm3

6、.Command6.Visible = FalseEnd SelectForm6.ShowForm4.ShowPrivate Sub Command3_Click（）Form5.ShowPrivate Sub Command4_Click（）Adodc1.Recordset.AddNewAdodc1.Recordset.Fields（sno） = Trim（Text1.Text）sname） = Trim（Text2.Text）ssex） = Trim（Text3.Text）class） = Trim（Text5.Text）sage） = Trim（Text6.Text）professiona

7、l） = Trim（Text4.Text）使和按钮为不可用状态Command1.Enabled = FalseCommand3.Enabled = False更改取消按钮为可用状态Command2.Enabled = TrueCommand4.Enabled = TrueAdodc1.RefreshDim res As Integerres = MsgBox（确实要删除此行记录吗？, vbExclamation + vbYesNo + vbDefaultButton2）If res = vbYes ThenAdodc1.Recordset.DeleteAdodc1.Recordset.Move

8、Next If Adodc1.Recordset.EOF = True Then Adodc1.Recordset.MoveLast End If使更新生效Adodc1.Recordset.UpdateCommand1.Enabled = TrueCommand3.Enabled = TrueCommand4.Enabled = FalseAdodc1.Recordset.CancelUpdatePrivate Sub Command5_Click（）Private Sub Command6_Click（）Command6.Enabled = FalsePrivate Sub Adodc1_W

9、illMove（ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset）Private Sub initgrid（）With dtgCond课程编号课程名称分数选课类别Dim strsno As StringDim strselect As Stringstrsno = Trim（Form2.Text1.Text）strselect = select 学生信息.sno,cno,cname,grade,xklb from 学生信息

10、 join 学生成绩信息 on 学生信息.sno=学生成绩信息.sno where 学生成绩信息.sno= strsno &AdodcGrid.CommandType = adCmdTextAdodcGrid.RecordSource = strselectAdodcGrid.RefreshSet dtgCond.DataSource = AdodcGridCall initgrid授课教师学分select 学生成绩信息.cno,学生成绩信息.cname,teacher,ccredit from 学生信息 join 学生成绩信息 on 学生信息.sno=学生成绩信息.sno join 课程信息 on 课程信息.cno=学生成绩信息.cno where select 学生信息.sno,学生信息.sname,ssex,professional,class,sage from 学生信息 join 学生成绩信息 学生信息.sno=Set dtgcond.DataSource = AdodcGrid