logo资料库

数据库课程设计：基于VB的学生成绩管理系统.doc

发布时间：2022-05-30 发布人：admin 分类：说明书 资料大小：0.43M 资料格式：doc 举报 版权申诉
第1页 / 共13页
第2页 / 共13页
第3页 / 共13页
第4页 / 共13页
第5页 / 共13页
第6页 / 共13页
第7页 / 共13页
第8页 / 共13页
资料共13页，剩余部分请下载后查看
    数据库应用课程实验报告 实验项目序号：实验六 名称：VB6.0/SQL Server 学生成绩管理系统 任课教师：王纯德 年级、专业、班级：08 级软件工程 姓 名： 黎 芳 完成日期：2010-12-10 成 绩：____________________ 一、实验目的： 通过对学生成绩管理系统设计，加强学生对所学知识的理解与应用。 二、实验内容： 利用 VB6.0/SQL Server 2000 设计一个学生成绩管理系统，该系统能够实现对学生信息、课 程信息、成绩信息的管理和成绩的查询功能。 三、实验过程： 1、管理系统首页设计 1.1 菜单设计： 启动 VB6.0，新建一个工程，默认名为“工程 1”，该工程会自动创建一个窗体，默认名为“Form1”。 1.2 添加代码 在该窗口中，水平主菜单有 3 个“菜单”：“基本信息管理”“成绩查询”“退出”其中“基本 信息管理”菜单的下拉菜单中又有“学生信息管理”、“课程信息管理”、“成绩信息管理”3 个子菜 单。各菜单项的功能和代码如下：
    （1）主菜单“”包括 3 个子菜单课程 a.“学生信息管理”子菜单，为它添加 Click 事件，并添加如下代码： Private Sub stuInfoManage_Click() FrmstuInfoManage.Show End sub b. “课程信息管理”子菜单，为它添加 Click 事件，并添加如下代码： Private Sub kcInfoManage_Click() FrmkcInfoManage.Show End Sub c.“成绩信息管理”子菜单，为它添加 Click 事件，并添加如下代码： Private Sub scoreInfoManage_Click() FrmscoreInfoManage.Show End sub （2)主菜单“成绩查询”用于打开“成绩查询”窗口，为它添加事件，并添加如下代码： Private Sub scoreQuery_Click() FrmscoreQuery.Show End sub （3)主菜单“退出”用于打开关闭主窗口，为它添加 onclick 事件，并添加如下代码： Private Sub exit_Click() End End sub 2、学生信息管理设计 2.1 设计“学生信息管理”主窗体，布局如图所示：命名为 FrmstuInfoManage
    2.2 使用 ADO 控件访问 SOL Server 数据库，具体步骤如下： 1）使用“工程”菜单下的“部件”选项，在弹出的对话框中选择“Microsoft ADO Data Contral (OLEDB)”选项和“Microsotf Data Grid Controa6.0 (OLEDB)”选项，然后单击[确定] 2）在” FrmstuInfoManage”窗体上放置一个 Adodc1 控件、一个 DataGrid 控件、5 个 CommandButton 控件、7TextBox 个控件，设计的窗体如图所示主要控件对象的属性如表所示 控件名 Adodc1 属性 Connectionstring DataGrid1 Text1(0) Text1(1) RecordSource Visible DataSource (名称) DataSource DataField text (名称) DataSource DataField text 设置 Provider=SQLOLEDB.1; Persist Security Info=False; User ID=sa； Initial Catalog=xscj； Data Source=PC-201006101228 XS False Adodc1 Text1 Adodc1 学号 (清空) Text1 Adodc1 姓名 (清空)
    Text1(2) Text1(3) Text1(4) Text1(5) Text1(6) CommandButton1 CommandButton2 CommandButton3 CommandButton4 CommandButton5 (名称) DataSource DataField text (名称) DataSource DataField text (名称) DataSource DataField text (名称) DataSource DataField text (名称) DataSource DataField text (名称) Caption (名称) Caption (名称) Caption (名称) Caption (名称) Caption Text1 Adodc1 性别 (清空) Text1 Adodc1 出生时间 (清空) Text1 Adodc1 院系 (清空) Text1 Adodc1 班级 (清空) Text1 Adodc1 备注 (清空) Cmdadd 添加 Cmdmodify 修改 Cmddelete 删除 Cmdsave 保存 Cmdexit 退出 （3）设置 Adodc1 的 Connectionstring 属性：单击属性窗口中 Connectionstring 属性框右边的省略 号按钮，则出现下列窗口：
    单击“生成”按钮： 选择“Microsoft OLE DB Provider for SQL”，单击“下一步”按钮进入“连接”选项卡：
    填入所需信息： 单击“所有”：
    选择“User ID”： （4）设置 RecordSource 的属性：单击 Adodc1 属性窗口中 RecordSource 属性框右边的省略号按 钮，将弹出如图（28）所示的“记录源”对话框，在“命令类型”列表框中选择”2-adCmdTable” （表达式），在“表或存储过程名称” 列表框中，单击“生成”按钮： 2.3 使用程序代码来实现按钮的功能，具体步骤如下源程序： （1）添加： Private Sub Cmdadd_Click() Adodc1.Recordset.AddNew For i = 0 To 6 Text1(i).Enabled = True Text1(i).Text = "" Next i Text1(0).SetFocus Cmdadd.Enabled = False Cmddelete.Enabled = False Cmdmodify.Enabled = True Cmdsave.Enabled = True End Sub （2）修改： Private Sub Cmdmodify_Click() If Adodc1.Recordset.RecordCount <> 0 Then Text1(0).Enabled = False For i = 0 To 6 Text1(i).Enabled = True Next i
    Cmdsave.Enabled = True Cmdadd.Enabled = False Cmdmodify.Enabled = False Cmddelete.Enabled = False Else MsgBox ("没有要修改的数据!") End If End Sub （3）删除： Private Sub Cmddelete_Click() Dim myval As String myval = MsgBox("是否要删除该记录?", vbYesNo) If myval = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF = True Then Adodc1.Recordset.MoveLast For i = 0 To 6 Text1(i).Enabled = False Next i End If End Sub （4）保存： Private Sub Cmdsave_Click() If Text1(0).Text = "" Then MsgBox "学号不允许为空!" Exit Sub End If If Text1(1).Text = "" Then MsgBox "姓名不允许为空!" Exit Sub End If If Text1(2).Text = "" Then MsgBox "出生日期不允许为空!" Exit Sub End If Adodc1.Recordset.Update For i = 0 To 6 Text1(i).Enabled = False Next i Cmdsave.Enabled = True Cmdadd.Enabled = True Cmdmodify.Enabled = True Cmddelete.Enabled = True End Sub
    分享到：
    赞 收藏

    相关推荐

    资料库

    开发技术

    共收录19306份资料，累计14个分类，关注成员有19位，主要包括：Actionscript,Javascript,PHP,VB,Perl,Delphi,Python,C#,C,Java,C++,Web开发,硬件开发,其它

    热门标签

    Actionscript Javascript PHP VB Perl Delphi Python C# C Java C++ Web开发 硬件开发 其它

    最新资料