🚀 go-pugleaf

Private Sub Command1_Click()
Dim mrc As ADODB.Recordset

'����������������������������������������
'����Ϊ�����û��������Ĵ���         (��δ�����frmdenlu.frm�У�
'����������������������������������������
txtsql = "select username from use where username='" & Trim(Text1.Text) & "'"
Set mrc = ExecuteSQL(txtsql)
If mrc.EOF = True Then
  MsgBox " �û������", vbExclamation + vbOKOnly, "����"
  Text1.SetFocus
  Text1.SelStart = 0
  Text1.SelLength = Len(Text1.Text)
  Exit Sub
End If
username = mrc.Fields(0)
txtsql = "select username from use where password='" & Trim(Text2.Text) & "'"
Set mrc = ExecuteSQL(txtsql)
If mrc.EOF = True Then
  MsgBox " �������", vbExclamation + vbOKOnly, "����"
  Text2.SetFocus
  Text2.SelStart = 0
  Text2.SelLength = Len(Text2.Text)
  Exit Sub
End If

MDIForm1.Show
Unload Me
End Sub





�� �� upupup (upupup) �Ĵ������ᵽ: ��
: С������������һ��vb���롣������Ҫ�����û�������롣���ǵ�һ�ο����������ڴ������Ҳ����û�������롣���λ����ָ�̡��ҽ����븽���˸������ˡ�
: ϣ���ܾ���ظ���лл�ˣ�



--
..........................................
           _______ {&>  ______
                    ------ / \  -----
                    ----- {   }-----
                    ------ [ ] ----- 
                   ====/|||\====  �޲��ܲ��ɾ���


�� ��Դ:��BBS ˮľ�廪վ http://smth.edu.cn��[FROM: 221.235.104.*]