我是新手
我现在需要用DELPHI做一个学生管理系统(要有登陆界面的)
输入用户名的是combobox,密码是edit,还有用了ADOConnection,ADOQuery,DateSource
但是代码不会写
希望大家能帮帮忙

学校内的图书馆应该有好多这种书，如果只是为了交差，可以找着书做就是了。

给你个简单的程序，不过自己要改一点；
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