论文无忧网提供:计算机毕业论文范文|计算机毕业设计|计算机毕业论文
栏目导航 ASP JSP .NET VB6.0 JAVA VC VF DELPHI PB 计算机网络 计算机科学与技术 PHP 其他 代写论文
当前位置: 澳门大西洋城开户 > 计算机 > JSP >

A400216自动排课系统

Form6.Show 1

End Sub

Private Sub asPopup2_Click(Cancel As Boolean)

copyright paper51.com

kctable = "½Ìѧʱ¼ä¶Î"

内容来自论文无忧网 snowings.com

Form5.Caption = "½Ìѧʱ¼ä¶ÎÉèÖÃ"

内容来自snowings.com

Form5.Show 1

内容来自论文无忧网 snowings.com

End Sub paper51.com

Private Sub asPopup3_Click(Cancel As Boolean)

http://snowings.com

End paper51.com

End Sub

copyright paper51.com

Private Sub asPopup4_Click(Cancel As Boolean) 内容来自snowings.com

kctable = "¿Î³ÌÃû"

paper51.com

Form5.Caption = "¿Î³Ì¹ÜÀí"

内容来自snowings.com

Form5.Show 1

copyright paper51.com

End Sub

http://snowings.com

Private Sub asPopup5_Click(Cancel As Boolean) 内容来自snowings.com

Dim vyes As String paper51.com

vyes =MsgBox("µ±ÏµÍ³³öÏÖÅſδíÎóʱ½øÐеÄÍêÈ«»¹Ô­²Ù×÷,È·¶¨Âð£¿", vbQuestion+ vbYesNo, "Ìáʾ")

copyright paper51.com

If vyes = vbYes Then 内容来自snowings.com

Set kc2 = cnn.Execute("update Õ¼ÓÃ setÕ¼ÓÃ='000000000000000000000000000000000000000000'") http://snowings.com

Set kc2 = cnn.Execute("update ¿Î³ÌÕ¼Óà setÕ¼ÓÃ='000000000000000000000000000000000000000000'")

http://snowings.com

End If copyright paper51.com

End Sub

paper51.com

Private Sub delbutton_Click()

内容来自论文无忧网 snowings.com

On Error GoTo finish paper51.com

If XPCombo1.Text = "" Then http://snowings.com

MsgBox "°à¼¶Ãû³Æ²»¿ÉΪ¿Õ£¬ÇëÑ¡Ôñ°à¼¶", vbInformation,"Ìáʾ" 内容来自论文无忧网 snowings.com

End If

copyright paper51.com

word_validate

paper51.com

If vde = False Then

paper51.com

 MsgBox"ÒòÒÑÉú³É¿Î³Ì±í£¬Îª²»¿É²Ù×÷״̬£¬Çë×¢ÏúÏÖÓеĿγ̱íÔÚ½øÐвÙ×÷£¡",vbInformation, "Ìáʾ"

copyright paper51.com

 Exit Sub

内容来自snowings.com

End If

内容来自论文无忧网 snowings.com

If kcdel = False Then paper51.com

MsgBox "µ±Ç°É¾³ý²Ù×÷²»±»ÔÊÐí!", vbInformation,"·ÇʹÓöÔÏó"

内容来自snowings.com

Exit Sub http://snowings.com

End If paper51.com

If hang = 0 Then 内容来自snowings.com

Exit Sub copyright paper51.com

End If

copyright paper51.com

Dim delok As String

http://snowings.com

If Grid1.Cell(hang, 1).Text = "" Then 内容来自论文无忧网 snowings.com

Exit Sub

内容来自论文无忧网 snowings.com

End If paper51.com

If kcedit = False Then copyright paper51.com

MsgBox "µ±Ç°Ð޸IJÙ×÷²»±»ÔÊÐí!", vbInformation,"·ÇʹÓöÔÏó"

内容来自论文无忧网 snowings.com

Exit Sub

内容来自snowings.com

End If

paper51.com

     For i = 1 To Grid1.Rows - 1

copyright paper51.com

           Set kc1 = cnn.Execute("update " & kctable & " set" & kc1.Fields(1).Name & "='" & Grid1.Cell(i, 2).Text& "'," & kc1.Fields(2).Name & "='" &Grid1.Cell(i, 3).Text & "' where " & kc1.Fields(0).Name &"='" & Grid1.Cell(i, 1).Text & "'")

copyright paper51.com

        Next

内容来自论文无忧网 snowings.com

    MsgBox "Ð޸ĵÄÊý¾Ý¼º¾­Íê³É", vbInformation,"Íê³É²Ù×÷"

内容来自论文无忧网 snowings.com

    Call callmain

内容来自snowings.com

End Sub

内容来自snowings.com

------分隔线----------------------------
联系方式