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

学生信息登记系统

更新时间:2008-12-29:  来源:毕业论文

学生信息登记系统VB试验报告
二.控件属性变量

        对象 属性 设置
Form1 caption 首页
Label1 caption 2008年4月26日
Label2 caption 学生信息管理系统
Label3 caption 制作人:===
Commond1 caption 登陆
Commond2 caption 取消
Shape1 空 空

Form2 caption 登陆
Label1 caption 欢迎使用本系统
Label2 caption 用户名:
Label3 caption 用户密码
Label6 caption 登陆
Shape1 空 空
Commond1 caption 确定
Commond2 caption 取消

Form3 caption 学生信息管理系统
Label1 caption 姓名:
Label2 caption 学号:
Label3 caption 入学年月
Label4 caption 所在学院
Label5 caption 月
Label6 caption 学生信息登记系统
Label7 caption 年
Shape1 空 空
Text1 text 空
Text2 text 空
Combo1 text 空
Combo2 text 空
Combo3 text 空
List1 空 空
Commond1 caption 退出
Commond2 caption 添加
Commond3 caption 删除
Commond4 caption 清空

三.程序清单
FORM1
Private Sub Command1_Click()
Form2.Show
End SubPrivae Sub Label5_Click()
End SubPrivate Sub Command2_Click()
End
End SubFORM2
Private Sub Picture1_Click()End SubPrivate Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)End SubPrivate Sub Command1_Click()
If Text1.Text = "ABC" And Text2.Text = "123" Then
Form3.ShowElse
AA = MsgBox("用户名或密码不正确,请重新输入", vbOKOnly, "警告")
Text1.Text = ""
Text2.Text = ""
End If
End SubPrivate Sub Command2_Click()
Unload Me
End Sub
FORM3
Private Sub Command1_Click()
Unload Me
End SubPrivate Sub Command2_Click()
Dim i
If Text2.Text <> "" Then
i = Text1.Text & " " & " " & Combo2.Text & "年" & Combo3.Text & "入学" & " " & " " & " " & " " & "学号:" & lwfree.cn
End If
If Text1.Text = "" Then
MsgBox "请输入姓名", vbOKOnly + EXCLAMATION, "警告"
End If
If Not IsNumeric(Trim(Text2.Text)) Then
MsgBox "请勿重复注册", vbOKOnly + EXCLAMATION, "警告"
Exit Sub
Text2.SetFocus
End If
Text1.Text = ""
Text2.Text = ""
End SubPrivate Sub Command3_Click()
Dim i As Integer
If List1.ListIndex >= 0 Then
   For i = List1.ListCount - 1 To 0 Step -1
     If List1.Selected(i) Then List1.RemoveItem i
      '删除被选中的项目
    Next i
End If
End SubPrivate Sub Command4_Click()
List1.Clear     '清空列表
End SubPrivate Sub Form_Load()
Combo2.AddItem 2002
Combo2.AddItem 2003
Combo2.AddItem 2004
Combo2.AddItem 2005
Combo2.AddItem 2006
Combo3.AddItem "9月"
Combo3.AddItem "12月"
Combo4.AddItem "外语学院"
Combo4.AddItem "电信学院"
Combo4.AddItem "工程学院"
Combo4.AddItem "商学院"
Combo3.Text = Combo3.List(0)
Combo2.Text = Combo2.List(4)
Combo4.Text = Combo4.List(1)
End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then SendKeys "{tab}"
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then SendKeys "{tab}"
End Sub190

学生信息登记系统下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

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