定义以下控件：　
edit1 --------username
edit2----------password

comand1-------登入
command2-----取消

在数据库定义中已经将datamodule定义好，用户信息数据库的表名为table1
datamodule.table1username
datamodule.table1password

请问在comand1的on click函数怎么定义，来判定用户和密码是否正确

都定义好了那就查询一次是否是数据库里有的密码就可以了撒!
procedure TfrmLogin.BitBtn1Click(Sender: TObject);
var
qryLogin:TADOQuery;
begin
qryLogin:=TADOQuery.Create(self);
qryLogin.Connection:=dm1.adoconn;
qryLogin.SQL.Add('select * from datamodule ');
qryLogin.SQL.Add('where user_use=1 and username='''+username.Text+''' and password='''+ password password.Text+'''');
qryLogin.Open;
if not qryLogin.Eof then
begin
dm1.LoginUserCode:=edtCode.Text;//可形成定单编码
dm1.LoginUserName:=qryLogin.FieldByName('user_name').AsString; //显示名字
dm1.LoginUserUnitCode:=qryLogin.FieldByName('unit_code').AsString;//同一单位的人才可以修改，在验收时进行身份验证
qryLogin.Close;
qryLogin.Free;
CloseFlag:=True;//确认允许用户关闭窗口
self.Close;
end
else
begin
qryLogin.SQL.Clear;
qryLogin.Close;
MessageBox(Handle,'用户名或密码错误，请重新输入！','错误提示',MB_OK+MB_ICONERROR);
end;
end;