vb2008 SQL 做个用户登录窗口
vb2008 SQL 做个用户登录窗口VB6.0会做，VB2008如何做，望高手指点一下
VB6.0例程如下：
var
Form1: TForm1;
i:integer;
implementation
{$R *.dfm}
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if form1.Table1.Active then
form1.Table1.Active:=false
else
form1.Table1.Active:=true;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if form1.Edit1.Text='' then
messagedlg('对不起，用户名不能为空，请输入.....',mtinformation,[mbOK],0)
else
begin
form1.Table1.Open;
if (form1.Edit1.Text=form1.Table1.FieldValues['name']) then
if (form1.MaskEdit1.Text=form1.Table1.FieldValues['password']) then
messagedlg('欢迎进入',mtinformation,[mbOK],0)
else
begin
if messagedlg('对不起,你输入的密码不正确，重新输入',mtconfirmation,[mbYES,mbNO],0)=mrYES then
form1.MaskEdit1.Text:=''
else
begin
form1.Table1.Close;
close;
end
end
else
if messagedlg('对不起,你输入的用户名不正确，重新输入',mtconfirmation,[mbYES,mbNO],0)=mrYES then
begin
form1.Edit1.Text:='';
form1.MaskEdit1.Text:='';
end
else
begin
form1.Table1.Close;
close;
end;
form1.Table1.Close;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if ((form1.Edit1.Text<>'')and(form1.MaskEdit1.Text<>''))then
begin
i:=form1.DBListBox1.Items.IndexOf(form1.Edit1.Text);
end;
end;
end.
