⑵ 编制登录界面的OnShow事件，完成界面的初始化：

procedure TFormLogin.FormShow(Sender: TObject);

begin

  LoginCount := 0;  // 输入计数器清零

  EditPassWord.PasswordChar:='*'; // 设置密码输入方法

  EditUserID.Text := '';

  EditPassWord.Text := '';

end;

⑶ 编制“登录”按钮的OnClick事件。完成用户的登录工作，并设置登录用户的系统使用权限，代码如下：

procedure TFormLogin.BtnOKClick(Sender: TObject);

var

  LoginSign :     Byte;

  strSQL :        String;

begin

 UserID := EditUserID.Text;

 LoginSign := 1;

 with DMServerDB do begin

  if RadioBtnTeacher.Checked then begin //教师

   UserType := 1;

   strSQL := 'Select TeacherID, [PassWord] From Teacher ';

   strSQL := strSQL + 'Where TeacherID='''+ UserID +'''';

  end

  else begin

   UserType := 2;

   strSQL:='SELECT D.DepartmentID,S.SpecialityID,C.ClassID,Stu.StudentID,[PassWord],StudentName';

   strSQL:=strSQL+' FROM Student Stu INNER JOIN';

   strSQL:=strSQL+' Class C ON Stu.ClassID =C.ClassID INNER JOIN';

   strSQL:=strSQL+' Speciality S ON C.SpecialityID =S.SpecialityID INNER JOIN';

   strSQL:=strSQL+' Department D ON S.DepartmentID =D.DepartmentID';

   strSQL:=strSQL+' Where StudentID='''+ UserID + '''';

  end;

  ADODataSetUser.Close;

  ADODataSetUser.CommandText := strSQL;

  ADODataSetUser.Open;

  if Not ADODataSetUser.Eof then begin

   if ADODataSetUser.FieldValues['PassWord']=EditPassWord.Text then

    LoginSign := 0  // 正确

   else

    LoginSign := 2; // 密码错误

  end;

 end;