毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 论文 >> 正文

vb学生信息管理系统+总体结构图+数据库设计+界面图片 第5页

更新时间:2010-10-26:  来源:毕业论文
vb学生信息管理系统+总体结构图+数据库设计+界面图片 第5页
字段 类型 长度 格式 约束
学生编号 文本 200  主键
姓名 文本 200  
所学专业 文本 200  
所在班级 文本 200  
经手人 文本 200  
缴费日期 日期/时间 200  
应缴总额 数字 长整型  
实缴数 数字 长整型  

基本表:[专业课程管理]
字段 类型 长度 格式 约束
专业编号 文本 200  主键
专业名称 文本 200  
专业内容 文本 200  
专业学分 文本 200  
专业学期 文本 200  

基本表:[文化课程管理]
字段 类型 长度 格式 约束
课程编号 文本 200  主键
课程名称 文本 200  
课程内容 文本 200  
课程学分 文本 200  
专业学期 文本 200  

基本表:[班级管理]
字段 类型 长度 格式 约束
学生编号 文本 200  主键
姓名 文本 200  
职务 文本 200  
期末总成绩 文本 200  
联系电话 文本 200  
所在专业 文本 200  
所在年级 文本 200  
所在班级 文本 200  
班级总人数 文本 200  

基本表:[用户]
字段 类型 长度 格式 约束
用户ID 文本 200  主键
用户密码 文本 200  
用户身份 文本 200  辣-文^论,文.网http://www.751com.cn

第四章学生信息管理系统界面设计及编码
本部分主要内容为本系统的运行界面以及界面的源代码。
4.1登陆界面
 

本界面主要是进入系统和退出系统

代码:
Private Sub Command1_Click()
学生系统用户登陆.Show     '  进去系统
End Sub

Private Sub Command2_Click()
End     '  退出系统
End Sub

 
学生系统用户登陆,可以在用户身份中选择你所用的身份,每个身份在登陆后会有不同的权限。如系统管理人员的权限是最大的。在登陆的时候还要注意身份和帐号、密码保持一致。如3个其中1个不正确都无法进去系统。

代码:
Dim sf As String
Dim cnn As String
Dim ssql As String
Dim rst As New ADODB.Recordset
Private Sub Command1_Click()
If Option1.Value = True Then
   sf = "教师"
ElseIf Option2.Value = True Then
   sf = "学生"
Else
   sf = "管理人员"
End If
Set rst = Nothing
If Text1.Text = "" And Text2.Text = "" Then
   MsgBox "帐号和密码不能为空,请输入!"
   Text1.SetFocus
ElseIf Text2.Text = "" Then
   MsgBox "密码不能为空,请输入!"
   Text2.SetFocus辣-文^论,文.网http://www.751com.cn
ElseIf Text1.Text = "" Then
   MsgBox "帐号不能为空,请输入!"
   Text1.SetFocus
Else
   ssql = "select * from xueshengxitongyonghu where 用户帐号 = '" & Text1.Text & "'"
   rst.Open ssql, cnn, adOpenKeyset, adLockPessimistic
   If rst.EOF() Then
      MsgBox "无此用户,重新输入用户名"
      Text1.Text = ""
      Text1.SetFocus
   ElseIf rst.Fields(1) = Text2.Text Then
      If rst.Fields(2) = sf Then
         If rst.Fields(2) = "学生" Then
            tt = 1
         ElseIf rst.Fields(2) = "教师" Then
            tt = 2
         Else
            tt = 3
         End If
        
         首页.Show
         Unload Me
      Else
         MsgBox "身份选择错误,重新选择"
      End If
     
   Else
      MsgBox "密码错误,请重新输入密码"
      Text2.Text = ""
      Text2.SetFocus
   End If
End If


End Sub

Private Sub Command2_Click()
 If MsgBox("您要退出登录吗?", vbYesNo, "提示信息") = vbYes Then
 Form1.Show
 Unload Me
 End If
End Sub

Private Sub Form_Load()
cnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库.mdb;Persist Security Info=False"
End Sub4.2主界面

上一页  [1] [2] [3] [4] [5] [6] [7] [8] 下一页

vb学生信息管理系统+总体结构图+数据库设计+界面图片 第5页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。