免费-SQL与VB学生信息管理系统1209

: 专业日期 年月日,,.⒉基所在班级已程绩⒊⒋班级输入输入班级置年级.⒎程置VisualBasiAccess2000据库完该四组环一据把何一块所产据变及时地反映给它相据共享。流程为接受根据性判并交相应再把存入据库中相应择己相程最后打印.采够使内所简益由采一据使相资料够地所据资料及它,使运.料由六,组名为据库图一中档案(图一）一张表,所有信息都是根据这张学生档案进行有关的操作，主要的字段有：学号、姓名、年学时间、备注。其中日期的数据类型为日期/时间天型，其它的数据类型为文本型；成绩表老师、课时、上课地点、课程性质、考试性质;(图一）VB的连接:ADO面，数据图，DSN”签，点击“添加”按钮，在弹出的“创建新数据”对话tsv＊bCAccess安装对话框中在数据”按钮,在弹出的数据库这一对话框架中,在驱动器下拉列表框中本系统数据库所在驱动器，在目录中库所在的文件夹，在文件类型中“Access数据库（＊.VBADODC链接数据库,DataGrid将库中的数据在界面中显示DataGrid.Adodc性对话框中，在“属性”这一UseODBCDataSourceName",并在下拉文本框中已经配置好的数据RecordSout*fromDataGrid控件,在属性框中DatasoureAdodc。DataGrid件的外观:中该,“检索“编辑.系统功能(查询模块)查询信息的情况；判断信息是否符合要求；将符合条件的信息进行打印;流程图学生注册学生注册课程基本信息基信本息班级设置班级管理班级课程设置学籍信息管理成绩信息输入班级课程管成绩信息管理5、成绩、教师、图书、后备中，以提高多种同时读取为三:一、该为中包含以下各表：1、表记录基,是进行其它各处2期中、期末总评各科成绩。3期中、期末总评总分名次。成绩表添加记录。三、后备:过程中动态建立。1、表结构:21编号字段名称字段型字段宽度1号CHAR152姓名CHAR103性别CHAR24出日期DATE85电话CHAR106家庭住址CHAR507班级CHAR208原毕校CHAR509是否住宿CHAR410政治面貌CHAR611入总分LONG412专业char202、课程表结构编号字段名称字段型字段宽度1课程名称CHAR152年级CHAR103专业char20编号字段名称编号字段名称字段型字段宽度1CHAR152CHAR153LONG44LONG45LONG46char204、分表结构:表2。4号 字段字段类型字段宽度1CHAR152分LONG43分LONG44次LONG45次LONG46char20五章 详细设计,主要任务有以下几项：基础。2、进行系统的流分析，为模块的细化好准备.3、对每模块进行详细的算法设计。3．1系统界面设计一、登录及系统主窗口界面设计1、登录窗口界面：料，由这六，组成了名为信息库（如图一学生档案是（图一）其它的数据类型为文本型；成绩表中字段为：学号、姓名、年级、专业、学期、考试时间、考试科目、考试地点、课程性质、科目分数、违纪类型、备注;专业、年级、学期、课程名称、教材、任课老课程性质、考试性质；用户资料中的字段包括：用户名、密码、身份。数据库与 VB的连接：本系统的数据链接采用的是 方法，打开面，打开 ODBC数据，系统 N,点"，出的数据"话框中名称为ts，点成CAccess话中数据名中入信息,数据库这个中， “",,,在目录中库所的文件夹,文件类型中s数据库(,数据库名“"VB中，用 ADODC链接数据库，用 DataGrid或 DATA将库中的数据界面中显示出来，本系统采用 DataGrid。界面上右Adodc，出的快捷菜中属性属性话中，“属性这一中， 中“UseODBCDataSourceName"，并在下拉文本中已经配置好的数据名信息,再“e中，文本中入查询语句，如：tm学生档案.同时，将桌面的 件中属性中,将它的 Datasoure设为 DataGrid“检索字段,出的话中确定，这时，表格中出现了表的字段。然后再右，同样,出的快捷菜中编辑，我们就可以所的表格的宽度进行调整。各功能的实现课程管理：课程设置如:界面如二）学生信息管学生信息管系统成课班学绩程级籍信信信信息息息息管管管管理理理理成成成年课课班班学学学绩绩绩级程程级级籍籍籍信信信课信信信信信信信息息息程息息息息息息息查修添设修添修添查修添询改加置改加改加询改加()息输便使()下面为其代码:PrivateSubCommand1_Click（）DimAsNewDimAsNewADODB.Recordsetmeii,i,,D，KeChengXZ,KaoShiXZAs==XueQiDTPicker1。。KeChengXZ=Combo1。TextKaoShiXZ=Combo2。TextIf="”OrTrim(NianJi)="”OrTrim(XueQi)=OrTrim(KeCheng）=Or=OrTrim(RenKLS）=""Or="”OrTrim(ShangKeDD）=OrTrim(KeChengXZ）=""OrTrim(KaoShiXZ)=""ThenMsgBox"请填写要修改资料内容！"Combo1.Text="”Combo2。Text="”ExitSubEndIfnn"Open"select*fromwhere=’&’32DTPicker1名称任时上性质Combo2x?，,"Frm_UpdateGreanAdodc1RefreshSubPrivateSubCommand2_Click（）UnloadMeEndSubPrivateSubCommand3_Click()UnloadMeFrm_FindGreanShow1EndSubPrivateSubDataGrid1_Click（)'Frm_UpdateGrean.Adodc1.RecordSource"select＊ fromwhere='"&Trim(DataGrid1.Row）&t=1EndEndSub’Text2.Text=Frm_UpdateGrean。Adodc1。Recordset.Fields("年级")t=）=Frm_UpdateGrean.Adodc1.Recordset.Fields（”课程名称”)。Frm_UpdateGrean.Adodc1.Recordset.Fields（"教材”)=Adodc1.Recordset。Fields（”任课老师t=。）。Adodc1Recordset.Fields("上课地点。t=t）'Combo2。=Frm_UpdateGreanAdodc1Recordset.Fields("考试性质"）EndSubPrivateSubAsInteger,ShiftAsInteger,AsAsDate）EndSubPrivateSubForm_Activate（）Frm_FindGrean。Adodc1.RecordSource=strTiaoJianFrm_FindGrean。Adodc1。RefreshSetDataGrid1。DataSource=Frm_FindGrean。Adodc1EndSubPrivateSubForm_Load（)1m）Combo1.AddItem（"选修”)Combo1.AddItem自开"）Combo2.AddItem考试”)Combo2AddItem（”查考EndSubPrivateSubveubxdubveubxedub:(:所要找的时间段，就可到所要的设置。代码下：DimsqlstrAsveubdubveubdubveubdubveubdubveubPrivateSubCommand1_Click(）DimaAsStringDimAsDimAsDimAsDimAsIfOption3a=2）SelectCaseaCase"=”KCCX1=""1t""2t””&Trim(Text1）”Case”like"1=1”&1t”&0”EndSelecta=4）SelectCaseaCase”="2=&3t&”"&t"”&2Case”like"2=r1"&3t&)&0”EndSelectIfOption1.Value=TrueThenIfKCCX1=””Thenn=t*me"ElseIfKCCX2="”Thenn=t＊me"KCCX2

Else

n=t＊m课程表e"1d”＆EndIfElseIfOption2IfKCCX1=””ThenstrTiaoJian"selectfromwhere&ElseIfKCCX2Thenn=t*me”Else

ElseEndIf

strTiaoJian=”select*from课程表where”&KCCX1&"or"&KCCX2IfKCCX1=””Thenn=tme”＆ElseIfKCCX2=”"Thenn=tme”＆Elsex，"EndIfEndIfIf（KCCX1＆KCCX2）="”ThenMsgBox"请输入查询类别！"，vbOKOnly，"警告”ExitSubElseUnloadMeFrm_UpdateGrean。Show1EndEndIfOption4.Value=TrueThenIfVal(Combo6)〉Val（Combo9)Thenx,y+n，"Combo6.SetFocusExitSubElse=ThenIfVal(Combo7)>Val(Combo10)ThenMsgBox”请正确选择月份vbOKOnly信息提示”Combo7.SetFocusExitSub息提示"

Else

IfVal（Combo7)=Val（Combo10)ThenIfVal（Combo8)>Val(Combo11)ThenMsgBox"请正确选择日期！"，vbOKOnly+vbExclamation，”信Combo8。SetFocusExitSubEndIfEndIfEndEndIfEndIfIfCombo6.Text=”"OrCombo7.Text="”OrCombo8。Text=""OrCombo9。Text="”OrCombo10。Text=”"OrCombo11.Text="”ThenMsgBox”请输入完的日期"，，警告”SubEndIf1=（6）＆”&)＆—”&（=Trim（Combo9)＆”-”＆Trim（Combo10）&&str1=Format(str1,”yyyy-mm-dd"）2=（,—）Ifsqlstr=""Thenr=&5）&”&,—"）＆”and&&〈=＃"Format（str2”yyyy-mm-dd"）&＃"Elsesqlstr=sqlstr&”and"＆&”>=＃”＆Format（str1，——)＆d”＆m（)＆"〈=＃"＆t（——)＆EndIfIfsqlstr="”ThenxSubEndIfstrTiaoJian"select专，年级，学期，课程名称，教材，任课老师,上课地点，课程性质fromwhere"UnloadMeFrm_UpdateGrean。Show1EndIfIfOption3。And〈MsgBox"请选择查询方式！"，，”警告"SubEndIfEndSubPrivateSubCommand3_Click（)UnloadMeEndSubPrivateSubDimi，jAsFori=ToCombo6.AddItemiCombo9.AddItemiNextiCombo6.ListIndex=0Combo9ListIndex0Fori=1To12Combo7AddItemiCombo10AddItemNextiCombo7ListIndex0Combo10.ListIndex=0Fori=1To31Combo8.AddItemiAddItemNextiCombo8ListIndex0Combo11.ListIndex=0m）1m）mm）Combo1AddItem("'Combo1.AddItem")1m）1m）Combo2AddItemm）3m)3m)3m）m）’Combo3.AddItemm)m）4m5m)Combo1.TextCombo2tCombo4.Text="”Combo5Combo6tdub7.12,(((veubkDimSQLoriginalAsDimSQLaddAsDimSQLorderAsDimstrSqlAsSQLoriginal"SELECT,,,FROM"SQLadd"WHEREAND=”SQLorder=""fue=1ducx1d=d+d"+x1+”EndIffue=1dtux2d=d+d+x2+”EndIffue=1dux3d=d+d"+x3+EndIfIfCheck4.Value=1AndNotIsNull(Text4)Thend=d+d+4+’"EndIfstrSqlSQLoriginalSQLaddIfDat_Main。rsDat_Class.State1ThenDat_Main。rsDat_Class。CloseEndIfDat_Main.rsDat_Class.OpenstrSqlDat_Class。ShowvbModalEndSubPrivateSubCommand2_Click(）UnloadMeEndSubPrivateSubForm_Load（）Text1。Text=""EndSubPrivateSubEndSubPrivateSubEndSub（图五）档案分析统计（如：界面如图五)（图五）ebkDimSQLoriginalAsDimSQLaddAsDimSQLorderAsDimstrSqlAsOnErrorResumel=TM"SQLadd="WHEREAND="SQLorderfe=1dc)d=d+d+1+”EndIfIfCheck2。Value=1AndNotIsNull(Text2）Thend=d+d+2+”EndIffe=1dt)d=d+d+3+”EndIfIfCheck4。Value=1AndIsDate(DTPicker1）Thend=d+"d=#&e＆”EndIfstrSqlSQLoriginalSQLaddSQLordeIfDat_Main。rsDat_Strudent.State1ThenDat_Main.rsDat_Strudent.CloseEndIfDat_Main。rsDat_Strudent。OpenstrSqlDat_StrudentShow="”EndSubPrivateSubCommand2_Click()UnloadMeEndSubveub）1m）'Combo1.AddItemtdubveubxdub)):veubkDimSQLoriginalAsDimSQLaddAsDimSQLorderAsDimstrSqlAsl=TM"SQLadd"WHEREAND="SQLorder=””fue=1dtux)d=d+d=+x1+’"EndIffue=1dtu)d=d+d=+1+EndIffue=1dtux)d=d+d’"+x2+"’EndIffe=1dt3d=d+d=+3+EndIfstrSqlSQLoriginalSQLaddIfDat_MainrsDat_Grean.State1ThenDat_Main.rsDat_Grean.CloseEndIfDat_Main.rsDat_Grean.OpenDat_GreanShowvbModalCombo1EndSubPrivateSubCommand2_Click（)UnloadMeEndSubebCombo1.TextCombo1AddItem（"必修m（)m自开）EndSubPrivateSubEndSub（图七）成绩统计分析（如：界面如图七（图七）代码如下:PrivateSubCommand1_Click()DimSQLoriginalAsDimSQLaddAsDimSQLorderAsDimstrSqlAsOnErrorResumeSQLoriginal="SELECT*FROM”d=ED=”SQLorder=”"f1e=1dcd=d+d+1+”EndIfIfCheck2.Value=1AndNotIsNull(Text2)Thend=d+d’"+2+EndIffe=1dt3d=d+d=+3+’"EndIfIfCheck41d=d+d”EndIfstrSqlSQLoriginalSQLaddSQLordeIfDat_Main.r