¹ØÓÚVBÖеÄMDI×Ó´°Ìå²»ÄÜÒÔģʽ´°ÌåÏÔʾ
Private Sub cmdModify_Click()
Dim iRet As Integer
If dltUser.Text = "" Then
MsgBox "ÇëÑ¡ÔñÒªÐ޸ĵÄÓû§£¡", vbOKOnly + vbCritical, "¾¯¸æ"
Exit Sub
End If
Select Case CurUser.iUserClass
Case 1
If UCase(MyUser.strName) = "ADMIN" And UCase(CurUser.strName) <> "ADMIN" Then
MsgBox "ÄúûÓÐÐ޸ĴËÓû§µÄȨÏÞ£¡", vbOKOnly + vbCritical, "¾¯¸æ"
Exit Sub
End If
If UCase(MyUser.strName) = "ADMIN" Then
iRet = MsgBox("²»ÄÜÐÞ¸ÄÓû§adminµÄȨÏÞºÍÓû§Ãû£¬Ö»ÄÜ" + vbCrLf & _
"Ð޸ĸÃÓû§µÄÃÜÂ룡ÊÇ·ñÒªÐÞ¸ÄÃÜÂ룿", vbYesNo + vbCritical, "¾¯¸æ")
If iRet = vbYes Then
CurUser.strName = MyUser.strName
With frmUserEdit
.Caption = "ÐÞ
Ïà¹ØÎÊ´ð£º
ÎÒÓг§¼Ò×öµÄASPµÄ¼à¿ØÂ¼Ïñ£¨DVR£©µÄ¾ÖÓòÍø²¥·ÅµÄÔ´³ÌÐòÓë¿Ø¼þ£¬ÏëÒªÓÃASP.net×öÒ»¸öÊÓÆµ»Ø·ÅµÄ³ÌÐò£¨ÀûÓÃËûµÄ¿Ø¼þ£©µ«²»ÖªÈçÏÂÈ¥×ö£¬Íû¸÷λָµã¡£
ÏȸãÇå³þËûÃǵĿؼþÊÇÔõôÓõÄ,
È»ºó¾ÍÖ±½ÓÓúÃÁË.
²»¹ý,Èç ......
Ò»¸ö²éѯijÐÅÏ¢µÄASPÍøÒ³£¬Ìá½»²ÉÓõÄÊÇpost·½·¨£¬²éÕÒ½á¹ûµÄÍøÒ³±ØÐëÓÒ¼üµã»÷¡°²é¿´Ô´Îļþ¡±²ÅÄÜ¿´µ½ÕæÕý²éѯ½á¹ûÍøÒ³µÄÔ´´úÂ룬ÓÃä¯ÀÀÆ÷²Ëµ¥¿´µ½µÄÊDzéѯǰµÄÔ´´úÂë
ÓÃVBÓÐʲô°ì·¨¿ÉÒÔ»ñÈ¡µ½Õâ¸ö²éѯºóµÄÔ´´ú ......
¸÷룬ÇëÎʹ³×ÓÊÇÔõôÔËÐеİ¡£¿ÇëÏÈ¿´¿´ÎÒдµÄ´úÂ룺
Public hhook
Private Sub Command1_Click()
hhook = SetWindowsHookEx(2, AddressOf testhook, 0, App.ThreadID)
End Sub
ÒÔϵ ......
´ó¼ÒºÃ£¬Îʸövb´òÓ¡ÎÊÌâ
printer.print "dsff"
.....
....
Printer.EndDoc
´òÓ¡³É¹¦ºóÎÒ½«Ö´ÐÐ
sqlstr = "update vc_yh set pr=' ÒÑ´òÓ¡ ', ......
C# code:
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Type GUID
Data1 As Long
......