[置頂] 學生管理系統驗收出現的問題及解決方法

 學生管理系統是8月5號師傅給驗收的，從中出現了不少的問題，讓我措手不及，如今記錄下來，讓你們看看而且但願能共同進步。

     學生管理系統驗收錯誤

一：類型不匹配

數據類型的問題：學生管理系統對數據類型要求：限制數據的大小和類型

      

  方法一：能夠在SQL中直接改

方法二：能夠在text中的屬性maxleng中更改

下面是查到的一些屬性通常看看，就能夠用了

 

第一類：字符型的數據

第二類：數值型數據

第三類：二進制數據類型

第四類：日期和時間類型

第五類：其餘類型

  2、不應爲NULL的值，如何在SQLserver2008 中修改

再看看上面的SQL設計圖中，還能夠看到有NULL值。

通常來說，是要對它進行限制的，不能爲空的，就要將對號勾掉。

  3、子窗體和通常的窗體有區別嗎？

      應該拿到這是系統代碼時，你們就注意到了有的窗體是子窗體有的不是。那麼有什麼區別嗎？

      子窗體必須在窗體中，不能獨立的在窗體外面。當你打開不少的窗體後，關閉時，就會發現，不是子窗體的須要單獨關閉。

       這個問題的解決辦法就是，將全部的窗體的MDIfrm屬性都爲false.

       而後編寫程序時，加一個肯定關閉，並將全部的窗體都關閉。

     代碼以下：

  

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Dim res As Long
    res = MsgBox("肯定要退出嗎？", vbYesNo)
    
    If res = vbNo Then
        Cancel = 1 ' 退出
    Else
        Unload frmAddclassinfo
        Unload frmAddcourseinfo
        Unload frmAddresult
        Unload frmAddsinfo
        Unload frmAdduser
        Unload frmAdduser
        Unload frmSetcourseinfo
        Unload frmInquireresult
        Unload frmInquiresinfo
        Unload frmModifyclassinfo
        Unload frmModifycourseinfo
        Unload frmModifyresult
        Unload frmModifysinfo
        End
        
    End If
    
        
End Sub

  這裏爲了窗體的美觀就要將窗體出現的位位設定到中間：

這2步是不能夠顛倒位置的

 

4、數據庫中刪除了一個確認密碼

    在數據庫中點擊「表"中的」user _info「 右擊設計，將其中的」user-de「刪除，，若是不讓修改能夠在SQL Server2008 中的」工具「——」選項「——」designers「——」表設計器和數據庫設計器「——」組織保存要求從新建立表的更改「

 

 

5、text裏面的東西，窗體從新打開時，所有清空

     可是不能再form—load中編寫。

Private Sub addcinfoMenu_Click()
  With frmAddclassinfo    '這個用form——load是不能夠的
    .txtClassno.Text = ""
    .comboGrade.Text = ""
    .txtDirector.Text = ""
    .txtClassroom.Text = ""
  End With
  
  frmAddclassinfo.Show
End Sub

通常來說，是不能在frmaddclassinfo窗體中直接就清空，根據斷電調試，必須在frmmain窗體中進行編寫。

 

6、cmobobox有一個屬性就是上style當它的值是2或者vbcombodrop-downlist時，就是隻能選，不能往裏面寫了。

可是又會碰見另一個麻煩：

我給的建議是：將combo的style值是0，給一個東西，提示一下填寫的人，讓他們只選不寫。

 

7、類型不匹配的問題

通常來說，這個問題就是類型沒有設正確，還有一種狀況就是，代碼錯了

    If Check1(1).Value Then
        If Trim(txtName.Text) Then
            smeg = "姓名不能爲空"
            MsgBox smeg, vbOKOnly + vbExclamation, "警告"
            txtName.SetFocus
            Exit Sub
        Else
            dd(1) = True
            If dd(0) Then
                txtSQL = txtSQL & "and student_Name='" & txtName.Text & "'"
            Else
                txtSQL = txtSQL & "student_Name='" & txtName.Text & "'"
            End If
        End If
    End If

好的，看看，其實答案很簡單就是第2句：

If Trim(txtName.Text) = "" Then

所以必定要看好你的代碼

 

8、彈出的窗體必定要設置好它的焦點。

   這個焦點必定是有必定順序的，屬性窗體中設置tabstop和tabindex就好了

 

9、點擊回車就是肯定

      解決方法就是command的屬性裏面有一個default中將false改成true就能夠了。

 

 

 

 

.