¹ØÓÚ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×öÒ»¸öÊÓÆµ»Ø·ÅµÄ³ÌÐò£¨ÀûÓÃËûµÄ¿Ø¼þ£©µ«²»ÖªÈçÏÂÈ¥×ö£¬Íû¸÷λָµã¡£
ÏȸãÇå³þËûÃǵĿؼþÊÇÔõôÓõÄ,
È»ºó¾ÍÖ±½ÓÓúÃÁË.
²»¹ý,Èç ......
ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾͨ¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ?
ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË ......
Ôõôµã»÷form2Éϵİ´Å¥ ¿ÉÒÔ½áÊøform1ÉÏÕýÔÚ½øÐеÄÑ»·
form1ÀïÃæÌí¼ÓÒ»¸ö±äÁ¿£º
Public bEnd As Boolean
Ñ»·´úÂëÌí¼Ó£º
bEnd = False
Do
...
If ......
Open App.Path & "\tu\hb.bmp" For Binary As #100
ÓÃopenÓï¾ä´ò¿ªÎļþ,ÎÒÏëÓÃifÓï¾äÅжÏÕâ¸öÎļþÊÇ·ñ´ò¿ª,¾ÍÊÇ˵Èç¹ûû´ò¿ª,¾Í´ò¿ª,ÇëÎʸ÷λÅóÓÑÔõôд?
ÊÇ·ñ´ò¿ªÊÇÖ¸ÊÇ·ñÒѾÓû±Ê´ò¿ªÁËô?»¹Ê ......
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
......