- ©«¤l
- 94
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 114
- ÂI¦W
- 0
- §@·~¨t²Î
- win 7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2012-10-17
- ³Ì«áµn¿ý
- 2014-1-3
|
¦^´_ 4# GBKEE
쥻¤£ª¾¹D¬°¦ó·|µL¹B¦æ,«á¨Ó¬ã¨s¤ù¨è«á¤w¸Ñ¨M!@@"
ÁÂÁ¦U¦ì¤j¤j¦^´_~~- Sub CmdLogin_Click()
- With BoxUser
- If .Value = "" Then MsgBox "½Ð¿é¤J¸³¨Æªø©m¦W¡I": Exit Sub '¦pªG¬°ªÅ¥Õ
- If .Value <> "s§µºû" Then '¦pªG¿é¤J¿ù»~
- MsgBox "¿é¤J¿ù»~¡I": Module1.no = Module1.no + 1
- If Module1.no = 3 Then
- MsgBox "©êºp¡I±z¨S¦³¨Ï¥ÎÅv¡I"
- ' ThisWorkbook.Close SaveChanges:=False
- Application.DisplayAlerts = False
- Application.Quit 'Ãö³¬Excel
- End If
- [color=Red]Exit Sub[/color]
- Else
- Module1.no = 0 '¿ù»~¦¸¼Æ Âk¹s
- End If
- End With
- Unload Me
- End Sub
½Æ»s¥N½X |
|