[求助]用DELPHI做学生管理

给你个简单的程序，不过自己要改一点；
procedure TForm1.GetName;\\Combobox加载用户姓名
var
Qry: TAdoQuery;
begin
Qry := TAdoQuery.Create(self);
Qry.Connection := AdoConnection1;
Qry.SQL.Text := 'select * from login';
Qry.Open;
Qry.First;
while not Qry.Eof do
begin
Combobox1.Items.Add(Qry.FieldByName('username').AsString);
Qry.Next;
end;
end;

procedure TForm1.ComparePassword;\\用户名与密码匹配过程
var
Qry: TAdoQuery;
begin
Qry := TAdoQuery.Create(self);
Qry.Connection := AdoConnection1;
Qry.SQL.Text := 'select * from login';
Qry.Open;
if Qry.Locate('username; password', VarArrayof([Combobox1.Text,Trim(Edit1.Text)]), []) then
ShowMessage('密码正确！')\\改成加载的窗体
else
exit;
end;
给你这两个函数，其他的你就自己加吧，FormCreate调用GetName；
确定按钮调用ComparePassword