学生信息系统的学习收获

昨天，刚刚验完项目，有些自己常犯的问题来和大家分享一下。

问题 一、窗体大小调整
每个窗体的大小是固定不变的有的不能正常显示出我们所需要的所有内容，而在属性中改变后运行无法改变。
解决方法：在每个窗体中的Form_Load事件规定适合窗体的宽高
设置课程防止重复添加
在添加课程的时候，点击设置课程在点击第二次的时候它还回在输出一次跟上面的一模一样
1 给设置课程的命令按钮创建个鼠标弹起事件但鼠标弹起是禁用 设置课程按钮
Private Sub cmdSet_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmdSet.Enabled = False
End Sub
2已选择的课程重复修改一下代码
Private Sub cmdAdd_Click()
’ If listAllcourse.ListIndex <> -1 Then
'listSelectcourse.AddItem listAllcourse.List(listAllcourse.ListIndex)
'End If ’
Dim s As String
Dim i As Integer
i = listSelectcourse.ListCount '已选择课程列表框的项目
s = listAllcourse.List(listAllcourse.ListIndex) '所有课程列表框选中的项目
For i = 0 To listSelectcourse.ListCount - 1 '在列表框中循环找一遍
If listSelectcourse.List(i) = s Then Exit For
Next
If i = listSelectcourse.ListCount Then listSelectcourse.AddItem s

End Sub

问题二 添加日期控件
1添加 部件 microsoft windows common Controls-2.6.0
Private Sub DTPicker1_Change() '日期选择

txtRudate = Format(DTPicker1.Value, "yyyy-mm-dd")
DTPicker2.Value = txtRudate

End Sub
Private Sub DTPicker2_Change() '选择出生日期
txtBorndate = Format(DTPicker2.Value, “YYYY-mm-dd”)
DTPicker2.Value = txtBorndate
End Sub

问题三：限制文本框输入字符个数

解决办法

1、直接在text文本框属性中定义MaxLength的值，MaxLength是设置文本框允许输入的字符最大数。超过设置数后，将不允许继续输入内容。

问题四：限制文本框输入的必须是数字

Private Sub Text1_KeyPress(KeyAscii As Integer)
If （KeyAscii < 48 Or KeyAscii > 57） Then
End if
End sub

报错：实时错误5 无效的过程调用或参数
If (AscW(txtResult) < 48 Or AscW(txtResult) > 57 Or txtResult.Text = “”) Then

问题五：下拉列表文本框不可键盘输入
解决方法
Private Sub ComboBox1_KeyPress(KeyAscii As Integer)
KeyAscii = 0
Sub
.

问题五：对数据库的修改
数据库的增加：

mrc.AddNew '增加行

       mrc.Fields(0) = Trim(txtClassno.Text)
       mrc.Fields(1) = Trim(comboGrade.Text)
       mrc.Fields(2) = Trim(txtDirector.Text)
       mrc.Fields(3) = Trim(txtClassroom.Text)
       mrc.Update
       
       mrc.Close
       MsgBox "添加班级信息成功！", vbOKOnly + vbExclamation, "添加班级信息"

数据库的查询：

txtSQL = “select*from class_Info where class_No=’” & Trim(txtClassno.Text) & “’”
Set mrcc = executeSQL(txtSQL, MsgText)

数据库的更新（更新数据前首先要修改数据）：

              mrc.Fields(0) = Trim(txtClassno.Text)
               mrc.Fields(1) = Trim(comboGrade.Text)
               mrc.Fields(2) = Trim(txtDirector.Text)
               mrc.Fields(3) = Trim(txtClassroom.Text)
               
               mrc.Update
               MsgBox "修改信息成功！", vbOKOnly + vbExclamation, "警告"

数据库的删除：

       str2$ = MsgBox("是否删除当前记录？", vbOKOnly + vbExclamation, "删除记录")
        
        If str2$ = vbOK Then    '如果删除，移动到下一行
              
              mrc.MoveNext
              If mrc.EOF Then    '如果是文件的末尾，则移动到第一行后删除，标记会回到最后一条记录
                    
                    mrc.MoveFirst
                    myBookmark = mrc.Bookmark
                    mrc.MoveLast
                    mrc.Delete
                    mrc.Bookmark = myBookmark
                    Call viewData
               Else                    '如果不是文件的末尾，则会删除当前行
                   
                   myBookmark = mrc.Bookmark
                   mrc.MovePrevious
                   mrc.Delete
                   mrc.Bookmark = myBookmark
                   Call viewData
               End If
        Else
               mrc.Bookmark = myBookmark      '取消标记
               Call viewData

End if
今天，就姑且总结这些吧！