|
Form6.Show 1 End Sub Private Sub asPopup2_Click(Cancel As Boolean) 内容来自www.paper51.com kctable = "½Ìѧʱ¼ä¶Î" copyright paper51.com Form5.Caption = "½Ìѧʱ¼ä¶ÎÉèÖÃ" http://www.paper51.com Form5.Show 1 copyright paper51.com End Sub 内容来自论文无忧网 www.paper51.com Private Sub asPopup3_Click(Cancel As Boolean) paper51.com End paper51.com
End Sub 内容来自论文无忧网 www.paper51.com Private Sub asPopup4_Click(Cancel As Boolean) paper51.com kctable = "¿Î³ÌÃû" copyright paper51.com Form5.Caption = "¿Î³Ì¹ÜÀí" http://www.paper51.com
Form5.Show 1 http://www.paper51.com
End Sub 内容来自论文无忧网 www.paper51.com
Private Sub asPopup5_Click(Cancel As Boolean) 内容来自论文无忧网 www.paper51.com Dim vyes As String paper51.com vyes =MsgBox("µ±ÏµÍ³³öÏÖÅſδíÎóʱ½øÐеÄÍêÈ«»¹Ô²Ù×÷,È·¶¨Âð£¿", vbQuestion+ vbYesNo, "Ìáʾ") copyright paper51.com If vyes = vbYes Then paper51.com
Set kc2 = cnn.Execute("update Õ¼Óà setÕ¼ÓÃ='000000000000000000000000000000000000000000'") copyright paper51.com Set kc2 = cnn.Execute("update ¿Î³ÌÕ¼Óà setÕ¼ÓÃ='000000000000000000000000000000000000000000'") 内容来自论文无忧网 www.paper51.com End If paper51.com
End Sub 内容来自论文无忧网 www.paper51.com
Private Sub delbutton_Click() 内容来自论文无忧网 www.paper51.com On Error GoTo finish 内容来自论文无忧网 www.paper51.com If XPCombo1.Text = "" Then http://www.paper51.com MsgBox "°à¼¶Ãû³Æ²»¿ÉΪ¿Õ£¬ÇëÑ¡Ôñ°à¼¶", vbInformation,"Ìáʾ" paper51.com End If copyright paper51.com word_validate paper51.com
If vde = False Then 内容来自www.paper51.com MsgBox"ÒòÒÑÉú³É¿Î³Ì±í£¬Îª²»¿É²Ù×÷״̬£¬Çë×¢ÏúÏÖÓеĿγ̱íÔÚ½øÐвÙ×÷£¡",vbInformation, "Ìáʾ" 内容来自论文无忧网 www.paper51.com Exit Sub 内容来自论文无忧网 www.paper51.com
End If 内容来自www.paper51.com If kcdel = False Then paper51.com MsgBox "µ±Ç°É¾³ý²Ù×÷²»±»ÔÊÐí!", vbInformation,"·ÇʹÓöÔÏó" copyright paper51.com
Exit Sub paper51.com End If 内容来自www.paper51.com If hang = 0 Then http://www.paper51.com Exit Sub 内容来自www.paper51.com
End If 内容来自www.paper51.com Dim delok As String http://www.paper51.com
If Grid1.Cell(hang, 1).Text = "" Then copyright paper51.com
Exit Sub 内容来自论文无忧网 www.paper51.com End If http://www.paper51.com
If kcedit = False Then paper51.com MsgBox "µ±Ç°Ð޸IJÙ×÷²»±»ÔÊÐí!", vbInformation,"·ÇʹÓöÔÏó" 内容来自论文无忧网 www.paper51.com Exit Sub copyright paper51.com
End If 内容来自www.paper51.com For i = 1 To Grid1.Rows - 1 内容来自论文无忧网 www.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 http://www.paper51.com MsgBox "Ð޸ĵÄÊý¾Ý¼º¾Íê³É", vbInformation,"Íê³É²Ù×÷" paper51.com Call callmain 内容来自www.paper51.com
End Sub paper51.com |