Thread View: cn.bbs.comp.lang.visual-basic
1 messages
1 total messages
Started by ���Ʈ
Tue, 26 Jun 2007 11:23
Re: ��λ�����ã����һ��vb��д���������
Author: ���Ʈ
Date: Tue, 26 Jun 2007 11:23
Date: Tue, 26 Jun 2007 11:23
50 lines
2772 bytes
2772 bytes
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���롣������Ҫ�����û�������롣���ǵ�һ�ο����������ڴ������Ҳ����û�������롣���λ����ָ�̡��ҽ����븽���˸������ˡ�
: ϣ���ܾ���ظ���лл�ˣ�
--
..........................................
_______ {&> ______
------ / \ -----
----- { }-----
------ [ ] -----
====/|||\==== ���ܲ��ɾ���
[m[35m�� ��Դ:��BBS ˮľ�廪վ http://smth.edu.cn��[FROM: 221.235.104.*][m
Thread Navigation
This is a paginated view of messages in the thread with full content displayed inline.
Messages are displayed in chronological order, with the original post highlighted in green.
Use pagination controls to navigate through all messages in large threads.
Back to All Threads