祥细设计实例-学籍管理系统数据库课程设计报告

前言学生信息管理系是一教育单位可缺少的部,于至,信能快传统人工的方式管理文件案，这种管理方式存在着许多缺点,:率低、保密性,外时间一,产的文件数,对于查找、难。,计,为,作。,使进,有手:、查、可、储成生,的理,要条。息信。统信能

。第页31页

1

目录„„„„„„„„„„„„„„41.1求析

„„„1.2统路

„„„„4择

„„„„4现

„„5(DBA)

„„„„62

72.1统能

„„„

72.2据立

„

„„3„

113.1控MDI计

„„„

„„„„11能

„„„„„„面

„

„„性

„„„„12计

„

„3.2frmLogin.frm„„„„„12能

„„面

„

12计

„

„3.3加境

„„„„„„„„

„3.4加.frm计

„

„能

„„面

„„14性

„„计

„

„3.5除.frm计

„

„能

„„面

„性

„计

„„18第页31页

3.6.frm计„能„„18面性计

„„„„3.7.frm计„能„„19面

„改DataGrid1性„计„

„3.8询.frm计„能„„21面性计3.9程序调试与异常处理

„„„„„23232425第页31页

第1

系统开发的思路需求分析，见发要，占地，是，高，积国，快。学，间便如息影些的来来，优便寿能使展业的。用计算机制作的学生信息化管理系统还可通过功强大的家的，校地进！1.2系统开发思路1.2.1编程环境的选择司Visual6.0

是应前象VisualBasic

量计员计运本统VB一的。的Visual对，个有为（可建。使扩。VisualBasic

，结窗第页31页

对编许。VisualBasic

的Windows工，从个大式在Visual的所VisualBasic为：人改统。，，用的Windows序。对Microsoft业式。过ActiveX

序如MicrosoftWord

Excel

他用

。过Internet文。，供发）1.2.2关系型数据库的实现数以优自了使许出。Access提存把其库之桌的。

：文于管，个件上。

持

加空第页31页

。这题，、查。于DOS。。解可松程。，他数件。1.2.3二者的结合（）的JET据过行VisualBasic及共用提供。第页31页

第章

系统总体规划2.1系统功能增能。删业。修可。浏理。根应用程序的界面如下图所示：第页31页

:开始登录密码框N判断输入密码是否正确Y学生信息管理系统查询模块输入查询条件输出查询结果退出第页31页

2.2数据库建立生信息

字段文本8文本文本数字文本文本数字数字数字数字VB60所提数第页31页

VB集成启动数据“VisDataMicrosoftAccess”子7.0MDBXS）c.AccessXS，第章系具体实现3.1主控模块——MDI窗体的设计3.1.1

人面。建择“”工，进体。首，在“”菜选除Form1.frm中择添加MDI窗体MDIForm1.frm。（Name。在“”菜单，选择“将存为存aa.frm在窗体中增加两个用作容器的图片框Picture1

和。Picture1

中增加一标签，在Picture2

中增加一个按钮控件数组

。第10页共页

设：Caption理统改属：Align1-AlignTopBorderStyle

改属1-AlignTopBorderStyle

1-Fixed改：Caption理统的。组Command1(0)~command1(5)

：Caption、出代第11页共页

<见附>登录对框——frmLogin.frm的计首——口。登可码性。建在”择窗”，建：称码

型型

度6代在工程添加“数据环境”第12页共页

步：1.在”菜，选择“加

环境设计器，同时也为工添加了一个数据环境DataEnvironment1象。

。中2.“择打开性”对。在“”选，选择“MicrosoftOLEDB

在“”选需字（xs其。测功，回环。3.“Connection1加象Command1打开Command1库拉在“象”下表择“信单击定”按，返回”。增加模——增加.frm的计增加该。建窗，保.frm框Picture1中ADO件Adodc1组Command1(2)

增加一个标签组Lable1(0)~Lable1(9)框数组Text1(9)

。第13页共页

字段文本8文本文本数字文本文本数字数字数字数字第14页共页

设置件开ADODC使”进入“属”对，在“”选，择“Microsoft3.51OLEDB

单击”按，打单的„据其。，在“页”对开”选，在择2-在”下择“学对。属性：(Name)加Caption加MaxButtonMinButton

：True改Pictrue1：Align2-AlignBottomBorderStyle

组Command1(2)Caption定消

：组Lable1(0)~Lable1(9)

：Caption、语组Text1(9)

：Datasource

Adodc1DataField数语代删除模——删除.frm的计删终息。第15页共页

建窗，保.frm框Picture1中ADO件Adodc1组Command1(1)

增加一个标签组Lable1(0)~Lable1(9)框数组Text1(9)。字段文本8文本文本数字文本文本数字数字数字第16页共页

与“”，只组Command1(0)~Command1(1)。代

的Caption：删修改模——修改.frm的计修是误息的理。建窗，保.frm框Picture1中ADO件Adodc1组Command1(2)

增加一个标签组Lable1(0)~Lable1(9)框数组Text1(9)。第17页共页

字段文本8文本文本数字文本文本数字数字数字数字第18页共页

设与“”，只组Command1(0)~Command1(2)查。代

的Caption：确3.7.1

3.7浏览模块——浏览的设计面。建窗，保.frm件。字段文本8文本文本第19页共页

修DataGrid1DataSourceDataEnvironment1DataMember鼠击DataGrid1选字用格。代3.8查询模块——查询.frm的设计查出件学。建窗，保.frm在窗体的下部一个容器的图片框Picture1，其中ADO控件Adodc1令组Command1(0)~Command1(1)窗体中增加一标组Lable1(9)个文本框控件数组Text1(0)~Text1(9)

。第20页共页

）字段文本8文本文本数字文本文本数字数字数字第21页共页

设

与”，只组Command1(0)~Command1(1)。代

的Caption：按3.9编程样并修改程序的过程称为调试发用用。把法错学中文逐计。结束语设基信毕有面方。致谢师认第22页共页

，严精。中，我，使高，有，感。不。[1]VisualBasic6.0[2]《VisualBasic6.0

参考文献》》[3]VB6典》[4]VisualBasic6.0[5]VisualBasic6.0

》》第23页共页

[6]VB和》[7]Access2000

》附录主窗口代码：PrivateAsIfForms.Count>1Unload-1)EndIfSelectIndex增加.Show第24页共页

删除.Show修改.Show查询.Show浏览.ShowUnloadMeEndEndPrivateMDIForm_Load()frmLogin.ShowDataEnvironment1.Recordsets(1).OpenEndPrivateAsUnloadModea=MsgBox("退出吗vbOKCancelIfaMeElse=1EndPrivateCommand1_Click()IfText1.Text="000000"LoginSucceed=TureUnloadMe"密码错误请重试!""{Home}+{End}"EndIfEnd第25页共页

PrivateCommand2_Click()LoginSucceeded=UnloadMeEndEnd查询窗口代码：PrivateAdodc1_MoveComplete(ByValadReasonADODB.EventReasonEnum,ByValpErrorADODB.Error,ADODB.EventStatusEnum,ByValpRecordsetADODB.Recordset)Adodc1.Caption="record:"&EndPrivateCommand1_Click()WithAdodc1.Recordset.MoveFirstEndWith

InputBox("

查找姓名为:,"*")WithAdodc1.Recordset.MoveFirstEndWithIf"*"ThenAdodc1.Recordset.Find"

姓名like'"&&"*'"EndIfExitSubError:Err.DescriptionEndPrivateCommand2_Click()WithAdodc1.Recordset.MoveFirst第26页共页

EndWithxh=InputBox("Ifxh<>"*"Then

查找学号为:,"*")Adodc1.Recordset.Find"

学号like'"&xh&"*'"EndIfExitSubError:Err.DescriptionEndPrivateLeft=00=Me.Width=aa.ScaleWidthEndPrivateAsInteger)=activeconnection0=DataEnvironment1.Recordsets(1).ActiveConnectionDataEnvironment1.Recordsets(1).CloseDataEnvironment1.Recordsets(1).Open3,3End浏览窗口代码:PrivateLeft=00=Me.Width=aa.ScaleWidthWithDataGrid1.Left=0第27页共页

.Top0Me.ScaleHeightEndWith=activeconnection0=DataEnvironment1.Recordsets(1).ActiveConnectionDataEnvironment1.Recordsets(1).CloseDataEnvironment1.Recordsets(1).Open3,3End增加窗口代码:PrivateAdodc1_MoveComplete(ByValadReasonADODB.EventReasonEnum,ByValpErrorADODB.Error,adStatusADODB.EventStatusEnum,ByValpRecordsetADODB.Recordset)Adodc1.Caption="record:"&EndPrivateAsSelectIndexAdodc1.Recordset.AddNewadAffectAllWithAdodc1.Recordset.MoveFirstEndWithAdodc1.RefreshEndEndPrivateLeft=00第28页共页

=Me.Width=aa.ScaleWidthEndPrivateAs=activeconnection0=DataEnvironment1.Recordsets(1).ActiveConnectionDataEnvironment1.Recordsets(1).CloseDataEnvironment1.Recordsets(1).Open3,3End删除窗口代码:PrivateAdodc1_MoveComplete(ByValadReasonADODB.EventReasonEnum,ByValpErrorADODB.Error,ADODB.EventStatusEnum,ByValpRecordsetADODB.Recordset)Adodc1.Caption="