PrivateSubCommand1DL_Click()\'判断是否输入了用户名IfText1Name.Text=\"\"ThenMsgBox\"请输入用户名!\",48,\"提示\"ExitSub\'退出这个过程Text1.SetFocusIfText2Password.Text=\"\"ThenMsgBox\"请输入密码\",48,\"提示\"Text2.SetFocusElseIfText1Name.Text\"admin\"ThenMsgBox\"用户名不存,在请重新输入!\",16,\"提示\"Text1.SetFocusText1_ClickElseIfText2.Text\"123456\"ThenMsgBox\"密码错误，请重新输入!\",16,\"提示\"Text2.SetFocusText2_ClickElseForm2gcxx.Showform1DengLu.HideEndSubPrivateSubCommand2ESC_Click(IndexAsInteger)EndEndSub
|
