论文无忧网提供:计算机毕业论文范文|计算机毕业设计|计算机毕业论文
栏目导航 ASP JSP .NET VB6.0 JAVA VC VF DELPHI PB 计算机网络 计算机科学与技术 PHP 安卓APP 其他 C# 代写论文
当前位置: > 计算机 > JSP >

A400216自动排课系统

Form6.Show 1

End Sub

Private Sub asPopup2_Click(Cancel As Boolean)

paper51.com

kctable = "½Ìѧʱ¼ä¶Î" 内容来自论文无忧网 www.paper51.com

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

Form5.Show 1

http://www.paper51.com

End Sub copyright paper51.com

Private Sub asPopup3_Click(Cancel As Boolean)

内容来自www.paper51.com

End copyright paper51.com

End Sub

内容来自论文无忧网 www.paper51.com

Private Sub asPopup4_Click(Cancel As Boolean) 内容来自论文无忧网 www.paper51.com

kctable = "¿Î³ÌÃû" http://www.paper51.com

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

Form5.Show 1 内容来自www.paper51.com

End Sub paper51.com

Private Sub asPopup5_Click(Cancel As Boolean) http://www.paper51.com

Dim vyes As String http://www.paper51.com

vyes =MsgBox("µ±ÏµÍ³³öÏÖÅſδíÎóʱ½øÐеÄÍêÈ«»¹Ô­²Ù×÷,È·¶¨Âð£¿", vbQuestion+ vbYesNo, "Ìáʾ") 内容来自论文无忧网 www.paper51.com

If vyes = vbYes Then

内容来自www.paper51.com

Set kc2 = cnn.Execute("update Õ¼ÓÃ setÕ¼ÓÃ='000000000000000000000000000000000000000000'")

内容来自www.paper51.com

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

paper51.com

End If copyright paper51.com

End Sub 内容来自www.paper51.com

Private Sub delbutton_Click()

内容来自论文无忧网 www.paper51.com

On Error GoTo finish

paper51.com

If XPCombo1.Text = "" Then http://www.paper51.com

MsgBox "°à¼¶Ãû³Æ²»¿ÉΪ¿Õ£¬ÇëÑ¡Ôñ°à¼¶", vbInformation,"Ìáʾ" paper51.com

End If http://www.paper51.com

word_validate

http://www.paper51.com

If vde = False Then copyright paper51.com

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

copyright paper51.com

 Exit Sub

paper51.com

End If

copyright paper51.com

If kcdel = False Then copyright paper51.com

MsgBox "µ±Ç°É¾³ý²Ù×÷²»±»ÔÊÐí!", vbInformation,"·ÇʹÓöÔÏó" 内容来自论文无忧网 www.paper51.com

Exit Sub http://www.paper51.com

End If paper51.com

If hang = 0 Then

内容来自www.paper51.com

Exit Sub copyright paper51.com

End If 内容来自论文无忧网 www.paper51.com

Dim delok As String paper51.com

If Grid1.Cell(hang, 1).Text = "" Then

内容来自论文无忧网 www.paper51.com

Exit Sub paper51.com

End If copyright paper51.com

If kcedit = False Then 内容来自www.paper51.com

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

Exit Sub http://www.paper51.com

End If 内容来自论文无忧网 www.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 & "'") 内容来自www.paper51.com

        Next 内容来自论文无忧网 www.paper51.com

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

http://www.paper51.com

    Call callmain http://www.paper51.com

End Sub copyright paper51.com

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