Oracle学生信息管理系统Word文档下载推荐.docx

1、 Course_NameVarchar2（50）课程名称 （2）班级信息（class_Form）表Class_No班级编号 Class_Name班级名称 Class_teacher导员名字 Class_Remarks班级主课程（3）课程信息（course_Form）表Course_name Varchar2（50） Course_Rem主课程（4）奖惩信息（prize_Form）表Prize_name 奖惩名称 Prize_Rem 备注（5）奖惩学生信息（Prize_Stud）表Prize_NO 奖惩编号 Prize_Stu number 奖惩学生学号 Prize_Dat Date 奖惩日期

2、Prize_Nam（6）学生成绩信息（score_Form）表Score_No 成绩编号 Score_per 成绩类型 Score_Cla Score_Stu 学生学号 Score_Cou 课程名称 Score_Sco 成绩（7）学生信息（student_Form）表Student_NO 学号 student_Name 姓名 student_Sex Varchar2（5） 性别 student_Bir 出生日期 student_Cla student_Tel 联系电话 student_Esd 报名日期student_Add家庭地址 student_Rem（8）用户（user_Form）表use

3、r_ID 用户名 user_PWD 用户密码 user_DATE date 登录日期2.3创建表的脚本语言CREATE TABLE zengym.class_Cour （class_NO number Primary Key,course_Name varchar2（50） ）TABLESPACE USERS;（2）班级信息（class_Form）表CREATE TABLE zengym.class_Form （class_No number Primary Key,class_Name varchar2（50）,class_Teacher varchar2（50）,class_Remarks

4、 varchar2（50）CREATE TABLE zengym.course_Form （course_Name Varchar2（50） Primary Key,course_Rem Varchar2（50）CREATE TABLE zengym.prize_Form （prize_name varchar2（50） Primary Key,prize_Rem Varchar2（50）CREATE TABLE zengym.prize_Stud （prize_NO number Primary Key,prize_Stu number,prize_Dat date,prize_Nam Va

5、rchar2（50）CREATE TABLE zengym.score_Form （score_NO number Primary Key,score_per Varchar2（50）,score_Cla number,score_Stu number,score_Cou Varchar2（50）,score_Sco Varchar2（50）CREATE TABLE zengym.student_Form （student_NO number Primary Key,student_Name Varchar2（50）,student_Sex Varchar2（5）,student_Bir Da

6、te,student_Cla number,student_Tel Varchar2（50）,student_Esd Date,student_Add Varchar2（50）,student_Rem Varchar2（50）CREATE TABLE zengym.user_Form （user_ID Varchar2（50） Primary Key,user_PWD Varchar2（50）,user_DATE date三 数据库连接3.1、创建数据源为了能够在程序中访问到数据库House，需要创建系统数据源。选择“控制面板”“管理工具”“数据源”“系统DSN”标签“添加”选择“Oracle

7、 in OraHome92”数据库驱动程序进入数据库Oracle ODBC Driver Configuration配置。 将“Data Source Name”设置为Status，“TNS Service Name”设置为Oracle创建的数据库 ，“User”设置为zengym,然后点击“Test Conncetion”进入测试数据库连接是否连接成功。测试连接数据库是否成功： 输入密码zengym后显示连接结果“Password”输入zengym，点击OK测试连接是否成功。最后就可以在VB中使用“外接程序”“可视化数据管理”连接数据库。3.2、数据库连接（在模块modulel.bas中）P

8、ublic Function ConnectString（） As StringConnectString = Driver=Microsoft ODBC for oracle;server=gntc;UID=zengym;PWD=zengym;End FunctionPublic Function ExecuteSQL（ByVal SQL As String, MsgString As String） As ADODB.Recordset Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset Dim sTokens（） As Strin

9、g On Error GoTo ExecuteSQL_Error sTokens = Split（SQL） Set cnn = New ADODB.Connection cnn.Open ConnectStringIf InStr（INSERT,DELETE,UPDATE, UCase$（sTokens（0） Then cnn.Execute SQL MsgString = sTokens（0） & query successful Else Set rst = New ADODB.Recordset rst.Open Trim$（SQL）, cnn, adOpenKeyset, adLock

10、Optimistic Set ExecuteSQL = rst MsgString = 查询到 & rst.RecordCount & 条记录 End IfExecuteSQL_Exit: Set rst = Nothing Set cnn = Nothing Exit FunctionExecuteSQL_Error:查询错误: Err.Description Resume ExecuteSQL_Exit四、系统的实现4.1主窗体的设计4.1.1主界面是学生信息管理系统的主要窗口，担任着调动程序其他模块的功能，是整个应程序的核心。在工程中添加一个窗体，命名为“frmMain”。主界面的主要属

11、性如下：窗体属性设置值具体说明 名称 FrmMain设置窗体名称Appearance1 3D外观效果 Caption 学生信息管理系统窗体的标题条文本 Enable True窗体可用 Moveable窗体可以移动negotiateToolbarsTrueMDIForm 对象在 MDIForm 的顶部或底部显示活动对象的工具栏 StartUpPosition 0 手动设置窗体弹出时，位置在屏幕中心选择“工具”菜单项中的“菜单编辑器”，编辑菜单内容，如下图所示。菜单项的属性如下：标题用户信息管理cusiMenu班级信息管理claiMenu学籍信息管理stsiMenu课程信息管理couiMenu成绩

12、信息管理scoiMenu奖惩信息管理prpiMenu个人信息管理sumiMenu帮助help主界面如下图所示：4.1.2窗口代码如下：Private Sub claiMenu_Click（） frmclai.ShowEnd SubPrivate Sub couiMenu_Click（） frmcoui.ShowPrivate Sub cusiMenu_Click（） frmcusi.ShowPrivate Sub MDIForm_Load（） dColor.ShowPrivate Sub MDIForm_Resize（） If Me.Height 1100 Then dColor.Height

13、 = Me.Height - 1100 If Me.Width 180 Then dColor.Width = Me.Width - 180Private Sub prpiMenu_Click（） frmprpi.ShowPrivate Sub scoiMenu_Click（） frmscoi.ShowPrivate Sub stsiMenu_Click（） frmstsi.ShowPrivate Sub sumiMenu_Click（） frmsumi.Show4.2、登录窗体的设计4.2.1在工程中添加一个窗体，命名为“frmLogin”。整个窗体界面的示意图如图所示。用户要使用本系统，首

14、先要通过系统的身份认证，即需要登录。登录过程需要完成一下任务：（1）根据用户名和密码来判断是否能进入系统；（2）根据用户类型决定用户拥有的权限。登录界面窗体的主要属性如下。 设置值 具体说明Label1BorderStyle1-Fixed Single设置窗体的边框属性Caption登录ControlBoxFalse取消控制按钮在登录窗体中添加控件，并设置控件的属性如下表所示：对象名属性属性值txtPassword（名称）txtUserNameStyle0Dropdown ComboTextCmd_Ok确定Cmd_Cancel取消4.2.2编写窗体代码：Private Sub Form_Loa

15、d（） Dim i As Integer i = 0 txtSQL = select * from user_Form With txtUserName Set mrc = ExecuteSQL（txtSQL, MsgText） Do While Not mrc.EOF i = i + 1 txtUserName.AddItem Trim（mrc!user_ID） mrc.MoveNext Loop .ListIndex = i - 1 End With mrc.Close OK = False miCount = 0Private Sub cmdCancel_Click（） Me.HideP

16、rivate Sub cmdOK_Click（）select * from user_Form where user_ID = txtUserName.Text & If mrc.EOF = True Then MsgBox 没有这个用户，请重新输入用户名, vbOKOnly + vbExclamation, 警告 txtUserName.SetFocus If Trim（mrc.Fields（1） = Trim（txtPassword.Text） Then OK = True UserName = Trim（txtUserName.Text）输入的密码不对，请重新输入 txtPassword

17、.SetFocus txtPassword.Text = miCount = miCount + 1 If miCount = 3 Then Exit SubPrivate Sub Label1_Click（）Private Sub txtPassword_KeyDown（KeyCode As Integer, Shift As Integer） EnterToTab KeyCodePrivate Sub txtPassword_KeyPress（KeyAscii As Integer） If KeyAscii = 13 Then Call cmdOK_ClickPrivate Sub txt

18、UserName_Click（）Private Sub txtUserName_KeyDown（KeyCode As Integer, Shift As Integer）4.3背景窗体的设计4.3.1在工程中添加一个窗体，命名为“dColor”。整个窗体的界面设计示意图如下.dColor窗体上的空间及其属性如下表所示。dColorMaxButton激活最大化按钮MinButton激活最小化按钮控制按钮Image1Picture（Bitmap）Image2Stretch欢迎进去学生管理系统BackColor0 Transparent4.3.2编写窗体代码 Label1.ForeColor = &

19、H8000000E Label1.FontSize = 12 Label1.AutoSize = True i = Image2.WidthPrivate Sub Form_Resize（） Image1.Top = 0 Image1.Left = 0 Image1.Height = Me.Height Image1.Width = Me.Width Image2.Top = Me.Height - Image2.Height Image2.Left = Me.Width - Image2.Width Label1.Top = Me.Height - Label1.Height - 100Pr

20、ivate Sub Timer1_Timer（） i = i + 50 Label1.Left = Me.Width - i If i Me.Width + Label1.Width Then4.4班级管理窗体的设计4.4.1在工程中添加一个窗体，命名为“frmclai”。整个窗体界面示意图如图所示。frmclai窗体上的的主要属性和控件设置如下： 对象名 Frmclai班级信息MinbuttonLinkTopicForm1HacDCMSFlexGrid1DragMode0 vbManual班级信息列表Label2（0）添加Label2（1）修改Label2（2）删除Label3（0）Label3（1）Label3（2）导员姓名Label3（3）备注4.4.2编写窗体代码Private Sub Command1_Click（） If Text1（0） = Then班级编号不能为空！, vbOKOnly, 提示 Text1（0）.SetFocus If Text1（1） = 班级名称不能为空！ Text1（1）.SetFocus If Text1（2） = 导员姓名不能为空！ Text1（2）.SetFocusselect * from class_Form where class_NO= Trim（Text1（0） & If mrc.EOF = False Then