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.

左看不像VB ，右看不像 VB 。

是 Delphi 吗？

你把上面的代码 缩进一下，然后翻译一下就基本没问题了。

不是delphi是啥子？
VB还有这样的语法噻？
var
  Form1: TForm1;
  i:integer;
implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);

对不起，发错了源码
大侠能给段VB2008的代码