...if ADOQuery1.RecordCount>0 then begin czy:=ADOQuery1.FieldByName('username').Value; s:=true; close;mainform.show;//在这里加入对主窗体的调用就可以了 end else if m<3 then ...